"Source: Text/Geometry/ModSym.text";
"Line: 648";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModSym.text, line: 648
// Example: H145E6 ()
print "Example: H145E6";
ei := GetEchoInput();
SetEchoInput(true);
M := ModularSymbols(14,2); M;
Basis(M);
M!<1,[1,0]>;
assert $1 eq 0;
M!<1,[0,1/11]>;
M![<1,[0,1/2]>, <-1,[0,1/7]>];              // sequences are added
M!<1,[0,1/2]> - M!<1,[0,1/7]>;
M!<1,[Cusps()|Infinity(),0]>;               // Infinity() is in Cusps().
VectorSpace(M);
Eltseq(M.3);
M![ 0, 0, 1, 0, 0 ];
M.3;
M := ModularSymbols(1,12);
Basis(M);
R<X,Y> := PolynomialRing(Rationals(),2);
M!<X^9*Y,[Cusps()|0,Infinity()]>;
M!<X^7*Y^3,[Cusps()|0,Infinity()]>;
Eltseq(M!<X*Y^9,[1/3,1/2]>);
M![1,2,3];
ManinSymbol(M![1,2,3]);
SetEchoInput(ei);
