"Source: Text/Geometry/CrvEllQNF.text";
"Line: 2105";
"Date: Fri Apr 14 10:35:14 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/CrvEllQNF.text, line: 2105
// Example: H130E22 ()
print "Example: H130E22";
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);
