Quelle  cps_ishyperbolicquadric.g   Sprache: unbekannt

#is hyperbolic quadric property
mat := IdentityMat(6,GF(5));
form := BilinearFormByMatrix(mat,GF(5));
ps := PolarSpace(form);
IsHyperbolicQuadric(ps);
mat := IdentityMat(6,GF(7));
form := BilinearFormByMatrix(mat,GF(7));
ps := PolarSpace(form);
IsHyperbolicQuadric(ps);
quit;