m := 7; n := 1; g := 3; F:=NumberField(PolynomialRing(Rationals())![-1,-2,1,1]); R:=PolynomialRing(F,2); X := (7*u^2 - 7*u)*v^5 + ((-3*a^2 - 2*a + 9)*u^4 + (25*a^2 + 19*a - 33)*u^3 + (-23*a^2 - 34*a + 41)*u^2 + (2*a^2 + 13*a - 20)*u + (a^2 + 3*a + 4))*v^4 + (7*u^5 + (13*a^2 + 11*a + 3)*u^4 + (29*a^2 - 11*a - 80)*u^3 + (-40*a^2 - 29*a + 99)*u^2 + (6*a^2 + 25*a - 39)*u + 7)*v^3 + (7*u^6 + 14*u^5 + (34*a^2 + 11*a - 46)*u^4 + (-11*a^2 - 40*a - 23)*u^3 + (-11*a^2 + 23*a + 68)*u^2 - 35*u + 7)*v^2 + (14*u^6 + (19*a^2 - 6*a - 43)*u^4 + (-11*a^2 + 2*a + 33)*u^3 - 7*u^2)*v + 7*u^6 - 7*u^5 + (2*a^2 - a + 1)*u^4; t := v*(u-1)/((v+1)*u); x := v^2*(u-1)*(u+v)/((v+1)^2*u^3); E := [1+t-t^2,t^2-t^3,t^2-t^3,0,0]; P := [R!0,0]; Q := [x];