Quelle  projpol_shadowofflag2.g   Sprache: unbekannt

#shadow of a flag
ps := PG(5,7);
p := VectorSpaceToElement(ps,[1,0,0,0,0,0]*Z(7)^0);
l := VectorSpaceToElement(ps,[[1,0,0,0,0,0],[0,1,0,0,0,0]]*Z(7)^0);
v := VectorSpaceToElement(ps,[[1,0,0,0,0,0],[0,1,0,0,0,0],[0,0,1,0,0,0]]*Z(7)^0);
s := ShadowOfFlag(ps,[v,p,l],4);
s := ShadowOfFlag(ps,[v,p,l],"solids");
quit;