Xm := 6;
n := 3;
g := 28;
R<u,v>:=PolynomialRing(Rationals(),2);
X := 3^13*v^22 + (6908733*u^2 + 14348907)*v^21 + (13817466*u^4 + 55269864*u^2 + 64304361)*v^20 + (16888014*u^6 + 96722262*u^4 + 220843260*u^2 + 189429192)*v^19 + (14073345*u^8 + 101328084*u^6 + 338823162*u^4 + 583640316*u^2 + 406847610)*v^18 + (8444007*u^10 + 70366725*u^8 + 303748056*u^6 + 792516312*u^4 + 1130315958*u^2 + 669733758)*v^17 + (3752892*u^12 + 33776028*u^10 + 173792142*u^8 + 616992066*u^6 + 1372508712*u^4 + 1680783858*u^2 + 868801059)*v^16 + (1250964*u^14 + 11258676*u^12 + 64219068*u^10 + 297865026*u^8 + 947290302*u^6 + 1836918162*u^4 + 1965723714*u^2 + 903265992)*v^15 + (312741*u^16 + 2501928*u^14 + 14103963*u^12 + 88363548*u^10 + 403572942*u^8 + 1142105346*u^6 + 1936548405*u^4 + 1832666634*u^2 + 760658283)*v^14 + (57915*u^18 + 312741*u^16 + 1029672*u^14 + 13892958*u^12 + 107975835*u^10 + 445807557*u^8 + 1093435524*u^6 + 1623088854*u^4 + 1372370688*u^2 + 522159696)*v^13 + (7722*u^20 - 365310*u^16 + 220158*u^14 + 18354600*u^12 + 117209592*u^10 + 398629971*u^8 + 833417424*u^6 + 1086219882*u^4 + 828298170*u^2 + 293081085)*v^12 + (702*u^22 - 7722*u^20 - 125226*u^18 - 258120*u^16 + 2577258*u^14 + 23948784*u^12 + 105089238*u^10 + 285144894*u^8 + 505644174*u^6 + 581157180*u^4 + 402959826*u^2 + 134526852)*v^11 + (39*u^24 - 1404*u^22 - 16053*u^20 - 5088*u^18 + 581157*u^16 + 4793130*u^14 + 23332077*u^12 + 74390832*u^10 + 161824989*u^8 + 243861432*u^6 + 248319288*u^4 + 157512858*u^2 + 50358081)*v^10 + (u^26 - 117*u^24 - 564*u^22 + 11118*u^20 + 133434*u^18 + 889602*u^16 + 4573173*u^14 + 16415829*u^12 + 40871061*u^10 + 72530703*u^8 + 93292959*u^6 + 84495501*u^4 + 49137546*u^2 + 15281178)*v^9 - (4*u^26 - 71*u^24 - 1772*u^22 - 15370*u^20 - 98734*u^18 - 629164*u^16 - 2812482*u^14 - 8429274*u^12 - 17371866*u^10 - 25644186*u^8 - 28232328*u^6 - 22801344*u^4 - 12097590*u^2 - 3721449)*v^8 + (6*u^26 + 58*u^24 + 308*u^22 + 1462*u^20 + 35974*u^18 + 275338*u^16 + 1177446*u^14 + 3190878*u^12 + 5737728*u^10 + 7169234*u^8 + 6728788*u^6 + 4855926*u^4 + 2310534*u^2 + 716160)*v^7 - (4*u^26 + 47*u^24 + 564*u^22 + 1164*u^20 - 6558*u^18 - 73671*u^16 - 335538*u^14 - 894699*u^12 - 1484730*u^10 - 1594969*u^8 - 1252352*u^6 - 812025*u^4 - 333534*u^2 - 106374)*v^6 + (u^26 - 13*u^24 - 36*u^22 - 302*u^20 - 89*u^18 + 10045*u^16 + 62444*u^14 + 184214*u^12 + 302666*u^10 + 285590*u^8 + 178756*u^6 + 105996*u^4 + 34947*u^2 + 11757)*v^5 + (9*u^24 + 36*u^22 + 44*u^20 - 222*u^18 + 58*u^16 + 6584*u^14 + 26762*u^12 + 48134*u^10 + 41772*u^8 + 18846*u^6 + 10668*u^4 + 2486*u^2 + 910)*v^4 + (6*u^22 + 20*u^20 - 8*u^18 - 150*u^16 + 180*u^14 + 2454*u^12 + 5700*u^10 + 5016*u^8 + 1362*u^6 + 798*u^4 + 106*u^2 + 44)*v^3 + (u^20 + 2*u^18 - 9*u^16 - 28*u^14 + 101*u^12 + 446*u^10 + 475*u^8 + 58*u^6 + 40*u^4 + 2*u^2 + 1)*v^2 - (u^14 + u^12 - 17*u^10 - 31*u^8 - u^6 - u^4)*v + u^8;
t := 8*v*(v+1)*u^2/((3*v+1)^2*(u-1)*(u+1));
x := 4*v*u*(u+3*v-u*v+1)*(u*v-u+3*v+1)/((3*v+1)^3*(u-1)*(u+1)^2);
E := [2-t,t-t^2,t-t^2,0,0];
P := [R!0,0];
Q := [x];