"Source: Text/Geometry/CrvEllQNF.text";
"Line: 2109";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEllQNF.text, line: 2109
// Example: H133E22 ()
print "Example: H133E22";
ei := GetEchoInput();
SetEchoInput(true);
D := CremonaDatabase();
#D;
assert $1 eq 3064705;
minC, maxC := ConductorRange(D);
minC, maxC;
&+[ NumberOfCurves(D, C) : C in [ minC .. maxC ] ];
assert $1 eq 3064705;
S := [ NumberOfCurves(D, C) : C in [ minC .. maxC ] ];
cond := maxval + minC - 1 where _,maxval := Max(S);
cond;
NumberOfCurves(D, cond);
NumberOfIsogenyClasses(D, cond);
NumberOfCurves(D, 5077);
assert $1 eq 1;
E := EllipticCurve(D, 5077, 1, 1);
E;
CremonaReference(D, E);
Rank(E);
assert $1 eq 3;
SetEchoInput(ei);
