Advanced Search

Question: can a singularity in an ode be ignored and have a solution after the singularity

Question:can a singularity in an ode be ignored and have a solution after the singularity

mehdi jafari 769 Maple
ode dsolve numeric differential-equations singularity
December 19 2023
0

Hi. i have a question about and ODE's singularity. Is it possible to disregard a singularity in an ordinary differential equation (ODE) and still obtain a solution beyond the singularity?

 

> 

exit; restart
> 

B := 39; g := .857143; gama := 1.5; C1 := 6.66667*10^(-3); C2 := 1.14286*10^(-2); A := .714286; b4 := .571429; b3 := 7.11111*10^(-5); b2 := 3.5; b1 := 4; a9 := 6.66667; a8 := 1.6254*10^(-4); a7 := 1.42222*10^(-2); a6 := 2; a5 := 1.21905*10^(-4); a4 := 3.5; a3 := 4.06349*10^(-5); a2 := 4.74074*10^(-5); a1 := 5.59069*10^(-7)

39

  

.857143

  

1.5

  

0.6666670000e-2

  

0.1142860000e-1

  

.714286

  

.571429

  

0.7111110000e-4

  

3.5

  

4

  

6.66667

  

0.1625400000e-3

  

0.1422220000e-1

  

2

  

0.1219050000e-3

  

3.5

  

0.4063490000e-4

  

0.4740740000e-4

  

0.5590690000e-6

 (1)
> 

sys := {(diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x) = (a1*y4(x)^(1/2)/(f(x)*y2(x)*x^(3/2)*(x-1)*(1+y4(x))^(1/2))+a2*(g*y2(x)^2+gama*(f(x)*y2(x))^2)^2/(x*f(x)*y2(x))+a3*(5*x-3)*y2(x)^2*(g*y2(x)^2+gama*(f(x)*y2(x))^2)*(1/(x*(x-1)*f(x)*y2(x)))-(y3(x)^2/x^3-1/(2*(x-1)^2))*(a4*f(x)*y2(x)-a5*(g*y2(x)^2+gama*(f(x)*y2(x))^2)/(f(x)*y2(x)))-(a6*f(x)*y2(x)*(y2(x)^2))*(5*x-3)/(x*(x-1))-a7*y3(x)*(g*y2(x)^2+gama*(f(x)*y2(x))^2)/x^2-a8*y2(x)^2*(g*y2(x)^2+gama*(f(x)*y2(x))^2)*(1/(x*f(x)*y2(x)*(1+y4(x))))+(a9*f(x)*y2(x)*(y2(x)^2))/(x*(1+y4(x))))/(b1*y2(x)^2-b2*(f(x)*y2(x))^2+b3*(g*y2(x)^2+gama*(f(x)*y2(x))^2)*(A-b4*y2(x)^2/(f(x)*y2(x))^2)), diff(y2(x), x) = (y2(x)*(1/(f(x)*y2(x)))-gama*f(x)*y2(x)*(1/y2(x)))*((diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x))+gama*(y3(x)^2/x^3-1/(2*(x-1)^2))/y2(x)+y2(x)*(5*x-3)/(2*x*(x-1))-2*y2(x)/((1+y4(x))*x), diff(y3(x), x) = -C1*x*(g*y2(x)^2-gama*(f(x)*y2(x))^2)*((diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x))/(f(x)*y2(x))^2+(C2*x*y2(x)*(1/(f(x)*y2(x))))*(diff(y2(x), x))+C1*(g*y2(x)^2+gama*(f(x)*y2(x))^2)/(f(x)*y2(x)), diff(y4(x), x) = (1+y4(x))*((diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x))/(f(x)*y2(x))+(3*(1+y4(x)))*(diff(y2(x), x))/y2(x)+(1+y4(x))/(x-1)+B*(1+y4(x))/(2*x), f(1000) = 0.132e-2/(0.3205e-1), y2(1000) = 0.3205e-1, y3(1000) = 5.9459, y4(1000) = 1400}

{(diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x) = (0.5590690000e-6*y4(x)^(1/2)/(f(x)*y2(x)*x^(3/2)*(x-1)*(1+y4(x))^(1/2))+0.4740740000e-4*(.857143*y2(x)^2+1.5*f(x)^2*y2(x)^2)^2/(x*f(x)*y2(x))+0.4063490000e-4*(5*x-3)*y2(x)*(.857143*y2(x)^2+1.5*f(x)^2*y2(x)^2)/(x*(x-1)*f(x))-(y3(x)^2/x^3-(1/2)/(x-1)^2)*(3.5*f(x)*y2(x)-0.1219050000e-3*(.857143*y2(x)^2+1.5*f(x)^2*y2(x)^2)/(f(x)*y2(x)))-2*f(x)*y2(x)^3*(5*x-3)/(x*(x-1))-0.1422220000e-1*y3(x)*(.857143*y2(x)^2+1.5*f(x)^2*y2(x)^2)/x^2-0.1625400000e-3*y2(x)*(.857143*y2(x)^2+1.5*f(x)^2*y2(x)^2)/(x*f(x)*(1+y4(x)))+6.66667*f(x)*y2(x)^3/(x*(1+y4(x))))/(4*y2(x)^2-3.5*f(x)^2*y2(x)^2+0.7111110000e-4*(.857143*y2(x)^2+1.5*f(x)^2*y2(x)^2)*(.714286-.571429/f(x)^2)), diff(y2(x), x) = (1/f(x)-1.5*f(x))*((diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x))+1.5*(y3(x)^2/x^3-(1/2)/(x-1)^2)/y2(x)+(1/2)*y2(x)*(5*x-3)/(x*(x-1))-2*y2(x)/((1+y4(x))*x), diff(y3(x), x) = -0.6666670000e-2*x*(.857143*y2(x)^2-1.5*f(x)^2*y2(x)^2)*((diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x))/(f(x)^2*y2(x)^2)+0.1142860000e-1*x*(diff(y2(x), x))/f(x)+0.6666670000e-2*(.857143*y2(x)^2+1.5*f(x)^2*y2(x)^2)/(f(x)*y2(x)), diff(y4(x), x) = (1+y4(x))*((diff(f(x), x))*y2(x)+(diff(y2(x), x))*f(x))/(f(x)*y2(x))+3*(1+y4(x))*(diff(y2(x), x))/y2(x)+(1+y4(x))/(x-1)+(39/2)*(1+y4(x))/x, f(1000) = 0.4118564743e-1, y2(1000) = 0.3205e-1, y3(1000) = 5.9459, y4(1000) = 1400}

 (2)
> 

sol := dsolve(sys, numeric, stiff = true, output = listprocedure, maxfun = 0)

