Quelle  test_forms11.g   Sprache: unbekannt

#test_forms11: hermitian forms by polynomial
r := PolynomialRing( GF(9), 4);
vars := IndeterminatesOfPolynomialRing( r );
pol := vars[1]*vars[2]^3+vars[1]^3*vars[2]+vars[3]*vars[4]^3+vars[3]^3*vars[4];
form := HermitianFormByPolynomial(pol,r);
Display(form);
quit;