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

Quelle  bilformbyquadform.g   Sprache: unbekannt

 
#Constructing form: BilinearFormByQuadraticForm
r := PolynomialRing(GF(9),4);
poly := -r.1*r.2+Z(3^2)*r.3^2+r.4^2;
qform := QuadraticFormByPolynomial(poly,r);
Display( qform );
form := BilinearFormByQuadraticForm( qform );
Display(form);
Set(GF(9)^4, x -> [x,x]^form = x^qform);
quit;

[ Dauer der Verarbeitung: 0.6 Sekunden  (vorverarbeitet)  ]