P := 15877506.71*((0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)*(1+x)*(1.01-0.1880000000e-2*(-0.8116071429e16*x+0.5410714286e14*x*t2-0.1211208482e16-0.9064285715e12*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2))*(-t2+150)*(-15.*pi*(-150.*x+x*t2-150.+t2)*(0.4046978854e25*x*t2+0.8030752639e27*x+0.8823875359e27+0.6603497957e24*t2+0.3700446764e23*x^2*t2+0.3008493306e21*x^2*t2^2-0.1231978009e26*x^2+0.3008493306e21*x*t2^2))^(1/2)*Ln(130/(t2-45))/((-150.*x+x*t2-150.+t2)*(-0.5625000000e23*pi*x+0.3750000000e21*pi*x*t2-0.5625000000e23*pi+0.3750000000e21*pi*t2)*((0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)*(1+x)*(1-0.5000000000e-3*(-0.8116071429e16*x+0.5410714286e14*x*t2-0.1211208482e16-0.9064285715e12*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)-0.1250000000e-1*(0.2164285714e13*t2-0.3785297679e15-0.3246428572e15*x+0.2164285714e13*x*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2))*(-0.5625000000e23*pi*x+0.3750000000e21*pi*x*t2-0.5625000000e23*pi+0.3750000000e21*pi*t2)^2/((-150.*x+x*t2-150.+t2)^2*pi*(0.4046978854e25*x*t2+0.8030752639e27*x+0.8823875359e27+0.6603497957e24*t2+0.3700446764e23*x^2*t2+0.3008493306e21*x^2*t2^2-0.1231978009e26*x^2+0.3008493306e21*x*t2^2)))^.16*(175-t2)))^.66-0.8675404752e-6*(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)/(-150.*x+x*t2-150.+t2)-0.6385291941e-8*(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)*x*(1.01-0.4700000000e-1*(0.2164285714e13*t2-0.3785297679e15-0.3246428572e15*x+0.2164285714e13*x*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2))*(-t2+150)/(-150.*x+x*t2-150.+t2)-0.3071328592e-3*(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)*(1+x)*(1.01-0.1880000000e-2*(-0.8116071429e16*x+0.5410714286e14*x*t2-0.1211208482e16-0.9064285715e12*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2))*(-t2+150)*Ln(130/(t2-45))*(55+1/2*t2)/((-150.*x+x*t2-150.+t2)*((0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)*(1+x)*(1-0.5000000000e-3*(-0.8116071429e16*x+0.5410714286e14*x*t2-0.1211208482e16-0.9064285715e12*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)-0.1250000000e-1*(0.2164285714e13*t2-0.3785297679e15-0.3246428572e15*x+0.2164285714e13*x*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2))*(-0.5625000000e23*pi*x+0.3750000000e21*pi*x*t2-0.5625000000e23*pi+0.3750000000e21*pi*t2)^2/((-150.*x+x*t2-150.+t2)^2*pi*(0.4046978854e25*x*t2+0.8030752639e27*x+0.8823875359e27+0.6603497957e24*t2+0.3700446764e23*x^2*t2+0.3008493306e21*x^2*t2^2-0.1231978009e26*x^2+0.3008493306e21*x*t2^2)))^.16*(175-t2))-0.6574658544e-10*(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2)*x*(.773-0.3110000000e-1*(0.2164285714e13*t2-0.3785297679e15-0.3246428572e15*x+0.2164285714e13*x*t2)/(0.1007142857e12*x*t2-0.1510714286e14*x+0.1345787202e15+0.1007142857e12*t2))*(273+t2)/(-150.*x+x*t2-150.+t2);