"Source: Text/Geometry/CrvMod.text";
"Line: 369";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvMod.text, line: 369
// Example: H140E3 ()
print "Example: H140E3";
ei := GetEchoInput();
SetEchoInput(true);
A2 := AffineSpace(RationalField(),2);
X0 := ModularCurve(A2,"Canonical",7);
K0<u,j> := FunctionField(X0);
j;
E := EllipticCurveFromjInvariant(j);
E;
ModuliPoints(X0,E);
P := $1[1];
SubgroupScheme(E,P);
X0 := ModularCurve(A2,"Atkin",7);
K0<u,j> := FunctionField(X0);
j;
E := EllipticCurveFromjInvariant(j);
E;
P := X0![u,j];
SubgroupScheme(E,P);
SetEchoInput(ei);
