bernie

20 Reputation

4 Badges

13 years, 160 days

MaplePrimes Activity


These are replies submitted by bernie

@Markiyan Hirnyk Well, this was the old code, where I just needed to solve for one value for the parameters. What I'm trying to find out is an easy way to solve for several values of theta0, beta0 and thetaR without having to run dsolve every time. Then, somehow, I could call these solutions and extract stuff from then. 

I mean like a for loop

for beta from 1 to 100 do

 for theta0 from 1 to 100 do

    for thetaR from 1 to 100 do

       dsolve(system with initial conditions)

       plot(whatever)

       calculate all values I want 

    end do etc. etc.

then I'd have a file or a worksheet with the plots, and the calculations I want. But I'm not able to do that. The best thing I found is using the parameters option on dsolve and then using each value for the parameters I want, but this takes a lot of time since I have to calculate everything every time.

Hope this made things clearer

Here is an example for some specific values of the parameters, theta0, beta0 and thetaR. I removed some unecessary parts. I need to be able to calculate values for all functions in specific points for a family of parameters, and solve the equations I left on the worksheet. Don't know if this is possible though, any help is appreciated.


restart

``

eq1 := diff(W(r), r) = -(1-beta*(W(r)-W0))*(M(r)+4*Pi*r^3*p(r))/(beta*r*(r-2*M(r)));

diff(W(r), r) = -(1-beta*(W(r)-W0))*(M(r)+4*Pi*r^3*p(r))/(beta*r*(r-2*M(r)))

(4)

eq2 := diff(M(r), r) = 4*Pi*r^2*rho(r);

diff(M(r), r) = 4*Pi*r^2*rho(r)

(5)

``

theta0 := 30;

30

(6)

thetaR := -20;

-20

(7)

W0 := solve(thetaR = theta0-W0, W0);

50

(8)

beta0 := evalf(10^(-7));

0.1000000000e-6

(9)

beta := beta0/(1+beta0*W0);

0.9999950000e-7

(10)

r0 := 10^(-5);

1/100000

(11)

rf := 4*10^20;

400000000000000000000

(12)

ini := evalf({M(r0) = 0, W(r0) = W0});

{M(1/100000) = 0., W(1/100000) = 50.}

(13)

with(Student[Calculus1]):

``

thetadef := theta(r) = W(r)+thetaR;

theta(r) = W(r)-20

(14)

pdef := p(r) = subs(thetadef, value((8*sqrt(2)*Pi*(1/3))*(beta/(1-beta*(W(r)-W0)))^(5/2)*ApproximateInt((1+(1/2)*beta*x/(1-beta*(W(r)-W0)))^(3/2)*x^(3/2)*(1-exp(x-W(r)))/(exp(x-theta(r))+1), x = 0 .. W(r), output = sum, partition = 50))):

``````````

rhodef := rho(r) = subs(thetadef, value(4*sqrt(2)*Pi*(beta/(1-beta*(W(r)-W0)))^(3/2)*ApproximateInt((1+(1/2)*beta*x/(1-beta*(W(r)-W0)))^(1/2)*(1+beta*x/(1-beta*(W(r)-W0)))^2*x^(1/2)*(1-exp(x-W(r)))/(exp(x-theta(r))+1), x = 0 .. W(r), output = sum, partition = 50))):

``

dsys := evalf(subs(pdef, rhodef, {eq1, eq2, op(ini)})):

````

dsol := dsolve(dsys, numeric, output = listprocedure, range = r0 .. rf);

