"Source: Text/Geometry/CrvMod.text";
"Line: 969";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvMod.text, line: 969
// Example: H140E7 ()
print "Example: H140E7";
ei := GetEchoInput();
SetEchoInput(true);
chi := DirichletGroup(13,CyclotomicField(6)).1; //order 6 character mod 13
A13:=Af(chi)[1];
NewModularHyperellipticCurve([A13]);
f13:=qIntegralBasis(A13,100);
NewModularHyperellipticCurve(f13);
SetVerbose("ModularCurve",1);
NewModularHyperellipticCurve([A13]:check:=true);
NewModularHyperellipticCurves(80,0: gamma:=0);
SetVerbose("ModularCurve",0);
NewModularHyperellipticCurves(80,0);
SetEchoInput(ei);
