(* Relation of N=11 for y,z,v,w *)

f0[1]=Sum[q^(11*(11/2(p+1/22)^2-1/88))*(-1)^p,{p,-30,30}];
f0[2]=Sum[q^(11*(11/2(p+3/22)^2-1/88))*(-1)^p,{p,-30,30}];
f0[3]=Sum[q^(11*(11/2(p+5/22)^2-1/88))*(-1)^p,{p,-30,30}];
f0[4]=Sum[q^(11*(11/2(p+7/22)^2-1/88))*(-1)^p,{p,-30,30}];
f0[5]=Sum[q^(11*(11/2(p+9/22)^2-1/88))*(-1)^p,{p,-30,30}];
11*4*(11-3)/2/12*11*(11^2-1)
10*10/2*900
x=f0[1];
y=f0[2];
z=f0[3];
v=f0[4];
w=f0[5];
Print["relation check all 15"]

Print["1"]
Series[x^3*v+v^3*w-y^3*z,{q,0,40000}]
Print["2"]
Series[x*z^3-v*y^3-w^3*y,{q,0,40000}]
Print["3"]
Series[v^3*z-z^3*y+x^3*w,{q,0,40000}]
Print["4"]
Series[-y^3*x+x^3*z+v*w^3,{q,0,40000}]
Print["5"]
Series[z^3*w+w^3*x-v^3*y,{q,0,40000}]
Print["6"]
Series[z^2*v*w+x^2*y*w-y^2*z*v,{q,0,40000}]
Print["7"]
Series[-x^2*y*v-z*v*w^2+x*y*z^2,{q,0,40000}]
Print["8"]
Series[-w^2*y*z+v^2*y*x-x^2*w*z,{q,0,40000}]
Print["9"]
Series[x*z*v^2-y^2*z*w-x*v*w^2,{q,0,40000}]
Print["10"]
Series[x*y^2*w-z^2*x*v+v^2*y*w,{q,0,40000}]
Print["11"]
Series[-x*y*v*w+z^2*w*y+z^2*x^2-y^3*z,{q,0,40000}]
Print["12"]
Series[-w*v*y*z-x^2*z*v+x^2*w^2+x*z^3,{q,0,40000}]
Print["13"]
Series[-v*y*z*x+w^2*y*x+w^2*v^2+x^3*w,{q,0,40000}]
Print["14"]
Series[-y*z*x*w-v^2*z*w+v^2*y^2+w^3*v,{q,0,40000}]
Print["15"]
Series[x*z*v*w-y^2*x*v+y^2*z^2-y*v^3,{q,0,40000}]