"Source: Text/Basics/FldForms.text";
"Line: 1446";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Basics/FldForms.text, line: 1446
// Example: H30E18 ()
print "Example: H30E18";
ei := GetEchoInput();
SetEchoInput(true);
F<x> := GF(25);
J1 := Matrix(F,4,4,[ 0, x^7, x^14, x^13, x^19, 0, x^8, x^5,
  x^2, x^20, 0, x^17, x, x^17, x^5, 0 ]);
J2 := Matrix(F,4,4,[ 0, x^17, 2, x^23, x^5, 0, x^15, x^5, 
  3, x^3, 0, 4, x^11, x^17, 1, 0 ]);
M1 := TransformForm(J1,"symplectic");
M2 := TransformForm(J2,"symplectic");
M_alt := M1*M2^-1;
J1 eq M_alt*J2*Transpose(M_alt);
assert $1;
SetEchoInput(ei);