[r = proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[1] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("r"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[1] catch: error  end try end proc, M(r) = proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[2] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("M(r)"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[2] catch: error  end try end proc, W(r) = proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[3] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("W(r)"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[3] catch: error  end try end proc]

(15)

 


Wsol := eval(W(r), dsol):

Msol := eval(M(r), dsol):

with(plots)

semilogplot(Wsol(r), r = r0 .. rlim, axes = boxed, numpoints = 1000, color = black)

 

 


 


psol := subs(W(r) = Wsol(r), rhs(pdef)):

````

rhosol := subs(W(r) = Wsol(r), rhs(rhodef)):

``

p0 := evalf(eval(subs(r = r0, psol)));

HFloat(7.438084552334859e-14)

(18)

rho0 := evalf(eval(subs(r = r0, rhosol)));

HFloat(6.168086871338082e-8)

(19)

``

rhosol1 := proc (r) rhosol end proc:

psol1 := proc (r) psol end proc:

``

loglogplot(rhosol1(r)/rho0, r = r0 .. rlim, axes = boxed, color = black, numpoints = 700)

 

evalf(eval(subs(r = 10^2, rhosol1(r))))

HFloat(2.0234668150209058e-13)

(20)

vc := eval(sqrt(M(r)/r), dsol);

(proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[2] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("M(r)"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[2] catch: error  end try end proc/proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[1] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("r"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[1] catch: error  end try end proc)^(1/2)

(24)

loglogplot(vc(r), r = 10^(-4) .. rlim, axes = boxed, color = black, numpoints = 1000)

 

``


fsolve(diff(vc(r), r), r, 0.1e-1 .. 100);

5.414711783

(27)

 

evalf(Msol(5.414711783));

HFloat(1.4114658691596798e-5)

(28)

``

``

 

 

 


Download fermions-cutoff.mw

Here is an example for some specific values of the parameters, theta0, beta0 and thetaR. I removed some unecessary parts. I need to be able to calculate values for all functions in specific points for a family of parameters, and solve the equations I left on the worksheet. Don't know if this is possible though, any help is appreciated.


restart

``

eq1 := diff(W(r), r) = -(1-beta*(W(r)-W0))*(M(r)+4*Pi*r^3*p(r))/(beta*r*(r-2*M(r)));

diff(W(r), r) = -(1-beta*(W(r)-W0))*(M(r)+4*Pi*r^3*p(r))/(beta*r*(r-2*M(r)))

(4)

eq2 := diff(M(r), r) = 4*Pi*r^2*rho(r);

diff(M(r), r) = 4*Pi*r^2*rho(r)

(5)

``

theta0 := 30;

30

(6)

thetaR := -20;

-20

(7)

W0 := solve(thetaR = theta0-W0, W0);

50

(8)

beta0 := evalf(10^(-7));

0.1000000000e-6

(9)

beta := beta0/(1+beta0*W0);

0.9999950000e-7

(10)

r0 := 10^(-5);

1/100000

(11)

rf := 4*10^20;

400000000000000000000

(12)

ini := evalf({M(r0) = 0, W(r0) = W0});

{M(1/100000) = 0., W(1/100000) = 50.}

(13)

with(Student[Calculus1]):

``

thetadef := theta(r) = W(r)+thetaR;

theta(r) = W(r)-20

(14)

pdef := p(r) = subs(thetadef, value((8*sqrt(2)*Pi*(1/3))*(beta/(1-beta*(W(r)-W0)))^(5/2)*ApproximateInt((1+(1/2)*beta*x/(1-beta*(W(r)-W0)))^(3/2)*x^(3/2)*(1-exp(x-W(r)))/(exp(x-theta(r))+1), x = 0 .. W(r), output = sum, partition = 50))):

``````````

rhodef := rho(r) = subs(thetadef, value(4*sqrt(2)*Pi*(beta/(1-beta*(W(r)-W0)))^(3/2)*ApproximateInt((1+(1/2)*beta*x/(1-beta*(W(r)-W0)))^(1/2)*(1+beta*x/(1-beta*(W(r)-W0)))^2*x^(1/2)*(1-exp(x-W(r)))/(exp(x-theta(r))+1), x = 0 .. W(r), output = sum, partition = 50))):

``

dsys := evalf(subs(pdef, rhodef, {eq1, eq2, op(ini)})):

````

dsol := dsolve(dsys, numeric, output = listprocedure, range = r0 .. rf);

[r = proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[1] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("r"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[1] catch: error  end try end proc, M(r) = proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[2] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("M(r)"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[2] catch: error  end try end proc, W(r) = proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[3] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("W(r)"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[3] catch: error  end try end proc]

(15)

 


Wsol := eval(W(r), dsol):

Msol := eval(M(r), dsol):

with(plots)

semilogplot(Wsol(r), r = r0 .. rlim, axes = boxed, numpoints = 1000, color = black)

 

 


 


psol := subs(W(r) = Wsol(r), rhs(pdef)):

````

rhosol := subs(W(r) = Wsol(r), rhs(rhodef)):

``

p0 := evalf(eval(subs(r = r0, psol)));

HFloat(7.438084552334859e-14)

(18)

rho0 := evalf(eval(subs(r = r0, rhosol)));

HFloat(6.168086871338082e-8)

(19)

``

rhosol1 := proc (r) rhosol end proc:

psol1 := proc (r) psol end proc:

``

loglogplot(rhosol1(r)/rho0, r = r0 .. rlim, axes = boxed, color = black, numpoints = 700)

 

evalf(eval(subs(r = 10^2, rhosol1(r))))

HFloat(2.0234668150209058e-13)

(20)

vc := eval(sqrt(M(r)/r), dsol);

(proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[2] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("M(r)"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[2] catch: error  end try end proc/proc (r) 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](r) else _xout := evalf(r) 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( [( "left" ) = 0.100000000000000e-4, ( "complex" ) = false ] ) _xout := _xin; _pars := []; _dtbl := array( 1 .. 4, [( 1 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = .0, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 0, (10) = 1, (11) = 0, (12) = 0, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 39, (19) = 30000, (20) = 0, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = .0, (1, 2) = .0, (2, 0) = .0, (2, 1) = .0, (2, 2) = .0, (3, 0) = .0, (3, 1) = .0, (3, 2) = .0, (4, 0) = .0, (4, 1) = .0, (4, 2) = .0, (5, 0) = .0, (5, 1) = .0, (5, 2) = .0, (6, 0) = .0, (6, 1) = .0, (6, 2) = .0}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.7751046565967885e-16, (2) = -0.9347019450615003e-10}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 18 ) = ([])  ] )), ( 3 ) = (array( 1 .. 18, [( 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)]), ( 5 ) = (Array(1..20, {(1) = 56.139376103128996, (2) = 0.10e-5, (3) = 0.2872013737942325e-10, (4) = 0.500001e-14, (5) = 0.10e-4, (6) = 0.10e-9, (7) = .0, (8) = 0.10e-5, (9) = .0, (10) = .0, (11) = .0, (12) = .0, (13) = 1.0, (14) = .0, (15) = .5, (16) = .0, (17) = 1.0, (18) = 1.0, (19) = .0, (20) = .0}, datatype = float[8], order = C_order)), ( 4 ) = (Array(1..34, {(1) = 2, (2) = 2, (3) = 0, (4) = 0, (5) = 0, (6) = 0, (7) = 1, (8) = 0, (9) = 1, (10) = 1, (11) = 301, (12) = 301, (13) = 0, (14) = 0, (15) = 0, (16) = 0, (17) = 0, (18) = 625, (19) = 30000, (20) = 1, (21) = 0, (22) = 1, (23) = 4, (24) = 0, (25) = 1, (26) = 15, (27) = 1, (28) = 1, (29) = 1, (30) = 3, (31) = 3, (32) = 0, (33) = 1, (34) = 0}, datatype = integer[4])), ( 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)]), ( 6 ) = (Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order)), ( 10 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0]), ( 11 ) = (Array(1..6, 0..2, {(1, 1) = 56.139376103128996, (1, 2) = 0.16419747722028743e-4, (2, 0) = 0.16419747722028743e-4, (2, 1) = 0.6915881572114499e-12, (2, 2) = 56.13937610313617, (3, 0) = 56.13937610313617, (3, 1) = undefined, (3, 2) = 0.2899711146987311e-12, (4, 0) = 0.2899711146987311e-12, (4, 1) = 56.139376103143356, (4, 2) = undefined, (5, 0) = undefined, (5, 1) = -0.7994819314030244e-13, (5, 2) = 56.13937610315054, (6, 0) = 56.13937610315054, (6, 1) = undefined, (6, 2) = -0.37905341287877025e-12}, datatype = float[8], order = C_order)), ( 8 ) = ([Array(1..2, {(1) = .0, (2) = 50.0}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.48692747708231975e-44, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order)]), ( 9 ) = ([Array(1..2, {(1) = .1, (2) = .1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.20619959592507015e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = undefined, (2) = -0.5209978288498068e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0}, datatype = float[8], order = C_order), Array(1..2, 1..6, {(1, 1) = 0.48692747708231975e-44, (1, 2) = 0.6954349887040077e-45, (1, 3) = 0.7526098127908322e-46, (1, 4) = 0.7155148312182928e-44, (1, 5) = 0.4869274770823219e-44, (1, 6) = 0.30448180235337836e-43, (2, 1) = -0.5209978288498068e-1, (2, 2) = -0.52099782884967354e-1, (2, 3) = -0.52099782884960685e-1, (2, 4) = -0.5209978288498478e-1, (2, 5) = -0.5209978288498068e-1, (2, 6) = -0.52099782885007336e-1}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0, (2) = 0}, datatype = integer[4]), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = 0.6915881572114499e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.16419747722028743e-4, (2) = -0.6896237706907618e-12}, datatype = float[8], order = C_order), Array(1..2, {(1) = .0, (2) = .0}, datatype = float[8], order = C_order), Array(1..2, {(1) = 0.21502352449688797e-43, (2) = -0.5209978288500068e-1}, datatype = float[8], order = C_order)]), ( 15 ) = ("rkf45"), ( 14 ) = ([0, 0]), ( 13 ) = (), ( 12 ) = (Array(1..301, 0..2, {(1, 1) = 0.10e-4, (1, 2) = .0, (2, 0) = .0, (2, 1) = 50.0, (2, 2) = 0.10000025000000001e-4, (3, 0) = 0.10000025000000001e-4, (3, 1) = 0.19377664859001116e-26, (3, 2) = 50.0, (4, 0) = 50.0, (4, 1) = 0.10000050000000001e-4, (4, 2) = 0.3875542660632654e-26, (5, 0) = 0.3875542660632654e-26, (5, 1) = 50.0, (5, 2) = 0.10000075000000001e-4, (6, 0) = 0.10000075000000001e-4, (6, 1) = 0.5813328524221846e-26, (6, 2) = 50.0, (7, 0) = 50.0, (7, 1) = 0.10000100000000001e-4, (7, 2) = 0.7751124076691912e-26, (8, 0) = 0.7751124076691912e-26, (8, 1) = 50.0, (8, 2) = 0.10001700000000001e-4, (9, 0) = 0.10001700000000001e-4, (9, 1) = 0.13179019341540207e-24, (9, 2) = 50.0, (10, 0) = 50.0, (10, 1) = 0.10003300000000001e-4, (10, 2) = 0.2558689548590409e-24, (11, 0) = 0.2558689548590409e-24, (11, 1) = 50.0, (11, 2) = 0.10004900000000001e-4, (12, 0) = 0.10004900000000001e-4, (12, 1) = 0.3799874147572658e-24, (12, 2) = 50.0, (13, 0) = 50.0, (13, 1) = 0.10006500000000002e-4, (13, 2) = 0.5041455794597341e-24, (14, 0) = 0.5041455794597341e-24, (14, 1) = 50.0, (14, 2) = 0.10012900000000002e-4, (15, 0) = 0.10012900000000002e-4, (15, 1) = 0.10011754133051881e-23, (15, 2) = 50.0, (16, 0) = 50.0, (16, 1) = 0.10019300000000002e-4, (16, 2) = 0.1498841031991124e-23, (17, 0) = 0.1498841031991124e-23, (17, 1) = 50.0, (17, 2) = 0.10025700000000003e-4, (18, 0) = 0.10025700000000003e-4, (18, 1) = 0.19971428418956122e-23, (18, 2) = 50.0, (19, 0) = 50.0, (19, 1) = 0.10032100000000003e-4, (19, 2) = 0.24960812493967224e-23, (20, 0) = 0.24960812493967224e-23, (20, 1) = 49.99999999999999, (20, 2) = 0.10057700000000005e-4, (21, 0) = 0.10057700000000005e-4, (21, 1) = 0.4498208982928789e-23, (21, 2) = 49.999999999999986, (22, 0) = 49.999999999999986, (22, 1) = 0.10083300000000007e-4, (22, 2) = 0.6510554788252429e-23, (23, 0) = 0.6510554788252429e-23, (23, 1) = 49.99999999999997, (23, 2) = 0.1010890000000001e-4, (24, 0) = 0.1010890000000001e-4, (24, 1) = 0.8533144673564132e-23, (24, 2) = 49.99999999999996, (25, 0) = 49.99999999999996, (25, 1) = 0.10134500000000011e-4, (25, 2) = 0.10566004647060388e-22, (26, 0) = 0.10566004647060388e-22, (26, 1) = 49.99999999999993, (26, 2) = 0.10236900000000019e-4, (27, 0) = 0.10236900000000019e-4, (27, 1) = 0.18800665586820826e-22, (27, 2) = 49.99999999999979, (28, 0) = 49.99999999999979, (28, 1) = 0.10339300000000027e-4, (28, 2) = 0.2720172859325354e-22, (29, 0) = 0.2720172859325354e-22, (29, 1) = 49.99999999999957, (29, 2) = 0.10441700000000034e-4, (30, 0) = 0.10441700000000034e-4, (30, 1) = 0.3577085819093401e-22, (30, 2) = 49.99999999999927, (31, 0) = 49.99999999999927, (31, 1) = 0.10544100000000042e-4, (31, 2) = 0.44509718904437745e-22, (32, 0) = 0.44509718904437745e-22, (32, 1) = 49.99999999999889, (32, 2) = 0.10953700000000073e-4, (33, 0) = 0.10953700000000073e-4, (33, 1) = 0.8119576340819502e-22, (33, 2) = 49.999999999996675, (34, 0) = 49.999999999996675, (34, 1) = 0.11363300000000103e-4, (34, 2) = 0.12073066773116354e-21, (35, 0) = 0.12073066773116354e-21, (35, 1) = 49.99999999999337, (35, 2) = 0.11772900000000134e-4, (36, 0) = 0.11772900000000134e-4, (36, 1) = 0.16322096144617415e-21, (36, 2) = 49.999999999989036, (37, 0) = 49.999999999989036, (37, 1) = 0.12182500000000165e-4, (37, 2) = 0.20877317412605737e-21, (38, 0) = 0.20877317412605737e-21, (38, 1) = 49.99999999998374, (38, 2) = 0.13820900000000288e-4, (39, 0) = 0.13820900000000288e-4, (39, 1) = 0.4237318059509045e-21, (39, 2) = 49.99999999995389, (40, 0) = 49.99999999995389, (40, 1) = 0.1545930000000041e-4, (40, 2) = 0.6962035070400493e-21, (41, 0) = 0.6962035070400493e-21, (41, 1) = 49.999999999911736, (41, 2) = 0.17097700000000533e-4, (42, 0) = 0.17097700000000533e-4, (42, 1) = 0.10330061700544368e-20, (42, 2) = 49.999999999858815, (43, 0) = 49.999999999858815, (43, 1) = 0.18736100000000656e-4, (43, 2) = 0.1440957687654859e-20, (44, 0) = 0.1440957687654859e-20, (44, 1) = 49.999999999796174, (44, 2) = 0.25289700000001148e-4, (45, 0) = 0.25289700000001148e-4, (45, 1) = 0.3920610157116188e-20, (45, 2) = 49.999999999460144, (46, 0) = 49.999999999460144, (46, 1) = 0.31843300000001634e-4, (46, 2) = 0.8084075712781405e-20, (47, 0) = 0.8084075712781405e-20, (47, 1) = 49.99999999899746, (47, 2) = 0.38396900000002126e-4, (48, 0) = 0.38396900000002126e-4, (48, 1) = 0.14367699484859084e-19, (48, 2) = 49.999999998416186, (49, 0) = 49.999999998416186, (49, 1) = 0.4495050000000262e-4, (49, 2) = 0.23207826603454825e-19, (50, 0) = 0.23207826603454825e-19, (50, 1) = 49.99999999772035, (50, 2) = 0.7116490000000459e-4, (51, 0) = 0.7116490000000459e-4, (51, 1) = 0.9286027112924954e-19, (51, 2) = 49.99999999381104, (52, 0) = 49.99999999381104, (52, 1) = 0.9737930000000654e-4, (52, 2) = 0.23832437958999783e-18, (53, 0) = 0.23832437958999783e-18, (53, 1) = 49.99999998811305, (53, 2) = 0.1235937000000085e-3, (54, 0) = 0.1235937000000085e-3, (54, 1) = 0.4875262402626307e-18, (54, 2) = 49.99999998063474, (55, 0) = 49.99999998063474, (55, 1) = 0.14980810000001047e-3, (55, 2) = 0.8683919413300991e-18, (56, 0) = 0.8683919413300991e-18, (56, 1) = 49.99999997137963, (56, 2) = 0.2546657000000183e-3, (57, 0) = 0.2546657000000183e-3, (57, 1) = 0.42670148973372136e-17, (57, 2) = 49.99999991659736, (58, 0) = 49.99999991659736, (58, 1) = 0.35952330000002617e-3, (58, 2) = 0.12006346341155044e-16, (59, 0) = 0.12006346341155044e-16, (59, 1) = 49.999999833401965, (59, 2) = 0.464380900000034e-3, (60, 0) = 0.464380900000034e-3, (60, 1) = 0.2587365587423248e-16, (60, 2) = 49.999999721796804, (61, 0) = 49.999999721796804, (61, 1) = 0.5692385000000419e-3, (61, 2) = 0.4765621300485266e-16, (62, 0) = 0.4765621300485266e-16, (62, 1) = 49.99999958178321, (62, 2) = 0.9886689000000734e-3, (63, 0) = 0.9886689000000734e-3, (63, 1) = 0.24968429152744836e-15, (63, 2) = 49.99999873764572, (64, 0) = 49.99999873764572, (64, 1) = 0.14080993000001047e-2, (64, 2) = 0.7213378801130235e-15, (65, 0) = 0.7213378801130235e-15, (65, 1) = 49.999997438976756, (65, 2) = 0.1827529700000136e-2, (66, 0) = 0.1827529700000136e-2, (66, 1) = 0.15770021862477188e-14, (66, 2) = 49.99999568577717, (67, 0) = 49.99999568577717, (67, 1) = 0.22469601000001675e-2, (67, 2) = 0.29310623228218453e-14, (68, 0) = 0.29310623228218453e-14, (68, 1) = 49.99999347804755, (68, 2) = 0.3924681700000293e-2, (69, 0) = 0.3924681700000293e-2, (69, 1) = 0.15618946931649927e-13, (69, 2) = 49.9999801018632, (70, 0) = 49.9999801018632, (70, 1) = 0.5602403300000419e-2, (70, 2) = 0.45431961738069095e-13, (71, 0) = 0.45431961738069095e-13, (71, 1) = 49.99995945320155, (71, 2) = 0.72801249000005435e-2, (72, 0) = 0.72801249000005435e-2, (72, 1) = 0.996907125078121e-13, (72, 2) = 49.999931532033976, (73, 0) = 49.999931532033976, (73, 1) = 0.895784650000067e-2, (73, 2) = 0.18571570834865275e-12, (74, 0) = 0.18571570834865275e-12, (74, 1) = 49.99989633842239, (74, 2) = 0.15668732900001172e-1, (75, 0) = 0.15668732900001172e-1, (75, 1) = 0.9938714399520425e-12, (75, 2) = 49.99968284827878, (76, 0) = 49.99968284827878, (76, 1) = 0.22379619300001673e-1, (76, 2) = 0.28959154900120008e-11, (77, 0) = 0.28959154900120008e-11, (77, 1) = 49.99935299958142, (77, 2) = 0.29090505700002177e-1, (78, 0) = 0.29090505700002177e-1, (78, 1) = 0.6360318130273437e-11, (78, 2) = 49.99890678490456, (79, 0) = 49.99890678490456, (79, 1) = 0.3580139210000268e-1, (79, 2) = 0.1185545072834305e-10, (80, 0) = 0.1185545072834305e-10, (80, 1) = 49.998344220099675, (80, 2) = 0.61097990506291486e-1, (81, 0) = 0.61097990506291486e-1, (81, 1) = 0.5890821498470329e-10, (81, 2) = 49.99517943549088, (82, 0) = 49.99517943549088, (82, 1) = 0.863945889125803e-1, (82, 2) = 0.16654645604320246e-9, (83, 0) = 0.16654645604320246e-9, (83, 1) = 49.99036159534256, (83, 2) = .1116911873188691, (84, 0) = .1116911873188691, (84, 1) = 0.3598222137870595e-9, (84, 2) = 49.98388933424339, (85, 0) = 49.98388933424339, (85, 1) = .1369877857251579, (85, 2) = 0.6637117564190663e-9, (86, 0) = 0.6637117564190663e-9, (86, 1) = 49.97576575469429, (86, 2) = .17027097224954954, (87, 0) = .17027097224954954, (87, 1) = 0.1273990806660981e-8, (87, 2) = 49.96256775350814, (88, 0) = 49.96256775350814, (88, 1) = .20355415877394117, (88, 2) = 0.2175582124094778e-8, (89, 0) = 0.2175582124094778e-8, (89, 1) = 49.94651697747804, (89, 2) = .23683734529833284, (90, 0) = .23683734529833284, (90, 1) = 0.3424905082093276e-8, (90, 2) = 49.92761586035045, (91, 0) = 49.92761586035045, (91, 1) = .27012053182272444, (91, 2) = 0.5077975945030296e-8, (92, 0) = 0.5077975945030296e-8, (92, 1) = 49.90587099805313, (92, 2) = .3133886600140988, (93, 0) = .3133886600140988, (93, 1) = 0.7922004570737218e-8, (93, 2) = 49.87336437252686, (94, 0) = 49.87336437252686, (94, 1) = .3566567882054732, (94, 2) = 0.1166404587907261e-7, (95, 0) = 0.1166404587907261e-7, (95, 1) = 49.836075289730246, (95, 2) = .3999249163968476, (96, 0) = .3999249163968476, (96, 1) = 0.16424378577626336e-7, (96, 2) = 49.79401754851107, (97, 0) = 49.79401754851107, (97, 1) = .44319304458822195, (97, 2) = 0.22321461482638258e-7, (98, 0) = 0.22321461482638258e-7, (98, 1) = 49.74721189644499, (98, 2) = .4934042833130471, (99, 0) = .4934042833130471, (99, 1) = 0.307439081281801e-7, (99, 2) = 49.68697460750126, (100, 0) = 49.68697460750126, (100, 1) = .5436155220378722, (100, 2) = 0.41034709129296615e-7, (101, 0) = 0.41034709129296615e-7, (101, 1) = 49.620405527132945, (101, 2) = .5938267607626974, (102, 0) = .5938267607626974, (102, 1) = 0.5337032623753819e-7, (102, 2) = 49.54754112853729, (103, 0) = 49.54754112853729, (103, 1) = .6440379994875225, (103, 2) = 0.6792259834892264e-7, (104, 0) = 0.6792259834892264e-7, (104, 1) = 49.4684260402073, (104, 2) = .7002868075477308, (105, 0) = .7002868075477308, (105, 1) = 0.8706379509971993e-7, (105, 2) = 49.37243485640984, (106, 0) = 49.37243485640984, (106, 1) = .756535615607939, (106, 2) = 0.10942685711177422e-6, (107, 0) = 0.10942685711177422e-6, (107, 1) = 49.26872598908344, (107, 2) = .8127844236681473, (108, 0) = .8127844236681473, (108, 1) = 0.13523363041582085e-6, (108, 2) = 49.15737241685634, (109, 0) = 49.15737241685634, (109, 1) = .8690332317283556, (109, 2) = 0.16469658992002146e-6, (110, 0) = 0.16469658992002146e-6, (110, 1) = 49.03845646469297, (110, 2) = .9305185328327211, (111, 0) = .9305185328327211, (111, 1) = 0.2013247247345561e-6, (111, 2) = 48.89992261454748, (112, 0) = 48.89992261454748, (112, 1) = .9920038339370867, (112, 2) = 0.2428197370651597e-6, (113, 0) = 0.2428197370651597e-6, (113, 1) = 48.7525727325703, (113, 2) = 1.0534891350414521, (114, 0) = 1.0534891350414521, (114, 1) = 0.28942236208334126e-6, (114, 2) = 48.596530677897285, (115, 0) = 48.596530677897285, (115, 1) = 1.1149744361458178, (115, 2) = 0.3413572738015005e-6, (116, 0) = 0.3413572738015005e-6, (116, 1) = 48.431930536277974, (116, 2) = 1.181286574305946, (117, 0) = 1.181286574305946, (117, 1) = 0.4035861550342956e-6, (117, 2) = 48.244978677455585, (118, 0) = 48.244978677455585, (118, 1) = 1.247598712466074, (118, 2) = 0.47250526551298503e-6, (119, 0) = 0.47250526551298503e-6, (119, 1) = 48.04841604176917, (119, 2) = 1.3139108506262018, (120, 0) = 1.3139108506262018, (120, 1) = 0.5483365911050584e-6, (120, 2) = 47.84243238121495, (121, 0) = 47.84243238121495, (121, 1) = 1.38022298878633, (121, 2) = 0.6312775975518965e-6, (122, 0) = 0.6312775975518965e-6, (122, 1) = 47.62722817481755, (122, 2) = 1.4512131787291271, (123, 0) = 1.4512131787291271, (123, 1) = 0.7281461802814407e-6, (123, 2) = 47.38685937049345, (124, 0) = 47.38685937049345, (124, 1) = 1.522203368671924, (124, 2) = 0.8335483844923317e-6, (125, 0) = 0.8335483844923317e-6, (125, 1) = 47.13642247304707, (125, 2) = 1.593193558614721, (126, 0) = 1.593193558614721, (126, 1) = 0.9476382627051243e-6, (126, 2) = 46.87618846702409, (127, 0) = 46.87618846702409, (127, 1) = 1.6641837485575182, (127, 2) = 0.10705356381163142e-5, (128, 0) = 0.10705356381163142e-5, (128, 1) = 46.60643896127687, (128, 2) = 1.7399499326527799, (129, 0) = 1.7399499326527799, (129, 1) = 0.12115148068065167e-5, (129, 2) = 46.30837107560949, (130, 0) = 46.30837107560949, (130, 1) = 1.8157161167480416, (130, 2) = 0.13626934269204736e-5, (131, 0) = 0.13626934269204736e-5, (131, 1) = 46.00015246329254, (131, 2) = 1.8914823008433035, (132, 0) = 1.8914823008433035, (132, 1) = 0.15240970365489887e-5, (132, 2) = 45.68215126736869, (133, 0) = 45.68215126736869, (133, 1) = 1.9672484849385652, (133, 2) = 0.1695706861249828e-5, (134, 0) = 0.1695706861249828e-5, (134, 1) = 45.35474524248428, (134, 2) = 2.0481543585199353, (135, 0) = 2.0481543585199353, (135, 1) = 0.18901564086949e-5, (135, 2) = 44.99518056538168, (136, 0) = 44.99518056538168, (136, 1) = 2.1290602321013057, (136, 2) = 0.20960508172325914e-5, (137, 0) = 0.20960508172325914e-5, (137, 1) = 44.625805390975046, (137, 2) = 2.209966105682676, (138, 0) = 2.209966105682676, (138, 1) = 0.23132145362124396e-5, (138, 2) = 44.24710228516047, (139, 0) = 44.24710228516047, (139, 1) = 2.2908719792640464, (139, 2) = 0.25414186050313923e-5, (140, 0) = 0.25414186050313923e-5, (140, 1) = 43.859561063696106, (140, 2) = 2.377626546130103, (141, 0) = 2.377626546130103, (141, 1) = 0.279806675447569e-5, (141, 2) = 43.43474795931668, (142, 0) = 43.43474795931668, (142, 1) = 2.46438111299616, (142, 2) = 0.30666838106361697e-5, (143, 0) = 0.30666838106361697e-5, (143, 1) = 43.0009550536487, (143, 2) = 2.5511356798622167, (144, 0) = 2.5511356798622167, (144, 1) = 0.33468062397758925e-5, (144, 2) = 42.55879977487453, (145, 0) = 42.55879977487453, (145, 1) = 2.637890246728274, (145, 2) = 0.3637911102006709e-5, (146, 0) = 0.3637911102006709e-5, (146, 1) = 42.108902400820945, (146, 2) = 2.7317430595697245, (147, 0) = 2.7317430595697245, (147, 1) = 0.3964530795409923e-5, (147, 2) = 41.6141944865819, (148, 0) = 41.6141944865819, (148, 1) = 2.825595872411175, (148, 2) = 0.43025280946992015e-5, (149, 0) = 0.43025280946992015e-5, (149, 1) = 41.11193590505964, (149, 2) = 2.9194486852526254, (150, 0) = 2.9194486852526254, (150, 1) = 0.4651042947978212e-5, (150, 2) = 40.60290703927145, (151, 0) = 40.60290703927145, (151, 1) = 3.013301498094076, (151, 2) = 0.5009156592131462e-5, (152, 0) = 0.5009156592131462e-5, (152, 1) = 40.087883422993336, (152, 2) = 3.116540375988987, (153, 0) = 3.116540375988987, (153, 1) = 0.5413009872947822e-5, (153, 2) = 39.51534581314848, (154, 0) = 39.51534581314848, (154, 1) = 3.2197792538838987, (154, 2) = 0.58259427830070755e-5, (155, 0) = 0.58259427830070755e-5, (155, 1) = 38.937492224689734, (155, 2) = 3.32301813177881, (156, 0) = 3.32301813177881, (156, 1) = 0.6246544987179697e-5, (156, 2) = 38.355314338713775, (157, 0) = 38.355314338713775, (157, 1) = 3.426257009673721, (157, 2) = 0.6673362183560042e-5, (158, 0) = 0.6673362183560042e-5, (158, 1) = 37.76978513843381, (158, 2) = 3.5438195924496885, (159, 0) = 3.5438195924496885, (159, 1) = 0.7165066025540004e-5, (159, 2) = 37.10014792646771, (160, 0) = 37.10014792646771, (160, 1) = 3.6613821752256563, (160, 2) = 0.7660652348475488e-5, (161, 0) = 0.7660652348475488e-5, (161, 1) = 36.428762950726956, (161, 2) = 3.778944758001624, (162, 0) = 3.778944758001624, (162, 1) = 0.815786608915676e-5, (162, 2) = 35.756949588234185, (163, 0) = 35.756949588234185, (163, 1) = 3.8965073407775916, (163, 2) = 0.8654458518263766e-5, (164, 0) = 0.8654458518263766e-5, (164, 1) = 35.08597949320882, (164, 2) = 4.045789206534787, (165, 0) = 4.045789206534787, (165, 1) = 0.9280644514116553e-5, (165, 2) = 34.23710335806291, (166, 0) = 34.23710335806291, (166, 1) = 4.195071072291983, (166, 2) = 0.9897744654462777e-5, (167, 0) = 0.9897744654462777e-5, (167, 1) = 33.393915440952995, (167, 2) = 4.3443529380491785, (168, 0) = 4.3443529380491785, (168, 1) = 0.10501446987101526e-4, (168, 2) = 32.55862742291293, (169, 0) = 32.55862742291293, (169, 1) = 4.493634803806374, (169, 2) = 0.1108767566448077e-4, (170, 0) = 0.1108767566448077e-4, (170, 1) = 31.733296742694925, (170, 2) = 4.651842010264815, (171, 0) = 4.651842010264815, (171, 1) = 0.11685638397134939e-4, (171, 2) = 30.871599285246493, (172, 0) = 30.871599285246493, (172, 1) = 4.810049216723256, (172, 2) = 0.12255504932222018e-4, (173, 0) = 0.12255504932222018e-4, (173, 1) = 30.025257802917437, (173, 2) = 4.968256423181696, (174, 0) = 4.968256423181696, (174, 1) = 0.12793554886752263e-4, (174, 2) = 29.196102209147764, (175, 0) = 29.196102209147764, (175, 1) = 5.126463629640138, (175, 2) = 0.13296582939949463e-4, (176, 0) = 0.13296582939949463e-4, (176, 1) = 28.38575527077769, (176, 2) = 5.26131194364034, (177, 0) = 5.26131194364034, (177, 1) = 0.13695667918264737e-4, (177, 2) = 27.71096851041415, (178, 0) = 27.71096851041415, (178, 1) = 5.396160257640544, (178, 2) = 0.14066017500972965e-4, (179, 0) = 0.14066017500972965e-4, (179, 1) = 27.051621349694, (179, 2) = 5.531008571640746, (180, 0) = 5.531008571640746, (180, 1) = 0.14406619986386697e-4, (180, 2) = 26.408350170083914, (181, 0) = 26.408350170083914, (181, 1) = 5.665856885640949, (181, 2) = 0.14716802239295642e-4, (182, 0) = 0.14716802239295642e-4, (182, 1) = 25.781687825857432, (182, 2) = 5.795159575420772, (183, 0) = 5.795159575420772, (183, 1) = 0.1498535372995285e-4, (183, 2) = 25.196792971808627, (184, 0) = 25.196792971808627, (184, 1) = 5.924462265200597, (184, 2) = 0.15225660040864157e-4, (185, 0) = 0.15225660040864157e-4, (185, 1) = 24.627842415835396, (185, 2) = 6.053764954980421, (186, 0) = 6.053764954980421, (186, 1) = 0.15438076813050736e-4, (186, 2) = 24.07502958445387, (187, 0) = 24.07502958445387, (187, 1) = 6.183067644760245, (187, 2) = 0.15623300416965104e-4, (188, 0) = 0.15623300416965104e-4, (188, 1) = 23.538467869287484, (188, 2) = 6.313625498594405, (189, 0) = 6.313625498594405, (189, 1) = 0.15783791269410235e-4, (189, 2) = 23.01321834732419, (190, 0) = 23.01321834732419, (190, 1) = 6.444183352428565, (190, 2) = 0.1591909797886918e-4, (191, 0) = 0.1591909797886918e-4, (191, 1) = 22.504506497998513, (191, 2) = 6.574741206262726, (192, 0) = 6.574741206262726, (192, 1) = 0.16031064488872924e-4, (192, 2) = 22.012187382468007, (193, 0) = 22.012187382468007, (193, 1) = 6.705299060096887, (193, 2) = 0.1612187135181023e-4, (194, 0) = 0.1612187135181023e-4, (194, 1) = 21.53604065311835, (194, 2) = 6.842070489376657, (195, 0) = 6.842070489376657, (195, 1) = 0.16196997285258314e-4, (195, 2) = 21.054253386668606, (196, 0) = 21.054253386668606, (196, 1) = 6.978841918656427, (196, 2) = 0.16254772314850392e-4, (197, 0) = 0.16254772314850392e-4, (197, 1) = 20.589450259175557, (197, 2) = 7.115613347936197, (198, 0) = 7.115613347936197, (198, 1) = 0.16298324000720346e-4, (198, 2) = 20.14112495765906, (199, 0) = 20.14112495765906, (199, 1) = 7.252384777215967, (199, 2) = 0.16330576140937287e-4, (200, 0) = 0.16330576140937287e-4, (200, 1) = 19.70871235907401, (200, 2) = 7.41368690249835, (201, 0) = 7.41368690249835, (201, 1) = 0.1635770762126489e-4, (201, 2) = 19.21835532799782, (202, 0) = 19.21835532799782, (202, 1) = 7.574989027780733, (202, 2) = 0.16376305812169564e-4, (203, 0) = 0.16376305812169564e-4, (203, 1) = 18.748227864350845, (203, 2) = 7.736291153063116, (204, 0) = 7.736291153063116, (204, 1) = 0.16389021011390214e-4, (204, 2) = 18.29728134165145, (205, 0) = 18.29728134165145, (205, 1) = 7.897593278345499, (205, 2) = 0.1639777787515367e-4, (206, 0) = 0.1639777787515367e-4, (206, 1) = 17.86447879303208, (206, 2) = 8.121189886768324, (207, 0) = 8.121189886768324, (207, 1) = 0.16405714200641085e-4, (207, 2) = 17.29266180193132, (208, 0) = 17.29266180193132, (208, 1) = 8.344786495191148, (208, 2) = 0.16410544728699265e-4, (209, 0) = 0.16410544728699265e-4, (209, 1) = 16.75128278052961, (209, 2) = 8.568383103613971, (210, 0) = 8.568383103613971, (210, 1) = 0.16413537814650918e-4, (210, 2) = 16.23804422112098, (211, 0) = 16.23804422112098, (211, 1) = 8.791979712036795, (211, 2) = 0.16415477559769573e-4, (212, 0) = 0.16415477559769573e-4, (212, 1) = 15.75083883345525, (212, 2) = 9.024304136733257, (213, 0) = 9.024304136733257, (213, 1) = 0.1641679461177754e-4, (213, 2) = 15.270138153740497, (214, 0) = 15.270138153740497, (214, 1) = 9.256628561429716, (214, 2) = 0.16417658698750945e-4, (215, 0) = 0.16417658698750945e-4, (215, 1) = 14.813540020351228, (215, 2) = 9.488952986126177, (216, 0) = 9.488952986126177, (216, 1) = 0.16418236821049605e-4, (216, 2) = 14.37928423771016, (217, 0) = 14.37928423771016, (217, 1) = 9.721277410822637, (217, 2) = 0.16418636734378728e-4, (218, 0) = 0.16418636734378728e-4, (218, 1) = 13.965770317282242, (218, 2) = 9.961940546179076, (219, 0) = 9.961940546179076, (219, 1) = 0.16418925910941222e-4, (219, 2) = 13.557741355259003, (220, 0) = 13.557741355259003, (220, 1) = 10.202603681535514, (220, 2) = 0.16419128977925294e-4, (221, 0) = 0.16419128977925294e-4, (221, 1) = 13.168958380868386, (221, 2) = 10.443266816891951, (222, 0) = 10.443266816891951, (222, 1) = 0.16419273982529047e-4, (222, 2) = 12.798092149893373, (223, 0) = 12.798092149893373, (223, 1) = 10.68392995224839, (223, 2) = 0.16419379975373546e-4, (224, 0) = 0.16419379975373546e-4, (224, 1) = 12.443929648241337, (224, 2) = 10.945846616757292, (225, 0) = 10.945846616757292, (225, 1) = 0.16419464404013275e-4, (225, 2) = 12.076183519892297, (226, 0) = 12.076183519892297, (226, 1) = 11.207763281266196, (226, 2) = 0.16419526082803094e-4, (227, 0) = 0.16419526082803094e-4, (227, 1) = 11.725625717213378, (227, 2) = 11.469679945775098, (228, 0) = 11.469679945775098, (228, 1) = 0.16419571830545365e-4, (228, 2) = 11.391078732806687, (229, 0) = 11.391078732806687, (229, 1) = 11.731596610284, (229, 2) = 0.1641960641975749e-4, (230, 0) = 0.1641960641975749e-4, (230, 1) = 11.071467534422368, (230, 2) = 12.017641612064153, (231, 0) = 12.017641612064153, (231, 1) = 0.16419635011240493e-4, (231, 2) = 10.738326235589453, (232, 0) = 10.738326235589453, (232, 1) = 12.303686613844306, (232, 2) = 0.1641965662160988e-4, (233, 0) = 0.1641965662160988e-4, (233, 1) = 10.42067645082637, (233, 2) = 12.589731615624459, (234, 0) = 12.589731615624459, (234, 1) = 0.16419673180819448e-4, (234, 2) = 10.117461996347854, (235, 0) = 10.117461996347854, (235, 1) = 12.875776617404611, (235, 2) = 0.16419686075856435e-4, (236, 0) = 0.16419686075856435e-4, (236, 1) = 9.827718250172104, (236, 2) = 13.188182069377813, (237, 0) = 13.188182069377813, (237, 1) = 0.16419697055245535e-4, (237, 2) = 9.525630936215219, (238, 0) = 9.525630936215219, (238, 1) = 13.500587521351015, (238, 2) = 0.16419705608930168e-4, (239, 0) = 0.16419705608930168e-4, (239, 1) = 9.237525719083134, (239, 2) = 13.812992973324219, (240, 0) = 13.812992973324219, (240, 1) = 0.1641971235527754e-4, (240, 2) = 8.962453607055567, (241, 0) = 8.962453607055567, (241, 1) = 14.125398425297421, (241, 2) = 0.1641971774955e-4, (242, 0) = 0.1641971774955e-4, (242, 1) = 8.699547540733814, (242, 2) = 14.466338335583426, (243, 0) = 14.466338335583426, (243, 1) = 0.16419722462112727e-4, (243, 2) = 8.425584846242717, (244, 0) = 8.425584846242717, (244, 1) = 14.80727824586943, (244, 2) = 0.16419726233868205e-4, (245, 0) = 0.16419726233868205e-4, (245, 1) = 8.164239560986477, (245, 2) = 15.148218156155433, (246, 0) = 15.148218156155433, (246, 1) = 0.16419729285840803e-4, (246, 2) = 7.91465945784616, (247, 0) = 7.91465945784616, (247, 1) = 15.489158066441439, (247, 2) = 0.1641973178440714e-4, (248, 0) = 0.1641973178440714e-4, (248, 1) = 7.676065552618036, (248, 2) = 15.860857141137988, (249, 0) = 15.860857141137988, (249, 1) = 0.16419734016859324e-4, (249, 2) = 7.427632044528399, (250, 0) = 7.427632044528399, (250, 1) = 16.23255621583454, (250, 2) = 0.1641973584663646e-4, (251, 0) = 0.1641973584663646e-4, (251, 1) = 7.19057720137846, (251, 2) = 16.60425529053109, (252, 0) = 16.60425529053109, (252, 1) = 0.16419737360878288e-4, (252, 2) = 6.964136598367203, (253, 0) = 6.964136598367203, (253, 1) = 16.975954365227636, (253, 2) = 0.1641973862653113e-4, (254, 0) = 0.1641973862653113e-4, (254, 1) = 6.747611171821796, (254, 2) = 17.380696467697536, (255, 0) = 17.380696467697536, (255, 1) = 0.164197397794706e-4, (255, 2) = 6.522368722684956, (256, 0) = 6.522368722684956, (256, 1) = 17.78543857016744, (256, 2) = 0.1641974074413071e-4, (257, 0) = 0.1641974074413071e-4, (257, 1) = 6.307379021615095, (257, 2) = 18.19018067263734, (258, 0) = 18.19018067263734, (258, 1) = 0.16419741558033803e-4, (258, 2) = 6.101957443280402, (259, 0) = 6.101957443280402, (259, 1) = 18.594922775107243, (259, 2) = 0.16419742250552396e-4, (260, 0) = 0.16419742250552396e-4, (260, 1) = 5.905477563354198, (260, 2) = 19.03502987196656, (261, 0) = 19.03502987196656, (261, 1) = 0.1641974289165534e-4, (261, 2) = 5.701311451708585, (262, 0) = 5.701311451708585, (262, 1) = 19.47513696882588, (262, 2) = 0.16419743437476904e-4, (263, 0) = 0.16419743437476904e-4, (263, 1) = 5.5063739661870175, (263, 2) = 19.9152440656852, (264, 0) = 19.9152440656852, (264, 1) = 0.164197439055077e-4, (264, 2) = 5.320053066656304, (265, 0) = 5.320053066656304, (265, 1) = 20.35535116254452, (265, 2) = 0.16419744309677446e-4, (266, 0) = 0.16419744309677446e-4, (266, 1) = 5.1417884050545775, (266, 2) = 20.833145120951652, (267, 0) = 20.833145120951652, (267, 1) = 0.16419744688663304e-4, (267, 2) = 4.956784711566154, (268, 0) = 4.956784711566154, (268, 1) = 21.31093907935879, (268, 2) = 0.16419745015915367e-4, (269, 0) = 0.16419745015915367e-4, (269, 1) = 4.780077483122147, (269, 2) = 21.788733037765923, (270, 0) = 21.788733037765923, (270, 1) = 0.16419745300188894e-4, (270, 2) = 4.6111207481067815, (271, 0) = 4.6111207481067815, (271, 1) = 22.266526996173056, (271, 2) = 0.16419745548568255e-4, (272, 0) = 0.16419745548568255e-4, (272, 1) = 4.44941430699974, (272, 2) = 22.78427414113355, (273, 0) = 22.78427414113355, (273, 1) = 0.16419745783667955e-4, (273, 2) = 4.281841653385956, (274, 0) = 4.281841653385956, (274, 1) = 23.302021286094046, (274, 2) = 0.16419745988885048e-4, (275, 0) = 0.16419745988885048e-4, (275, 1) = 4.121716333138286, (275, 2) = 23.819768431054538, (276, 0) = 23.819768431054538, (276, 1) = 0.16419746168891655e-4, (276, 2) = 3.9685525579779135, (277, 0) = 3.9685525579779135, (277, 1) = 24.337515576015033, (277, 2) = 0.16419746327524107e-4, (278, 0) = 0.16419746327524107e-4, (278, 1) = 3.8219049245161627, (278, 2) = 24.89734976934829, (279, 0) = 24.89734976934829, (279, 1) = 0.1641974647855875e-4, (279, 2) = 3.6701988085433674, (280, 0) = 3.6701988085433674, (280, 1) = 25.45718396268154, (280, 2) = 0.1641974661138726e-4, (281, 0) = 0.1641974661138726e-4, (281, 1) = 3.5251657433223578, (281, 2) = 26.017018156014796, (282, 0) = 26.017018156014796, (282, 1) = 0.1641974672865001e-4, (282, 2) = 3.3863748156858535, (283, 0) = 3.3863748156858535, (283, 1) = 26.57685234934805, (283, 2) = 0.16419746832544785e-4, (284, 0) = 0.16419746832544785e-4, (284, 1) = 3.253430591791295, (284, 2) = 27.180669526499358, (285, 0) = 27.180669526499358, (285, 1) = 0.16419746931681568e-4, (285, 2) = 3.1161798481428513, (286, 0) = 3.1161798481428513, (286, 1) = 27.784486703650664, (286, 2) = 0.1641974701922458e-4, (287, 0) = 0.1641974701922458e-4, (287, 1) = 2.9848951788039764, (287, 2) = 28.38830388080197, (288, 0) = 28.38830388080197, (288, 1) = 0.16419747096744515e-4, (288, 2) = 2.8591957678494966, (289, 0) = 2.8591957678494966, (289, 1) = 28.992121057953277, (289, 2) = 0.1641974716556549e-4, (290, 0) = 0.1641974716556549e-4, (290, 1) = 2.7387318080281737, (290, 2) = 29.64143469395647, (291, 0) = 29.64143469395647, (291, 1) = 0.16419747231121623e-4, (291, 2) = 2.6146671323749424, (292, 0) = 2.6146671323749424, (292, 1) = 30.290748329959662, (292, 2) = 0.1641974728903852e-4, (293, 0) = 0.1641974728903852e-4, (293, 1) = 2.495921848107013, (293, 2) = 30.940061965962855, (294, 0) = 30.940061965962855, (294, 1) = 0.1641974734029412e-4, (294, 2) = 2.3821609494618547, (295, 0) = 2.3821609494618547, (295, 1) = 31.589375601966047, (295, 2) = 0.1641974738572271e-4, (296, 0) = 0.1641974738572271e-4, (296, 1) = 2.273076360750807, (296, 2) = 32.28511720637779, (297, 0) = 32.28511720637779, (297, 1) = 0.16419747428730595e-4, (297, 2) = 2.1610610777816306, (298, 0) = 2.1610610777816306, (298, 1) = 32.98085881078953, (298, 2) = 0.16419747466591097e-4, (299, 0) = 0.16419747466591097e-4, (299, 1) = 2.0537721983007966, (299, 2) = 33.676600415201264, (300, 0) = 33.676600415201264, (300, 1) = 0.16419747499937836e-4, (300, 2) = 1.9509166980432262, (301, 0) = 1.9509166980432262, (301, 1) = 34.37234201961301, (301, 2) = 0.16419747529317407e-4}, datatype = float[8], order = C_order)), ( 16 ) = ([0, 0, 0, 0, []]), ( 17 ) = ([proc (N, X, Y, YP) option `[Y[1] = M(r), Y[2] = W(r)]`; if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[1] := 0.1412412214e-9*X^2*(1/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]*(0.9999999998e-1*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9999950000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.1732050808*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2999985000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+.2236067977*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4999975000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+.2645751310*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6999965000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+.3000000000*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8999955000e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.3316624790*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1099994500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+.3605551275*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1299993500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+.3872983344*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1499992500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+.4123105625*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1699991500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+.4358898943*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.1899990500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+.4582575693*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2099989500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+.4795831521*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2299988500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.4999999999*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2499987500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)+.5196152421*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2699986500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.5385164806*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.2899985500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.5567764361*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3099984500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.5744562646*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3299983500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.5916079782*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3499982500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+.6082762528*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3699981500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.6244997997*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.3899980500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.6403124236*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4099979500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.6557438523*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4299978500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.6708203930*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4499977500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.6855654598*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4699976500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.6999999998*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.4899975500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.7141428428*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5099974500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.7280109887*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5299973500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.7416198485*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5499972500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.7549834433*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5699971500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.7681145746*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.5899970500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.7810249674*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6099969500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.7937253931*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6299968500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.8062257745*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6499967500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.8185352771*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6699966500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.8306623860*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.6899965500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.8426149771*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7099964500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.8544003743*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7299963500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.8660254036*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7499962500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.8774964385*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7699961500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.8888194415*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.7899960500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.8999999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8099959500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.9110433576*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8299958500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.9219544455*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8499957500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.9327379050*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8699956500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.9433981129*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.8899955500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.9539392012*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9099954500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.9643650759*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9299953500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9746794342*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9499952500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9848857800*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9699951500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.9949874369*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(1/2)*(1.+0.9899950500e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^2*Y[2]^(1/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)); if 0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]) < -1. then YP[1] := undefined; return 0 end if; if 1/(1.000005000-0.9999950000e-7*Y[2]) < 0 then YP[1] := undefined; return 0 end if; if Y[2] < 0 then YP[1] := undefined; return 0 end if; YP[2] := -10000050.00*(1.000005000-0.9999950000e-7*Y[2])*(Y[1]+0.9416034339e-17*X^3*(1/(1.000005000-0.9999950000e-7*Y[2]))^(5/2)*Y[2]*(.1726006952*(1.+0.1549992250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6900000000*Y[2]))/(exp(-.6900000000*Y[2]+20.)+1.)+.1402961154*(1.+0.1349993250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7300000000*Y[2]))/(exp(-.7300000000*Y[2]+20.)+1.)+.1561697794*(1.+0.1449992750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7100000000*Y[2]))/(exp(-.7100000000*Y[2]+20.)+1.)+.1895705673*(1.+0.1649991750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6700000000*Y[2]))/(exp(-.6700000000*Y[2]+20.)+1.)+.2070627924*(1.+0.1749991250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6500000000*Y[2]))/(exp(-.6500000000*Y[2]+20.)+1.)+0.7009279562e-1*(1.+0.8499957500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8300000000*Y[2]))/(exp(-.8300000000*Y[2]+20.)+1.)+0.8281907992e-1*(1.+0.9499952500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8100000000*Y[2]))/(exp(-.8100000000*Y[2]+20.)+1.)+0.9623408955e-1*(1.+0.1049994750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7900000000*Y[2]))/(exp(-.7900000000*Y[2]+20.)+1.)+0.3648287269e-1*(1.+0.5499972500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8900000000*Y[2]))/(exp(-.8900000000*Y[2]+20.)+1.)+0.4687216658e-1*(1.+0.6499967500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8700000000*Y[2]))/(exp(-.8700000000*Y[2]+20.)+1.)+0.5809475016e-1*(1.+0.7499962500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.8500000000*Y[2]))/(exp(-.8500000000*Y[2]+20.)+1.)+0.9999999998e-3*(1.+0.4999975000e-9*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9900000000*Y[2]))/(exp(-.9900000000*Y[2]+20.)+1.)+.9850375625*(1.+0.4949975250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.1000000000e-1*Y[2]))/(exp(-0.100000000e-1*Y[2]+20.)+1.)+0.5196152424e-2*(1.+0.1499992500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9700000000*Y[2]))/(exp(-.9700000000*Y[2]+20.)+1.)+0.1118033988e-1*(1.+0.2499987500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9500000000*Y[2]))/(exp(-.9500000000*Y[2]+20.)+1.)+0.1852025917e-1*(1.+0.3499982500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9300000000*Y[2]))/(exp(-.9300000000*Y[2]+20.)+1.)+0.2700000000e-1*(1.+0.4499977500e-8*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.9100000000*Y[2]))/(exp(-.9100000000*Y[2]+20.)+1.)+.2625280937*(1.+0.2049989750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5900000000*Y[2]))/(exp(-.5900000000*Y[2]+20.)+1.)+.2819698565*(1.+0.2149989250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5700000000*Y[2]))/(exp(-.5700000000*Y[2]+20.)+1.)+.3018691768*(1.+0.2249988750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5500000000*Y[2]))/(exp(-.5500000000*Y[2]+20.)+1.)+.3222157661*(1.+0.2349988250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5300000000*Y[2]))/(exp(-.5300000000*Y[2]+20.)+1.)+.3429999999*(1.+0.2449987750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.5100000000*Y[2]))/(exp(-.5100000000*Y[2]+20.)+1.)+.3642128498*(1.+0.2549987250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4900000000*Y[2]))/(exp(-.4900000000*Y[2]+20.)+1.)+.3858458240*(1.+0.2649986750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4700000000*Y[2]))/(exp(-.4700000000*Y[2]+20.)+1.)+.4078909167*(1.+0.2749986250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4500000000*Y[2]))/(exp(-.4500000000*Y[2]+20.)+1.)+.4303405627*(1.+0.2849985750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4300000000*Y[2]))/(exp(-.4300000000*Y[2]+20.)+1.)+.4531875990*(1.+0.2949985250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.4100000000*Y[2]))/(exp(-.4100000000*Y[2]+20.)+1.)+.4764252301*(1.+0.3049984750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3900000000*Y[2]))/(exp(-.3900000000*Y[2]+20.)+1.)+.5000469977*(1.+0.3149984250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3700000000*Y[2]))/(exp(-.3700000000*Y[2]+20.)+1.)+.5240467534*(1.+0.3249983750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3500000000*Y[2]))/(exp(-.3500000000*Y[2]+20.)+1.)+.5484186357*(1.+0.3349983250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3300000000*Y[2]))/(exp(-.3300000000*Y[2]+20.)+1.)+.5731570463*(1.+0.3449982750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.3100000000*Y[2]))/(exp(-.3100000000*Y[2]+20.)+1.)+.5982566337*(1.+0.3549982250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2900000000*Y[2]))/(exp(-.2900000000*Y[2]+20.)+1.)+.6237122732*(1.+0.3649981750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2700000000*Y[2]))/(exp(-.2700000000*Y[2]+20.)+1.)+.6495190527*(1.+0.3749981250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2500000000*Y[2]))/(exp(-.2500000000*Y[2]+20.)+1.)+.6756722576*(1.+0.3849980750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2300000000*Y[2]))/(exp(-.2300000000*Y[2]+20.)+1.)+.7021673588*(1.+0.3949980250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.2100000000*Y[2]))/(exp(-.2100000000*Y[2]+20.)+1.)+.7289999998*(1.+0.4049979750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1900000000*Y[2]))/(exp(-.1900000000*Y[2]+20.)+1.)+.7561659868*(1.+0.4149979250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1700000000*Y[2]))/(exp(-.1700000000*Y[2]+20.)+1.)+.7836612787*(1.+0.4249978750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1500000000*Y[2]))/(exp(-.1500000000*Y[2]+20.)+1.)+.8114819774*(1.+0.4349978250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1300000000*Y[2]))/(exp(-.1300000000*Y[2]+20.)+1.)+.8396243205*(1.+0.4449977750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.1100000000*Y[2]))/(exp(-.1100000000*Y[2]+20.)+1.)+.8680846731*(1.+0.4549977250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.9000000000e-1*Y[2]))/(exp(-0.900000000e-1*Y[2]+20.)+1.)+.8968595206*(1.+0.4649976750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.7000000000e-1*Y[2]))/(exp(-0.700000000e-1*Y[2]+20.)+1.)+.9259454625*(1.+0.4749976250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.5000000000e-1*Y[2]))/(exp(-0.500000000e-1*Y[2]+20.)+1.)+.9553392066*(1.+0.4849975750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-0.3000000000e-1*Y[2]))/(exp(-0.300000000e-1*Y[2]+20.)+1.)+.2250622135*(1.+0.1849990750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6300000000*Y[2]))/(exp(-.6300000000*Y[2]+20.)+1.)+.1103041250*(1.+0.1149994250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7700000000*Y[2]))/(exp(-.7700000000*Y[2]+20.)+1.)+.2435549219*(1.+0.1949990250e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.6100000000*Y[2]))/(exp(-.6100000000*Y[2]+20.)+1.)+.1250000000*(1.+0.1249993750e-7*Y[2]/(1.000005000-0.9999950000e-7*Y[2]))^(3/2)*Y[2]^(3/2)*(1.-1.*exp(-.7500000000*Y[2]))/(exp(-.7500000000*Y[2]+20.)+1.)))/(X*(X-2.*Y[1])); 0 end proc, -1, 0, 0, 0, 0])  ] )), ( 4 ) = (3)  ] ); _y0 := Array(0..2, {(1) = 0.100000000000000e-4, (2) = 0.}); _vmap := array( 1 .. 2, [( 1 ) = (1), ( 2 ) = (2)  ] ); _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); if _par <> [] then `dsolve/numeric/process_parameters`(_n, _pars, _par, _y0) end if; if _ini <> [] then `dsolve/numeric/process_initial`(_n-_ne, _ini, _y0, _pars, _vmap) end if; `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; 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] < 10 and 10 <= _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 10 <= _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] < 10 and 10 < _dtbl[5-_i][4][9] then _dtbl[4] := 5-_i; _i := 5-_i end if; if _dtbl[_i][4][9] < 10 then error "no events to clear" else _j := _dtbl[_i][4][9]-10; 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), {"eventenable", "eventdisable"}) then if _nv = 0 then error "this solution has no events" end if; if type(rhs(_xin), {('set')('posint'), ('list')('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]), 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]), 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 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 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]), 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 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] < 10 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]), 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 _src = 0 and 10 < _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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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 <a href='http://www.maplesoft.com/support/help/search.aspx?term=dsolve,maxfun' target='_new'>?dsolve,maxfun</a> 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 10 < _dat[4][9] then 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]-10, 1]))) end if; Rounding := 'nearest'; _xout := _val 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]; _dat[4][26] := _EnvDSNumericSaveDigits; _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..3, {(1) = 153358112, (2) = 153351600, (3) = 86010776}), (3) = [r, M(r), W(r)], (4) = []}); _solnproc := _dat[1]; _pars := map(rhs, _dat[4]); if not type(_xout, 'numeric') then if member(r, ["start", 'start', "method", 'method', "left", 'left', "right", 'right', "leftdata", "rightdata", "enginedata", "eventstop", 'eventstop', "eventclear", 'eventclear', "eventstatus", 'eventstatus', "laxtol", 'laxtol', "numfun", 'numfun', NULL]) then _res := _solnproc(convert(r, '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(r, ["last", 'last', "initial", 'initial', NULL]) then _res := _solnproc(convert(r, 'string')); if type(_res, 'list') then return _res[1] else return NULL end if elif member(r, ["parameters", 'parameters', "initial_and_parameters", 'initial_and_parameters', NULL]) then _xout := convert(r, '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(r), 'string') = rhs(r); 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(r), 'string') = rhs(r)) elif _xout = "solnprocedure" then return eval(_solnproc) elif _xout = "sysvars" then return _dat[3] end if; if procname <> unknown then return ('procname')(r) else _ndsol := `tools/gensym`("r"); 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(r)))) end if end if; try _res := _solnproc(_xout); _res[1] catch: error  end try end proc)^(1/2)

(24)

loglogplot(vc(r), r = 10^(-4) .. rlim, axes = boxed, color = black, numpoints = 1000)

 

``


fsolve(diff(vc(r), r), r, 0.1e-1 .. 100);

5.414711783

(27)

 

evalf(Msol(5.414711783));

HFloat(1.4114658691596798e-5)

(28)

``

``

 

 

 


Download fermions-cutoff.mw

1 2 3 Page 3 of 3