m := 3; n := 7; g := 25; F:=CyclotomicField(3); R:=PolynomialRing(F,2); X := (u^15 + (z + 16)*u^14 + (15*z + 119)*u^13 + (104*z + 545)*u^12 + (441*z + 1716)*u^11 + (1275*z + 3927)*u^10 + (2652*z + 6733)*u^9 + (4080*z + 8787)*u^8 + (4698*z + 8781)*u^7 + (4047*z + 6706)*u^6 + (2575*z + 3877)*u^5 + (1176*z + 1667)*u^4 + (365*z + 518)*u^3 + (69*z + 111)*u^2 + (6*z + 15)*u + 1)*v^12 + (z*u^20 + (18*z - 1)*u^19 + (155*z - 18)*u^18 + (847*z - 155)*u^17 + (3288*z - 847)*u^16 + (9623*z - 3279)*u^15 + (22010*z - 9505)*u^14 + (40297*z - 21304)*u^13 + (60094*z - 37768)*u^12 + (73903*z - 54158)*u^11 + (75273*z - 64691)*u^10 + (62692*z - 66873)*u^9 + (40655*z - 61864)*u^8 + (17724*z - 51338)*u^7 + (1960*z - 36786)*u^6 + (-4000*z - 21474)*u^5 + (-3524*z - 9643)*u^4 + (-1508*z - 3154)*u^3 + (-352*z - 704)*u^2 + (-36*z - 96)*u - 6)*v^11 + (4*z*u^20 + (61*z - 4)*u^19 + (425*z - 61)*u^18 + (1764*z - 425)*u^17 + (4681*z - 1764)*u^16 + (7442*z - 4636)*u^15 + (3082*z - 6982)*u^14 + (-18744*z - 992)*u^13 + (-61768*z + 24139)*u^12 + (-113548*z + 69933)*u^11 + (-150353*z + 119372)*u^10 + (-154325*z + 147973)*u^9 + (-125028*z + 145550)*u^8 + (-77392*z + 120483)*u^7 + (-32345*z + 85852)*u^6 + (-5001*z + 51243)*u^5 + (3639*z + 24086)*u^4 + (2831*z + 8296)*u^3 + (855*z + 1929)*u^2 + (104*z + 265)*u + 15)*v^10 + ((-z - 1)*u^23 + (-18*z - 17)*u^22 + (-161*z - 144)*u^21 + (-933*z - 799)*u^20 + (-3916*z - 3252)*u^19 + (-12764*z - 10322)*u^18 + (-33992*z - 26440)*u^17 + (-76499*z - 55504)*u^16 + (-147395*z - 95596)*u^15 + (-241341*z - 134315)*u^14 + (-328718*z - 154659)*u^13 + (-362098*z - 153982)*u^12 + (-311462*z - 152837)*u^11 + (-196515*z - 169858)*u^10 + (-73333*z - 192105)*u^9 + (10145*z - 190721)*u^8 + (39605*z - 158897)*u^7 + (29972*z - 113073)*u^6 + (9075*z - 68802)*u^5 + (-2727*z - 33870)*u^4 + (-3639*z - 12330)*u^3 + (-1349*z - 2997)*u^2 + (-190*z - 415)*u - 20)*v^9 + ((-z - 1)*u^23 + (-16*z - 15)*u^22 + (-113*z - 98)*u^21 + (-424*z - 346)*u^20 + (-667*z - 536)*u^19 + (1583*z + 1129)*u^18 + (13718*z + 10159)*u^17 + (49964*z + 37015)*u^16 + (129464*z + 93364)*u^15 + (266980*z + 179376)*u^14 + (452032*z + 268360)*u^13 + (627354*z + 314378)*u^12 + (705658*z + 295986)*u^11 + (637912*z + 244562)*u^10 + (461650*z + 202748)*u^9 + (264460*z + 172931)*u^8 + (114718*z + 136766)*u^7 + (34516*z + 94646)*u^6 + (8418*z + 57598)*u^5 + (5160*z + 29597)*u^4 + (3896*z + 11463)*u^3 + (1521*z + 2932)*u^2 + (237*z + 411)*u + 15)*v^8 + ((-z - 1)*u^23 + (-14*z - 13)*u^22 + (-75*z - 62)*u^21 + (-135*z - 108)*u^20 + (412*z + 240)*u^19 + (3076*z + 1856)*u^18 + (8692*z + 4946)*u^17 + (13192*z + 5951)*u^16 + (3769*z - 5851)*u^15 + (-40824*z - 47147)*u^14 + (-142447*z - 126050)*u^13 + (-299114*z - 216534)*u^12 + (-455699*z - 262930)*u^11 + (-525613*z - 238813)*u^10 + (-469720*z - 179687)*u^9 + (-331855*z - 128678)*u^8 + (-185860*z - 90377)*u^7 + (-79855*z - 57608)*u^6 + (-25787*z - 33111)*u^5 + (-7884*z - 17235)*u^4 + (-3331*z - 7096)*u^3 + (-1225*z - 1919)*u^2 + (-204*z - 275)*u - 6)*v^7 + (u^24 + 12*u^23 + 84*u^22 + (36*z + 436)*u^21 + (378*z + 1762)*u^20 + (1804*z + 5544)*u^19 + (5168*z + 13652)*u^18 + (9920*z + 26824)*u^17 + (13583*z + 43333)*u^16 + (14324*z + 59726)*u^15 + (14066*z + 74656)*u^14 + (21878*z + 95476)*u^13 + (55874*z + 132395)*u^12 + (124520*z + 171563)*u^11 + (197061*z + 176692)*u^10 + (222745*z + 139587)*u^9 + (188206*z + 91973)*u^8 + (123682*z + 56405)*u^7 + (62683*z + 31542)*u^6 + (23221*z + 15563)*u^5 + (6559*z + 7418)*u^4 + (2008*z + 3123)*u^3 + (679*z + 882)*u^2 + (119*z + 131)*u + 1)*v^6 + (-z*u^23 + (-9*z + 1)*u^22 + (-20*z + 9)*u^21 + (23*z - 15)*u^20 + (67*z - 478)*u^19 + (-587*z - 2797)*u^18 + (-3470*z - 9493)*u^17 + (-9503*z - 22660)*u^16 + (-17753*z - 41908)*u^15 + (-25755*z - 62197)*u^14 + (-29246*z - 75465)*u^13 + (-27004*z - 81844)*u^12 + (-29010*z - 89371)*u^11 + (-44317*z - 93098)*u^10 + (-60871*z - 79043)*u^9 + (-60925*z - 52589)*u^8 + (-45904*z - 30185)*u^7 + (-26701*z - 15536)*u^6 + (-11165*z - 6605)*u^5 + (-3175*z - 2590)*u^4 + (-780*z - 1025)*u^3 + (-245*z - 290)*u^2 + (-45*z - 45)*u)*v^5 + (-z*u^23 + (-7*z + 1)*u^22 + (-14*z + 7)*u^21 + (-24*z - 6)*u^20 + (-132*z - 181)*u^19 + (-595*z - 758)*u^18 + (-1381*z - 1535)*u^17 + (-1786*z - 1559)*u^16 + (-1078*z + 616)*u^15 + (1414*z + 6478)*u^14 + (5608*z + 14162)*u^13 + (8346*z + 18680)*u^12 + (7142*z + 20206)*u^11 + (6344*z + 22578)*u^10 + (9394*z + 22496)*u^9 + (11482*z + 16517)*u^8 + (9865*z + 9536)*u^7 + (6571*z + 4907)*u^6 + (3126*z + 1979)*u^5 + (918*z + 639)*u^4 + (176*z + 228)*u^3 + (52*z + 62)*u^2 + (10*z + 10)*u)*v^4 + (-z*u^23 + (-5*z + 1)*u^22 + (-18*z + 5)*u^21 + (-61*z + 8)*u^20 + (-201*z - 14)*u^19 + (-479*z - 9)*u^18 + (-776*z + 209)*u^17 + (-1004*z + 731)*u^16 + (-1109*z + 1649)*u^15 + (-1002*z + 2459)*u^14 + (-1135*z + 2028)*u^13 + (-1928*z + 766)*u^12 + (-2175*z + 262)*u^11 + (-1217*z - 321)*u^10 + (-904*z - 1663)*u^9 + (-1279*z - 1940)*u^8 + (-1201*z - 1205)*u^7 + (-904*z - 675)*u^6 + (-501*z - 282)*u^5 + (-156*z - 69)*u^4 + (-18*z - 23)*u^3 + (-5*z - 6)*u^2 + (-z - 1)*u)*v^3 + ((-4*z - 4)*u^20 + (-19*z - 15)*u^19 + (-26*z - 11)*u^18 + (-15*z - 4)*u^17 + (11*z + 15)*u^16 + (70*z + 10)*u^15 + (116*z - 154)*u^14 + (50*z - 386)*u^13 + (44*z - 335)*u^12 + (236*z - 249)*u^11 + (181*z - 336)*u^10 + (29*z - 181)*u^9 + (66*z + 37)*u^8 + (70*z + 33)*u^7 + (59*z + 26)*u^6 + (41*z + 15)*u^5 + 15*z*u^4)*v^2 + ((-z - 1)*u^20 + (-2*z - 1)*u^19 + (-3*z - 2)*u^18 + (-5*z - 3)*u^17 + (-7*z - 4)*u^16 + (-9*z - 14)*u^15 + (-21*z - 33)*u^14 + (-32*z - 15)*u^13 + (-8*z + 2)*u^12 + (-20*z - 17)*u^11 - 33*z*u^10 + (-9*z + 17)*u^9 + (-7*z - 3)*u^8 + (-5*z - 2)*u^7 + (-3*z - 1)*u^6 + (-2*z - 1)*u^5 - z*u^4)*v - u^15 - z*u^14 + (z + 1)*u^13 - u^12 - z*u^11 + (z + 1)*u^10 - u^9; q := u+1; t := (v*u)/(u+1); E := [(1+q)*t+(2-q),0,q*t^2+(1-q)*t,0,0]; P := [R!0,0]; Q := [-t,t^2];