Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/pkg/forms/tst/gap/easy/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 5.4.2025 mit Größe 371 B image not shown  

Quelle  test_forms9.g   Sprache: unbekannt

 
#test_forms9: forms by polynomials
r := PolynomialRing( GF(16), 4);
vars := IndeterminatesOfPolynomialRing( r );
z := Z(16);
pol := z^5*vars[3]^2+vars[1]*vars[3]+z^8*vars[1]^2 + vars[2]*vars[4];
form := QuadraticFormByPolynomial(pol,r);
B := BaseChangeToCanonical(form);
mat := form!.matrix;
mat2 := B*mat*TransposedMat(B);
Display(mat2);
DiscriminantOfForm(form);
quit;

[ Dauer der Verarbeitung: 0.15 Sekunden  (vorverarbeitet)  ]