f4 := -.36271442460850943666e-17*q[0]^5*p[2]*q[3]^7*p[3]^3+.\
14300088617963161461e-16*q[0]^6*p[2]*q[3]^6*p[3]^3-.138e-15*q[0]^6*q[3]^6*p[3]
^3+527.96589709213685846*q[0]^7*q[3]^5*p[3]^3+52.796589709213685865*q[0]^11*q[
3]*p[3]^3+204.57862963488289620*q[0]^4*q[3]^8*p[3]^3+527.96589709213685857*q[0
]^5*q[3]^7*p[3]^3-204.57862963488289636*q[0]^8*q[3]^4*p[3]^3+.\
24748078072694407563e-17*q[0]^4*p[2]*q[3]^8*p[3]^3-.20208907768031577396e-36*q
[0]^6*p[2]^2*q[3]^6*p[3]^3+.17703573492973207634e-36*q[0]^5*p[2]^2*q[3]^7*p[3]
^3+.97102935002063565731e-37*q[0]^9*p[2]^2*q[3]^3*p[3]^3+.323563575534114686e-\
39*q[0]^10*p[2]^2*q[3]^2*p[3]^3+.20078227459698251611e-37*q[0]^11*p[2]^2*p[3]^
3*q[3]-163.66290370790631704*q[0]^10*q[3]^2*p[3]^3+263.98294854606842932*q[0]^
3*q[3]^9*p[3]^3-.9983312919162442046e-18*q[0]^2*q[3]^10*p[2]*p[3]^3+.\
13366881437221500932e-16*q[0]^3*q[3]^9*p[2]*p[3]^3+.84638169059578613307e-17*q
[0]^10*p[2]*q[3]^2*p[3]^3-.10209900854928067976e-16*q[0]^9*p[2]*q[3]^3*p[3]^3+
.27000000000000000001e-17*q[0]^6*p[1]*p[2]*q[3]^6*p[3]^3-.39625230552879489274\
e-17*q[0]^11*p[2]*q[3]*p[3]^3+.15170873718831858388e-16*q[0]^8*p[2]*q[3]^4*p[3
]^3+.32e-37*q[0]^6*p[1]*p[2]^2*q[3]^6*p[3]^3+.115e-36*q[0]^5*p[1]*p[2]^2*q[3]^
7*p[3]^3+.43e-37*q[0]^9*p[1]*p[2]^2*q[3]^3*p[3]^3-40.915725926976579264*q[0]^
12*p[3]^3+.2000000000000000001e-18*q[0]^4*p[1]*p[2]*q[3]^8*p[3]^3-.47e-37*q[0]
^10*p[1]*p[2]^2*q[3]^2*p[3]^3+.3e-38*q[0]^11*p[1]*p[2]^2*p[3]^3*q[3]+.\
10000000000000000001e-17*q[0]^5*p[1]*p[2]*q[3]^7*p[3]^3+163.66290370790631703*
q[0]^2*q[3]^10*p[3]^3-.2e-36*q[0]^4*p[1]^2*q[3]^8*p[3]^3+.25246430958932917308\
e-17*q[0]^7*p[2]*q[3]^5*p[3]^3-.29000000000000000000e-17*q[0]^2*p[1]*q[3]^10*p
[2]*p[3]^3-.1e-36*q[0]^6*p[1]^2*q[3]^6*p[3]^3-.95541837242625846946e-17*q[0]^8
*p[1]*q[3]^4*p[3]^3-.19176622783664646107e-17*q[0]^10*p[1]*q[3]^2*p[3]^3-.\
99999999999999999983e-18*q[0]^3*p[1]*q[3]^9*p[2]*p[3]^3-.10339895965755236506e\
-16*q[0]^9*p[1]*q[3]^3*p[3]^3-.5253795061719829684e-17*q[0]^4*p[1]*q[3]^8*p[3]
^3-.28377460464110020169e-16*q[0]^5*p[1]*q[3]^7*p[3]^3-.21404482669161260494e-\
16*q[0]^6*p[1]*q[3]^6*p[3]^3-.52235188878829642026e-16*q[0]^7*p[1]*q[3]^5*p[3]
^3+.42664261716616305049e-17*q[0]^11*p[1]*q[3]*p[3]^3-.6e-37*q[0]^11*p[1]^2*q[
3]*p[3]^3+.29000000000000000002e-17*q[0]^7*p[1]*p[2]*q[3]^5*p[3]^3-.\
3000000000000000000e-18*q[0]^11*p[1]*p[2]*q[3]*p[3]^3+.14999999999999999999e-\
17*q[0]^8*p[1]*p[2]*q[3]^4*p[3]^3-.29478144708818693406e-17*q[0]^12*p[1]*p[3]^
3+263.98294854606842920*q[0]^9*q[3]^3*p[3]^3+.9000000000000000000e-18*q[3]^2*p
[1]*q[0]^10*p[2]*p[3]^3-.9e-37*q[0]^2*p[1]^2*q[3]^10*p[3]^3+.\
69397942109939174238e-18*q[0]^12*p[2]*p[3]^3-.1e-18*q[0]^12*p[1]*p[2]*p[3]^3+.\
13e-36*q[3]^5*p[1]*q[0]^7*p[2]^2*p[3]^3-.47e-37*q[3]^4*p[1]*q[0]^8*p[2]^2*p[3]
^3+.32e-37*q[3]^8*p[1]*q[0]^4*p[2]^2*p[3]^3+.16e-37*q[3]^9*p[1]*q[0]^3*p[2]^2*
p[3]^3-.2e-37*q[3]^11*p[1]^2*q[0]*p[3]^3-.4e-37*q[3]^12*p[1]^2*p[3]^3-.3e-37*q
[3]^11*p[1]*p[2]*q[0]*p[3]^3+.27556021401953744942e-17*q[3]^12*p[1]*p[3]^3-.\
4723414944714754313e-18*q[3]^11*p[1]*q[0]*p[3]^3-.9e-18*q[3]^12*p[1]*p[2]*p[3]
^3-.53681843376627245253e-37*q[3]^8*q[0]^4*p[2]^2*p[3]^3+.31131490152636843242\
e-36*q[3]^5*q[0]^7*p[2]^2*p[3]^3+.25901972128435945126e-37*q[3]^4*q[0]^8*p[2]^
2*p[3]^3+.13589179005066963937e-37*q[3]^9*q[0]^3*p[2]^2*p[3]^3+.\
16808458384918387072e-17*q[3]^12*p[2]*p[3]^3+52.796589709213685867*q[3]^11*q[0
]*p[3]^3-.9e-38*q[3]^11*p[1]*p[2]^2*p[3]^3*q[0]+.17208796231344181084e-17*q[3]
^11*p[2]*q[0]*p[3]^3+40.915725926976579262*q[3]^12*p[3]^3+.\
53863134538682288287e-37*q[0]^2*q[3]^10*p[2]^2*p[3]^3-.98988354641772960012e-\
38*q[3]^11*p[2]^2*p[3]^3*q[0]+.60000000000000000027e-18*q[0]^9*p[1]*p[2]*q[3]^
3*p[3]^3-.3209352171687205853e-18*q[0]^3*p[1]*q[3]^9*p[3]^3+.\
7199652539658910095e-17*q[0]^2*p[1]*q[3]^10*p[3]^3-.7e-36*q[0]^5*p[1]^2*q[3]^7
*p[3]^3-.3e-36*q[0]^7*p[1]^2*q[3]^5*p[3]^3+.13e-36*q[0]^8*p[1]^2*q[3]^4*p[3]^3
+.1e-37*q[0]^9*p[1]^2*q[3]^3*p[3]^3-.18e-37*q[0]^12*p[1]^2*p[3]^3+Complex(.\
39207262627466323697e-37)*q[0]^10*p[2]^2*q[3]^2*p[3]^3+Complex(.\
76289238378078634420e-17)*q[0]^4*p[2]*q[3]^8*p[3]^3+Complex(-.\
14319299248736331067e-37)*q[0]^9*p[2]^2*q[3]^3*p[3]^3+Complex(.\
31030597474018874985e-37)*q[0]^11*p[2]^2*p[3]^3*q[3]+Complex(-.\
11790596494043280552e-16)*q[0]^2*q[3]^10*p[2]*p[3]^3+Complex(.\
10497558859802568028e-36)*q[3]^4*q[0]^8*p[2]^2*p[3]^3+Complex(-.\
42197545094982332378e-17)*q[3]^11*p[2]*q[0]*p[3]^3+Complex(.\
7057318975372754101e-38)*q[3]^10*p[2]^2*q[0]^2*p[3]^3+Complex(.\
32174536428714159856e-37)*q[3]^11*p[2]^2*p[3]^3*q[0]+Complex(-.48e-17)*q[0]^11
*p[1]*q[3]*p[3]^3+Complex(-.6e-37)*q[0]^11*p[1]^2*q[3]*p[3]^3+Complex(-.33e-36
)*q[0]^10*p[1]^2*q[3]^2*p[3]^3+Complex(.16e-16)*q[0]^4*p[1]*q[3]^8*p[3]^3+
Complex(-.10e-16)*q[0]^10*p[1]*q[3]^2*p[3]^3+Complex(-.5e-17)*q[0]^7*p[1]*p[2]
*q[3]^5*p[3]^3+Complex(-.67e-18)*q[0]^8*p[1]*p[2]*q[3]^4*p[3]^3+Complex(43.991\
806356678310215)*q[3]^12*p[3]^3+Complex(.4e-17)*q[0]^3*p[1]*q[3]^9*p[3]^3+
Complex(.1e-17)*q[0]^5*p[1]*p[2]*q[3]^7*p[3]^3+Complex(-.91e-18)*q[0]^6*p[1]*p
[2]*q[3]^6*p[3]^3+Complex(.11e-17)*q[0]^11*p[1]*p[2]*q[3]*p[3]^3+Complex(-.2e-\
38)*q[0]^7*p[1]*p[2]^2*q[3]^5*p[3]^3+Complex(.29e-18)*q[0]^10*p[1]*p[2]*q[3]^2
*p[3]^3+Complex(-.12e-37)*q[0]^5*p[1]*p[2]^2*q[3]^7*p[3]^3+Complex(.20e-36)*q[
0]^2*p[1]^2*q[3]^10*p[3]^3+Complex(-.19e-17)*q[0]^9*p[1]*p[2]*q[3]^3*p[3]^3+
Complex(-.88e-36)*q[0]^8*p[1]^2*q[3]^4*p[3]^3+Complex(-.4e-18)*q[0]^12*p[1]*p[
2]*p[3]^3+Complex(-.8e-17)*q[0]^2*p[1]*q[3]^10*p[3]^3+Complex(.24e-17)*q[0]^3*
p[1]*q[3]^9*p[2]*p[3]^3+Complex(-.9e-38)*q[0]^3*p[1]*q[3]^9*p[2]^2*p[3]^3+
Complex(.10413223235514012805e-16)*q[0]^6*p[2]*q[3]^6*p[3]^3+Complex(-.\
7272967669672465273e-18)*q[0]^9*p[2]*q[3]^3*p[3]^3+Complex(-.\
24631952887043941471e-17)*q[0]^11*p[2]*q[3]*p[3]^3+Complex(-.\
27118311642692573917e-36)*q[0]^7*p[2]^2*q[3]^5*p[3]^3+Complex(231.708177911656\
32678)*q[0]^7*q[3]^5*p[3]^3+Complex(23.170817791165632691)*q[3]^11*q[0]*p[3]^3
+Complex(-.18092031478255649354e-17)*q[3]^12*p[2]*p[3]^3+Complex(-.\
81914914906655338410e-17)*q[0]^5*p[2]*q[3]^7*p[3]^3+Complex(-.\
59508282616190414373e-17)*q[0]^10*p[2]*q[3]^2*p[3]^3+Complex(.\
4129822183208947806e-18)*q[0]^7*p[2]*q[3]^5*p[3]^3+Complex(.\
2200610583433591916e-18)*q[0]^8*p[2]*q[3]^4*p[3]^3+Complex(-.\
11663753768056638638e-36)*q[0]^6*p[2]^2*q[3]^6*p[3]^3+Complex(.\
24943401179478960091e-37)*q[0]^4*q[3]^8*p[2]^2*p[3]^3+Complex(.\
18354684238573171081e-36)*q[0]^3*q[3]^9*p[2]^2*p[3]^3+Complex(.\
19750973312307007350e-36)*q[0]^5*p[2]^2*q[3]^7*p[3]^3+Complex(-.\
16889936285401838039e-17)*q[0]^3*q[3]^9*p[2]*p[3]^3+Complex(-.21e-17)*q[3]^12*
p[1]*p[3]^3+Complex(-.58023966692105499146e-18)*q[0]^12*p[2]*p[3]^3+Complex(
115.85408895582816344)*q[0]^3*q[3]^9*p[3]^3+Complex(175.96722542671324086)*q[0
]^2*q[3]^10*p[3]^3+Complex(.131e-17)*q[3]^8*p[1]*q[0]^4*p[2]*p[3]^3+Complex(.1\
e-38)*q[3]^11*p[1]*p[2]^2*p[3]^3*q[0]+Complex(-.12e-36)*q[3]^11*p[1]^2*q[0]*p[
3]^3+Complex(.2e-17)*q[3]^11*p[1]*q[0]*p[3]^3+Complex(-.6e-18)*q[3]^11*p[1]*p[
2]*q[0]*p[3]^3+Complex(-.26e-37)*q[3]^10*p[1]*p[2]^2*q[0]^2*p[3]^3+Complex(-\
175.96722542671324087)*q[0]^10*q[3]^2*p[3]^3+Complex(23.170817791165632686)*q[
0]^11*q[3]*p[3]^3+Complex(115.85408895582816341)*q[0]^9*q[3]^3*p[3]^3+Complex(
-.4e-17)*q[0]^8*p[1]*q[3]^4*p[3]^3+Complex(.41e-16)*q[0]^5*p[1]*q[3]^7*p[3]^3+
Complex(.20169821931826373416e-16)*q[0]^6*p[1]*q[3]^6*p[3]^3+Complex(-.5e-17)*
q[0]^6*q[3]^6*p[3]^3+Complex(219.95903178339155102)*q[0]^4*q[3]^8*p[3]^3+
Complex(.1e-36)*q[0]^9*p[1]^2*q[3]^3*p[3]^3+Complex(-.1e-36)*q[0]^5*p[1]^2*q[3
]^7*p[3]^3+Complex(-.11e-36)*q[0]^7*p[1]^2*q[3]^5*p[3]^3+Complex(-43.991806356\
678310214)*q[0]^12*p[3]^3+Complex(.7e-37)*q[0]^12*p[1]^2*p[3]^3+Complex(-219.9\
5903178339155109)*q[0]^8*q[3]^4*p[3]^3+Complex(231.70817791165632679)*q[0]^5*q
[3]^7*p[3]^3+Complex(-.22e-37)*q[0]^4*p[1]*q[3]^8*p[2]^2*p[3]^3+Complex(.9e-17
)*q[0]^7*p[1]*q[3]^5*p[3]^3+Complex(.84e-37)*q[0]^6*p[1]*p[2]^2*q[3]^6*p[3]^3+
Complex(-.3e-37)*q[0]^3*p[1]^2*q[3]^9*p[3]^3+Complex(.8e-37)*q[0]^8*p[1]*p[2]^
2*q[3]^4*p[3]^3+Complex(.2e-36)*q[0]^4*p[1]^2*q[3]^8*p[3]^3+Complex(-.5e-36)*q
[0]^6*p[1]^2*q[3]^6*p[3]^3+Complex(.86e-18)*q[3]^10*p[1]*q[0]^2*p[2]*p[3]^3+
Complex(.12e-37)*q[0]^11*p[1]*p[2]^2*p[3]^3*q[3]+Complex(.12e-37)*q[0]^9*p[1]*
p[2]^2*q[3]^3*p[3]^3;