"Source: Text/Geometry/Lseries.text";
"Line: 1553";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Lseries.text, line: 1553
// Example: H136E20 ()
print "Example: H136E20";
ei := GetEchoInput();
SetEchoInput(true);
L := LSeries(1, [0], 1, 0: Sign:=1, Poles:=[1], Residues:=[-1]);
N := LCfRequired(L); N;
vec := [1, 1, 1, 1, 1, 1];
LSetCoefficients(L,vec);
Evaluate(L,2);
Pi(RealField())^2/6;
LSetCoefficients(L, [1,1]);
CFENew(L);
Evaluate(L, 2);
$1 - Pi(RealField(28))^2/6;
SetEchoInput(ei);
