|
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.....]
[ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
]
|