Quellcode-Bibliothek discofform.out   Sprache: unbekannt

gap> #Discriminant of form: DiscriminantOfForm
gap> gram := InvariantQuadraticForm(GO(-1,4,5))!.matrix;;
gap> qform := QuadraticFormByMatrix(gram, GF(5));
< quadratic form >
gap> DiscriminantOfForm( qform );
"nonsquare"
gap> quit;