m := 2; n := 10; g := 9; F := Rationals(); R:=PolynomialRing(F,2); X := v^8 + 4*u^2*v^7 + (6*u^4 - 2*u^2)*v^6 + (4*u^6 - 2*u^4 - 6*u^2)*v^5 + (u^8 + u^6 - 11*u^4 - u^2)*v^4 + (u^8 - 3*u^6 - 9*u^4 + 7*u^2)*v^3 + (u^8 - 3*u^6 + u^4 + 5*u^2)*v^2 + (u^8 + u^6 + u^4 + u^2)*v + u^8; q := -1/u; t := 4*v*u/(u^2*v-u^2+3*v+1); E := [0,t^2-2*q*t-2,0,-(t^2-1)*(q*t+1)^2,0]; P := [R!0,0]; Q := [(t+1)*(q*t+1),t*(q*t+1)*(t+1)];