"Source: Text/Geometry/CrvMod.text";
"Line: 1067";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvMod.text, line: 1067
// Example: H140E10 ()
print "Example: H140E10";
ei := GetEchoInput();
SetEchoInput(true);
NewModularNonHyperellipticCurvesGenus3(20);
S1:=ModularSymbols(178,2,1);  
N1:=SortDecomposition(NewformDecomposition(NewSubspace(CuspidalSubspace(S1))));    
A:=N1[3];A;
S2:=ModularSymbols(89,2,1); 
N2:=SortDecomposition(NewformDecomposition(NewSubspace(CuspidalSubspace(S2))));  
B:=N2[1];B;
fA:=qIntegralBasis(A,100);
fB:=qIntegralBasis(B,100); 
q := Universe(fB).1;
fB2:=&+[Coefficient(fB[1],k)*q^(2*k) : k in [1..99]];  
g:=fB[1]+2*fB2;
ModularNonHyperellipticCurveGenus3([g,fA[1],fA[2]]);
SetEchoInput(ei);
