"Source: Text/Geometry/ModFrm.text";
"Line: 1494";
"Date: Tue Jun  7 22:27:14 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/ModFrm.text, line: 1494
// Example: H141E12 ()
print "Example: H141E12";
ei := GetEchoInput();
SetEchoInput(true);
M := ModularForms(Gamma0(33),2); M;
Basis(M);
Basis(CuspidalSubspace(M));
Basis(EisensteinSubspace(M));
Basis(NewSubspace(M));
Basis(NewSubspace(EisensteinSubspace(M)));
Basis(NewSubspace(CuspidalSubspace(M)));
ZeroSubspace(M);
MQ := BaseChange(M, Rationals()); SetPrecision(MQ, 20);
b := Basis(MQ); b[5];
CuspidalProjection(b[5]);
EisensteinProjection(b[5]);
MQ! $1 + MQ! $2;  // Add the previous two answers, inside MQ
SetEchoInput(ei);