[x = proc (x) local _res, _dat, _solnproc, _xout, _ndsol, _pars, _i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; if 1 < nargs then error "invalid input: too many arguments" end if; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then _xout := evalf[_EnvDSNumericSaveDigits](x) else _xout := evalf(x) end if; _dat := Array(1..4, {(1) = proc (_xin) local _xout, _dtbl, _dat, _vmap, _x0, _y0, _val, _dig, _n, _ne, _nd, _nv, _pars, _ini, _par, _i, _j, _k, _src; option `Copyright (c) 2002 by Waterloo Maple Inc. All rights reserved.`; table( [( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 28, [( 1 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 2 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 3 ) = ([0, 0, 0, Array(1..0, 1..2, {}, datatype = float[8], order = C_order)]), ( 4 ) = (Array(1..65, {(1) = 4, (2) = 4, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 0, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 37, (19) = 0, (20) = 0, (21) = 0, (22) = 2, (23) = 3, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 0, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 2, (34) = 0, (35) = 0, (36) = 0, (37) = 0, (38) = 0, (39) = 0, (40) = 0, (41) = 0, (42) = 0, (43) = 1, (44) = 0, (45) = 0, (46) = 0, (47) = 0, (48) = 0, (49) = 0, (50) = 50, (51) = 1, (52) = 0, (53) = 0, (54) = 0, (55) = 0, (56) = 0, (57) = 0, (58) = 0, (59) = 10000, (60) = 0, (61) = 1000, (62) = 0, (63) = 0, (64) = -1, (65) = 0}, datatype = integer[8])), ( 5 ) = (Array(1..28, {(1) = 1000.0, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 1000.0, (6) = 0.10e-2, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .49999999999999, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0, (21) = 1.0, (22) = 1.0, (23) = .0, (24) = .0, (25) = 0.10e-14, (26) = .0, (27) = .0, (28) = .0}, datatype = float[8], order = C_order)), ( 6 ) = (Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order)), ( 7 ) = ([Array(1..4, 1..7, {(1, 1) = .0, (1, 2) = .203125, (1, 3) = .3046875, (1, 4) = .75, (1, 5) = .8125, (1, 6) = .40625, (1, 7) = .8125, (2, 1) = 0.6378173828125e-1, (2, 2) = .0, (2, 3) = .279296875, (2, 4) = .27237892150878906, (2, 5) = -0.9686851501464844e-1, (2, 6) = 0.1956939697265625e-1, (2, 7) = .5381584167480469, (3, 1) = 0.31890869140625e-1, (3, 2) = .0, (3, 3) = -.34375, (3, 4) = -.335235595703125, (3, 5) = .2296142578125, (3, 6) = .41748046875, (3, 7) = 11.480712890625, (4, 1) = 0.9710520505905151e-1, (4, 2) = .0, (4, 3) = .40350341796875, (4, 4) = 0.20297467708587646e-1, (4, 5) = -0.6054282188415527e-2, (4, 6) = -0.4770040512084961e-1, (4, 7) = .77858567237854}, datatype = float[8], order = C_order), Array(1..6, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = 1.0, (2, 1) = .25, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = 1.0, (3, 1) = .1875, (3, 2) = .5625, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = 2.0, (4, 1) = .23583984375, (4, 2) = -.87890625, (4, 3) = .890625, (4, 4) = .0, (4, 5) = .0, (4, 6) = .2681884765625, (5, 1) = .1272735595703125, (5, 2) = -.5009765625, (5, 3) = .44921875, (5, 4) = -0.128936767578125e-1, (5, 5) = .0, (5, 6) = 0.626220703125e-1, (6, 1) = -0.927734375e-1, (6, 2) = .626220703125, (6, 3) = -.4326171875, (6, 4) = .1418304443359375, (6, 5) = -0.861053466796875e-1, (6, 6) = .3131103515625}, datatype = float[8], order = C_order), Array(1..6, {(1) = .0, (2) = .386, (3) = .21, (4) = .63, (5) = 1.0, (6) = 1.0}, datatype = float[8], order = C_order), Array(1..6, {(1) = .25, (2) = -.1043, (3) = .1035, (4) = -0.362e-1, (5) = .0, (6) = .0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 1.544, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = .9466785280815533, (3, 2) = .25570116989825814, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = 3.3148251870684886, (4, 2) = 2.896124015972123, (4, 3) = .9986419139977808, (4, 4) = .0, (4, 5) = .0, (5, 1) = 1.2212245092262748, (5, 2) = 6.019134481287752, (5, 3) = 12.537083329320874, (5, 4) = -.687886036105895, (5, 5) = .0, (6, 1) = 1.2212245092262748, (6, 2) = 6.019134481287752, (6, 3) = 12.537083329320874, (6, 4) = -.687886036105895, (6, 5) = 1.0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = -5.6688, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = -2.4300933568337584, (3, 2) = -.20635991570891224, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = -.10735290581452621, (4, 2) = -9.594562251021896, (4, 3) = -20.470286148096154, (4, 4) = .0, (4, 5) = .0, (5, 1) = 7.496443313968615, (5, 2) = -10.246804314641219, (5, 3) = -33.99990352819906, (5, 4) = 11.708908932061595, (5, 5) = .0, (6, 1) = 8.083246795922411, (6, 2) = -7.981132988062785, (6, 3) = -31.52159432874373, (6, 4) = 16.319305431231363, (6, 5) = -6.0588182388340535}, datatype = float[8], order = C_order), Array(1..3, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 10.126235083446911, (2, 2) = -7.487995877607633, (2, 3) = -34.800918615557414, (2, 4) = -7.9927717075687275, (2, 5) = 1.0251377232956207, (3, 1) = -.6762803392806898, (3, 2) = 6.087714651678606, (3, 3) = 16.43084320892463, (3, 4) = 24.767225114183653, (3, 5) = -6.5943891257167815}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..4, {(1) = 1.0, (2) = 1.0, (3) = 1.0, (4) = 1.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.49226990714460894e-7, (2) = 0.178537560858319e-7, (3) = 0.4029586553756948e-5, (4) = -0.23927004927454816e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = -0.18357229760682366e-2, (1, 2) = -0.17501463887214658e-2, (1, 3) = -0.7164959560218224e-6, (1, 4) = -0.4205459947957446e-10, (2, 1) = -0.10047974614114951e-4, (2, 2) = 0.3018120081790368e-3, (2, 3) = 0.16179996203159695e-6, (2, 4) = 0.56891129092515695e-11, (3, 1) = -.2754182957400952, (3, 2) = .6220071419708226, (3, 3) = 0.9964521295710663e-4, (3, 4) = 0.5318788432319277e-8, (4, 1) = -2.1232505740214265, (4, 2) = 42.11602079706063, (4, 3) = 0.39181824003885705e-2, (4, 4) = 0.17557456518577073e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (4, 5) = .0, (4, 6) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8]), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..8, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8])]), ( 8 ) = ([Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.193749384647247e-6, (2) = 0.17116786119646165e-7, (3) = 0.5244123565596995e-5, (4) = .4079623005603603}, datatype = float[8], order = C_order), 0, 0]), ( 11 ) = (Array(1..6, 0..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (5, 3) = .0, (5, 4) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0, (6, 3) = .0, (6, 4) = .0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 13 ) = (), ( 12 ) = (), ( 15 ) = ("rosenbrock"), ( 14 ) = ([0, 0]), ( 18 ) = ([]), ( 19 ) = (0), ( 16 ) = ([0, 0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 22 ) = (0), ( 23 ) = (0), ( 20 ) = ([]), ( 21 ) = (0), ( 27 ) = (""), ( 26 ) = (Array(1..0, {})), ( 25 ) = (Array(1..0, {})), ( 24 ) = (0), ( 28 ) = (0) ] )) ] ); _y0 := Array(0..4, {(1) = 1000., (2) = 0.4118564743e-1, (3) = 0.3205e-1, (4) = 5.9459}); _vmap := array( 1 .. 4, [( 1 ) = (1), ( 2 ) = (2), ( 3 ) = (3), ( 4 ) = (4) ] ); _x0 := _dtbl[1][5][5]; _n := _dtbl[1][4][1]; _ne := _dtbl[1][4][3]; _nd := _dtbl[1][4][4]; _nv := _dtbl[1][4][16]; if not type(_xout, 'numeric') then if member(_xout, ["start", "left", "right"]) then if _Env_smart_dsolve_numeric = true or _dtbl[1][4][10] = 1 then if _xout = "left" then if type(_dtbl[2], 'table') then return _dtbl[2][5][1] end if elif _xout = "right" then if type(_dtbl[3], 'table') then return _dtbl[3][5][1] end if end if end if; return _dtbl[1][5][5] elif _xout = "method" then return _dtbl[1][15] elif _xout = "storage" then return evalb(_dtbl[1][4][10] = 1) elif _xout = "leftdata" then if not type(_dtbl[2], 'array') then return NULL else return eval(_dtbl[2]) end if elif _xout = "rightdata" then if not type(_dtbl[3], 'array') then return NULL else return eval(_dtbl[3]) end if elif _xout = "enginedata" then return eval(_dtbl[1]) elif _xout = "enginereset" then _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); return NULL elif _xout = "initial" then return procname(_y0[0]) elif _xout = "laxtol" then return _dtbl[`if`(member(_dtbl[4], {2, 3}), _dtbl[4], 1)][5][18] elif _xout = "numfun" then return `if`(member(_dtbl[4], {2, 3}), _dtbl[_dtbl[4]][4][18], 0) elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "initial_and_parameters" then return procname(_y0[0]), [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "last" then if _dtbl[4] <> 2 and _dtbl[4] <> 3 or _x0-_dtbl[_dtbl[4]][5][1] = 0. then error "no information is available on last computed point" else _xout := _dtbl[_dtbl[4]][5][1] end if elif _xout = "function" then if _dtbl[1][4][33]-2. = 0 then return eval(_dtbl[1][10], 1) else return eval(_dtbl[1][10][1], 1) end if elif _xout = "map" then return copy(_vmap) elif type(_xin, `=`) and type(rhs(_xin), 'list') and member(lhs(_xin), {"initial", "parameters", "initial_and_parameters"}) then _ini, _par := [], []; if lhs(_xin) = "initial" then _ini := rhs(_xin) elif lhs(_xin) = "parameters" then _par := rhs(_xin) elif select(type, rhs(_xin), `=`) <> [] then _par, _ini := selectremove(type, rhs(_xin), `=`) elif nops(rhs(_xin)) < nops(_pars)+1 then error "insufficient data for specification of initial and parameters" else _par := rhs(_xin)[-nops(_pars) .. -1]; _ini := rhs(_xin)[1 .. -nops(_pars)-1] end if; _xout := lhs(_xout); _i := false; if _par <> [] then _i := `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then _i := `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) or _i end if; if _i then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars); if _Env_smart_dsolve_numeric = true and type(_y0[0], 'numeric') and _dtbl[1][4][10] <> 1 then procname("right") := _y0[0]; procname("left") := _y0[0] end if end if; if _xout = "initial" then return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)] elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] else return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)], [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] end if elif _xin = "eventstop" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then return 0 end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 <= _dtbl[5-_i][4][9] then _i := 5-_i; _dtbl[4] := _i; _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) elif 100 <= _dtbl[_i][4][9] then _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) else return 0 end if elif _xin = "eventstatus" then if _nv = 0 then error "this solution has no events" end if; _i := [selectremove(proc (a) options operator, arrow; _dtbl[1][3][1][a, 7] = 1 end proc, {seq(_j, _j = 1 .. round(_dtbl[1][3][1][_nv+1, 1]))})]; return ':-enabled' = _i[1], ':-disabled' = _i[2] elif _xin = "eventclear" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then error "no events to clear" end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 100 then error "no events to clear" elif _nv < _dtbl[_i][4][9]-100 then error "event error condition cannot be cleared" else _j := _dtbl[_i][4][9]-100; if irem(round(_dtbl[_i][3][1][_j, 4]), 2) = 1 then error "retriggerable events cannot be cleared" end if; _j := round(_dtbl[_i][3][1][_j, 1]); for _k to _nv do if _dtbl[_i][3][1][_k, 1] = _j then if _dtbl[_i][3][1][_k, 2] = 3 then error "range events cannot be cleared" end if; _dtbl[_i][3][1][_k, 8] := _dtbl[_i][3][1][_nv+1, 8] end if end do; _dtbl[_i][4][17] := 0; _dtbl[_i][4][9] := 0; if _dtbl[1][4][10] = 1 then if _i = 2 then try procname(procname("left")) catch: end try else try procname(procname("right")) catch: end try end if end if end if; return elif type(_xin, `=`) and member(lhs(_xin), {"eventdisable", "eventenable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('list')('posint'), ('set')('posint')}) then _i := {op(rhs(_xin))} elif type(rhs(_xin), 'posint') then _i := {rhs(_xin)} else error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; if select(proc (a) options operator, arrow; _nv < a end proc, _i) <> {} then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _k := {}; for _j to _nv do if member(round(_dtbl[1][3][1][_j, 1]), _i) then _k := `union`(_k, {_j}) end if end do; _i := _k; if lhs(_xin) = "eventdisable" then _dtbl[4] := 0; _j := [evalb(assigned(_dtbl[2]) and member(_dtbl[2][4][17], _i)), evalb(assigned(_dtbl[3]) and member(_dtbl[3][4][17], _i))]; for _k in _i do _dtbl[1][3][1][_k, 7] := 0; if assigned(_dtbl[2]) then _dtbl[2][3][1][_k, 7] := 0 end if; if assigned(_dtbl[3]) then _dtbl[3][3][1][_k, 7] := 0 end if end do; if _j[1] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[2][3][4][_k, 1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to defined init `, _dtbl[2][3][4][_k, 1]); _dtbl[2][3][1][_k, 8] := _dtbl[2][3][4][_k, 1] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to rate hysteresis init `, _dtbl[2][5][24]); _dtbl[2][3][1][_k, 8] := _dtbl[2][5][24] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to initial init `, _x0); _dtbl[2][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to fireinitial init `, _x0-1); _dtbl[2][3][1][_k, 8] := _x0-1 end if end do; _dtbl[2][4][17] := 0; _dtbl[2][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("left")) end if end if; if _j[2] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[3][3][4][_k, 2], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to defined init `, _dtbl[3][3][4][_k, 2]); _dtbl[3][3][1][_k, 8] := _dtbl[3][3][4][_k, 2] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to rate hysteresis init `, _dtbl[3][5][24]); _dtbl[3][3][1][_k, 8] := _dtbl[3][5][24] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to initial init `, _x0); _dtbl[3][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to fireinitial init `, _x0+1); _dtbl[3][3][1][_k, 8] := _x0+1 end if end do; _dtbl[3][4][17] := 0; _dtbl[3][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("right")) end if end if else for _k in _i do _dtbl[1][3][1][_k, 7] := 1 end do; _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); _dtbl[4] := 0; if _dtbl[1][4][10] = 1 then if _x0 <= procname("right") then try procname(procname("right")) catch: end try end if; if procname("left") <= _x0 then try procname(procname("left")) catch: end try end if end if end if; return elif type(_xin, `=`) and lhs(_xin) = "eventfired" then if not type(rhs(_xin), 'list') then error "'eventfired' must be specified as a list" end if; if _nv = 0 then error "this solution has no events" end if; if _dtbl[4] <> 2 and _dtbl[4] <> 3 then error "'direction' must be set prior to calling/setting 'eventfired'" end if; _i := _dtbl[4]; _val := NULL; if not assigned(_EnvEventRetriggerWarned) then _EnvEventRetriggerWarned := false end if; for _k in rhs(_xin) do if type(_k, 'integer') then _src := _k elif type(_k, 'integer' = 'anything') and type(evalf(rhs(_k)), 'numeric') then _k := lhs(_k) = evalf[max(Digits, 18)](rhs(_k)); _src := lhs(_k) else error "'eventfired' entry is not valid: %1", _k end if; if _src < 1 or round(_dtbl[1][3][1][_nv+1, 1]) < _src then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _src := {seq(`if`(_dtbl[1][3][1][_j, 1]-_src = 0., _j, NULL), _j = 1 .. _nv)}; if nops(_src) <> 1 then error "'eventfired' can only be set/queried for root-finding events and time/interval events" end if; _src := _src[1]; if _dtbl[1][3][1][_src, 2] <> 0. and _dtbl[1][3][1][_src, 2]-2. <> 0. then error "'eventfired' can only be set/queried for root-finding events and time/interval events" elif irem(round(_dtbl[1][3][1][_src, 4]), 2) = 1 then if _EnvEventRetriggerWarned = false then WARNING(`'eventfired' has no effect on events that retrigger`) end if; _EnvEventRetriggerWarned := true end if; if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then _val := _val, undefined elif type(_dtbl[_i][3][4][_src, _i-1], 'undefined') or _i = 2 and _dtbl[2][3][1][_src, 8] < _dtbl[2][3][4][_src, 1] or _i = 3 and _dtbl[3][3][4][_src, 2] < _dtbl[3][3][1][_src, 8] then _val := _val, _dtbl[_i][3][1][_src, 8] else _val := _val, _dtbl[_i][3][4][_src, _i-1] end if; if type(_k, `=`) then if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then error "cannot set event code for a rate hysteresis event" end if; userinfo(3, {'events', 'eventreset'}, `manual set event code `, _src, ` to value `, rhs(_k)); _dtbl[_i][3][1][_src, 8] := rhs(_k); _dtbl[_i][3][4][_src, _i-1] := rhs(_k) end if end do; return [_val] elif type(_xin, `=`) and lhs(_xin) = "direction" then if not member(rhs(_xin), {-1, 1, ':-left', ':-right'}) then error "'direction' must be specified as either '1' or 'right' (positive) or '-1' or 'left' (negative)" end if; _src := `if`(_dtbl[4] = 2, -1, `if`(_dtbl[4] = 3, 1, undefined)); _i := `if`(member(rhs(_xin), {1, ':-right'}), 3, 2); _dtbl[4] := _i; _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if; return _src elif _xin = "eventcount" then if _dtbl[1][3][1] = 0 or _dtbl[4] <> 2 and _dtbl[4] <> 3 then return 0 else return round(_dtbl[_dtbl[4]][3][1][_nv+1, 12]) end if elif type(_xin, `=`) and lhs(_xin) = "setdatacallback" then if not type(rhs(_xin), 'nonegint') then error "data callback must be a nonnegative integer (address)" end if; _dtbl[1][28] := rhs(_xin) else return "procname" end if end if; if _xout = _x0 then return [_x0, seq(evalf(_dtbl[1][6][_vmap[_i]]), _i = 1 .. _n-_ne)] end if; _i := `if`(_x0 <= _xout, 3, 2); if _xin = "last" and 0 < _dtbl[_i][4][9] and _dtbl[_i][4][9] < 100 then _dat := eval(_dtbl[_i], 2); _j := _dat[4][20]; return [_dat[11][_j, 0], seq(_dat[11][_j, _vmap[_i]], _i = 1 .. _n-_ne-_nd), seq(_dat[8][1][_vmap[_i]], _i = _n-_ne-_nd+1 .. _n-_ne)] end if; if not type(_dtbl[_i], 'array') then _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if end if; if _xin <> "last" then if 0 < 0 then if `dsolve/numeric/checkglobals`(op(_dtbl[1][14]), _pars, _n, _y0) then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars, _i) end if end if; if _dtbl[1][4][7] = 0 then error "parameters must be initialized before solution can be computed" end if end if; _dat := eval(_dtbl[_i], 2); _dtbl[4] := _i; try _src := `dsolve/numeric/SC/IVPrun`(_dat, _xout) catch: userinfo(2, `dsolve/debug`, print(`Exception in solnproc:`, [lastexception][2 .. -1])); error end try; if _dat[17] <> _dtbl[1][17] then _dtbl[1][17] := _dat[17]; _dtbl[1][10] := _dat[10] end if; if _src = 0 and 100 < _dat[4][9] then _val := _dat[3][1][_nv+1, 8] else _val := _dat[11][_dat[4][20], 0] end if; if _src <> 0 or _dat[4][9] <= 0 then _dtbl[1][5][1] := _xout else _dtbl[1][5][1] := _val end if; if _i = 3 and _val < _xout then Rounding := -infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further right of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further right of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further right of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further right of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further right of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further right of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further right of %1", evalf[8](_val) end if elif _i = 2 and _xout < _val then Rounding := infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further left of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further left of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further left of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further left of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further left of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further left of %1", evalf[8](_val) end if end if; if _EnvInFsolve = true then _dig := _dat[4][26]; if type(_EnvDSNumericSaveDigits, 'posint') then _dat[4][26] := _EnvDSNumericSaveDigits else _dat[4][26] := Digits end if; _Env_dsolve_SC_native := true; if _dat[4][25] = 1 then _i := 1; _dat[4][25] := 2 else _i := _dat[4][25] end if; _val := `dsolve/numeric/SC/IVPval`(_dat, _xout, _src); _dat[4][25] := _i; _dat[4][26] := _dig; [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] else Digits := _dat[4][26]; _val := `dsolve/numeric/SC/IVPval`(eval(_dat, 2), _xout, _src); [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] end if end proc, (2) = Array(1..5, {(1) = 36893488148680590364, (2) = 36893488148680590540, (3) = 36893488148680590716, (4) = 36893488148680590892, (5) = 36893488148680591068}), (3) = [x, f(x), y2(x), y3(x), y4(x)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(x, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "eventcount", 'eventcount', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(x, 'string')); if 1 < nops([_res]) then return _res elif type(_res, 'array') then return eval(_res, 1) elif _res <> "procname" then return _res end if elif member(x, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(x, 'string')); if type(_res, 'list') then return _res[1] else return NULL end if elif member(x, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(x, 'string'); _res := _solnproc(_xout); if _xout = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[1], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["initial", 'initial', "parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(lhs(x), 'string') = rhs(x); if lhs(_xout) = "initial" then if type(rhs(_xout), 'list') then _res := _solnproc(_xout) else _res := _solnproc("initial" = ["single", 1, rhs(_xout)]) end if elif not type(rhs(_xout), 'list') then error "initial and/or parameter values must be specified in a list" elif lhs(_xout) = "initial_and_parameters" and nops(rhs(_xout)) = nops(_pars)+1 then _res := _solnproc(lhs(_xout) = ["single", 1, op(rhs(_xout))]) else _res := _solnproc(_xout) end if; if lhs(_xout) = "initial" then return _res[1] elif lhs(_xout) = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[1], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["eventdisable", 'eventdisable', "eventenable", 'eventenable', "eventfired", 'eventfired', "direction", 'direction', NULL]) then return _solnproc(convert(lhs(x), 'string') = rhs(x)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(x) else _ndsol := 1; _ndsol := `tools/gensym`("x"); eval(FromInert(_Inert_FUNCTION(_Inert_NAME("assign"), _Inert_EXPSEQ(ToInert(_ndsol), _Inert_VERBATIM(pointto(_dat[2][1])))))); return FromInert(_Inert_FUNCTION(ToInert(_ndsol), _Inert_EXPSEQ(ToInert(x)))) end if end if; try _res := _solnproc(_xout); _res[1] catch: error end try end proc, f(x) = proc (x) local _res, _dat, _solnproc, _xout, _ndsol, _pars, _i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; if 1 < nargs then error "invalid input: too many arguments" end if; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then _xout := evalf[_EnvDSNumericSaveDigits](x) else _xout := evalf(x) end if; _dat := Array(1..4, {(1) = proc (_xin) local _xout, _dtbl, _dat, _vmap, _x0, _y0, _val, _dig, _n, _ne, _nd, _nv, _pars, _ini, _par, _i, _j, _k, _src; option `Copyright (c) 2002 by Waterloo Maple Inc. All rights reserved.`; table( [( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 28, [( 1 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 2 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 3 ) = ([0, 0, 0, Array(1..0, 1..2, {}, datatype = float[8], order = C_order)]), ( 4 ) = (Array(1..65, {(1) = 4, (2) = 4, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 0, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 37, (19) = 0, (20) = 0, (21) = 0, (22) = 2, (23) = 3, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 0, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 2, (34) = 0, (35) = 0, (36) = 0, (37) = 0, (38) = 0, (39) = 0, (40) = 0, (41) = 0, (42) = 0, (43) = 1, (44) = 0, (45) = 0, (46) = 0, (47) = 0, (48) = 0, (49) = 0, (50) = 50, (51) = 1, (52) = 0, (53) = 0, (54) = 0, (55) = 0, (56) = 0, (57) = 0, (58) = 0, (59) = 10000, (60) = 0, (61) = 1000, (62) = 0, (63) = 0, (64) = -1, (65) = 0}, datatype = integer[8])), ( 5 ) = (Array(1..28, {(1) = 1000.0, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 1000.0, (6) = 0.10e-2, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .49999999999999, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0, (21) = 1.0, (22) = 1.0, (23) = .0, (24) = .0, (25) = 0.10e-14, (26) = .0, (27) = .0, (28) = .0}, datatype = float[8], order = C_order)), ( 6 ) = (Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order)), ( 7 ) = ([Array(1..4, 1..7, {(1, 1) = .0, (1, 2) = .203125, (1, 3) = .3046875, (1, 4) = .75, (1, 5) = .8125, (1, 6) = .40625, (1, 7) = .8125, (2, 1) = 0.6378173828125e-1, (2, 2) = .0, (2, 3) = .279296875, (2, 4) = .27237892150878906, (2, 5) = -0.9686851501464844e-1, (2, 6) = 0.1956939697265625e-1, (2, 7) = .5381584167480469, (3, 1) = 0.31890869140625e-1, (3, 2) = .0, (3, 3) = -.34375, (3, 4) = -.335235595703125, (3, 5) = .2296142578125, (3, 6) = .41748046875, (3, 7) = 11.480712890625, (4, 1) = 0.9710520505905151e-1, (4, 2) = .0, (4, 3) = .40350341796875, (4, 4) = 0.20297467708587646e-1, (4, 5) = -0.6054282188415527e-2, (4, 6) = -0.4770040512084961e-1, (4, 7) = .77858567237854}, datatype = float[8], order = C_order), Array(1..6, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = 1.0, (2, 1) = .25, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = 1.0, (3, 1) = .1875, (3, 2) = .5625, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = 2.0, (4, 1) = .23583984375, (4, 2) = -.87890625, (4, 3) = .890625, (4, 4) = .0, (4, 5) = .0, (4, 6) = .2681884765625, (5, 1) = .1272735595703125, (5, 2) = -.5009765625, (5, 3) = .44921875, (5, 4) = -0.128936767578125e-1, (5, 5) = .0, (5, 6) = 0.626220703125e-1, (6, 1) = -0.927734375e-1, (6, 2) = .626220703125, (6, 3) = -.4326171875, (6, 4) = .1418304443359375, (6, 5) = -0.861053466796875e-1, (6, 6) = .3131103515625}, datatype = float[8], order = C_order), Array(1..6, {(1) = .0, (2) = .386, (3) = .21, (4) = .63, (5) = 1.0, (6) = 1.0}, datatype = float[8], order = C_order), Array(1..6, {(1) = .25, (2) = -.1043, (3) = .1035, (4) = -0.362e-1, (5) = .0, (6) = .0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 1.544, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = .9466785280815533, (3, 2) = .25570116989825814, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = 3.3148251870684886, (4, 2) = 2.896124015972123, (4, 3) = .9986419139977808, (4, 4) = .0, (4, 5) = .0, (5, 1) = 1.2212245092262748, (5, 2) = 6.019134481287752, (5, 3) = 12.537083329320874, (5, 4) = -.687886036105895, (5, 5) = .0, (6, 1) = 1.2212245092262748, (6, 2) = 6.019134481287752, (6, 3) = 12.537083329320874, (6, 4) = -.687886036105895, (6, 5) = 1.0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = -5.6688, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = -2.4300933568337584, (3, 2) = -.20635991570891224, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = -.10735290581452621, (4, 2) = -9.594562251021896, (4, 3) = -20.470286148096154, (4, 4) = .0, (4, 5) = .0, (5, 1) = 7.496443313968615, (5, 2) = -10.246804314641219, (5, 3) = -33.99990352819906, (5, 4) = 11.708908932061595, (5, 5) = .0, (6, 1) = 8.083246795922411, (6, 2) = -7.981132988062785, (6, 3) = -31.52159432874373, (6, 4) = 16.319305431231363, (6, 5) = -6.0588182388340535}, datatype = float[8], order = C_order), Array(1..3, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 10.126235083446911, (2, 2) = -7.487995877607633, (2, 3) = -34.800918615557414, (2, 4) = -7.9927717075687275, (2, 5) = 1.0251377232956207, (3, 1) = -.6762803392806898, (3, 2) = 6.087714651678606, (3, 3) = 16.43084320892463, (3, 4) = 24.767225114183653, (3, 5) = -6.5943891257167815}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..4, {(1) = 1.0, (2) = 1.0, (3) = 1.0, (4) = 1.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.49226990714460894e-7, (2) = 0.178537560858319e-7, (3) = 0.4029586553756948e-5, (4) = -0.23927004927454816e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = -0.18357229760682366e-2, (1, 2) = -0.17501463887214658e-2, (1, 3) = -0.7164959560218224e-6, (1, 4) = -0.4205459947957446e-10, (2, 1) = -0.10047974614114951e-4, (2, 2) = 0.3018120081790368e-3, (2, 3) = 0.16179996203159695e-6, (2, 4) = 0.56891129092515695e-11, (3, 1) = -.2754182957400952, (3, 2) = .6220071419708226, (3, 3) = 0.9964521295710663e-4, (3, 4) = 0.5318788432319277e-8, (4, 1) = -2.1232505740214265, (4, 2) = 42.11602079706063, (4, 3) = 0.39181824003885705e-2, (4, 4) = 0.17557456518577073e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (4, 5) = .0, (4, 6) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8]), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..8, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8])]), ( 8 ) = ([Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.193749384647247e-6, (2) = 0.17116786119646165e-7, (3) = 0.5244123565596995e-5, (4) = .4079623005603603}, datatype = float[8], order = C_order), 0, 0]), ( 11 ) = (Array(1..6, 0..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (5, 3) = .0, (5, 4) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0, (6, 3) = .0, (6, 4) = .0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 13 ) = (), ( 12 ) = (), ( 15 ) = ("rosenbrock"), ( 14 ) = ([0, 0]), ( 18 ) = ([]), ( 19 ) = (0), ( 16 ) = ([0, 0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 22 ) = (0), ( 23 ) = (0), ( 20 ) = ([]), ( 21 ) = (0), ( 27 ) = (""), ( 26 ) = (Array(1..0, {})), ( 25 ) = (Array(1..0, {})), ( 24 ) = (0), ( 28 ) = (0) ] )) ] ); _y0 := Array(0..4, {(1) = 1000., (2) = 0.4118564743e-1, (3) = 0.3205e-1, (4) = 5.9459}); _vmap := array( 1 .. 4, [( 1 ) = (1), ( 2 ) = (2), ( 3 ) = (3), ( 4 ) = (4) ] ); _x0 := _dtbl[1][5][5]; _n := _dtbl[1][4][1]; _ne := _dtbl[1][4][3]; _nd := _dtbl[1][4][4]; _nv := _dtbl[1][4][16]; if not type(_xout, 'numeric') then if member(_xout, ["start", "left", "right"]) then if _Env_smart_dsolve_numeric = true or _dtbl[1][4][10] = 1 then if _xout = "left" then if type(_dtbl[2], 'table') then return _dtbl[2][5][1] end if elif _xout = "right" then if type(_dtbl[3], 'table') then return _dtbl[3][5][1] end if end if end if; return _dtbl[1][5][5] elif _xout = "method" then return _dtbl[1][15] elif _xout = "storage" then return evalb(_dtbl[1][4][10] = 1) elif _xout = "leftdata" then if not type(_dtbl[2], 'array') then return NULL else return eval(_dtbl[2]) end if elif _xout = "rightdata" then if not type(_dtbl[3], 'array') then return NULL else return eval(_dtbl[3]) end if elif _xout = "enginedata" then return eval(_dtbl[1]) elif _xout = "enginereset" then _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); return NULL elif _xout = "initial" then return procname(_y0[0]) elif _xout = "laxtol" then return _dtbl[`if`(member(_dtbl[4], {2, 3}), _dtbl[4], 1)][5][18] elif _xout = "numfun" then return `if`(member(_dtbl[4], {2, 3}), _dtbl[_dtbl[4]][4][18], 0) elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "initial_and_parameters" then return procname(_y0[0]), [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "last" then if _dtbl[4] <> 2 and _dtbl[4] <> 3 or _x0-_dtbl[_dtbl[4]][5][1] = 0. then error "no information is available on last computed point" else _xout := _dtbl[_dtbl[4]][5][1] end if elif _xout = "function" then if _dtbl[1][4][33]-2. = 0 then return eval(_dtbl[1][10], 1) else return eval(_dtbl[1][10][1], 1) end if elif _xout = "map" then return copy(_vmap) elif type(_xin, `=`) and type(rhs(_xin), 'list') and member(lhs(_xin), {"initial", "parameters", "initial_and_parameters"}) then _ini, _par := [], []; if lhs(_xin) = "initial" then _ini := rhs(_xin) elif lhs(_xin) = "parameters" then _par := rhs(_xin) elif select(type, rhs(_xin), `=`) <> [] then _par, _ini := selectremove(type, rhs(_xin), `=`) elif nops(rhs(_xin)) < nops(_pars)+1 then error "insufficient data for specification of initial and parameters" else _par := rhs(_xin)[-nops(_pars) .. -1]; _ini := rhs(_xin)[1 .. -nops(_pars)-1] end if; _xout := lhs(_xout); _i := false; if _par <> [] then _i := `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then _i := `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) or _i end if; if _i then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars); if _Env_smart_dsolve_numeric = true and type(_y0[0], 'numeric') and _dtbl[1][4][10] <> 1 then procname("right") := _y0[0]; procname("left") := _y0[0] end if end if; if _xout = "initial" then return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)] elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] else return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)], [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] end if elif _xin = "eventstop" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then return 0 end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 <= _dtbl[5-_i][4][9] then _i := 5-_i; _dtbl[4] := _i; _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) elif 100 <= _dtbl[_i][4][9] then _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) else return 0 end if elif _xin = "eventstatus" then if _nv = 0 then error "this solution has no events" end if; _i := [selectremove(proc (a) options operator, arrow; _dtbl[1][3][1][a, 7] = 1 end proc, {seq(_j, _j = 1 .. round(_dtbl[1][3][1][_nv+1, 1]))})]; return ':-enabled' = _i[1], ':-disabled' = _i[2] elif _xin = "eventclear" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then error "no events to clear" end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 100 then error "no events to clear" elif _nv < _dtbl[_i][4][9]-100 then error "event error condition cannot be cleared" else _j := _dtbl[_i][4][9]-100; if irem(round(_dtbl[_i][3][1][_j, 4]), 2) = 1 then error "retriggerable events cannot be cleared" end if; _j := round(_dtbl[_i][3][1][_j, 1]); for _k to _nv do if _dtbl[_i][3][1][_k, 1] = _j then if _dtbl[_i][3][1][_k, 2] = 3 then error "range events cannot be cleared" end if; _dtbl[_i][3][1][_k, 8] := _dtbl[_i][3][1][_nv+1, 8] end if end do; _dtbl[_i][4][17] := 0; _dtbl[_i][4][9] := 0; if _dtbl[1][4][10] = 1 then if _i = 2 then try procname(procname("left")) catch: end try else try procname(procname("right")) catch: end try end if end if end if; return elif type(_xin, `=`) and member(lhs(_xin), {"eventdisable", "eventenable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('list')('posint'), ('set')('posint')}) then _i := {op(rhs(_xin))} elif type(rhs(_xin), 'posint') then _i := {rhs(_xin)} else error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; if select(proc (a) options operator, arrow; _nv < a end proc, _i) <> {} then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _k := {}; for _j to _nv do if member(round(_dtbl[1][3][1][_j, 1]), _i) then _k := `union`(_k, {_j}) end if end do; _i := _k; if lhs(_xin) = "eventdisable" then _dtbl[4] := 0; _j := [evalb(assigned(_dtbl[2]) and member(_dtbl[2][4][17], _i)), evalb(assigned(_dtbl[3]) and member(_dtbl[3][4][17], _i))]; for _k in _i do _dtbl[1][3][1][_k, 7] := 0; if assigned(_dtbl[2]) then _dtbl[2][3][1][_k, 7] := 0 end if; if assigned(_dtbl[3]) then _dtbl[3][3][1][_k, 7] := 0 end if end do; if _j[1] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[2][3][4][_k, 1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to defined init `, _dtbl[2][3][4][_k, 1]); _dtbl[2][3][1][_k, 8] := _dtbl[2][3][4][_k, 1] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to rate hysteresis init `, _dtbl[2][5][24]); _dtbl[2][3][1][_k, 8] := _dtbl[2][5][24] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to initial init `, _x0); _dtbl[2][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to fireinitial init `, _x0-1); _dtbl[2][3][1][_k, 8] := _x0-1 end if end do; _dtbl[2][4][17] := 0; _dtbl[2][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("left")) end if end if; if _j[2] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[3][3][4][_k, 2], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to defined init `, _dtbl[3][3][4][_k, 2]); _dtbl[3][3][1][_k, 8] := _dtbl[3][3][4][_k, 2] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to rate hysteresis init `, _dtbl[3][5][24]); _dtbl[3][3][1][_k, 8] := _dtbl[3][5][24] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to initial init `, _x0); _dtbl[3][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to fireinitial init `, _x0+1); _dtbl[3][3][1][_k, 8] := _x0+1 end if end do; _dtbl[3][4][17] := 0; _dtbl[3][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("right")) end if end if else for _k in _i do _dtbl[1][3][1][_k, 7] := 1 end do; _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); _dtbl[4] := 0; if _dtbl[1][4][10] = 1 then if _x0 <= procname("right") then try procname(procname("right")) catch: end try end if; if procname("left") <= _x0 then try procname(procname("left")) catch: end try end if end if end if; return elif type(_xin, `=`) and lhs(_xin) = "eventfired" then if not type(rhs(_xin), 'list') then error "'eventfired' must be specified as a list" end if; if _nv = 0 then error "this solution has no events" end if; if _dtbl[4] <> 2 and _dtbl[4] <> 3 then error "'direction' must be set prior to calling/setting 'eventfired'" end if; _i := _dtbl[4]; _val := NULL; if not assigned(_EnvEventRetriggerWarned) then _EnvEventRetriggerWarned := false end if; for _k in rhs(_xin) do if type(_k, 'integer') then _src := _k elif type(_k, 'integer' = 'anything') and type(evalf(rhs(_k)), 'numeric') then _k := lhs(_k) = evalf[max(Digits, 18)](rhs(_k)); _src := lhs(_k) else error "'eventfired' entry is not valid: %1", _k end if; if _src < 1 or round(_dtbl[1][3][1][_nv+1, 1]) < _src then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _src := {seq(`if`(_dtbl[1][3][1][_j, 1]-_src = 0., _j, NULL), _j = 1 .. _nv)}; if nops(_src) <> 1 then error "'eventfired' can only be set/queried for root-finding events and time/interval events" end if; _src := _src[1]; if _dtbl[1][3][1][_src, 2] <> 0. and _dtbl[1][3][1][_src, 2]-2. <> 0. then error "'eventfired' can only be set/queried for root-finding events and time/interval events" elif irem(round(_dtbl[1][3][1][_src, 4]), 2) = 1 then if _EnvEventRetriggerWarned = false then WARNING(`'eventfired' has no effect on events that retrigger`) end if; _EnvEventRetriggerWarned := true end if; if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then _val := _val, undefined elif type(_dtbl[_i][3][4][_src, _i-1], 'undefined') or _i = 2 and _dtbl[2][3][1][_src, 8] < _dtbl[2][3][4][_src, 1] or _i = 3 and _dtbl[3][3][4][_src, 2] < _dtbl[3][3][1][_src, 8] then _val := _val, _dtbl[_i][3][1][_src, 8] else _val := _val, _dtbl[_i][3][4][_src, _i-1] end if; if type(_k, `=`) then if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then error "cannot set event code for a rate hysteresis event" end if; userinfo(3, {'events', 'eventreset'}, `manual set event code `, _src, ` to value `, rhs(_k)); _dtbl[_i][3][1][_src, 8] := rhs(_k); _dtbl[_i][3][4][_src, _i-1] := rhs(_k) end if end do; return [_val] elif type(_xin, `=`) and lhs(_xin) = "direction" then if not member(rhs(_xin), {-1, 1, ':-left', ':-right'}) then error "'direction' must be specified as either '1' or 'right' (positive) or '-1' or 'left' (negative)" end if; _src := `if`(_dtbl[4] = 2, -1, `if`(_dtbl[4] = 3, 1, undefined)); _i := `if`(member(rhs(_xin), {1, ':-right'}), 3, 2); _dtbl[4] := _i; _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if; return _src elif _xin = "eventcount" then if _dtbl[1][3][1] = 0 or _dtbl[4] <> 2 and _dtbl[4] <> 3 then return 0 else return round(_dtbl[_dtbl[4]][3][1][_nv+1, 12]) end if elif type(_xin, `=`) and lhs(_xin) = "setdatacallback" then if not type(rhs(_xin), 'nonegint') then error "data callback must be a nonnegative integer (address)" end if; _dtbl[1][28] := rhs(_xin) else return "procname" end if end if; if _xout = _x0 then return [_x0, seq(evalf(_dtbl[1][6][_vmap[_i]]), _i = 1 .. _n-_ne)] end if; _i := `if`(_x0 <= _xout, 3, 2); if _xin = "last" and 0 < _dtbl[_i][4][9] and _dtbl[_i][4][9] < 100 then _dat := eval(_dtbl[_i], 2); _j := _dat[4][20]; return [_dat[11][_j, 0], seq(_dat[11][_j, _vmap[_i]], _i = 1 .. _n-_ne-_nd), seq(_dat[8][1][_vmap[_i]], _i = _n-_ne-_nd+1 .. _n-_ne)] end if; if not type(_dtbl[_i], 'array') then _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if end if; if _xin <> "last" then if 0 < 0 then if `dsolve/numeric/checkglobals`(op(_dtbl[1][14]), _pars, _n, _y0) then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars, _i) end if end if; if _dtbl[1][4][7] = 0 then error "parameters must be initialized before solution can be computed" end if end if; _dat := eval(_dtbl[_i], 2); _dtbl[4] := _i; try _src := `dsolve/numeric/SC/IVPrun`(_dat, _xout) catch: userinfo(2, `dsolve/debug`, print(`Exception in solnproc:`, [lastexception][2 .. -1])); error end try; if _dat[17] <> _dtbl[1][17] then _dtbl[1][17] := _dat[17]; _dtbl[1][10] := _dat[10] end if; if _src = 0 and 100 < _dat[4][9] then _val := _dat[3][1][_nv+1, 8] else _val := _dat[11][_dat[4][20], 0] end if; if _src <> 0 or _dat[4][9] <= 0 then _dtbl[1][5][1] := _xout else _dtbl[1][5][1] := _val end if; if _i = 3 and _val < _xout then Rounding := -infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further right of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further right of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further right of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further right of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further right of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further right of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further right of %1", evalf[8](_val) end if elif _i = 2 and _xout < _val then Rounding := infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further left of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further left of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further left of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further left of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further left of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further left of %1", evalf[8](_val) end if end if; if _EnvInFsolve = true then _dig := _dat[4][26]; if type(_EnvDSNumericSaveDigits, 'posint') then _dat[4][26] := _EnvDSNumericSaveDigits else _dat[4][26] := Digits end if; _Env_dsolve_SC_native := true; if _dat[4][25] = 1 then _i := 1; _dat[4][25] := 2 else _i := _dat[4][25] end if; _val := `dsolve/numeric/SC/IVPval`(_dat, _xout, _src); _dat[4][25] := _i; _dat[4][26] := _dig; [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] else Digits := _dat[4][26]; _val := `dsolve/numeric/SC/IVPval`(eval(_dat, 2), _xout, _src); [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] end if end proc, (2) = Array(1..5, {(1) = 36893488148680590364, (2) = 36893488148680590540, (3) = 36893488148680590716, (4) = 36893488148680590892, (5) = 36893488148680591068}), (3) = [x, f(x), y2(x), y3(x), y4(x)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(x, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "eventcount", 'eventcount', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(x, 'string')); if 1 < nops([_res]) then return _res elif type(_res, 'array') then return eval(_res, 1) elif _res <> "procname" then return _res end if elif member(x, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(x, 'string')); if type(_res, 'list') then return _res[2] else return NULL end if elif member(x, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(x, 'string'); _res := _solnproc(_xout); if _xout = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[2], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["initial", 'initial', "parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(lhs(x), 'string') = rhs(x); if lhs(_xout) = "initial" then if type(rhs(_xout), 'list') then _res := _solnproc(_xout) else _res := _solnproc("initial" = ["single", 2, rhs(_xout)]) end if elif not type(rhs(_xout), 'list') then error "initial and/or parameter values must be specified in a list" elif lhs(_xout) = "initial_and_parameters" and nops(rhs(_xout)) = nops(_pars)+1 then _res := _solnproc(lhs(_xout) = ["single", 2, op(rhs(_xout))]) else _res := _solnproc(_xout) end if; if lhs(_xout) = "initial" then return _res[2] elif lhs(_xout) = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[2], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["eventdisable", 'eventdisable', "eventenable", 'eventenable', "eventfired", 'eventfired', "direction", 'direction', NULL]) then return _solnproc(convert(lhs(x), 'string') = rhs(x)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(x) else _ndsol := 1; _ndsol := `tools/gensym`("f(x)"); eval(FromInert(_Inert_FUNCTION(_Inert_NAME("assign"), _Inert_EXPSEQ(ToInert(_ndsol), _Inert_VERBATIM(pointto(_dat[2][2])))))); return FromInert(_Inert_FUNCTION(ToInert(_ndsol), _Inert_EXPSEQ(ToInert(x)))) end if end if; try _res := _solnproc(_xout); _res[2] catch: error end try end proc, y2(x) = proc (x) local _res, _dat, _solnproc, _xout, _ndsol, _pars, _i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; if 1 < nargs then error "invalid input: too many arguments" end if; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then _xout := evalf[_EnvDSNumericSaveDigits](x) else _xout := evalf(x) end if; _dat := Array(1..4, {(1) = proc (_xin) local _xout, _dtbl, _dat, _vmap, _x0, _y0, _val, _dig, _n, _ne, _nd, _nv, _pars, _ini, _par, _i, _j, _k, _src; option `Copyright (c) 2002 by Waterloo Maple Inc. All rights reserved.`; table( [( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 28, [( 1 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 2 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 3 ) = ([0, 0, 0, Array(1..0, 1..2, {}, datatype = float[8], order = C_order)]), ( 4 ) = (Array(1..65, {(1) = 4, (2) = 4, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 0, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 37, (19) = 0, (20) = 0, (21) = 0, (22) = 2, (23) = 3, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 0, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 2, (34) = 0, (35) = 0, (36) = 0, (37) = 0, (38) = 0, (39) = 0, (40) = 0, (41) = 0, (42) = 0, (43) = 1, (44) = 0, (45) = 0, (46) = 0, (47) = 0, (48) = 0, (49) = 0, (50) = 50, (51) = 1, (52) = 0, (53) = 0, (54) = 0, (55) = 0, (56) = 0, (57) = 0, (58) = 0, (59) = 10000, (60) = 0, (61) = 1000, (62) = 0, (63) = 0, (64) = -1, (65) = 0}, datatype = integer[8])), ( 5 ) = (Array(1..28, {(1) = 1000.0, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 1000.0, (6) = 0.10e-2, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .49999999999999, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0, (21) = 1.0, (22) = 1.0, (23) = .0, (24) = .0, (25) = 0.10e-14, (26) = .0, (27) = .0, (28) = .0}, datatype = float[8], order = C_order)), ( 6 ) = (Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order)), ( 7 ) = ([Array(1..4, 1..7, {(1, 1) = .0, (1, 2) = .203125, (1, 3) = .3046875, (1, 4) = .75, (1, 5) = .8125, (1, 6) = .40625, (1, 7) = .8125, (2, 1) = 0.6378173828125e-1, (2, 2) = .0, (2, 3) = .279296875, (2, 4) = .27237892150878906, (2, 5) = -0.9686851501464844e-1, (2, 6) = 0.1956939697265625e-1, (2, 7) = .5381584167480469, (3, 1) = 0.31890869140625e-1, (3, 2) = .0, (3, 3) = -.34375, (3, 4) = -.335235595703125, (3, 5) = .2296142578125, (3, 6) = .41748046875, (3, 7) = 11.480712890625, (4, 1) = 0.9710520505905151e-1, (4, 2) = .0, (4, 3) = .40350341796875, (4, 4) = 0.20297467708587646e-1, (4, 5) = -0.6054282188415527e-2, (4, 6) = -0.4770040512084961e-1, (4, 7) = .77858567237854}, datatype = float[8], order = C_order), Array(1..6, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = 1.0, (2, 1) = .25, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = 1.0, (3, 1) = .1875, (3, 2) = .5625, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = 2.0, (4, 1) = .23583984375, (4, 2) = -.87890625, (4, 3) = .890625, (4, 4) = .0, (4, 5) = .0, (4, 6) = .2681884765625, (5, 1) = .1272735595703125, (5, 2) = -.5009765625, (5, 3) = .44921875, (5, 4) = -0.128936767578125e-1, (5, 5) = .0, (5, 6) = 0.626220703125e-1, (6, 1) = -0.927734375e-1, (6, 2) = .626220703125, (6, 3) = -.4326171875, (6, 4) = .1418304443359375, (6, 5) = -0.861053466796875e-1, (6, 6) = .3131103515625}, datatype = float[8], order = C_order), Array(1..6, {(1) = .0, (2) = .386, (3) = .21, (4) = .63, (5) = 1.0, (6) = 1.0}, datatype = float[8], order = C_order), Array(1..6, {(1) = .25, (2) = -.1043, (3) = .1035, (4) = -0.362e-1, (5) = .0, (6) = .0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 1.544, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = .9466785280815533, (3, 2) = .25570116989825814, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = 3.3148251870684886, (4, 2) = 2.896124015972123, (4, 3) = .9986419139977808, (4, 4) = .0, (4, 5) = .0, (5, 1) = 1.2212245092262748, (5, 2) = 6.019134481287752, (5, 3) = 12.537083329320874, (5, 4) = -.687886036105895, (5, 5) = .0, (6, 1) = 1.2212245092262748, (6, 2) = 6.019134481287752, (6, 3) = 12.537083329320874, (6, 4) = -.687886036105895, (6, 5) = 1.0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = -5.6688, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = -2.4300933568337584, (3, 2) = -.20635991570891224, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = -.10735290581452621, (4, 2) = -9.594562251021896, (4, 3) = -20.470286148096154, (4, 4) = .0, (4, 5) = .0, (5, 1) = 7.496443313968615, (5, 2) = -10.246804314641219, (5, 3) = -33.99990352819906, (5, 4) = 11.708908932061595, (5, 5) = .0, (6, 1) = 8.083246795922411, (6, 2) = -7.981132988062785, (6, 3) = -31.52159432874373, (6, 4) = 16.319305431231363, (6, 5) = -6.0588182388340535}, datatype = float[8], order = C_order), Array(1..3, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 10.126235083446911, (2, 2) = -7.487995877607633, (2, 3) = -34.800918615557414, (2, 4) = -7.9927717075687275, (2, 5) = 1.0251377232956207, (3, 1) = -.6762803392806898, (3, 2) = 6.087714651678606, (3, 3) = 16.43084320892463, (3, 4) = 24.767225114183653, (3, 5) = -6.5943891257167815}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..4, {(1) = 1.0, (2) = 1.0, (3) = 1.0, (4) = 1.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.49226990714460894e-7, (2) = 0.178537560858319e-7, (3) = 0.4029586553756948e-5, (4) = -0.23927004927454816e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = -0.18357229760682366e-2, (1, 2) = -0.17501463887214658e-2, (1, 3) = -0.7164959560218224e-6, (1, 4) = -0.4205459947957446e-10, (2, 1) = -0.10047974614114951e-4, (2, 2) = 0.3018120081790368e-3, (2, 3) = 0.16179996203159695e-6, (2, 4) = 0.56891129092515695e-11, (3, 1) = -.2754182957400952, (3, 2) = .6220071419708226, (3, 3) = 0.9964521295710663e-4, (3, 4) = 0.5318788432319277e-8, (4, 1) = -2.1232505740214265, (4, 2) = 42.11602079706063, (4, 3) = 0.39181824003885705e-2, (4, 4) = 0.17557456518577073e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (4, 5) = .0, (4, 6) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8]), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..8, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8])]), ( 8 ) = ([Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.193749384647247e-6, (2) = 0.17116786119646165e-7, (3) = 0.5244123565596995e-5, (4) = .4079623005603603}, datatype = float[8], order = C_order), 0, 0]), ( 11 ) = (Array(1..6, 0..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (5, 3) = .0, (5, 4) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0, (6, 3) = .0, (6, 4) = .0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 13 ) = (), ( 12 ) = (), ( 15 ) = ("rosenbrock"), ( 14 ) = ([0, 0]), ( 18 ) = ([]), ( 19 ) = (0), ( 16 ) = ([0, 0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 22 ) = (0), ( 23 ) = (0), ( 20 ) = ([]), ( 21 ) = (0), ( 27 ) = (""), ( 26 ) = (Array(1..0, {})), ( 25 ) = (Array(1..0, {})), ( 24 ) = (0), ( 28 ) = (0) ] )) ] ); _y0 := Array(0..4, {(1) = 1000., (2) = 0.4118564743e-1, (3) = 0.3205e-1, (4) = 5.9459}); _vmap := array( 1 .. 4, [( 1 ) = (1), ( 2 ) = (2), ( 3 ) = (3), ( 4 ) = (4) ] ); _x0 := _dtbl[1][5][5]; _n := _dtbl[1][4][1]; _ne := _dtbl[1][4][3]; _nd := _dtbl[1][4][4]; _nv := _dtbl[1][4][16]; if not type(_xout, 'numeric') then if member(_xout, ["start", "left", "right"]) then if _Env_smart_dsolve_numeric = true or _dtbl[1][4][10] = 1 then if _xout = "left" then if type(_dtbl[2], 'table') then return _dtbl[2][5][1] end if elif _xout = "right" then if type(_dtbl[3], 'table') then return _dtbl[3][5][1] end if end if end if; return _dtbl[1][5][5] elif _xout = "method" then return _dtbl[1][15] elif _xout = "storage" then return evalb(_dtbl[1][4][10] = 1) elif _xout = "leftdata" then if not type(_dtbl[2], 'array') then return NULL else return eval(_dtbl[2]) end if elif _xout = "rightdata" then if not type(_dtbl[3], 'array') then return NULL else return eval(_dtbl[3]) end if elif _xout = "enginedata" then return eval(_dtbl[1]) elif _xout = "enginereset" then _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); return NULL elif _xout = "initial" then return procname(_y0[0]) elif _xout = "laxtol" then return _dtbl[`if`(member(_dtbl[4], {2, 3}), _dtbl[4], 1)][5][18] elif _xout = "numfun" then return `if`(member(_dtbl[4], {2, 3}), _dtbl[_dtbl[4]][4][18], 0) elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "initial_and_parameters" then return procname(_y0[0]), [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "last" then if _dtbl[4] <> 2 and _dtbl[4] <> 3 or _x0-_dtbl[_dtbl[4]][5][1] = 0. then error "no information is available on last computed point" else _xout := _dtbl[_dtbl[4]][5][1] end if elif _xout = "function" then if _dtbl[1][4][33]-2. = 0 then return eval(_dtbl[1][10], 1) else return eval(_dtbl[1][10][1], 1) end if elif _xout = "map" then return copy(_vmap) elif type(_xin, `=`) and type(rhs(_xin), 'list') and member(lhs(_xin), {"initial", "parameters", "initial_and_parameters"}) then _ini, _par := [], []; if lhs(_xin) = "initial" then _ini := rhs(_xin) elif lhs(_xin) = "parameters" then _par := rhs(_xin) elif select(type, rhs(_xin), `=`) <> [] then _par, _ini := selectremove(type, rhs(_xin), `=`) elif nops(rhs(_xin)) < nops(_pars)+1 then error "insufficient data for specification of initial and parameters" else _par := rhs(_xin)[-nops(_pars) .. -1]; _ini := rhs(_xin)[1 .. -nops(_pars)-1] end if; _xout := lhs(_xout); _i := false; if _par <> [] then _i := `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then _i := `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) or _i end if; if _i then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars); if _Env_smart_dsolve_numeric = true and type(_y0[0], 'numeric') and _dtbl[1][4][10] <> 1 then procname("right") := _y0[0]; procname("left") := _y0[0] end if end if; if _xout = "initial" then return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)] elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] else return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)], [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] end if elif _xin = "eventstop" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then return 0 end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 <= _dtbl[5-_i][4][9] then _i := 5-_i; _dtbl[4] := _i; _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) elif 100 <= _dtbl[_i][4][9] then _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) else return 0 end if elif _xin = "eventstatus" then if _nv = 0 then error "this solution has no events" end if; _i := [selectremove(proc (a) options operator, arrow; _dtbl[1][3][1][a, 7] = 1 end proc, {seq(_j, _j = 1 .. round(_dtbl[1][3][1][_nv+1, 1]))})]; return ':-enabled' = _i[1], ':-disabled' = _i[2] elif _xin = "eventclear" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then error "no events to clear" end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 100 then error "no events to clear" elif _nv < _dtbl[_i][4][9]-100 then error "event error condition cannot be cleared" else _j := _dtbl[_i][4][9]-100; if irem(round(_dtbl[_i][3][1][_j, 4]), 2) = 1 then error "retriggerable events cannot be cleared" end if; _j := round(_dtbl[_i][3][1][_j, 1]); for _k to _nv do if _dtbl[_i][3][1][_k, 1] = _j then if _dtbl[_i][3][1][_k, 2] = 3 then error "range events cannot be cleared" end if; _dtbl[_i][3][1][_k, 8] := _dtbl[_i][3][1][_nv+1, 8] end if end do; _dtbl[_i][4][17] := 0; _dtbl[_i][4][9] := 0; if _dtbl[1][4][10] = 1 then if _i = 2 then try procname(procname("left")) catch: end try else try procname(procname("right")) catch: end try end if end if end if; return elif type(_xin, `=`) and member(lhs(_xin), {"eventdisable", "eventenable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('list')('posint'), ('set')('posint')}) then _i := {op(rhs(_xin))} elif type(rhs(_xin), 'posint') then _i := {rhs(_xin)} else error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; if select(proc (a) options operator, arrow; _nv < a end proc, _i) <> {} then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _k := {}; for _j to _nv do if member(round(_dtbl[1][3][1][_j, 1]), _i) then _k := `union`(_k, {_j}) end if end do; _i := _k; if lhs(_xin) = "eventdisable" then _dtbl[4] := 0; _j := [evalb(assigned(_dtbl[2]) and member(_dtbl[2][4][17], _i)), evalb(assigned(_dtbl[3]) and member(_dtbl[3][4][17], _i))]; for _k in _i do _dtbl[1][3][1][_k, 7] := 0; if assigned(_dtbl[2]) then _dtbl[2][3][1][_k, 7] := 0 end if; if assigned(_dtbl[3]) then _dtbl[3][3][1][_k, 7] := 0 end if end do; if _j[1] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[2][3][4][_k, 1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to defined init `, _dtbl[2][3][4][_k, 1]); _dtbl[2][3][1][_k, 8] := _dtbl[2][3][4][_k, 1] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to rate hysteresis init `, _dtbl[2][5][24]); _dtbl[2][3][1][_k, 8] := _dtbl[2][5][24] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to initial init `, _x0); _dtbl[2][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to fireinitial init `, _x0-1); _dtbl[2][3][1][_k, 8] := _x0-1 end if end do; _dtbl[2][4][17] := 0; _dtbl[2][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("left")) end if end if; if _j[2] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[3][3][4][_k, 2], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to defined init `, _dtbl[3][3][4][_k, 2]); _dtbl[3][3][1][_k, 8] := _dtbl[3][3][4][_k, 2] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to rate hysteresis init `, _dtbl[3][5][24]); _dtbl[3][3][1][_k, 8] := _dtbl[3][5][24] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to initial init `, _x0); _dtbl[3][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to fireinitial init `, _x0+1); _dtbl[3][3][1][_k, 8] := _x0+1 end if end do; _dtbl[3][4][17] := 0; _dtbl[3][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("right")) end if end if else for _k in _i do _dtbl[1][3][1][_k, 7] := 1 end do; _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); _dtbl[4] := 0; if _dtbl[1][4][10] = 1 then if _x0 <= procname("right") then try procname(procname("right")) catch: end try end if; if procname("left") <= _x0 then try procname(procname("left")) catch: end try end if end if end if; return elif type(_xin, `=`) and lhs(_xin) = "eventfired" then if not type(rhs(_xin), 'list') then error "'eventfired' must be specified as a list" end if; if _nv = 0 then error "this solution has no events" end if; if _dtbl[4] <> 2 and _dtbl[4] <> 3 then error "'direction' must be set prior to calling/setting 'eventfired'" end if; _i := _dtbl[4]; _val := NULL; if not assigned(_EnvEventRetriggerWarned) then _EnvEventRetriggerWarned := false end if; for _k in rhs(_xin) do if type(_k, 'integer') then _src := _k elif type(_k, 'integer' = 'anything') and type(evalf(rhs(_k)), 'numeric') then _k := lhs(_k) = evalf[max(Digits, 18)](rhs(_k)); _src := lhs(_k) else error "'eventfired' entry is not valid: %1", _k end if; if _src < 1 or round(_dtbl[1][3][1][_nv+1, 1]) < _src then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _src := {seq(`if`(_dtbl[1][3][1][_j, 1]-_src = 0., _j, NULL), _j = 1 .. _nv)}; if nops(_src) <> 1 then error "'eventfired' can only be set/queried for root-finding events and time/interval events" end if; _src := _src[1]; if _dtbl[1][3][1][_src, 2] <> 0. and _dtbl[1][3][1][_src, 2]-2. <> 0. then error "'eventfired' can only be set/queried for root-finding events and time/interval events" elif irem(round(_dtbl[1][3][1][_src, 4]), 2) = 1 then if _EnvEventRetriggerWarned = false then WARNING(`'eventfired' has no effect on events that retrigger`) end if; _EnvEventRetriggerWarned := true end if; if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then _val := _val, undefined elif type(_dtbl[_i][3][4][_src, _i-1], 'undefined') or _i = 2 and _dtbl[2][3][1][_src, 8] < _dtbl[2][3][4][_src, 1] or _i = 3 and _dtbl[3][3][4][_src, 2] < _dtbl[3][3][1][_src, 8] then _val := _val, _dtbl[_i][3][1][_src, 8] else _val := _val, _dtbl[_i][3][4][_src, _i-1] end if; if type(_k, `=`) then if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then error "cannot set event code for a rate hysteresis event" end if; userinfo(3, {'events', 'eventreset'}, `manual set event code `, _src, ` to value `, rhs(_k)); _dtbl[_i][3][1][_src, 8] := rhs(_k); _dtbl[_i][3][4][_src, _i-1] := rhs(_k) end if end do; return [_val] elif type(_xin, `=`) and lhs(_xin) = "direction" then if not member(rhs(_xin), {-1, 1, ':-left', ':-right'}) then error "'direction' must be specified as either '1' or 'right' (positive) or '-1' or 'left' (negative)" end if; _src := `if`(_dtbl[4] = 2, -1, `if`(_dtbl[4] = 3, 1, undefined)); _i := `if`(member(rhs(_xin), {1, ':-right'}), 3, 2); _dtbl[4] := _i; _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if; return _src elif _xin = "eventcount" then if _dtbl[1][3][1] = 0 or _dtbl[4] <> 2 and _dtbl[4] <> 3 then return 0 else return round(_dtbl[_dtbl[4]][3][1][_nv+1, 12]) end if elif type(_xin, `=`) and lhs(_xin) = "setdatacallback" then if not type(rhs(_xin), 'nonegint') then error "data callback must be a nonnegative integer (address)" end if; _dtbl[1][28] := rhs(_xin) else return "procname" end if end if; if _xout = _x0 then return [_x0, seq(evalf(_dtbl[1][6][_vmap[_i]]), _i = 1 .. _n-_ne)] end if; _i := `if`(_x0 <= _xout, 3, 2); if _xin = "last" and 0 < _dtbl[_i][4][9] and _dtbl[_i][4][9] < 100 then _dat := eval(_dtbl[_i], 2); _j := _dat[4][20]; return [_dat[11][_j, 0], seq(_dat[11][_j, _vmap[_i]], _i = 1 .. _n-_ne-_nd), seq(_dat[8][1][_vmap[_i]], _i = _n-_ne-_nd+1 .. _n-_ne)] end if; if not type(_dtbl[_i], 'array') then _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if end if; if _xin <> "last" then if 0 < 0 then if `dsolve/numeric/checkglobals`(op(_dtbl[1][14]), _pars, _n, _y0) then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars, _i) end if end if; if _dtbl[1][4][7] = 0 then error "parameters must be initialized before solution can be computed" end if end if; _dat := eval(_dtbl[_i], 2); _dtbl[4] := _i; try _src := `dsolve/numeric/SC/IVPrun`(_dat, _xout) catch: userinfo(2, `dsolve/debug`, print(`Exception in solnproc:`, [lastexception][2 .. -1])); error end try; if _dat[17] <> _dtbl[1][17] then _dtbl[1][17] := _dat[17]; _dtbl[1][10] := _dat[10] end if; if _src = 0 and 100 < _dat[4][9] then _val := _dat[3][1][_nv+1, 8] else _val := _dat[11][_dat[4][20], 0] end if; if _src <> 0 or _dat[4][9] <= 0 then _dtbl[1][5][1] := _xout else _dtbl[1][5][1] := _val end if; if _i = 3 and _val < _xout then Rounding := -infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further right of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further right of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further right of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further right of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further right of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further right of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further right of %1", evalf[8](_val) end if elif _i = 2 and _xout < _val then Rounding := infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further left of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further left of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further left of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further left of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further left of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further left of %1", evalf[8](_val) end if end if; if _EnvInFsolve = true then _dig := _dat[4][26]; if type(_EnvDSNumericSaveDigits, 'posint') then _dat[4][26] := _EnvDSNumericSaveDigits else _dat[4][26] := Digits end if; _Env_dsolve_SC_native := true; if _dat[4][25] = 1 then _i := 1; _dat[4][25] := 2 else _i := _dat[4][25] end if; _val := `dsolve/numeric/SC/IVPval`(_dat, _xout, _src); _dat[4][25] := _i; _dat[4][26] := _dig; [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] else Digits := _dat[4][26]; _val := `dsolve/numeric/SC/IVPval`(eval(_dat, 2), _xout, _src); [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] end if end proc, (2) = Array(1..5, {(1) = 36893488148680590364, (2) = 36893488148680590540, (3) = 36893488148680590716, (4) = 36893488148680590892, (5) = 36893488148680591068}), (3) = [x, f(x), y2(x), y3(x), y4(x)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(x, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "eventcount", 'eventcount', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(x, 'string')); if 1 < nops([_res]) then return _res elif type(_res, 'array') then return eval(_res, 1) elif _res <> "procname" then return _res end if elif member(x, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(x, 'string')); if type(_res, 'list') then return _res[3] else return NULL end if elif member(x, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(x, 'string'); _res := _solnproc(_xout); if _xout = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[3], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["initial", 'initial', "parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(lhs(x), 'string') = rhs(x); if lhs(_xout) = "initial" then if type(rhs(_xout), 'list') then _res := _solnproc(_xout) else _res := _solnproc("initial" = ["single", 3, rhs(_xout)]) end if elif not type(rhs(_xout), 'list') then error "initial and/or parameter values must be specified in a list" elif lhs(_xout) = "initial_and_parameters" and nops(rhs(_xout)) = nops(_pars)+1 then _res := _solnproc(lhs(_xout) = ["single", 3, op(rhs(_xout))]) else _res := _solnproc(_xout) end if; if lhs(_xout) = "initial" then return _res[3] elif lhs(_xout) = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[3], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["eventdisable", 'eventdisable', "eventenable", 'eventenable', "eventfired", 'eventfired', "direction", 'direction', NULL]) then return _solnproc(convert(lhs(x), 'string') = rhs(x)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(x) else _ndsol := 1; _ndsol := `tools/gensym`("y2(x)"); eval(FromInert(_Inert_FUNCTION(_Inert_NAME("assign"), _Inert_EXPSEQ(ToInert(_ndsol), _Inert_VERBATIM(pointto(_dat[2][3])))))); return FromInert(_Inert_FUNCTION(ToInert(_ndsol), _Inert_EXPSEQ(ToInert(x)))) end if end if; try _res := _solnproc(_xout); _res[3] catch: error end try end proc, y3(x) = proc (x) local _res, _dat, _solnproc, _xout, _ndsol, _pars, _i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; if 1 < nargs then error "invalid input: too many arguments" end if; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then _xout := evalf[_EnvDSNumericSaveDigits](x) else _xout := evalf(x) end if; _dat := Array(1..4, {(1) = proc (_xin) local _xout, _dtbl, _dat, _vmap, _x0, _y0, _val, _dig, _n, _ne, _nd, _nv, _pars, _ini, _par, _i, _j, _k, _src; option `Copyright (c) 2002 by Waterloo Maple Inc. All rights reserved.`; table( [( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 28, [( 1 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 2 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 3 ) = ([0, 0, 0, Array(1..0, 1..2, {}, datatype = float[8], order = C_order)]), ( 4 ) = (Array(1..65, {(1) = 4, (2) = 4, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 0, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 37, (19) = 0, (20) = 0, (21) = 0, (22) = 2, (23) = 3, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 0, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 2, (34) = 0, (35) = 0, (36) = 0, (37) = 0, (38) = 0, (39) = 0, (40) = 0, (41) = 0, (42) = 0, (43) = 1, (44) = 0, (45) = 0, (46) = 0, (47) = 0, (48) = 0, (49) = 0, (50) = 50, (51) = 1, (52) = 0, (53) = 0, (54) = 0, (55) = 0, (56) = 0, (57) = 0, (58) = 0, (59) = 10000, (60) = 0, (61) = 1000, (62) = 0, (63) = 0, (64) = -1, (65) = 0}, datatype = integer[8])), ( 5 ) = (Array(1..28, {(1) = 1000.0, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 1000.0, (6) = 0.10e-2, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .49999999999999, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0, (21) = 1.0, (22) = 1.0, (23) = .0, (24) = .0, (25) = 0.10e-14, (26) = .0, (27) = .0, (28) = .0}, datatype = float[8], order = C_order)), ( 6 ) = (Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order)), ( 7 ) = ([Array(1..4, 1..7, {(1, 1) = .0, (1, 2) = .203125, (1, 3) = .3046875, (1, 4) = .75, (1, 5) = .8125, (1, 6) = .40625, (1, 7) = .8125, (2, 1) = 0.6378173828125e-1, (2, 2) = .0, (2, 3) = .279296875, (2, 4) = .27237892150878906, (2, 5) = -0.9686851501464844e-1, (2, 6) = 0.1956939697265625e-1, (2, 7) = .5381584167480469, (3, 1) = 0.31890869140625e-1, (3, 2) = .0, (3, 3) = -.34375, (3, 4) = -.335235595703125, (3, 5) = .2296142578125, (3, 6) = .41748046875, (3, 7) = 11.480712890625, (4, 1) = 0.9710520505905151e-1, (4, 2) = .0, (4, 3) = .40350341796875, (4, 4) = 0.20297467708587646e-1, (4, 5) = -0.6054282188415527e-2, (4, 6) = -0.4770040512084961e-1, (4, 7) = .77858567237854}, datatype = float[8], order = C_order), Array(1..6, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = 1.0, (2, 1) = .25, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = 1.0, (3, 1) = .1875, (3, 2) = .5625, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = 2.0, (4, 1) = .23583984375, (4, 2) = -.87890625, (4, 3) = .890625, (4, 4) = .0, (4, 5) = .0, (4, 6) = .2681884765625, (5, 1) = .1272735595703125, (5, 2) = -.5009765625, (5, 3) = .44921875, (5, 4) = -0.128936767578125e-1, (5, 5) = .0, (5, 6) = 0.626220703125e-1, (6, 1) = -0.927734375e-1, (6, 2) = .626220703125, (6, 3) = -.4326171875, (6, 4) = .1418304443359375, (6, 5) = -0.861053466796875e-1, (6, 6) = .3131103515625}, datatype = float[8], order = C_order), Array(1..6, {(1) = .0, (2) = .386, (3) = .21, (4) = .63, (5) = 1.0, (6) = 1.0}, datatype = float[8], order = C_order), Array(1..6, {(1) = .25, (2) = -.1043, (3) = .1035, (4) = -0.362e-1, (5) = .0, (6) = .0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 1.544, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = .9466785280815533, (3, 2) = .25570116989825814, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = 3.3148251870684886, (4, 2) = 2.896124015972123, (4, 3) = .9986419139977808, (4, 4) = .0, (4, 5) = .0, (5, 1) = 1.2212245092262748, (5, 2) = 6.019134481287752, (5, 3) = 12.537083329320874, (5, 4) = -.687886036105895, (5, 5) = .0, (6, 1) = 1.2212245092262748, (6, 2) = 6.019134481287752, (6, 3) = 12.537083329320874, (6, 4) = -.687886036105895, (6, 5) = 1.0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = -5.6688, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = -2.4300933568337584, (3, 2) = -.20635991570891224, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = -.10735290581452621, (4, 2) = -9.594562251021896, (4, 3) = -20.470286148096154, (4, 4) = .0, (4, 5) = .0, (5, 1) = 7.496443313968615, (5, 2) = -10.246804314641219, (5, 3) = -33.99990352819906, (5, 4) = 11.708908932061595, (5, 5) = .0, (6, 1) = 8.083246795922411, (6, 2) = -7.981132988062785, (6, 3) = -31.52159432874373, (6, 4) = 16.319305431231363, (6, 5) = -6.0588182388340535}, datatype = float[8], order = C_order), Array(1..3, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 10.126235083446911, (2, 2) = -7.487995877607633, (2, 3) = -34.800918615557414, (2, 4) = -7.9927717075687275, (2, 5) = 1.0251377232956207, (3, 1) = -.6762803392806898, (3, 2) = 6.087714651678606, (3, 3) = 16.43084320892463, (3, 4) = 24.767225114183653, (3, 5) = -6.5943891257167815}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..4, {(1) = 1.0, (2) = 1.0, (3) = 1.0, (4) = 1.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.49226990714460894e-7, (2) = 0.178537560858319e-7, (3) = 0.4029586553756948e-5, (4) = -0.23927004927454816e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = -0.18357229760682366e-2, (1, 2) = -0.17501463887214658e-2, (1, 3) = -0.7164959560218224e-6, (1, 4) = -0.4205459947957446e-10, (2, 1) = -0.10047974614114951e-4, (2, 2) = 0.3018120081790368e-3, (2, 3) = 0.16179996203159695e-6, (2, 4) = 0.56891129092515695e-11, (3, 1) = -.2754182957400952, (3, 2) = .6220071419708226, (3, 3) = 0.9964521295710663e-4, (3, 4) = 0.5318788432319277e-8, (4, 1) = -2.1232505740214265, (4, 2) = 42.11602079706063, (4, 3) = 0.39181824003885705e-2, (4, 4) = 0.17557456518577073e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (4, 5) = .0, (4, 6) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8]), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..8, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8])]), ( 8 ) = ([Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.193749384647247e-6, (2) = 0.17116786119646165e-7, (3) = 0.5244123565596995e-5, (4) = .4079623005603603}, datatype = float[8], order = C_order), 0, 0]), ( 11 ) = (Array(1..6, 0..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (5, 3) = .0, (5, 4) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0, (6, 3) = .0, (6, 4) = .0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 13 ) = (), ( 12 ) = (), ( 15 ) = ("rosenbrock"), ( 14 ) = ([0, 0]), ( 18 ) = ([]), ( 19 ) = (0), ( 16 ) = ([0, 0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 22 ) = (0), ( 23 ) = (0), ( 20 ) = ([]), ( 21 ) = (0), ( 27 ) = (""), ( 26 ) = (Array(1..0, {})), ( 25 ) = (Array(1..0, {})), ( 24 ) = (0), ( 28 ) = (0) ] )) ] ); _y0 := Array(0..4, {(1) = 1000., (2) = 0.4118564743e-1, (3) = 0.3205e-1, (4) = 5.9459}); _vmap := array( 1 .. 4, [( 1 ) = (1), ( 2 ) = (2), ( 3 ) = (3), ( 4 ) = (4) ] ); _x0 := _dtbl[1][5][5]; _n := _dtbl[1][4][1]; _ne := _dtbl[1][4][3]; _nd := _dtbl[1][4][4]; _nv := _dtbl[1][4][16]; if not type(_xout, 'numeric') then if member(_xout, ["start", "left", "right"]) then if _Env_smart_dsolve_numeric = true or _dtbl[1][4][10] = 1 then if _xout = "left" then if type(_dtbl[2], 'table') then return _dtbl[2][5][1] end if elif _xout = "right" then if type(_dtbl[3], 'table') then return _dtbl[3][5][1] end if end if end if; return _dtbl[1][5][5] elif _xout = "method" then return _dtbl[1][15] elif _xout = "storage" then return evalb(_dtbl[1][4][10] = 1) elif _xout = "leftdata" then if not type(_dtbl[2], 'array') then return NULL else return eval(_dtbl[2]) end if elif _xout = "rightdata" then if not type(_dtbl[3], 'array') then return NULL else return eval(_dtbl[3]) end if elif _xout = "enginedata" then return eval(_dtbl[1]) elif _xout = "enginereset" then _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); return NULL elif _xout = "initial" then return procname(_y0[0]) elif _xout = "laxtol" then return _dtbl[`if`(member(_dtbl[4], {2, 3}), _dtbl[4], 1)][5][18] elif _xout = "numfun" then return `if`(member(_dtbl[4], {2, 3}), _dtbl[_dtbl[4]][4][18], 0) elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "initial_and_parameters" then return procname(_y0[0]), [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "last" then if _dtbl[4] <> 2 and _dtbl[4] <> 3 or _x0-_dtbl[_dtbl[4]][5][1] = 0. then error "no information is available on last computed point" else _xout := _dtbl[_dtbl[4]][5][1] end if elif _xout = "function" then if _dtbl[1][4][33]-2. = 0 then return eval(_dtbl[1][10], 1) else return eval(_dtbl[1][10][1], 1) end if elif _xout = "map" then return copy(_vmap) elif type(_xin, `=`) and type(rhs(_xin), 'list') and member(lhs(_xin), {"initial", "parameters", "initial_and_parameters"}) then _ini, _par := [], []; if lhs(_xin) = "initial" then _ini := rhs(_xin) elif lhs(_xin) = "parameters" then _par := rhs(_xin) elif select(type, rhs(_xin), `=`) <> [] then _par, _ini := selectremove(type, rhs(_xin), `=`) elif nops(rhs(_xin)) < nops(_pars)+1 then error "insufficient data for specification of initial and parameters" else _par := rhs(_xin)[-nops(_pars) .. -1]; _ini := rhs(_xin)[1 .. -nops(_pars)-1] end if; _xout := lhs(_xout); _i := false; if _par <> [] then _i := `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then _i := `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) or _i end if; if _i then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars); if _Env_smart_dsolve_numeric = true and type(_y0[0], 'numeric') and _dtbl[1][4][10] <> 1 then procname("right") := _y0[0]; procname("left") := _y0[0] end if end if; if _xout = "initial" then return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)] elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] else return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)], [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] end if elif _xin = "eventstop" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then return 0 end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 <= _dtbl[5-_i][4][9] then _i := 5-_i; _dtbl[4] := _i; _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) elif 100 <= _dtbl[_i][4][9] then _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) else return 0 end if elif _xin = "eventstatus" then if _nv = 0 then error "this solution has no events" end if; _i := [selectremove(proc (a) options operator, arrow; _dtbl[1][3][1][a, 7] = 1 end proc, {seq(_j, _j = 1 .. round(_dtbl[1][3][1][_nv+1, 1]))})]; return ':-enabled' = _i[1], ':-disabled' = _i[2] elif _xin = "eventclear" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then error "no events to clear" end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 100 then error "no events to clear" elif _nv < _dtbl[_i][4][9]-100 then error "event error condition cannot be cleared" else _j := _dtbl[_i][4][9]-100; if irem(round(_dtbl[_i][3][1][_j, 4]), 2) = 1 then error "retriggerable events cannot be cleared" end if; _j := round(_dtbl[_i][3][1][_j, 1]); for _k to _nv do if _dtbl[_i][3][1][_k, 1] = _j then if _dtbl[_i][3][1][_k, 2] = 3 then error "range events cannot be cleared" end if; _dtbl[_i][3][1][_k, 8] := _dtbl[_i][3][1][_nv+1, 8] end if end do; _dtbl[_i][4][17] := 0; _dtbl[_i][4][9] := 0; if _dtbl[1][4][10] = 1 then if _i = 2 then try procname(procname("left")) catch: end try else try procname(procname("right")) catch: end try end if end if end if; return elif type(_xin, `=`) and member(lhs(_xin), {"eventdisable", "eventenable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('list')('posint'), ('set')('posint')}) then _i := {op(rhs(_xin))} elif type(rhs(_xin), 'posint') then _i := {rhs(_xin)} else error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; if select(proc (a) options operator, arrow; _nv < a end proc, _i) <> {} then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _k := {}; for _j to _nv do if member(round(_dtbl[1][3][1][_j, 1]), _i) then _k := `union`(_k, {_j}) end if end do; _i := _k; if lhs(_xin) = "eventdisable" then _dtbl[4] := 0; _j := [evalb(assigned(_dtbl[2]) and member(_dtbl[2][4][17], _i)), evalb(assigned(_dtbl[3]) and member(_dtbl[3][4][17], _i))]; for _k in _i do _dtbl[1][3][1][_k, 7] := 0; if assigned(_dtbl[2]) then _dtbl[2][3][1][_k, 7] := 0 end if; if assigned(_dtbl[3]) then _dtbl[3][3][1][_k, 7] := 0 end if end do; if _j[1] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[2][3][4][_k, 1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to defined init `, _dtbl[2][3][4][_k, 1]); _dtbl[2][3][1][_k, 8] := _dtbl[2][3][4][_k, 1] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to rate hysteresis init `, _dtbl[2][5][24]); _dtbl[2][3][1][_k, 8] := _dtbl[2][5][24] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to initial init `, _x0); _dtbl[2][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to fireinitial init `, _x0-1); _dtbl[2][3][1][_k, 8] := _x0-1 end if end do; _dtbl[2][4][17] := 0; _dtbl[2][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("left")) end if end if; if _j[2] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[3][3][4][_k, 2], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to defined init `, _dtbl[3][3][4][_k, 2]); _dtbl[3][3][1][_k, 8] := _dtbl[3][3][4][_k, 2] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to rate hysteresis init `, _dtbl[3][5][24]); _dtbl[3][3][1][_k, 8] := _dtbl[3][5][24] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to initial init `, _x0); _dtbl[3][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to fireinitial init `, _x0+1); _dtbl[3][3][1][_k, 8] := _x0+1 end if end do; _dtbl[3][4][17] := 0; _dtbl[3][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("right")) end if end if else for _k in _i do _dtbl[1][3][1][_k, 7] := 1 end do; _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); _dtbl[4] := 0; if _dtbl[1][4][10] = 1 then if _x0 <= procname("right") then try procname(procname("right")) catch: end try end if; if procname("left") <= _x0 then try procname(procname("left")) catch: end try end if end if end if; return elif type(_xin, `=`) and lhs(_xin) = "eventfired" then if not type(rhs(_xin), 'list') then error "'eventfired' must be specified as a list" end if; if _nv = 0 then error "this solution has no events" end if; if _dtbl[4] <> 2 and _dtbl[4] <> 3 then error "'direction' must be set prior to calling/setting 'eventfired'" end if; _i := _dtbl[4]; _val := NULL; if not assigned(_EnvEventRetriggerWarned) then _EnvEventRetriggerWarned := false end if; for _k in rhs(_xin) do if type(_k, 'integer') then _src := _k elif type(_k, 'integer' = 'anything') and type(evalf(rhs(_k)), 'numeric') then _k := lhs(_k) = evalf[max(Digits, 18)](rhs(_k)); _src := lhs(_k) else error "'eventfired' entry is not valid: %1", _k end if; if _src < 1 or round(_dtbl[1][3][1][_nv+1, 1]) < _src then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _src := {seq(`if`(_dtbl[1][3][1][_j, 1]-_src = 0., _j, NULL), _j = 1 .. _nv)}; if nops(_src) <> 1 then error "'eventfired' can only be set/queried for root-finding events and time/interval events" end if; _src := _src[1]; if _dtbl[1][3][1][_src, 2] <> 0. and _dtbl[1][3][1][_src, 2]-2. <> 0. then error "'eventfired' can only be set/queried for root-finding events and time/interval events" elif irem(round(_dtbl[1][3][1][_src, 4]), 2) = 1 then if _EnvEventRetriggerWarned = false then WARNING(`'eventfired' has no effect on events that retrigger`) end if; _EnvEventRetriggerWarned := true end if; if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then _val := _val, undefined elif type(_dtbl[_i][3][4][_src, _i-1], 'undefined') or _i = 2 and _dtbl[2][3][1][_src, 8] < _dtbl[2][3][4][_src, 1] or _i = 3 and _dtbl[3][3][4][_src, 2] < _dtbl[3][3][1][_src, 8] then _val := _val, _dtbl[_i][3][1][_src, 8] else _val := _val, _dtbl[_i][3][4][_src, _i-1] end if; if type(_k, `=`) then if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then error "cannot set event code for a rate hysteresis event" end if; userinfo(3, {'events', 'eventreset'}, `manual set event code `, _src, ` to value `, rhs(_k)); _dtbl[_i][3][1][_src, 8] := rhs(_k); _dtbl[_i][3][4][_src, _i-1] := rhs(_k) end if end do; return [_val] elif type(_xin, `=`) and lhs(_xin) = "direction" then if not member(rhs(_xin), {-1, 1, ':-left', ':-right'}) then error "'direction' must be specified as either '1' or 'right' (positive) or '-1' or 'left' (negative)" end if; _src := `if`(_dtbl[4] = 2, -1, `if`(_dtbl[4] = 3, 1, undefined)); _i := `if`(member(rhs(_xin), {1, ':-right'}), 3, 2); _dtbl[4] := _i; _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if; return _src elif _xin = "eventcount" then if _dtbl[1][3][1] = 0 or _dtbl[4] <> 2 and _dtbl[4] <> 3 then return 0 else return round(_dtbl[_dtbl[4]][3][1][_nv+1, 12]) end if elif type(_xin, `=`) and lhs(_xin) = "setdatacallback" then if not type(rhs(_xin), 'nonegint') then error "data callback must be a nonnegative integer (address)" end if; _dtbl[1][28] := rhs(_xin) else return "procname" end if end if; if _xout = _x0 then return [_x0, seq(evalf(_dtbl[1][6][_vmap[_i]]), _i = 1 .. _n-_ne)] end if; _i := `if`(_x0 <= _xout, 3, 2); if _xin = "last" and 0 < _dtbl[_i][4][9] and _dtbl[_i][4][9] < 100 then _dat := eval(_dtbl[_i], 2); _j := _dat[4][20]; return [_dat[11][_j, 0], seq(_dat[11][_j, _vmap[_i]], _i = 1 .. _n-_ne-_nd), seq(_dat[8][1][_vmap[_i]], _i = _n-_ne-_nd+1 .. _n-_ne)] end if; if not type(_dtbl[_i], 'array') then _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if end if; if _xin <> "last" then if 0 < 0 then if `dsolve/numeric/checkglobals`(op(_dtbl[1][14]), _pars, _n, _y0) then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars, _i) end if end if; if _dtbl[1][4][7] = 0 then error "parameters must be initialized before solution can be computed" end if end if; _dat := eval(_dtbl[_i], 2); _dtbl[4] := _i; try _src := `dsolve/numeric/SC/IVPrun`(_dat, _xout) catch: userinfo(2, `dsolve/debug`, print(`Exception in solnproc:`, [lastexception][2 .. -1])); error end try; if _dat[17] <> _dtbl[1][17] then _dtbl[1][17] := _dat[17]; _dtbl[1][10] := _dat[10] end if; if _src = 0 and 100 < _dat[4][9] then _val := _dat[3][1][_nv+1, 8] else _val := _dat[11][_dat[4][20], 0] end if; if _src <> 0 or _dat[4][9] <= 0 then _dtbl[1][5][1] := _xout else _dtbl[1][5][1] := _val end if; if _i = 3 and _val < _xout then Rounding := -infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further right of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further right of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further right of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further right of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further right of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further right of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further right of %1", evalf[8](_val) end if elif _i = 2 and _xout < _val then Rounding := infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further left of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further left of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further left of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further left of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further left of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further left of %1", evalf[8](_val) end if end if; if _EnvInFsolve = true then _dig := _dat[4][26]; if type(_EnvDSNumericSaveDigits, 'posint') then _dat[4][26] := _EnvDSNumericSaveDigits else _dat[4][26] := Digits end if; _Env_dsolve_SC_native := true; if _dat[4][25] = 1 then _i := 1; _dat[4][25] := 2 else _i := _dat[4][25] end if; _val := `dsolve/numeric/SC/IVPval`(_dat, _xout, _src); _dat[4][25] := _i; _dat[4][26] := _dig; [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] else Digits := _dat[4][26]; _val := `dsolve/numeric/SC/IVPval`(eval(_dat, 2), _xout, _src); [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] end if end proc, (2) = Array(1..5, {(1) = 36893488148680590364, (2) = 36893488148680590540, (3) = 36893488148680590716, (4) = 36893488148680590892, (5) = 36893488148680591068}), (3) = [x, f(x), y2(x), y3(x), y4(x)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(x, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "eventcount", 'eventcount', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(x, 'string')); if 1 < nops([_res]) then return _res elif type(_res, 'array') then return eval(_res, 1) elif _res <> "procname" then return _res end if elif member(x, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(x, 'string')); if type(_res, 'list') then return _res[4] else return NULL end if elif member(x, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(x, 'string'); _res := _solnproc(_xout); if _xout = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[4], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["initial", 'initial', "parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(lhs(x), 'string') = rhs(x); if lhs(_xout) = "initial" then if type(rhs(_xout), 'list') then _res := _solnproc(_xout) else _res := _solnproc("initial" = ["single", 4, rhs(_xout)]) end if elif not type(rhs(_xout), 'list') then error "initial and/or parameter values must be specified in a list" elif lhs(_xout) = "initial_and_parameters" and nops(rhs(_xout)) = nops(_pars)+1 then _res := _solnproc(lhs(_xout) = ["single", 4, op(rhs(_xout))]) else _res := _solnproc(_xout) end if; if lhs(_xout) = "initial" then return _res[4] elif lhs(_xout) = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[4], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["eventdisable", 'eventdisable', "eventenable", 'eventenable', "eventfired", 'eventfired', "direction", 'direction', NULL]) then return _solnproc(convert(lhs(x), 'string') = rhs(x)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(x) else _ndsol := 1; _ndsol := `tools/gensym`("y3(x)"); eval(FromInert(_Inert_FUNCTION(_Inert_NAME("assign"), _Inert_EXPSEQ(ToInert(_ndsol), _Inert_VERBATIM(pointto(_dat[2][4])))))); return FromInert(_Inert_FUNCTION(ToInert(_ndsol), _Inert_EXPSEQ(ToInert(x)))) end if end if; try _res := _solnproc(_xout); _res[4] catch: error end try end proc, y4(x) = proc (x) local _res, _dat, _solnproc, _xout, _ndsol, _pars, _i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; if 1 < nargs then error "invalid input: too many arguments" end if; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then _xout := evalf[_EnvDSNumericSaveDigits](x) else _xout := evalf(x) end if; _dat := Array(1..4, {(1) = proc (_xin) local _xout, _dtbl, _dat, _vmap, _x0, _y0, _val, _dig, _n, _ne, _nd, _nv, _pars, _ini, _par, _i, _j, _k, _src; option `Copyright (c) 2002 by Waterloo Maple Inc. All rights reserved.`; table( [( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 28, [( 1 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 2 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 3 ) = ([0, 0, 0, Array(1..0, 1..2, {}, datatype = float[8], order = C_order)]), ( 4 ) = (Array(1..65, {(1) = 4, (2) = 4, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 0, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 37, (19) = 0, (20) = 0, (21) = 0, (22) = 2, (23) = 3, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 0, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 2, (34) = 0, (35) = 0, (36) = 0, (37) = 0, (38) = 0, (39) = 0, (40) = 0, (41) = 0, (42) = 0, (43) = 1, (44) = 0, (45) = 0, (46) = 0, (47) = 0, (48) = 0, (49) = 0, (50) = 50, (51) = 1, (52) = 0, (53) = 0, (54) = 0, (55) = 0, (56) = 0, (57) = 0, (58) = 0, (59) = 10000, (60) = 0, (61) = 1000, (62) = 0, (63) = 0, (64) = -1, (65) = 0}, datatype = integer[8])), ( 5 ) = (Array(1..28, {(1) = 1000.0, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 1000.0, (6) = 0.10e-2, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .49999999999999, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0, (21) = 1.0, (22) = 1.0, (23) = .0, (24) = .0, (25) = 0.10e-14, (26) = .0, (27) = .0, (28) = .0}, datatype = float[8], order = C_order)), ( 6 ) = (Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order)), ( 7 ) = ([Array(1..4, 1..7, {(1, 1) = .0, (1, 2) = .203125, (1, 3) = .3046875, (1, 4) = .75, (1, 5) = .8125, (1, 6) = .40625, (1, 7) = .8125, (2, 1) = 0.6378173828125e-1, (2, 2) = .0, (2, 3) = .279296875, (2, 4) = .27237892150878906, (2, 5) = -0.9686851501464844e-1, (2, 6) = 0.1956939697265625e-1, (2, 7) = .5381584167480469, (3, 1) = 0.31890869140625e-1, (3, 2) = .0, (3, 3) = -.34375, (3, 4) = -.335235595703125, (3, 5) = .2296142578125, (3, 6) = .41748046875, (3, 7) = 11.480712890625, (4, 1) = 0.9710520505905151e-1, (4, 2) = .0, (4, 3) = .40350341796875, (4, 4) = 0.20297467708587646e-1, (4, 5) = -0.6054282188415527e-2, (4, 6) = -0.4770040512084961e-1, (4, 7) = .77858567237854}, datatype = float[8], order = C_order), Array(1..6, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = 1.0, (2, 1) = .25, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = 1.0, (3, 1) = .1875, (3, 2) = .5625, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = 2.0, (4, 1) = .23583984375, (4, 2) = -.87890625, (4, 3) = .890625, (4, 4) = .0, (4, 5) = .0, (4, 6) = .2681884765625, (5, 1) = .1272735595703125, (5, 2) = -.5009765625, (5, 3) = .44921875, (5, 4) = -0.128936767578125e-1, (5, 5) = .0, (5, 6) = 0.626220703125e-1, (6, 1) = -0.927734375e-1, (6, 2) = .626220703125, (6, 3) = -.4326171875, (6, 4) = .1418304443359375, (6, 5) = -0.861053466796875e-1, (6, 6) = .3131103515625}, datatype = float[8], order = C_order), Array(1..6, {(1) = .0, (2) = .386, (3) = .21, (4) = .63, (5) = 1.0, (6) = 1.0}, datatype = float[8], order = C_order), Array(1..6, {(1) = .25, (2) = -.1043, (3) = .1035, (4) = -0.362e-1, (5) = .0, (6) = .0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 1.544, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = .9466785280815533, (3, 2) = .25570116989825814, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = 3.3148251870684886, (4, 2) = 2.896124015972123, (4, 3) = .9986419139977808, (4, 4) = .0, (4, 5) = .0, (5, 1) = 1.2212245092262748, (5, 2) = 6.019134481287752, (5, 3) = 12.537083329320874, (5, 4) = -.687886036105895, (5, 5) = .0, (6, 1) = 1.2212245092262748, (6, 2) = 6.019134481287752, (6, 3) = 12.537083329320874, (6, 4) = -.687886036105895, (6, 5) = 1.0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = -5.6688, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = -2.4300933568337584, (3, 2) = -.20635991570891224, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = -.10735290581452621, (4, 2) = -9.594562251021896, (4, 3) = -20.470286148096154, (4, 4) = .0, (4, 5) = .0, (5, 1) = 7.496443313968615, (5, 2) = -10.246804314641219, (5, 3) = -33.99990352819906, (5, 4) = 11.708908932061595, (5, 5) = .0, (6, 1) = 8.083246795922411, (6, 2) = -7.981132988062785, (6, 3) = -31.52159432874373, (6, 4) = 16.319305431231363, (6, 5) = -6.0588182388340535}, datatype = float[8], order = C_order), Array(1..3, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 10.126235083446911, (2, 2) = -7.487995877607633, (2, 3) = -34.800918615557414, (2, 4) = -7.9927717075687275, (2, 5) = 1.0251377232956207, (3, 1) = -.6762803392806898, (3, 2) = 6.087714651678606, (3, 3) = 16.43084320892463, (3, 4) = 24.767225114183653, (3, 5) = -6.5943891257167815}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..4, {(1) = 1.0, (2) = 1.0, (3) = 1.0, (4) = 1.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.49226990714460894e-7, (2) = 0.178537560858319e-7, (3) = 0.4029586553756948e-5, (4) = -0.23927004927454816e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = -0.18357229760682366e-2, (1, 2) = -0.17501463887214658e-2, (1, 3) = -0.7164959560218224e-6, (1, 4) = -0.4205459947957446e-10, (2, 1) = -0.10047974614114951e-4, (2, 2) = 0.3018120081790368e-3, (2, 3) = 0.16179996203159695e-6, (2, 4) = 0.56891129092515695e-11, (3, 1) = -.2754182957400952, (3, 2) = .6220071419708226, (3, 3) = 0.9964521295710663e-4, (3, 4) = 0.5318788432319277e-8, (4, 1) = -2.1232505740214265, (4, 2) = 42.11602079706063, (4, 3) = 0.39181824003885705e-2, (4, 4) = 0.17557456518577073e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (4, 5) = .0, (4, 6) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8]), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..8, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8])]), ( 8 ) = ([Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.193749384647247e-6, (2) = 0.17116786119646165e-7, (3) = 0.5244123565596995e-5, (4) = .4079623005603603}, datatype = float[8], order = C_order), 0, 0]), ( 11 ) = (Array(1..6, 0..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (5, 3) = .0, (5, 4) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0, (6, 3) = .0, (6, 4) = .0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 13 ) = (), ( 12 ) = (), ( 15 ) = ("rosenbrock"), ( 14 ) = ([0, 0]), ( 18 ) = ([]), ( 19 ) = (0), ( 16 ) = ([0, 0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 22 ) = (0), ( 23 ) = (0), ( 20 ) = ([]), ( 21 ) = (0), ( 27 ) = (""), ( 26 ) = (Array(1..0, {})), ( 25 ) = (Array(1..0, {})), ( 24 ) = (0), ( 28 ) = (0) ] )) ] ); _y0 := Array(0..4, {(1) = 1000., (2) = 0.4118564743e-1, (3) = 0.3205e-1, (4) = 5.9459}); _vmap := array( 1 .. 4, [( 1 ) = (1), ( 2 ) = (2), ( 3 ) = (3), ( 4 ) = (4) ] ); _x0 := _dtbl[1][5][5]; _n := _dtbl[1][4][1]; _ne := _dtbl[1][4][3]; _nd := _dtbl[1][4][4]; _nv := _dtbl[1][4][16]; if not type(_xout, 'numeric') then if member(_xout, ["start", "left", "right"]) then if _Env_smart_dsolve_numeric = true or _dtbl[1][4][10] = 1 then if _xout = "left" then if type(_dtbl[2], 'table') then return _dtbl[2][5][1] end if elif _xout = "right" then if type(_dtbl[3], 'table') then return _dtbl[3][5][1] end if end if end if; return _dtbl[1][5][5] elif _xout = "method" then return _dtbl[1][15] elif _xout = "storage" then return evalb(_dtbl[1][4][10] = 1) elif _xout = "leftdata" then if not type(_dtbl[2], 'array') then return NULL else return eval(_dtbl[2]) end if elif _xout = "rightdata" then if not type(_dtbl[3], 'array') then return NULL else return eval(_dtbl[3]) end if elif _xout = "enginedata" then return eval(_dtbl[1]) elif _xout = "enginereset" then _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); return NULL elif _xout = "initial" then return procname(_y0[0]) elif _xout = "laxtol" then return _dtbl[`if`(member(_dtbl[4], {2, 3}), _dtbl[4], 1)][5][18] elif _xout = "numfun" then return `if`(member(_dtbl[4], {2, 3}), _dtbl[_dtbl[4]][4][18], 0) elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "initial_and_parameters" then return procname(_y0[0]), [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "last" then if _dtbl[4] <> 2 and _dtbl[4] <> 3 or _x0-_dtbl[_dtbl[4]][5][1] = 0. then error "no information is available on last computed point" else _xout := _dtbl[_dtbl[4]][5][1] end if elif _xout = "function" then if _dtbl[1][4][33]-2. = 0 then return eval(_dtbl[1][10], 1) else return eval(_dtbl[1][10][1], 1) end if elif _xout = "map" then return copy(_vmap) elif type(_xin, `=`) and type(rhs(_xin), 'list') and member(lhs(_xin), {"initial", "parameters", "initial_and_parameters"}) then _ini, _par := [], []; if lhs(_xin) = "initial" then _ini := rhs(_xin) elif lhs(_xin) = "parameters" then _par := rhs(_xin) elif select(type, rhs(_xin), `=`) <> [] then _par, _ini := selectremove(type, rhs(_xin), `=`) elif nops(rhs(_xin)) < nops(_pars)+1 then error "insufficient data for specification of initial and parameters" else _par := rhs(_xin)[-nops(_pars) .. -1]; _ini := rhs(_xin)[1 .. -nops(_pars)-1] end if; _xout := lhs(_xout); _i := false; if _par <> [] then _i := `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then _i := `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) or _i end if; if _i then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars); if _Env_smart_dsolve_numeric = true and type(_y0[0], 'numeric') and _dtbl[1][4][10] <> 1 then procname("right") := _y0[0]; procname("left") := _y0[0] end if end if; if _xout = "initial" then return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)] elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] else return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)], [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] end if elif _xin = "eventstop" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then return 0 end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 <= _dtbl[5-_i][4][9] then _i := 5-_i; _dtbl[4] := _i; _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) elif 100 <= _dtbl[_i][4][9] then _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) else return 0 end if elif _xin = "eventstatus" then if _nv = 0 then error "this solution has no events" end if; _i := [selectremove(proc (a) options operator, arrow; _dtbl[1][3][1][a, 7] = 1 end proc, {seq(_j, _j = 1 .. round(_dtbl[1][3][1][_nv+1, 1]))})]; return ':-enabled' = _i[1], ':-disabled' = _i[2] elif _xin = "eventclear" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then error "no events to clear" end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 100 then error "no events to clear" elif _nv < _dtbl[_i][4][9]-100 then error "event error condition cannot be cleared" else _j := _dtbl[_i][4][9]-100; if irem(round(_dtbl[_i][3][1][_j, 4]), 2) = 1 then error "retriggerable events cannot be cleared" end if; _j := round(_dtbl[_i][3][1][_j, 1]); for _k to _nv do if _dtbl[_i][3][1][_k, 1] = _j then if _dtbl[_i][3][1][_k, 2] = 3 then error "range events cannot be cleared" end if; _dtbl[_i][3][1][_k, 8] := _dtbl[_i][3][1][_nv+1, 8] end if end do; _dtbl[_i][4][17] := 0; _dtbl[_i][4][9] := 0; if _dtbl[1][4][10] = 1 then if _i = 2 then try procname(procname("left")) catch: end try else try procname(procname("right")) catch: end try end if end if end if; return elif type(_xin, `=`) and member(lhs(_xin), {"eventdisable", "eventenable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('list')('posint'), ('set')('posint')}) then _i := {op(rhs(_xin))} elif type(rhs(_xin), 'posint') then _i := {rhs(_xin)} else error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; if select(proc (a) options operator, arrow; _nv < a end proc, _i) <> {} then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _k := {}; for _j to _nv do if member(round(_dtbl[1][3][1][_j, 1]), _i) then _k := `union`(_k, {_j}) end if end do; _i := _k; if lhs(_xin) = "eventdisable" then _dtbl[4] := 0; _j := [evalb(assigned(_dtbl[2]) and member(_dtbl[2][4][17], _i)), evalb(assigned(_dtbl[3]) and member(_dtbl[3][4][17], _i))]; for _k in _i do _dtbl[1][3][1][_k, 7] := 0; if assigned(_dtbl[2]) then _dtbl[2][3][1][_k, 7] := 0 end if; if assigned(_dtbl[3]) then _dtbl[3][3][1][_k, 7] := 0 end if end do; if _j[1] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[2][3][4][_k, 1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to defined init `, _dtbl[2][3][4][_k, 1]); _dtbl[2][3][1][_k, 8] := _dtbl[2][3][4][_k, 1] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to rate hysteresis init `, _dtbl[2][5][24]); _dtbl[2][3][1][_k, 8] := _dtbl[2][5][24] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to initial init `, _x0); _dtbl[2][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to fireinitial init `, _x0-1); _dtbl[2][3][1][_k, 8] := _x0-1 end if end do; _dtbl[2][4][17] := 0; _dtbl[2][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("left")) end if end if; if _j[2] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[3][3][4][_k, 2], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to defined init `, _dtbl[3][3][4][_k, 2]); _dtbl[3][3][1][_k, 8] := _dtbl[3][3][4][_k, 2] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to rate hysteresis init `, _dtbl[3][5][24]); _dtbl[3][3][1][_k, 8] := _dtbl[3][5][24] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to initial init `, _x0); _dtbl[3][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to fireinitial init `, _x0+1); _dtbl[3][3][1][_k, 8] := _x0+1 end if end do; _dtbl[3][4][17] := 0; _dtbl[3][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("right")) end if end if else for _k in _i do _dtbl[1][3][1][_k, 7] := 1 end do; _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); _dtbl[4] := 0; if _dtbl[1][4][10] = 1 then if _x0 <= procname("right") then try procname(procname("right")) catch: end try end if; if procname("left") <= _x0 then try procname(procname("left")) catch: end try end if end if end if; return elif type(_xin, `=`) and lhs(_xin) = "eventfired" then if not type(rhs(_xin), 'list') then error "'eventfired' must be specified as a list" end if; if _nv = 0 then error "this solution has no events" end if; if _dtbl[4] <> 2 and _dtbl[4] <> 3 then error "'direction' must be set prior to calling/setting 'eventfired'" end if; _i := _dtbl[4]; _val := NULL; if not assigned(_EnvEventRetriggerWarned) then _EnvEventRetriggerWarned := false end if; for _k in rhs(_xin) do if type(_k, 'integer') then _src := _k elif type(_k, 'integer' = 'anything') and type(evalf(rhs(_k)), 'numeric') then _k := lhs(_k) = evalf[max(Digits, 18)](rhs(_k)); _src := lhs(_k) else error "'eventfired' entry is not valid: %1", _k end if; if _src < 1 or round(_dtbl[1][3][1][_nv+1, 1]) < _src then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _src := {seq(`if`(_dtbl[1][3][1][_j, 1]-_src = 0., _j, NULL), _j = 1 .. _nv)}; if nops(_src) <> 1 then error "'eventfired' can only be set/queried for root-finding events and time/interval events" end if; _src := _src[1]; if _dtbl[1][3][1][_src, 2] <> 0. and _dtbl[1][3][1][_src, 2]-2. <> 0. then error "'eventfired' can only be set/queried for root-finding events and time/interval events" elif irem(round(_dtbl[1][3][1][_src, 4]), 2) = 1 then if _EnvEventRetriggerWarned = false then WARNING(`'eventfired' has no effect on events that retrigger`) end if; _EnvEventRetriggerWarned := true end if; if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then _val := _val, undefined elif type(_dtbl[_i][3][4][_src, _i-1], 'undefined') or _i = 2 and _dtbl[2][3][1][_src, 8] < _dtbl[2][3][4][_src, 1] or _i = 3 and _dtbl[3][3][4][_src, 2] < _dtbl[3][3][1][_src, 8] then _val := _val, _dtbl[_i][3][1][_src, 8] else _val := _val, _dtbl[_i][3][4][_src, _i-1] end if; if type(_k, `=`) then if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then error "cannot set event code for a rate hysteresis event" end if; userinfo(3, {'events', 'eventreset'}, `manual set event code `, _src, ` to value `, rhs(_k)); _dtbl[_i][3][1][_src, 8] := rhs(_k); _dtbl[_i][3][4][_src, _i-1] := rhs(_k) end if end do; return [_val] elif type(_xin, `=`) and lhs(_xin) = "direction" then if not member(rhs(_xin), {-1, 1, ':-left', ':-right'}) then error "'direction' must be specified as either '1' or 'right' (positive) or '-1' or 'left' (negative)" end if; _src := `if`(_dtbl[4] = 2, -1, `if`(_dtbl[4] = 3, 1, undefined)); _i := `if`(member(rhs(_xin), {1, ':-right'}), 3, 2); _dtbl[4] := _i; _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if; return _src elif _xin = "eventcount" then if _dtbl[1][3][1] = 0 or _dtbl[4] <> 2 and _dtbl[4] <> 3 then return 0 else return round(_dtbl[_dtbl[4]][3][1][_nv+1, 12]) end if elif type(_xin, `=`) and lhs(_xin) = "setdatacallback" then if not type(rhs(_xin), 'nonegint') then error "data callback must be a nonnegative integer (address)" end if; _dtbl[1][28] := rhs(_xin) else return "procname" end if end if; if _xout = _x0 then return [_x0, seq(evalf(_dtbl[1][6][_vmap[_i]]), _i = 1 .. _n-_ne)] end if; _i := `if`(_x0 <= _xout, 3, 2); if _xin = "last" and 0 < _dtbl[_i][4][9] and _dtbl[_i][4][9] < 100 then _dat := eval(_dtbl[_i], 2); _j := _dat[4][20]; return [_dat[11][_j, 0], seq(_dat[11][_j, _vmap[_i]], _i = 1 .. _n-_ne-_nd), seq(_dat[8][1][_vmap[_i]], _i = _n-_ne-_nd+1 .. _n-_ne)] end if; if not type(_dtbl[_i], 'array') then _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if end if; if _xin <> "last" then if 0 < 0 then if `dsolve/numeric/checkglobals`(op(_dtbl[1][14]), _pars, _n, _y0) then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars, _i) end if end if; if _dtbl[1][4][7] = 0 then error "parameters must be initialized before solution can be computed" end if end if; _dat := eval(_dtbl[_i], 2); _dtbl[4] := _i; try _src := `dsolve/numeric/SC/IVPrun`(_dat, _xout) catch: userinfo(2, `dsolve/debug`, print(`Exception in solnproc:`, [lastexception][2 .. -1])); error end try; if _dat[17] <> _dtbl[1][17] then _dtbl[1][17] := _dat[17]; _dtbl[1][10] := _dat[10] end if; if _src = 0 and 100 < _dat[4][9] then _val := _dat[3][1][_nv+1, 8] else _val := _dat[11][_dat[4][20], 0] end if; if _src <> 0 or _dat[4][9] <= 0 then _dtbl[1][5][1] := _xout else _dtbl[1][5][1] := _val end if; if _i = 3 and _val < _xout then Rounding := -infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further right of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further right of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further right of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further right of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further right of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further right of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further right of %1", evalf[8](_val) end if elif _i = 2 and _xout < _val then Rounding := infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further left of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further left of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further left of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further left of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further left of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further left of %1", evalf[8](_val) end if end if; if _EnvInFsolve = true then _dig := _dat[4][26]; if type(_EnvDSNumericSaveDigits, 'posint') then _dat[4][26] := _EnvDSNumericSaveDigits else _dat[4][26] := Digits end if; _Env_dsolve_SC_native := true; if _dat[4][25] = 1 then _i := 1; _dat[4][25] := 2 else _i := _dat[4][25] end if; _val := `dsolve/numeric/SC/IVPval`(_dat, _xout, _src); _dat[4][25] := _i; _dat[4][26] := _dig; [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] else Digits := _dat[4][26]; _val := `dsolve/numeric/SC/IVPval`(eval(_dat, 2), _xout, _src); [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] end if end proc, (2) = Array(1..5, {(1) = 36893488148680590364, (2) = 36893488148680590540, (3) = 36893488148680590716, (4) = 36893488148680590892, (5) = 36893488148680591068}), (3) = [x, f(x), y2(x), y3(x), y4(x)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(x, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "eventcount", 'eventcount', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(x, 'string')); if 1 < nops([_res]) then return _res elif type(_res, 'array') then return eval(_res, 1) elif _res <> "procname" then return _res end if elif member(x, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(x, 'string')); if type(_res, 'list') then return _res[5] else return NULL end if elif member(x, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(x, 'string'); _res := _solnproc(_xout); if _xout = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[5], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["initial", 'initial', "parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(lhs(x), 'string') = rhs(x); if lhs(_xout) = "initial" then if type(rhs(_xout), 'list') then _res := _solnproc(_xout) else _res := _solnproc("initial" = ["single", 5, rhs(_xout)]) end if elif not type(rhs(_xout), 'list') then error "initial and/or parameter values must be specified in a list" elif lhs(_xout) = "initial_and_parameters" and nops(rhs(_xout)) = nops(_pars)+1 then _res := _solnproc(lhs(_xout) = ["single", 5, op(rhs(_xout))]) else _res := _solnproc(_xout) end if; if lhs(_xout) = "initial" then return _res[5] elif lhs(_xout) = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[5], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["eventdisable", 'eventdisable', "eventenable", 'eventenable', "eventfired", 'eventfired', "direction", 'direction', NULL]) then return _solnproc(convert(lhs(x), 'string') = rhs(x)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(x) else _ndsol := 1; _ndsol := `tools/gensym`("y4(x)"); eval(FromInert(_Inert_FUNCTION(_Inert_NAME("assign"), _Inert_EXPSEQ(ToInert(_ndsol), _Inert_VERBATIM(pointto(_dat[2][5])))))); return FromInert(_Inert_FUNCTION(ToInert(_ndsol), _Inert_EXPSEQ(ToInert(x)))) end if end if; try _res := _solnproc(_xout); _res[5] catch: error end try end proc]

 (3)
> 

f := eval(f(x), sol)

proc (x) local _res, _dat, _solnproc, _xout, _ndsol, _pars, _i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; if 1 < nargs then error "invalid input: too many arguments" end if; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then _xout := evalf[_EnvDSNumericSaveDigits](x) else _xout := evalf(x) end if; _dat := Array(1..4, {(1) = proc (_xin) local _xout, _dtbl, _dat, _vmap, _x0, _y0, _val, _dig, _n, _ne, _nd, _nv, _pars, _ini, _par, _i, _j, _k, _src; option `Copyright (c) 2002 by Waterloo Maple Inc. All rights reserved.`; table( [( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 28, [( 1 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 2 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 3 ) = ([0, 0, 0, Array(1..0, 1..2, {}, datatype = float[8], order = C_order)]), ( 4 ) = (Array(1..65, {(1) = 4, (2) = 4, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 0, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 37, (19) = 0, (20) = 0, (21) = 0, (22) = 2, (23) = 3, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 0, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 2, (34) = 0, (35) = 0, (36) = 0, (37) = 0, (38) = 0, (39) = 0, (40) = 0, (41) = 0, (42) = 0, (43) = 1, (44) = 0, (45) = 0, (46) = 0, (47) = 0, (48) = 0, (49) = 0, (50) = 50, (51) = 1, (52) = 0, (53) = 0, (54) = 0, (55) = 0, (56) = 0, (57) = 0, (58) = 0, (59) = 10000, (60) = 0, (61) = 1000, (62) = 0, (63) = 0, (64) = -1, (65) = 0}, datatype = integer[8])), ( 5 ) = (Array(1..28, {(1) = 1000.0, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 1000.0, (6) = 0.10e-2, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .49999999999999, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0, (21) = 1.0, (22) = 1.0, (23) = .0, (24) = .0, (25) = 0.10e-14, (26) = .0, (27) = .0, (28) = .0}, datatype = float[8], order = C_order)), ( 6 ) = (Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order)), ( 7 ) = ([Array(1..4, 1..7, {(1, 1) = .0, (1, 2) = .203125, (1, 3) = .3046875, (1, 4) = .75, (1, 5) = .8125, (1, 6) = .40625, (1, 7) = .8125, (2, 1) = 0.6378173828125e-1, (2, 2) = .0, (2, 3) = .279296875, (2, 4) = .27237892150878906, (2, 5) = -0.9686851501464844e-1, (2, 6) = 0.1956939697265625e-1, (2, 7) = .5381584167480469, (3, 1) = 0.31890869140625e-1, (3, 2) = .0, (3, 3) = -.34375, (3, 4) = -.335235595703125, (3, 5) = .2296142578125, (3, 6) = .41748046875, (3, 7) = 11.480712890625, (4, 1) = 0.9710520505905151e-1, (4, 2) = .0, (4, 3) = .40350341796875, (4, 4) = 0.20297467708587646e-1, (4, 5) = -0.6054282188415527e-2, (4, 6) = -0.4770040512084961e-1, (4, 7) = .77858567237854}, datatype = float[8], order = C_order), Array(1..6, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = 1.0, (2, 1) = .25, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = 1.0, (3, 1) = .1875, (3, 2) = .5625, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = 2.0, (4, 1) = .23583984375, (4, 2) = -.87890625, (4, 3) = .890625, (4, 4) = .0, (4, 5) = .0, (4, 6) = .2681884765625, (5, 1) = .1272735595703125, (5, 2) = -.5009765625, (5, 3) = .44921875, (5, 4) = -0.128936767578125e-1, (5, 5) = .0, (5, 6) = 0.626220703125e-1, (6, 1) = -0.927734375e-1, (6, 2) = .626220703125, (6, 3) = -.4326171875, (6, 4) = .1418304443359375, (6, 5) = -0.861053466796875e-1, (6, 6) = .3131103515625}, datatype = float[8], order = C_order), Array(1..6, {(1) = .0, (2) = .386, (3) = .21, (4) = .63, (5) = 1.0, (6) = 1.0}, datatype = float[8], order = C_order), Array(1..6, {(1) = .25, (2) = -.1043, (3) = .1035, (4) = -0.362e-1, (5) = .0, (6) = .0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 1.544, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = .9466785280815533, (3, 2) = .25570116989825814, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = 3.3148251870684886, (4, 2) = 2.896124015972123, (4, 3) = .9986419139977808, (4, 4) = .0, (4, 5) = .0, (5, 1) = 1.2212245092262748, (5, 2) = 6.019134481287752, (5, 3) = 12.537083329320874, (5, 4) = -.687886036105895, (5, 5) = .0, (6, 1) = 1.2212245092262748, (6, 2) = 6.019134481287752, (6, 3) = 12.537083329320874, (6, 4) = -.687886036105895, (6, 5) = 1.0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = -5.6688, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = -2.4300933568337584, (3, 2) = -.20635991570891224, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = -.10735290581452621, (4, 2) = -9.594562251021896, (4, 3) = -20.470286148096154, (4, 4) = .0, (4, 5) = .0, (5, 1) = 7.496443313968615, (5, 2) = -10.246804314641219, (5, 3) = -33.99990352819906, (5, 4) = 11.708908932061595, (5, 5) = .0, (6, 1) = 8.083246795922411, (6, 2) = -7.981132988062785, (6, 3) = -31.52159432874373, (6, 4) = 16.319305431231363, (6, 5) = -6.0588182388340535}, datatype = float[8], order = C_order), Array(1..3, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 10.126235083446911, (2, 2) = -7.487995877607633, (2, 3) = -34.800918615557414, (2, 4) = -7.9927717075687275, (2, 5) = 1.0251377232956207, (3, 1) = -.6762803392806898, (3, 2) = 6.087714651678606, (3, 3) = 16.43084320892463, (3, 4) = 24.767225114183653, (3, 5) = -6.5943891257167815}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..4, {(1) = 1.0, (2) = 1.0, (3) = 1.0, (4) = 1.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.49226990714460894e-7, (2) = 0.178537560858319e-7, (3) = 0.4029586553756948e-5, (4) = -0.23927004927454816e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = -0.18357229760682366e-2, (1, 2) = -0.17501463887214658e-2, (1, 3) = -0.7164959560218224e-6, (1, 4) = -0.4205459947957446e-10, (2, 1) = -0.10047974614114951e-4, (2, 2) = 0.3018120081790368e-3, (2, 3) = 0.16179996203159695e-6, (2, 4) = 0.56891129092515695e-11, (3, 1) = -.2754182957400952, (3, 2) = .6220071419708226, (3, 3) = 0.9964521295710663e-4, (3, 4) = 0.5318788432319277e-8, (4, 1) = -2.1232505740214265, (4, 2) = 42.11602079706063, (4, 3) = 0.39181824003885705e-2, (4, 4) = 0.17557456518577073e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (4, 5) = .0, (4, 6) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8]), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..8, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8])]), ( 8 ) = ([Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.193749384647247e-6, (2) = 0.17116786119646165e-7, (3) = 0.5244123565596995e-5, (4) = .4079623005603603}, datatype = float[8], order = C_order), 0, 0]), ( 11 ) = (Array(1..6, 0..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (5, 3) = .0, (5, 4) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0, (6, 3) = .0, (6, 4) = .0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 13 ) = (), ( 12 ) = (), ( 15 ) = ("rosenbrock"), ( 14 ) = ([0, 0]), ( 18 ) = ([]), ( 19 ) = (0), ( 16 ) = ([0, 0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 22 ) = (0), ( 23 ) = (0), ( 20 ) = ([]), ( 21 ) = (0), ( 27 ) = (""), ( 26 ) = (Array(1..0, {})), ( 25 ) = (Array(1..0, {})), ( 24 ) = (0), ( 28 ) = (0) ] )) ] ); _y0 := Array(0..4, {(1) = 1000., (2) = 0.4118564743e-1, (3) = 0.3205e-1, (4) = 5.9459}); _vmap := array( 1 .. 4, [( 1 ) = (1), ( 2 ) = (2), ( 3 ) = (3), ( 4 ) = (4) ] ); _x0 := _dtbl[1][5][5]; _n := _dtbl[1][4][1]; _ne := _dtbl[1][4][3]; _nd := _dtbl[1][4][4]; _nv := _dtbl[1][4][16]; if not type(_xout, 'numeric') then if member(_xout, ["start", "left", "right"]) then if _Env_smart_dsolve_numeric = true or _dtbl[1][4][10] = 1 then if _xout = "left" then if type(_dtbl[2], 'table') then return _dtbl[2][5][1] end if elif _xout = "right" then if type(_dtbl[3], 'table') then return _dtbl[3][5][1] end if end if end if; return _dtbl[1][5][5] elif _xout = "method" then return _dtbl[1][15] elif _xout = "storage" then return evalb(_dtbl[1][4][10] = 1) elif _xout = "leftdata" then if not type(_dtbl[2], 'array') then return NULL else return eval(_dtbl[2]) end if elif _xout = "rightdata" then if not type(_dtbl[3], 'array') then return NULL else return eval(_dtbl[3]) end if elif _xout = "enginedata" then return eval(_dtbl[1]) elif _xout = "enginereset" then _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); return NULL elif _xout = "initial" then return procname(_y0[0]) elif _xout = "laxtol" then return _dtbl[`if`(member(_dtbl[4], {2, 3}), _dtbl[4], 1)][5][18] elif _xout = "numfun" then return `if`(member(_dtbl[4], {2, 3}), _dtbl[_dtbl[4]][4][18], 0) elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "initial_and_parameters" then return procname(_y0[0]), [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "last" then if _dtbl[4] <> 2 and _dtbl[4] <> 3 or _x0-_dtbl[_dtbl[4]][5][1] = 0. then error "no information is available on last computed point" else _xout := _dtbl[_dtbl[4]][5][1] end if elif _xout = "function" then if _dtbl[1][4][33]-2. = 0 then return eval(_dtbl[1][10], 1) else return eval(_dtbl[1][10][1], 1) end if elif _xout = "map" then return copy(_vmap) elif type(_xin, `=`) and type(rhs(_xin), 'list') and member(lhs(_xin), {"initial", "parameters", "initial_and_parameters"}) then _ini, _par := [], []; if lhs(_xin) = "initial" then _ini := rhs(_xin) elif lhs(_xin) = "parameters" then _par := rhs(_xin) elif select(type, rhs(_xin), `=`) <> [] then _par, _ini := selectremove(type, rhs(_xin), `=`) elif nops(rhs(_xin)) < nops(_pars)+1 then error "insufficient data for specification of initial and parameters" else _par := rhs(_xin)[-nops(_pars) .. -1]; _ini := rhs(_xin)[1 .. -nops(_pars)-1] end if; _xout := lhs(_xout); _i := false; if _par <> [] then _i := `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then _i := `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) or _i end if; if _i then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars); if _Env_smart_dsolve_numeric = true and type(_y0[0], 'numeric') and _dtbl[1][4][10] <> 1 then procname("right") := _y0[0]; procname("left") := _y0[0] end if end if; if _xout = "initial" then return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)] elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] else return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)], [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] end if elif _xin = "eventstop" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then return 0 end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 <= _dtbl[5-_i][4][9] then _i := 5-_i; _dtbl[4] := _i; _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) elif 100 <= _dtbl[_i][4][9] then _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) else return 0 end if elif _xin = "eventstatus" then if _nv = 0 then error "this solution has no events" end if; _i := [selectremove(proc (a) options operator, arrow; _dtbl[1][3][1][a, 7] = 1 end proc, {seq(_j, _j = 1 .. round(_dtbl[1][3][1][_nv+1, 1]))})]; return ':-enabled' = _i[1], ':-disabled' = _i[2] elif _xin = "eventclear" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then error "no events to clear" end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 100 then error "no events to clear" elif _nv < _dtbl[_i][4][9]-100 then error "event error condition cannot be cleared" else _j := _dtbl[_i][4][9]-100; if irem(round(_dtbl[_i][3][1][_j, 4]), 2) = 1 then error "retriggerable events cannot be cleared" end if; _j := round(_dtbl[_i][3][1][_j, 1]); for _k to _nv do if _dtbl[_i][3][1][_k, 1] = _j then if _dtbl[_i][3][1][_k, 2] = 3 then error "range events cannot be cleared" end if; _dtbl[_i][3][1][_k, 8] := _dtbl[_i][3][1][_nv+1, 8] end if end do; _dtbl[_i][4][17] := 0; _dtbl[_i][4][9] := 0; if _dtbl[1][4][10] = 1 then if _i = 2 then try procname(procname("left")) catch: end try else try procname(procname("right")) catch: end try end if end if end if; return elif type(_xin, `=`) and member(lhs(_xin), {"eventdisable", "eventenable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('list')('posint'), ('set')('posint')}) then _i := {op(rhs(_xin))} elif type(rhs(_xin), 'posint') then _i := {rhs(_xin)} else error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; if select(proc (a) options operator, arrow; _nv < a end proc, _i) <> {} then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _k := {}; for _j to _nv do if member(round(_dtbl[1][3][1][_j, 1]), _i) then _k := `union`(_k, {_j}) end if end do; _i := _k; if lhs(_xin) = "eventdisable" then _dtbl[4] := 0; _j := [evalb(assigned(_dtbl[2]) and member(_dtbl[2][4][17], _i)), evalb(assigned(_dtbl[3]) and member(_dtbl[3][4][17], _i))]; for _k in _i do _dtbl[1][3][1][_k, 7] := 0; if assigned(_dtbl[2]) then _dtbl[2][3][1][_k, 7] := 0 end if; if assigned(_dtbl[3]) then _dtbl[3][3][1][_k, 7] := 0 end if end do; if _j[1] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[2][3][4][_k, 1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to defined init `, _dtbl[2][3][4][_k, 1]); _dtbl[2][3][1][_k, 8] := _dtbl[2][3][4][_k, 1] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to rate hysteresis init `, _dtbl[2][5][24]); _dtbl[2][3][1][_k, 8] := _dtbl[2][5][24] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to initial init `, _x0); _dtbl[2][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to fireinitial init `, _x0-1); _dtbl[2][3][1][_k, 8] := _x0-1 end if end do; _dtbl[2][4][17] := 0; _dtbl[2][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("left")) end if end if; if _j[2] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[3][3][4][_k, 2], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to defined init `, _dtbl[3][3][4][_k, 2]); _dtbl[3][3][1][_k, 8] := _dtbl[3][3][4][_k, 2] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to rate hysteresis init `, _dtbl[3][5][24]); _dtbl[3][3][1][_k, 8] := _dtbl[3][5][24] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to initial init `, _x0); _dtbl[3][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to fireinitial init `, _x0+1); _dtbl[3][3][1][_k, 8] := _x0+1 end if end do; _dtbl[3][4][17] := 0; _dtbl[3][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("right")) end if end if else for _k in _i do _dtbl[1][3][1][_k, 7] := 1 end do; _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); _dtbl[4] := 0; if _dtbl[1][4][10] = 1 then if _x0 <= procname("right") then try procname(procname("right")) catch: end try end if; if procname("left") <= _x0 then try procname(procname("left")) catch: end try end if end if end if; return elif type(_xin, `=`) and lhs(_xin) = "eventfired" then if not type(rhs(_xin), 'list') then error "'eventfired' must be specified as a list" end if; if _nv = 0 then error "this solution has no events" end if; if _dtbl[4] <> 2 and _dtbl[4] <> 3 then error "'direction' must be set prior to calling/setting 'eventfired'" end if; _i := _dtbl[4]; _val := NULL; if not assigned(_EnvEventRetriggerWarned) then _EnvEventRetriggerWarned := false end if; for _k in rhs(_xin) do if type(_k, 'integer') then _src := _k elif type(_k, 'integer' = 'anything') and type(evalf(rhs(_k)), 'numeric') then _k := lhs(_k) = evalf[max(Digits, 18)](rhs(_k)); _src := lhs(_k) else error "'eventfired' entry is not valid: %1", _k end if; if _src < 1 or round(_dtbl[1][3][1][_nv+1, 1]) < _src then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _src := {seq(`if`(_dtbl[1][3][1][_j, 1]-_src = 0., _j, NULL), _j = 1 .. _nv)}; if nops(_src) <> 1 then error "'eventfired' can only be set/queried for root-finding events and time/interval events" end if; _src := _src[1]; if _dtbl[1][3][1][_src, 2] <> 0. and _dtbl[1][3][1][_src, 2]-2. <> 0. then error "'eventfired' can only be set/queried for root-finding events and time/interval events" elif irem(round(_dtbl[1][3][1][_src, 4]), 2) = 1 then if _EnvEventRetriggerWarned = false then WARNING(`'eventfired' has no effect on events that retrigger`) end if; _EnvEventRetriggerWarned := true end if; if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then _val := _val, undefined elif type(_dtbl[_i][3][4][_src, _i-1], 'undefined') or _i = 2 and _dtbl[2][3][1][_src, 8] < _dtbl[2][3][4][_src, 1] or _i = 3 and _dtbl[3][3][4][_src, 2] < _dtbl[3][3][1][_src, 8] then _val := _val, _dtbl[_i][3][1][_src, 8] else _val := _val, _dtbl[_i][3][4][_src, _i-1] end if; if type(_k, `=`) then if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then error "cannot set event code for a rate hysteresis event" end if; userinfo(3, {'events', 'eventreset'}, `manual set event code `, _src, ` to value `, rhs(_k)); _dtbl[_i][3][1][_src, 8] := rhs(_k); _dtbl[_i][3][4][_src, _i-1] := rhs(_k) end if end do; return [_val] elif type(_xin, `=`) and lhs(_xin) = "direction" then if not member(rhs(_xin), {-1, 1, ':-left', ':-right'}) then error "'direction' must be specified as either '1' or 'right' (positive) or '-1' or 'left' (negative)" end if; _src := `if`(_dtbl[4] = 2, -1, `if`(_dtbl[4] = 3, 1, undefined)); _i := `if`(member(rhs(_xin), {1, ':-right'}), 3, 2); _dtbl[4] := _i; _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if; return _src elif _xin = "eventcount" then if _dtbl[1][3][1] = 0 or _dtbl[4] <> 2 and _dtbl[4] <> 3 then return 0 else return round(_dtbl[_dtbl[4]][3][1][_nv+1, 12]) end if elif type(_xin, `=`) and lhs(_xin) = "setdatacallback" then if not type(rhs(_xin), 'nonegint') then error "data callback must be a nonnegative integer (address)" end if; _dtbl[1][28] := rhs(_xin) else return "procname" end if end if; if _xout = _x0 then return [_x0, seq(evalf(_dtbl[1][6][_vmap[_i]]), _i = 1 .. _n-_ne)] end if; _i := `if`(_x0 <= _xout, 3, 2); if _xin = "last" and 0 < _dtbl[_i][4][9] and _dtbl[_i][4][9] < 100 then _dat := eval(_dtbl[_i], 2); _j := _dat[4][20]; return [_dat[11][_j, 0], seq(_dat[11][_j, _vmap[_i]], _i = 1 .. _n-_ne-_nd), seq(_dat[8][1][_vmap[_i]], _i = _n-_ne-_nd+1 .. _n-_ne)] end if; if not type(_dtbl[_i], 'array') then _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if end if; if _xin <> "last" then if 0 < 0 then if `dsolve/numeric/checkglobals`(op(_dtbl[1][14]), _pars, _n, _y0) then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars, _i) end if end if; if _dtbl[1][4][7] = 0 then error "parameters must be initialized before solution can be computed" end if end if; _dat := eval(_dtbl[_i], 2); _dtbl[4] := _i; try _src := `dsolve/numeric/SC/IVPrun`(_dat, _xout) catch: userinfo(2, `dsolve/debug`, print(`Exception in solnproc:`, [lastexception][2 .. -1])); error end try; if _dat[17] <> _dtbl[1][17] then _dtbl[1][17] := _dat[17]; _dtbl[1][10] := _dat[10] end if; if _src = 0 and 100 < _dat[4][9] then _val := _dat[3][1][_nv+1, 8] else _val := _dat[11][_dat[4][20], 0] end if; if _src <> 0 or _dat[4][9] <= 0 then _dtbl[1][5][1] := _xout else _dtbl[1][5][1] := _val end if; if _i = 3 and _val < _xout then Rounding := -infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further right of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further right of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further right of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further right of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further right of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further right of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further right of %1", evalf[8](_val) end if elif _i = 2 and _xout < _val then Rounding := infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further left of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further left of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further left of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further left of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further left of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further left of %1", evalf[8](_val) end if end if; if _EnvInFsolve = true then _dig := _dat[4][26]; if type(_EnvDSNumericSaveDigits, 'posint') then _dat[4][26] := _EnvDSNumericSaveDigits else _dat[4][26] := Digits end if; _Env_dsolve_SC_native := true; if _dat[4][25] = 1 then _i := 1; _dat[4][25] := 2 else _i := _dat[4][25] end if; _val := `dsolve/numeric/SC/IVPval`(_dat, _xout, _src); _dat[4][25] := _i; _dat[4][26] := _dig; [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] else Digits := _dat[4][26]; _val := `dsolve/numeric/SC/IVPval`(eval(_dat, 2), _xout, _src); [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] end if end proc, (2) = Array(1..5, {(1) = 36893488148680590364, (2) = 36893488148680590540, (3) = 36893488148680590716, (4) = 36893488148680590892, (5) = 36893488148680591068}), (3) = [x, f(x), y2(x), y3(x), y4(x)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(x, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "eventcount", 'eventcount', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(x, 'string')); if 1 < nops([_res]) then return _res elif type(_res, 'array') then return eval(_res, 1) elif _res <> "procname" then return _res end if elif member(x, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(x, 'string')); if type(_res, 'list') then return _res[2] else return NULL end if elif member(x, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(x, 'string'); _res := _solnproc(_xout); if _xout = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[2], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["initial", 'initial', "parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(lhs(x), 'string') = rhs(x); if lhs(_xout) = "initial" then if type(rhs(_xout), 'list') then _res := _solnproc(_xout) else _res := _solnproc("initial" = ["single", 2, rhs(_xout)]) end if elif not type(rhs(_xout), 'list') then error "initial and/or parameter values must be specified in a list" elif lhs(_xout) = "initial_and_parameters" and nops(rhs(_xout)) = nops(_pars)+1 then _res := _solnproc(lhs(_xout) = ["single", 2, op(rhs(_xout))]) else _res := _solnproc(_xout) end if; if lhs(_xout) = "initial" then return _res[2] elif lhs(_xout) = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[2], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["eventdisable", 'eventdisable', "eventenable", 'eventenable', "eventfired", 'eventfired', "direction", 'direction', NULL]) then return _solnproc(convert(lhs(x), 'string') = rhs(x)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(x) else _ndsol := 1; _ndsol := `tools/gensym`("f(x)"); eval(FromInert(_Inert_FUNCTION(_Inert_NAME("assign"), _Inert_EXPSEQ(ToInert(_ndsol), _Inert_VERBATIM(pointto(_dat[2][2])))))); return FromInert(_Inert_FUNCTION(ToInert(_ndsol), _Inert_EXPSEQ(ToInert(x)))) end if end if; try _res := _solnproc(_xout); _res[2] catch: error end try end proc

 (4)
> 

y2 := eval(y2(x), sol)

proc (x) local _res, _dat, _solnproc, _xout, _ndsol, _pars, _i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; if 1 < nargs then error "invalid input: too many arguments" end if; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then _xout := evalf[_EnvDSNumericSaveDigits](x) else _xout := evalf(x) end if; _dat := Array(1..4, {(1) = proc (_xin) local _xout, _dtbl, _dat, _vmap, _x0, _y0, _val, _dig, _n, _ne, _nd, _nv, _pars, _ini, _par, _i, _j, _k, _src; option `Copyright (c) 2002 by Waterloo Maple Inc. All rights reserved.`; table( [( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 28, [( 1 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 2 ) = (datatype = float[8], order = C_order, storage = rectangular), ( 3 ) = ([0, 0, 0, Array(1..0, 1..2, {}, datatype = float[8], order = C_order)]), ( 4 ) = (Array(1..65, {(1) = 4, (2) = 4, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 0, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 37, (19) = 0, (20) = 0, (21) = 0, (22) = 2, (23) = 3, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 0, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 2, (34) = 0, (35) = 0, (36) = 0, (37) = 0, (38) = 0, (39) = 0, (40) = 0, (41) = 0, (42) = 0, (43) = 1, (44) = 0, (45) = 0, (46) = 0, (47) = 0, (48) = 0, (49) = 0, (50) = 50, (51) = 1, (52) = 0, (53) = 0, (54) = 0, (55) = 0, (56) = 0, (57) = 0, (58) = 0, (59) = 10000, (60) = 0, (61) = 1000, (62) = 0, (63) = 0, (64) = -1, (65) = 0}, datatype = integer[8])), ( 5 ) = (Array(1..28, {(1) = 1000.0, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 1000.0, (6) = 0.10e-2, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .49999999999999, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0, (21) = 1.0, (22) = 1.0, (23) = .0, (24) = .0, (25) = 0.10e-14, (26) = .0, (27) = .0, (28) = .0}, datatype = float[8], order = C_order)), ( 6 ) = (Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order)), ( 7 ) = ([Array(1..4, 1..7, {(1, 1) = .0, (1, 2) = .203125, (1, 3) = .3046875, (1, 4) = .75, (1, 5) = .8125, (1, 6) = .40625, (1, 7) = .8125, (2, 1) = 0.6378173828125e-1, (2, 2) = .0, (2, 3) = .279296875, (2, 4) = .27237892150878906, (2, 5) = -0.9686851501464844e-1, (2, 6) = 0.1956939697265625e-1, (2, 7) = .5381584167480469, (3, 1) = 0.31890869140625e-1, (3, 2) = .0, (3, 3) = -.34375, (3, 4) = -.335235595703125, (3, 5) = .2296142578125, (3, 6) = .41748046875, (3, 7) = 11.480712890625, (4, 1) = 0.9710520505905151e-1, (4, 2) = .0, (4, 3) = .40350341796875, (4, 4) = 0.20297467708587646e-1, (4, 5) = -0.6054282188415527e-2, (4, 6) = -0.4770040512084961e-1, (4, 7) = .77858567237854}, datatype = float[8], order = C_order), Array(1..6, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = 1.0, (2, 1) = .25, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = 1.0, (3, 1) = .1875, (3, 2) = .5625, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = 2.0, (4, 1) = .23583984375, (4, 2) = -.87890625, (4, 3) = .890625, (4, 4) = .0, (4, 5) = .0, (4, 6) = .2681884765625, (5, 1) = .1272735595703125, (5, 2) = -.5009765625, (5, 3) = .44921875, (5, 4) = -0.128936767578125e-1, (5, 5) = .0, (5, 6) = 0.626220703125e-1, (6, 1) = -0.927734375e-1, (6, 2) = .626220703125, (6, 3) = -.4326171875, (6, 4) = .1418304443359375, (6, 5) = -0.861053466796875e-1, (6, 6) = .3131103515625}, datatype = float[8], order = C_order), Array(1..6, {(1) = .0, (2) = .386, (3) = .21, (4) = .63, (5) = 1.0, (6) = 1.0}, datatype = float[8], order = C_order), Array(1..6, {(1) = .25, (2) = -.1043, (3) = .1035, (4) = -0.362e-1, (5) = .0, (6) = .0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 1.544, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = .9466785280815533, (3, 2) = .25570116989825814, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = 3.3148251870684886, (4, 2) = 2.896124015972123, (4, 3) = .9986419139977808, (4, 4) = .0, (4, 5) = .0, (5, 1) = 1.2212245092262748, (5, 2) = 6.019134481287752, (5, 3) = 12.537083329320874, (5, 4) = -.687886036105895, (5, 5) = .0, (6, 1) = 1.2212245092262748, (6, 2) = 6.019134481287752, (6, 3) = 12.537083329320874, (6, 4) = -.687886036105895, (6, 5) = 1.0}, datatype = float[8], order = C_order), Array(1..6, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = -5.6688, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (3, 1) = -2.4300933568337584, (3, 2) = -.20635991570891224, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (4, 1) = -.10735290581452621, (4, 2) = -9.594562251021896, (4, 3) = -20.470286148096154, (4, 4) = .0, (4, 5) = .0, (5, 1) = 7.496443313968615, (5, 2) = -10.246804314641219, (5, 3) = -33.99990352819906, (5, 4) = 11.708908932061595, (5, 5) = .0, (6, 1) = 8.083246795922411, (6, 2) = -7.981132988062785, (6, 3) = -31.52159432874373, (6, 4) = 16.319305431231363, (6, 5) = -6.0588182388340535}, datatype = float[8], order = C_order), Array(1..3, 1..5, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (2, 1) = 10.126235083446911, (2, 2) = -7.487995877607633, (2, 3) = -34.800918615557414, (2, 4) = -7.9927717075687275, (2, 5) = 1.0251377232956207, (3, 1) = -.6762803392806898, (3, 2) = 6.087714651678606, (3, 3) = 16.43084320892463, (3, 4) = 24.767225114183653, (3, 5) = -6.5943891257167815}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..4, {(1) = 1.0, (2) = 1.0, (3) = 1.0, (4) = 1.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.49226990714460894e-7, (2) = 0.178537560858319e-7, (3) = 0.4029586553756948e-5, (4) = -0.23927004927454816e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = -0.18357229760682366e-2, (1, 2) = -0.17501463887214658e-2, (1, 3) = -0.7164959560218224e-6, (1, 4) = -0.4205459947957446e-10, (2, 1) = -0.10047974614114951e-4, (2, 2) = 0.3018120081790368e-3, (2, 3) = 0.16179996203159695e-6, (2, 4) = 0.56891129092515695e-11, (3, 1) = -.2754182957400952, (3, 2) = .6220071419708226, (3, 3) = 0.9964521295710663e-4, (3, 4) = 0.5318788432319277e-8, (4, 1) = -2.1232505740214265, (4, 2) = 42.11602079706063, (4, 3) = 0.39181824003885705e-2, (4, 4) = 0.17557456518577073e-1}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0}, datatype = float[8], order = C_order), Array(1..4, 1..6, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (1, 5) = .0, (1, 6) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (2, 5) = .0, (2, 6) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (3, 5) = .0, (3, 6) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (4, 5) = .0, (4, 6) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8]), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..8, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0, (2) = 0, (3) = 0, (4) = 0}, datatype = integer[8])]), ( 8 ) = ([Array(1..4, {(1) = 0.4118564743e-1, (2) = 0.3205e-1, (3) = 5.9459, (4) = 1400.0}, datatype = float[8], order = C_order), Array(1..4, {(1) = .0, (2) = .0, (3) = .0, (4) = .0}, datatype = float[8], order = C_order), Array(1..4, {(1) = 0.193749384647247e-6, (2) = 0.17116786119646165e-7, (3) = 0.5244123565596995e-5, (4) = .4079623005603603}, datatype = float[8], order = C_order), 0, 0]), ( 11 ) = (Array(1..6, 0..4, {(1, 1) = .0, (1, 2) = .0, (1, 3) = .0, (1, 4) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (2, 3) = .0, (2, 4) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (3, 3) = .0, (3, 4) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (4, 3) = .0, (4, 4) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (5, 3) = .0, (5, 4) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0, (6, 3) = .0, (6, 4) = .0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 13 ) = (), ( 12 ) = (), ( 15 ) = ("rosenbrock"), ( 14 ) = ([0, 0]), ( 18 ) = ([]), ( 19 ) = (0), ( 16 ) = ([0, 0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = f(x), Y[2] = y2(x), Y[3] = y3(x), Y[4] = y4(x)]`; if Y[4] < -1 then YP[1] := undefined; return 0 end if; if Y[4] < 0 then YP[1] := undefined; return 0 end if; if X < 0 then YP[1] := undefined; return 0 end if; YP[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]; YP[2] := .50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; YP[3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; YP[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, proc (X, Y, FX, FY) FX[1 .. 4] := 0; FY[1 .. 4, 1 .. 4] := 0; if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; if X < 0 then FX[1] := undefined; return 0 end if; FY[1, 1] := -.50000000000000000000*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]-.50000000000000000000*Y[1]*(-3.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[2]; FY[2, 1] := .50000000000000000000*(-6.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X)+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]-.50000000000000000000*(-3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[3, 1] := 0.10000000000000000000e-13*(-1428579000000.*X*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+2000001000000.00*Y[1]^2*Y[2]+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2-0.200000000000000e-13*(-714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*X*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]+571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^3; FY[4, 1] := .50000000000000000000*(-18.*Y[1]*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-18.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+9.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+3.00000000000000*Y[2]*(5*X-3)/(X*(X-1))-12.*Y[2]/((1+Y[4])*X)+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]^2*Y[2]*(X-1))+0.284444400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*Y[2]/X-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]^2*Y[2])-1.99987809530000*(5*X-3)*Y[2]^3/(X*(X-1))-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1]^2)-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.49963428500000*Y[2]+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]^2*Y[2]))-0.42666600000e-1*Y[3]*Y[1]*Y[2]^2/X^2+6.66618238000000*Y[2]^3/(X*(1+Y[4]))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(-7.0*Y[1]*Y[2]^2+0.213333300000e-3*Y[1]*Y[2]^2*(.714286-.571429/Y[1]^2)+0.812698895238000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[1]^3)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]^2*Y[2]); FY[1, 2] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2+1.0000000000000000000*(5*X-3)/(X*(X-1))-4./((1+Y[4])*X))/Y[2]+.50000000000000000000*Y[1]*(-3.*Y[1]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]+1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1))-4.*Y[2]/((1+Y[4])*X))/Y[2]^2; FY[2, 2] := .50000000000000000000*(-3.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+2.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]; FY[3, 2] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+714289500000.*X*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-1142860000000.*X*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+666667000000.00000000*Y[1]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/Y[2]-666667000000.00000000*Y[1]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/Y[2]^2+571431047619.*X*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-571431047619.*X*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/Y[1]^2; FY[4, 2] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-9.*Y[1]^2*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2-2.*Y[1]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))-6.*Y[1]*(1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]^2-(1/2)*(5*X-3)/(X*(X-1))+2/((1+Y[4])*X))+8.*Y[4]*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2+8.*(-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]^2*(X-1))+0.9481480000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*Y[2])-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2]^2)+0.4063490000e-4*(5*X-3)*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])+0.4063490000e-4*(5*X-3)*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]-0.1219050000e-3*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(Y[1]*Y[2])+0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]^2))-6*Y[1]*Y[2]^2*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/X^2-0.1625400000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))-0.1625400000e-3*Y[2]*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])/(X*Y[1]*(1+Y[4]))+20.00001*Y[1]*Y[2]^2/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))*(8*Y[2]-7.0*Y[1]^2*Y[2]+0.7111110000e-4*(1.714286*Y[2]+3.0*Y[1]^2*Y[2])*(.714286-.571429/Y[1]^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))^2)/(Y[1]*Y[2])-.50000000000000000000*(-9.*Y[1]^2*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-(1+Y[4])/(X-1)-(39/2)*(1+Y[4])/X)-6.*Y[1]*Y[4]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+8.*Y[4]*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]^2); FY[1, 3] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[3]/(Y[2]*X^3))/Y[2]; FY[2, 3] := .50000000000000000000*(-3.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+6.0*Y[1]*Y[3]/(Y[2]*X^3)+2.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 3] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3428580000000.0*Y[1]*Y[3]/(X^2*Y[2])+571431047619.*X*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 3] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+18.0*Y[1]*Y[4]*Y[3]/(Y[2]*X^3)+18.0*Y[1]*Y[3]/(Y[2]*X^3)+8.*Y[4]*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-2*Y[3]*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))/X^3-0.1422220000e-1*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2)/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if Y[4] < -1 then FX[1] := undefined; return 0 end if; if Y[4] < 0 then FX[1] := undefined; return 0 end if; FY[1, 4] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[2]/((1+Y[4])^2*X))/Y[2]; FY[2, 4] := .50000000000000000000*(-3.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+4.*Y[1]*Y[2]/((1+Y[4])^2*X)+2.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FY[3, 4] := 0.10000000000000000000e-13*(-714289500000.*X*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+2285720000000.*Y[1]*Y[2]/(1+Y[4])^2+571431047619.*X*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FY[4, 4] := .50000000000000000000*(-9.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*(-1/(X-1)-(39/2)/X)-6.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))+12.*Y[1]*Y[4]*Y[2]/((1+Y[4])^2*X)+12.*Y[1]*Y[2]/((1+Y[4])^2*X)+8.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*Y[4]*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(0.279534500000000e-6*evalf(1/Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.279534500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(3/2))/(Y[1]*Y[2]*(X-1))+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4])^2)-6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])^2))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); if X < 0 then FX[1] := undefined; return 0 end if; FX[1] := -.50000000000000000000*Y[1]*(-3.*Y[1]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+3.0*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]+5.00000000000000*Y[2]/(X*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X^2*(X-1))-1.0000000000000000000*Y[2]*(5*X-3)/(X*(X-1)^2)+4.*Y[2]/((1+Y[4])*X^2))/Y[2]; FX[2] := .50000000000000000000*(-3.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+2.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]; FX[3] := 0.10000000000000000000e-13*(-714289500000.*Y[1]^2*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-714289500000.*X*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-1142860000000.*Y[1]*(-1.5*(Y[3]^2/X^3-(1/2)/(X-1)^2)/Y[2]-(1/2)*Y[2]*(5*X-3)/(X*(X-1))+2*Y[2]/((1+Y[4])*X))-1142860000000.*X*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+571431047619.*(0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))+0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X*Y[1]*Y[2])+0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-(Y[3]^2/X^3-(1/2)/(X-1)^2)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1))-0.1422220000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^2-0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*Y[1]*(1+Y[4]))+6.66667*Y[1]*Y[2]^3/(X*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+571431047619.*X*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/Y[1]^2; FX[4] := .50000000000000000000*(-9.*Y[1]^2*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-9.*Y[1]^2*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))-2.*Y[1]*Y[2]*((1+Y[4])/(X-1)^2+(39/2)*(1+Y[4])/X^2)-6.*Y[1]*Y[4]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))-6.*Y[1]*(-1.5*(-3*Y[3]^2/X^4+1/(X-1)^3)/Y[2]-(5/2)*Y[2]/(X*(X-1))+(1/2)*Y[2]*(5*X-3)/(X^2*(X-1))+(1/2)*Y[2]*(5*X-3)/(X*(X-1)^2)-2*Y[2]/((1+Y[4])*X^2))+8.*Y[4]*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2))+8.*(-0.838603500000000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(5/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1))-0.5590690000e-6*evalf(Y[4]^(1/2))*evalf(1/X^(3/2))*evalf(1/(1+Y[4])^(1/2))/(Y[1]*Y[2]*(X-1)^2)-0.4740740000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)^2/(X^2*Y[1]*Y[2])+0.20317450000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*(X-1)*Y[1])-0.4063490000e-4*(5*X-3)*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X*(X-1)^2*Y[1])-(-3*Y[3]^2/X^4+1/(X-1)^3)*(3.5*Y[1]*Y[2]-0.1219050000e-3*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(Y[1]*Y[2]))-10*Y[1]*Y[2]^3/(X*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X^2*(X-1))+2*Y[1]*Y[2]^3*(5*X-3)/(X*(X-1)^2)+0.2844440000e-1*Y[3]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/X^3+0.1625400000e-3*Y[2]*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)/(X^2*Y[1]*(1+Y[4]))-6.66667*Y[1]*Y[2]^3/(X^2*(1+Y[4])))/(4*Y[2]^2-3.5*Y[1]^2*Y[2]^2+0.7111110000e-4*(.857143*Y[2]^2+1.5*Y[1]^2*Y[2]^2)*(.714286-.571429/Y[1]^2)))/(Y[1]*Y[2]); 0 end proc, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]), ( 22 ) = (0), ( 23 ) = (0), ( 20 ) = ([]), ( 21 ) = (0), ( 27 ) = (""), ( 26 ) = (Array(1..0, {})), ( 25 ) = (Array(1..0, {})), ( 24 ) = (0), ( 28 ) = (0) ] )) ] ); _y0 := Array(0..4, {(1) = 1000., (2) = 0.4118564743e-1, (3) = 0.3205e-1, (4) = 5.9459}); _vmap := array( 1 .. 4, [( 1 ) = (1), ( 2 ) = (2), ( 3 ) = (3), ( 4 ) = (4) ] ); _x0 := _dtbl[1][5][5]; _n := _dtbl[1][4][1]; _ne := _dtbl[1][4][3]; _nd := _dtbl[1][4][4]; _nv := _dtbl[1][4][16]; if not type(_xout, 'numeric') then if member(_xout, ["start", "left", "right"]) then if _Env_smart_dsolve_numeric = true or _dtbl[1][4][10] = 1 then if _xout = "left" then if type(_dtbl[2], 'table') then return _dtbl[2][5][1] end if elif _xout = "right" then if type(_dtbl[3], 'table') then return _dtbl[3][5][1] end if end if end if; return _dtbl[1][5][5] elif _xout = "method" then return _dtbl[1][15] elif _xout = "storage" then return evalb(_dtbl[1][4][10] = 1) elif _xout = "leftdata" then if not type(_dtbl[2], 'array') then return NULL else return eval(_dtbl[2]) end if elif _xout = "rightdata" then if not type(_dtbl[3], 'array') then return NULL else return eval(_dtbl[3]) end if elif _xout = "enginedata" then return eval(_dtbl[1]) elif _xout = "enginereset" then _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); return NULL elif _xout = "initial" then return procname(_y0[0]) elif _xout = "laxtol" then return _dtbl[`if`(member(_dtbl[4], {2, 3}), _dtbl[4], 1)][5][18] elif _xout = "numfun" then return `if`(member(_dtbl[4], {2, 3}), _dtbl[_dtbl[4]][4][18], 0) elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "initial_and_parameters" then return procname(_y0[0]), [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] elif _xout = "last" then if _dtbl[4] <> 2 and _dtbl[4] <> 3 or _x0-_dtbl[_dtbl[4]][5][1] = 0. then error "no information is available on last computed point" else _xout := _dtbl[_dtbl[4]][5][1] end if elif _xout = "function" then if _dtbl[1][4][33]-2. = 0 then return eval(_dtbl[1][10], 1) else return eval(_dtbl[1][10][1], 1) end if elif _xout = "map" then return copy(_vmap) elif type(_xin, `=`) and type(rhs(_xin), 'list') and member(lhs(_xin), {"initial", "parameters", "initial_and_parameters"}) then _ini, _par := [], []; if lhs(_xin) = "initial" then _ini := rhs(_xin) elif lhs(_xin) = "parameters" then _par := rhs(_xin) elif select(type, rhs(_xin), `=`) <> [] then _par, _ini := selectremove(type, rhs(_xin), `=`) elif nops(rhs(_xin)) < nops(_pars)+1 then error "insufficient data for specification of initial and parameters" else _par := rhs(_xin)[-nops(_pars) .. -1]; _ini := rhs(_xin)[1 .. -nops(_pars)-1] end if; _xout := lhs(_xout); _i := false; if _par <> [] then _i := `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then _i := `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) or _i end if; if _i then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars); if _Env_smart_dsolve_numeric = true and type(_y0[0], 'numeric') and _dtbl[1][4][10] <> 1 then procname("right") := _y0[0]; procname("left") := _y0[0] end if end if; if _xout = "initial" then return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)] elif _xout = "parameters" then return [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] else return [_y0[0], seq(_y0[_vmap[_i]], _i = 1 .. _n-_ne)], [seq(_y0[_n+_i], _i = 1 .. nops(_pars))] end if elif _xin = "eventstop" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then return 0 end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 <= _dtbl[5-_i][4][9] then _i := 5-_i; _dtbl[4] := _i; _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) elif 100 <= _dtbl[_i][4][9] then _j := round(_dtbl[_i][4][17]); return round(_dtbl[_i][3][1][_j, 1]) else return 0 end if elif _xin = "eventstatus" then if _nv = 0 then error "this solution has no events" end if; _i := [selectremove(proc (a) options operator, arrow; _dtbl[1][3][1][a, 7] = 1 end proc, {seq(_j, _j = 1 .. round(_dtbl[1][3][1][_nv+1, 1]))})]; return ':-enabled' = _i[1], ':-disabled' = _i[2] elif _xin = "eventclear" then if _nv = 0 then error "this solution has no events" end if; _i := _dtbl[4]; if _i <> 2 and _i <> 3 then error "no events to clear" end if; if _dtbl[_i][4][10] = 1 and assigned(_dtbl[5-_i]) and _dtbl[_i][4][9] < 100 and 100 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 100 then error "no events to clear" elif _nv < _dtbl[_i][4][9]-100 then error "event error condition cannot be cleared" else _j := _dtbl[_i][4][9]-100; if irem(round(_dtbl[_i][3][1][_j, 4]), 2) = 1 then error "retriggerable events cannot be cleared" end if; _j := round(_dtbl[_i][3][1][_j, 1]); for _k to _nv do if _dtbl[_i][3][1][_k, 1] = _j then if _dtbl[_i][3][1][_k, 2] = 3 then error "range events cannot be cleared" end if; _dtbl[_i][3][1][_k, 8] := _dtbl[_i][3][1][_nv+1, 8] end if end do; _dtbl[_i][4][17] := 0; _dtbl[_i][4][9] := 0; if _dtbl[1][4][10] = 1 then if _i = 2 then try procname(procname("left")) catch: end try else try procname(procname("right")) catch: end try end if end if end if; return elif type(_xin, `=`) and member(lhs(_xin), {"eventdisable", "eventenable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('list')('posint'), ('set')('posint')}) then _i := {op(rhs(_xin))} elif type(rhs(_xin), 'posint') then _i := {rhs(_xin)} else error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; if select(proc (a) options operator, arrow; _nv < a end proc, _i) <> {} then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _k := {}; for _j to _nv do if member(round(_dtbl[1][3][1][_j, 1]), _i) then _k := `union`(_k, {_j}) end if end do; _i := _k; if lhs(_xin) = "eventdisable" then _dtbl[4] := 0; _j := [evalb(assigned(_dtbl[2]) and member(_dtbl[2][4][17], _i)), evalb(assigned(_dtbl[3]) and member(_dtbl[3][4][17], _i))]; for _k in _i do _dtbl[1][3][1][_k, 7] := 0; if assigned(_dtbl[2]) then _dtbl[2][3][1][_k, 7] := 0 end if; if assigned(_dtbl[3]) then _dtbl[3][3][1][_k, 7] := 0 end if end do; if _j[1] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[2][3][4][_k, 1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to defined init `, _dtbl[2][3][4][_k, 1]); _dtbl[2][3][1][_k, 8] := _dtbl[2][3][4][_k, 1] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to rate hysteresis init `, _dtbl[2][5][24]); _dtbl[2][3][1][_k, 8] := _dtbl[2][5][24] elif _dtbl[2][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[2][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to initial init `, _x0); _dtbl[2][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #2, event code `, _k, ` to fireinitial init `, _x0-1); _dtbl[2][3][1][_k, 8] := _x0-1 end if end do; _dtbl[2][4][17] := 0; _dtbl[2][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("left")) end if end if; if _j[2] then for _k to _nv+1 do if _k <= _nv and not type(_dtbl[3][3][4][_k, 2], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to defined init `, _dtbl[3][3][4][_k, 2]); _dtbl[3][3][1][_k, 8] := _dtbl[3][3][4][_k, 2] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to rate hysteresis init `, _dtbl[3][5][24]); _dtbl[3][3][1][_k, 8] := _dtbl[3][5][24] elif _dtbl[3][3][1][_k, 2] = 0 and irem(iquo(round(_dtbl[3][3][1][_k, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to initial init `, _x0); _dtbl[3][3][1][_k, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #3, event code `, _k, ` to fireinitial init `, _x0+1); _dtbl[3][3][1][_k, 8] := _x0+1 end if end do; _dtbl[3][4][17] := 0; _dtbl[3][4][9] := 0; if _dtbl[1][4][10] = 1 then procname(procname("right")) end if end if else for _k in _i do _dtbl[1][3][1][_k, 7] := 1 end do; _dtbl[2] := evaln(_dtbl[2]); _dtbl[3] := evaln(_dtbl[3]); _dtbl[4] := 0; if _dtbl[1][4][10] = 1 then if _x0 <= procname("right") then try procname(procname("right")) catch: end try end if; if procname("left") <= _x0 then try procname(procname("left")) catch: end try end if end if end if; return elif type(_xin, `=`) and lhs(_xin) = "eventfired" then if not type(rhs(_xin), 'list') then error "'eventfired' must be specified as a list" end if; if _nv = 0 then error "this solution has no events" end if; if _dtbl[4] <> 2 and _dtbl[4] <> 3 then error "'direction' must be set prior to calling/setting 'eventfired'" end if; _i := _dtbl[4]; _val := NULL; if not assigned(_EnvEventRetriggerWarned) then _EnvEventRetriggerWarned := false end if; for _k in rhs(_xin) do if type(_k, 'integer') then _src := _k elif type(_k, 'integer' = 'anything') and type(evalf(rhs(_k)), 'numeric') then _k := lhs(_k) = evalf[max(Digits, 18)](rhs(_k)); _src := lhs(_k) else error "'eventfired' entry is not valid: %1", _k end if; if _src < 1 or round(_dtbl[1][3][1][_nv+1, 1]) < _src then error "event identifiers must be integers in the range 1..%1", round(_dtbl[1][3][1][_nv+1, 1]) end if; _src := {seq(`if`(_dtbl[1][3][1][_j, 1]-_src = 0., _j, NULL), _j = 1 .. _nv)}; if nops(_src) <> 1 then error "'eventfired' can only be set/queried for root-finding events and time/interval events" end if; _src := _src[1]; if _dtbl[1][3][1][_src, 2] <> 0. and _dtbl[1][3][1][_src, 2]-2. <> 0. then error "'eventfired' can only be set/queried for root-finding events and time/interval events" elif irem(round(_dtbl[1][3][1][_src, 4]), 2) = 1 then if _EnvEventRetriggerWarned = false then WARNING(`'eventfired' has no effect on events that retrigger`) end if; _EnvEventRetriggerWarned := true end if; if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then _val := _val, undefined elif type(_dtbl[_i][3][4][_src, _i-1], 'undefined') or _i = 2 and _dtbl[2][3][1][_src, 8] < _dtbl[2][3][4][_src, 1] or _i = 3 and _dtbl[3][3][4][_src, 2] < _dtbl[3][3][1][_src, 8] then _val := _val, _dtbl[_i][3][1][_src, 8] else _val := _val, _dtbl[_i][3][4][_src, _i-1] end if; if type(_k, `=`) then if _dtbl[_i][3][1][_src, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_src, 4]), 32), 2) = 1 then error "cannot set event code for a rate hysteresis event" end if; userinfo(3, {'events', 'eventreset'}, `manual set event code `, _src, ` to value `, rhs(_k)); _dtbl[_i][3][1][_src, 8] := rhs(_k); _dtbl[_i][3][4][_src, _i-1] := rhs(_k) end if end do; return [_val] elif type(_xin, `=`) and lhs(_xin) = "direction" then if not member(rhs(_xin), {-1, 1, ':-left', ':-right'}) then error "'direction' must be specified as either '1' or 'right' (positive) or '-1' or 'left' (negative)" end if; _src := `if`(_dtbl[4] = 2, -1, `if`(_dtbl[4] = 3, 1, undefined)); _i := `if`(member(rhs(_xin), {1, ':-right'}), 3, 2); _dtbl[4] := _i; _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #4, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if; return _src elif _xin = "eventcount" then if _dtbl[1][3][1] = 0 or _dtbl[4] <> 2 and _dtbl[4] <> 3 then return 0 else return round(_dtbl[_dtbl[4]][3][1][_nv+1, 12]) end if elif type(_xin, `=`) and lhs(_xin) = "setdatacallback" then if not type(rhs(_xin), 'nonegint') then error "data callback must be a nonnegative integer (address)" end if; _dtbl[1][28] := rhs(_xin) else return "procname" end if end if; if _xout = _x0 then return [_x0, seq(evalf(_dtbl[1][6][_vmap[_i]]), _i = 1 .. _n-_ne)] end if; _i := `if`(_x0 <= _xout, 3, 2); if _xin = "last" and 0 < _dtbl[_i][4][9] and _dtbl[_i][4][9] < 100 then _dat := eval(_dtbl[_i], 2); _j := _dat[4][20]; return [_dat[11][_j, 0], seq(_dat[11][_j, _vmap[_i]], _i = 1 .. _n-_ne-_nd), seq(_dat[8][1][_vmap[_i]], _i = _n-_ne-_nd+1 .. _n-_ne)] end if; if not type(_dtbl[_i], 'array') then _dtbl[_i] := `dsolve/numeric/SC/IVPdcopy`(_dtbl[1], `if`(assigned(_dtbl[_i]), _dtbl[_i], NULL)); if 0 < _nv then for _j to _nv+1 do if _j <= _nv and not type(_dtbl[_i][3][4][_j, _i-1], 'undefined') then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to defined init `, _dtbl[_i][3][4][_j, _i-1]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][3][4][_j, _i-1] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 32), 2) = 1 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to rate hysteresis init `, _dtbl[_i][5][24]); _dtbl[_i][3][1][_j, 8] := _dtbl[_i][5][24] elif _dtbl[_i][3][1][_j, 2] = 0 and irem(iquo(round(_dtbl[_i][3][1][_j, 4]), 2), 2) = 0 then userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to initial init `, _x0); _dtbl[_i][3][1][_j, 8] := _x0 else userinfo(3, {'events', 'eventreset'}, `reinit #5, event code `, _j, ` to fireinitial init `, _x0-2*_i+5.0); _dtbl[_i][3][1][_j, 8] := _x0-2*_i+5.0 end if end do end if end if; if _xin <> "last" then if 0 < 0 then if `dsolve/numeric/checkglobals`(op(_dtbl[1][14]), _pars, _n, _y0) then `dsolve/numeric/SC/reinitialize`(_dtbl, _y0, _n, procname, _pars, _i) end if end if; if _dtbl[1][4][7] = 0 then error "parameters must be initialized before solution can be computed" end if end if; _dat := eval(_dtbl[_i], 2); _dtbl[4] := _i; try _src := `dsolve/numeric/SC/IVPrun`(_dat, _xout) catch: userinfo(2, `dsolve/debug`, print(`Exception in solnproc:`, [lastexception][2 .. -1])); error end try; if _dat[17] <> _dtbl[1][17] then _dtbl[1][17] := _dat[17]; _dtbl[1][10] := _dat[10] end if; if _src = 0 and 100 < _dat[4][9] then _val := _dat[3][1][_nv+1, 8] else _val := _dat[11][_dat[4][20], 0] end if; if _src <> 0 or _dat[4][9] <= 0 then _dtbl[1][5][1] := _xout else _dtbl[1][5][1] := _val end if; if _i = 3 and _val < _xout then Rounding := -infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further right of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further right of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further right of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further right of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further right of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further right of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further right of %1", evalf[8](_val) end if elif _i = 2 and _xout < _val then Rounding := infinity; if _dat[4][9] = 1 then error "cannot evaluate the solution further left of %1, probably a singularity", evalf[8](_val) elif _dat[4][9] = 2 then error "cannot evaluate the solution further left of %1, maxfun limit exceeded (see ?dsolve,maxfun for details)", evalf[8](_val) elif _dat[4][9] = 3 then if _dat[4][25] = 3 then error "cannot evaluate the solution past the initial point, problem may be initially singular or improperly set up" else error "cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up" end if elif _dat[4][9] = 4 then error "cannot evaluate the solution further left of %1, accuracy goal cannot be achieved with specified 'minstep'", evalf[8](_val) elif _dat[4][9] = 5 then error "cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem", evalf[8](_val) elif _dat[4][9] = 6 then error "cannot evaluate the solution further left of %1, cannot downgrade delay storage for problems with delay derivative order > 1, try increasing delaypts", evalf[8](_val) elif _dat[4][9] = 10 then error "cannot evaluate the solution further right of %1, interrupt requested", evalf[8](_val) elif 100 < _dat[4][9] then if _dat[4][9]-100 = _nv+1 then error "constraint projection failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+2 then error "index-1 and derivative evaluation failure on event at t=%1", evalf[8](_val) elif _dat[4][9]-100 = _nv+3 then error "maximum number of event iterations reached (%1) at t=%2", round(_dat[3][1][_nv+1, 3]), evalf[8](_val) else if _Env_dsolve_nowarnstop <> true then `dsolve/numeric/warning`(StringTools:-FormatMessage("cannot evaluate the solution further left of %1, event #%2 triggered a halt", evalf[8](_val), round(_dat[3][1][_dat[4][9]-100, 1]))) end if; Rounding := 'nearest'; _xout := _val end if else error "cannot evaluate the solution further left of %1", evalf[8](_val) end if end if; if _EnvInFsolve = true then _dig := _dat[4][26]; if type(_EnvDSNumericSaveDigits, 'posint') then _dat[4][26] := _EnvDSNumericSaveDigits else _dat[4][26] := Digits end if; _Env_dsolve_SC_native := true; if _dat[4][25] = 1 then _i := 1; _dat[4][25] := 2 else _i := _dat[4][25] end if; _val := `dsolve/numeric/SC/IVPval`(_dat, _xout, _src); _dat[4][25] := _i; _dat[4][26] := _dig; [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] else Digits := _dat[4][26]; _val := `dsolve/numeric/SC/IVPval`(eval(_dat, 2), _xout, _src); [_xout, seq(_val[_vmap[_i]], _i = 1 .. _n-_ne)] end if end proc, (2) = Array(1..5, {(1) = 36893488148680590364, (2) = 36893488148680590540, (3) = 36893488148680590716, (4) = 36893488148680590892, (5) = 36893488148680591068}), (3) = [x, f(x), y2(x), y3(x), y4(x)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(x, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "eventcount", 'eventcount', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(x, 'string')); if 1 < nops([_res]) then return _res elif type(_res, 'array') then return eval(_res, 1) elif _res <> "procname" then return _res end if elif member(x, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(x, 'string')); if type(_res, 'list') then return _res[3] else return NULL end if elif member(x, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(x, 'string'); _res := _solnproc(_xout); if _xout = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[3], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["initial", 'initial', "parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(lhs(x), 'string') = rhs(x); if lhs(_xout) = "initial" then if type(rhs(_xout), 'list') then _res := _solnproc(_xout) else _res := _solnproc("initial" = ["single", 3, rhs(_xout)]) end if elif not type(rhs(_xout), 'list') then error "initial and/or parameter values must be specified in a list" elif lhs(_xout) = "initial_and_parameters" and nops(rhs(_xout)) = nops(_pars)+1 then _res := _solnproc(lhs(_xout) = ["single", 3, op(rhs(_xout))]) else _res := _solnproc(_xout) end if; if lhs(_xout) = "initial" then return _res[3] elif lhs(_xout) = "parameters" then return [seq(_pars[_i] = _res[_i], _i = 1 .. nops(_pars))] else return [_res[3], seq(_pars[_i] = [_res][2][_i], _i = 1 .. nops(_pars))] end if elif type(_xout, `=`) and member(lhs(_xout), ["eventdisable", 'eventdisable', "eventenable", 'eventenable', "eventfired", 'eventfired', "direction", 'direction', NULL]) then return _solnproc(convert(lhs(x), 'string') = rhs(x)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(x) else _ndsol := 1; _ndsol := `tools/gensym`("y2(x)"); eval(FromInert(_Inert_FUNCTION(_Inert_NAME("assign"), _Inert_EXPSEQ(ToInert(_ndsol), _Inert_VERBATIM(pointto(_dat[2][3])))))); return FromInert(_Inert_FUNCTION(ToInert(_ndsol), _Inert_EXPSEQ(ToInert(x)))) end if end if; try _res := _solnproc(_xout); _res[3] catch: error end try end proc

 (5)
> 

fx := proc (i) options operator, arrow; f(i) end proc

proc (i) options operator, arrow; f(i) end proc

 (6)
> 

y[22] := proc (i) options operator, arrow; y[2](i) end proc

proc (i) options operator, arrow; y[2](i) end proc

 (7)
> 

plot(f(10^x), x = log[10](600) .. log[10](2690))

 
> 

y2(0)

Error, (in y2) cannot evaluate the solution further left of 662.41583, probably a singularity

  
> 

f(1)

Error, (in f) cannot evaluate the solution further left of 662.41583, probably a singularity

  
> 

y2(3000)

Error, (in y2) cannot evaluate the solution further right of 2690.6004, probably a singularity

  
> 

f(5000)

Error, (in f) cannot evaluate the solution further right of 2690.6004, probably a singularity

  
> 

f(8000)

Error, (in f) cannot evaluate the solution further right of 2690.6004, probably a singularity

  
> 

f(10)

Error, (in f) cannot evaluate the solution further left of 662.41583, probably a singularity

  
> 

f(3.8766)

Error, (in f) cannot evaluate the solution further left of 662.41583, probably a singularity

  
> 

NULL


 

Download DEs._sys.m

 
Please Wait...