"Source: Text/Geometry/Lseries.text";
"Line: 1014";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Lseries.text, line: 1014
// Example: H136E18 ()
print "Example: H136E18";
ei := GetEchoInput();
SetEchoInput(true);
E := EllipticCurve([0, 0, 1, -7, 6]);
L := LSeries(E : Precision:=15);
Evaluate(L, 1);
Evaluate(L, 1 : Derivative:=1, Leading:=true);
Evaluate(L, 1 : Derivative:=2, Leading:=true);
Evaluate(L, 1 : Derivative:=3, Leading:=true);
Rank(E);
assert $1 eq 3;
time LTaylor(L, 1, 5 : ZeroBelow:=3);
time LTaylor(L, 1, 5);
c := Coefficient($1,3)*Factorial(3);c;
LStar(L, 1 : Derivative:=3);
c*Sqrt(Conductor(E)/Pi(RealField(15)));
SetEchoInput(ei);
