Quelle  gpolygons_basepointofegq.include   Sprache: unbekannt

gap> clan := LinearqClan(3);
<q-clan over GF(3)>
gap> egq := EGQByqClan(clan);
#I  Computed Kantor family. Now computing EGQ...
<EGQ of order [ 9, 3 ] and basepoint 0>
gap> blt := BLTSetByqClan(clan);
[ <a point in Q(4, 3): -x_1*x_5-x_2*x_4+x_3^2=0>, 
  <a point in Q(4, 3): -x_1*x_5-x_2*x_4+x_3^2=0>, 
  <a point in Q(4, 3): -x_1*x_5-x_2*x_4+x_3^2=0>, 
  <a point in Q(4, 3): -x_1*x_5-x_2*x_4+x_3^2=0> ]
gap> egq2 := EGQByBLTSet(blt);
#I  Now embedding dual BLT-set into W(5,q)...
#I  Computing elation group...
<EGQ of order [ 9, 3 ] and basepoint in W(5, 3 ) >
gap> BasePointOfEGQ(egq);
<a point of class 3 of <EGQ of order [ 9, 3 ] and basepoint 0>>
gap> Display(last);
[ [  0 ] ]
gap> BasePointOfEGQ(egq2);
<a point in <EGQ of order [ 9, 3 ] and basepoint in W(5, 3 ) >>
gap> Display(last);
[1.....]