"Source: Text/Geometry/ModSym.text";
"Line: 1754";
"Date: Mon Aug 27 15:40:50 2018";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/ModSym.text, line: 1754
// Example: H142E16 ()
print "Example: H142E16";
ei := GetEchoInput();
SetEchoInput(true);
N := 11; p := 3; 
k1 := 2; k2 := k1 + (p+1);
M1 := ModularSymbols(11,k1,GF(p));
M2 := ModularSymbols(11,k2,GF(p));
theta  := ThetaOperator(M1,M2); theta;
D := Decomposition(M1,2);
f := qEigenform(D[2],10); f;
x := D[2].1;
y := theta(x); y;
[y*HeckeOperator(M2,n) - n*Coefficient(f,n)*y : n in [1..9]];
SetEchoInput(ei);
