tomleslie

13876 Reputation

20 Badges

15 years, 163 days

MaplePrimes Activity


These are answers submitted by tomleslie

rather than necessity.

I, personally, would just use

Pm := proc(...)
 ...
 a := Pn(...)
 ...
end proc:

and rely on Maple's scoping rules. If I ever did have the urge to reference the module itself, I'd probably use 'thismodule:-' rather than the module name

that you cannot force s>0,t>0 in your solving method, you can use the select() command, as in the attached.

  sols:=[ {s = 0.01291429045, t = 0.06099359500},
          {s = -0.6944124361, t = 0.8895072341},
          {s = 0.3000821715, t = -0.06855860577},
          {s = 0.1246366197, t = -0.06899397557},
          {s = 43.29465387, t = -10.98020355},
          {s = 7.400522990*10^6, t = -1.879497900*10^6},
          {s = 7.442623977*10^6, t = -1.890190214*10^6}
        ]:

  select( j-> `and`((rhs~(j)>~0)[]), sols);

[{s = 0.1291429045e-1, t = 0.6099359500e-1}]

(1)

 

Download sel.mw

 - not as "educational" as mmcdar, or as "elegant" as CarlLove - but it is short and hpefully simple

  restart;
  with(LinearAlgebra):
  interface(rtablesize=16):
#
# Define the equations
#
  equns:= [ Ia3 = -Ib1,
            Ia4 = -Ib2,
            Va2 = 0,
            Va3 = Vb1,
            Va4 = Vb2,
            Vb3 = 0,
            Vb4 = 0,
            Va1*Ya11 + Va2*Ya12 + Va3*Ya13 + Va4*Ya14 = Ia1,
            Va1*Ya21 + Va2*Ya22 + Va3*Ya23 + Va4*Ya24 = Ia2,
            Va1*Ya31 + Va2*Ya32 + Va3*Ya33 + Va4*Ya34 = Ia3,
            Va1*Ya41 + Va2*Ya42 + Va3*Ya43 + Va4*Ya44 = Ia4,
            Vb1*Yb11 + Vb2*Yb12 + Vb3*Yb13 + Vb4*Yb14 = Ib1,
            Vb1*Yb21 + Vb2*Yb22 + Vb3*Yb23 + Vb4*Yb24 = Ib2,
            Vb1*Yb31 + Vb2*Yb32 + Vb3*Yb33 + Vb4*Yb34 = Ib3,
            Vb1*Yb41 + Vb2*Yb42 + Vb3*Yb43 + Vb4*Yb44 = Ib4
          ]:
#
# Define the unknowns
#
  vars:= [ Va1, Va2, Va3, Va4,
                Ia2, Ia3, Ia4,
           Vb1, Vb2, Vb3, Vb4,
           Ib1, Ib2, Ib3, Ib4
         ]:
#
# Solve the system to get Ia1 in terms of Va1
#
  member(Va1, vars, 'p'):
  A, b:= GenerateMatrix( equns, vars):
  sol:=  isolate(Va1=LinearSolve(A,b)[p], Ia1);

Ia1 = Va1*(Ya11*Ya33*Ya44+Ya11*Ya33*Yb22-Ya11*Ya34*Ya43-Ya11*Ya34*Yb21-Ya11*Ya43*Yb12+Ya11*Ya44*Yb11+Ya11*Yb11*Yb22-Ya11*Yb12*Yb21-Ya13*Ya31*Ya44-Ya13*Ya31*Yb22+Ya13*Ya34*Ya41+Ya13*Ya41*Yb12+Ya14*Ya31*Ya43+Ya14*Ya31*Yb21-Ya14*Ya33*Ya41-Ya14*Ya41*Yb11)/(Ya33*Ya44+Ya33*Yb22-Ya34*Ya43-Ya34*Yb21-Ya43*Yb12+Ya44*Yb11+Yb11*Yb22-Yb12*Yb21)

(1)

 

Download LS.mw

the output of the final execution group in the attached fulfil your requirements?

Can't display the ouptu of this worksheet on the site because plot arrays are used - and they have never rendered here.

TS.mw

Check the attached

Maybe a Maple version isue - which version are you running?

  restart;
  interface(version);
  A:=exp(I*x);
  conjugate(A) assuming x::real;

`Standard Worksheet Interface, Maple 2022.1, Windows 7, May 26 2022 Build ID 1619613`

 

exp(I*x)

 

1/exp(I*x)

(1)

 

Download conj.mw

because it is much more efficient!

Like the help page for sum() says

To add a finite sequence of values, rather than compute a formula, use the add command.

Each sum() command will spend time looking for a symbolic solution, into which it can substitute the appropriate value values for the summation range. Only if it cannot find such a symbolic solution, will it revert to using a simple add().

It would not surprise me if in Maple 2021, the number of techniqes which the sum() command uses to find a symbolic solution was increased - so increasing the time taken to look for something which does not exist.

See the timing differences in the attached, running Maple2022 on a pretty ancient desktop

restart;
 N:=7:
A := CodeTools:-Usage(simplify( sum( sum( sum( sum(sum( sum( sum( sum(
((x-i1)^2+(y-i2)^2)*((x-j1)^2+(y-j2)^2)*((x-k1)^2+(y-k2)^2)*((x-l1)^2+(y-l2)^2) ,i1=1..N)
,j1=1..N),k1=1..N),l1=1..N) ,i2=1..N),j2=1..N),k2=1..N),l2=1..N) ));

memory used=33.75GiB, alloc change=1.10GiB, cpu time=9.98m, real time=8.89m, gc time=102.70s

 

5764801*(x^2+y^2-8*x-8*y+40)^4

(1)

restart;
N:=7:
A := CodeTools:-Usage(simplify( add( add( add( add(add( add( add( add(
((x-i1)^2+(y-i2)^2)*((x-j1)^2+(y-j2)^2)*((x-k1)^2+(y-k2)^2)*((x-l1)^2+(y-l2)^2) ,i1=1..N)
,j1=1..N),k1=1..N),l1=1..N) ,i2=1..N),j2=1..N),k2=1..N),l2=1..N) ));

memory used=13.12GiB, alloc change=1.02GiB, cpu time=101.82s, real time=80.77s, gc time=50.59s

 

5764801*(x^2+y^2-8*x-8*y+40)^4

(2)

 

Download addsum.mw

 

you are missing a "multiplication sign" in the numerator. Using 2D input, this can either be a "space" or an explicit multiplication sign. Without either, the 2D-input parser is interpreting your numerator as a function application, where three functions M(), -n(), and 1() are applied.

See the differences in the attached

  restart;
  sum( (M-n+1)*(M-n)/2, n=1..M);
  collect(%,M);

(1/2)*M^2*(M+1)+M*(M+1)-(1/2)*M*(M+1)^2-(1/2)*(M+1)^2-(1/6)*M+1/3+(1/6)*(M+1)^3-(1/2)*M^2

 

(1/6)*M^3-(1/6)*M

(1)

restart

sum((1/2)*(M-n+1)(M-n), n = 1 .. M)
collect(%, M)

(1/2)*M+sum((1/2)*M(M-n)-(1/2)*n(M-n), n = 1 .. M)

 

(1/2)*M+sum((1/2)*M(M-n)-(1/2)*n(M-n), n = 1 .. M)

(2)

restart

sum((1/2)*(M-n+1)*(M-n), n = 1 .. M)
collect(%, M)NULL

(1/2)*M^2*(M+1)+M*(M+1)-(1/2)*M*(M+1)^2-(1/2)*(M+1)^2-(1/6)*M+1/3+(1/6)*(M+1)^3-(1/2)*M^2

 

(1/6)*M^3-(1/6)*M

(3)

restart

sum((1/2)*(M-n+1)*(M-n), n = 1 .. M)
collect(%, M)NULLNULL

(1/2)*M^2*(M+1)+M*(M+1)-(1/2)*M*(M+1)^2-(1/2)*(M+1)^2-(1/6)*M+1/3+(1/6)*(M+1)^3-(1/2)*M^2

 

(1/6)*M^3-(1/6)*M

(4)

 

Download badMult.mw

although I think the sign of the term in u2 in the textbook eq(8) may be wrong??

  restart;
  eq1:= c*diff(u(theta), theta)=-u(theta)*diff(u(theta),theta)-diff(v(theta),theta);
  ans1:=isolate(int( lhs(eq1)-rhs(eq1), theta)=0, v(theta));
  eq2:= c*diff(v(theta), theta)=-v(theta)*diff(u(theta), theta)-u(theta)*diff(v(theta), theta)-diff(u(theta),theta$3)/3;
  subs(ans1, eq2):
  -6*expand(eval(int(lhs(%), theta)-int(rhs(%), theta)=0));

c*(diff(u(theta), theta)) = -u(theta)*(diff(u(theta), theta))-(diff(v(theta), theta))

 

v(theta) = -c*u(theta)-(1/2)*u(theta)^2

 

c*(diff(v(theta), theta)) = -v(theta)*(diff(u(theta), theta))-u(theta)*(diff(v(theta), theta))-(1/3)*(diff(diff(diff(u(theta), theta), theta), theta))

 

6*c^2*u(theta)+9*u(theta)^2*c+3*u(theta)^3-2*(diff(diff(u(theta), theta), theta)) = 0

(1)

 

Download someInt2.mw

 

 

 

to produce numeric solutions and plots for your ODE system - see the attached.

In order to

" plot streamlines and isothermes and also 3D graphes of Nussult number and skin friction coefficient "

you are going to have to specify how each of these quantities can be calculated from from the information in this worksheet.

NULL

restart

eqat := {M.(D(theta))(0)+2.*Pr.f(0) = 0, diff(phi(eta), eta, eta)+2.*Sc.f(eta).(diff(phi(eta), eta))-(1/2)*S.Sc.eta.(diff(phi(eta), eta))+N[t]/N[b].(diff(theta(eta), eta, eta)) = 0, diff(g(eta), eta, eta)-2.*(diff(f(eta), eta)).g(eta)+2.*f(eta).(diff(g(eta), eta))-S.(g(eta)+(1/2)*eta.(diff(g(eta), eta)))-1/(sigma.Re[r]).((1+LinearAlgebra:-HermitianTranspose(d).exp(-eta))/(1+d.exp(-eta))).g(eta)-LinearAlgebra:-HermitianTranspose(beta).((1+LinearAlgebra:-HermitianTranspose(d).exp(-eta))^2/sqrt(1+d.exp(-eta))).g(eta).sqrt((diff(f(eta), eta))^2+g(eta)^2) = 0, diff(theta(eta), eta, eta)+2.*Pr.f(eta).(diff(theta(eta), eta))-(1/2)*S.Pr.eta.(diff(theta(eta), eta))+N[b].Pr.((diff(theta(eta), eta)).(diff(phi(eta), eta)))+N[t].Pr.((diff(theta(eta), eta))^2)+4/3.N.(diff((C[T]+theta(eta))^3.(diff(theta(eta), eta)), eta)) = 0, diff(f(eta), eta, eta, eta)-(diff(f(eta), eta))^2+2.*f(eta).(diff(f(eta), eta))+g(eta)^2-S.(diff(f(eta), eta)+(1/2)*eta.(diff(f(eta), eta, eta)))-1/(sigma.Re[r]).((1+LinearAlgebra:-HermitianTranspose(d).exp(-eta))/(1+d.exp(-eta))).(diff(f(eta), eta))-LinearAlgebra:-HermitianTranspose(beta).((1+LinearAlgebra:-HermitianTranspose(d).exp(-eta))^2/sqrt(1+d.exp(-eta))).(diff(f(eta), eta)).sqrt((diff(f(eta), eta))^2+g(eta)^2) = 0, g(0) = 1, g(6) = 0, phi(0) = 1, phi(6) = 0, theta(0) = 1, theta(6) = 0, (D(f))(0) = 1, (D(f))(6) = 0}

params := [{M = 1.5, N = 2, Pr = .8, S = -2.5, Sc = .5, d = 2.4, sigma = .2, C[T] = .5, N[b] = .4, N[t] = .4, Re[r] = 1.1, LinearAlgebra:-HermitianTranspose(beta) = .2, LinearAlgebra:-HermitianTranspose(d) = 1.5}, {M = 1.5, N = 2, Pr = .8, S = -2.5, Sc = .5, d = 2.4, sigma = .2, C[T] = .5, N[b] = .4, N[t] = .4, Re[r] = 1.1, LinearAlgebra:-HermitianTranspose(beta) = .4, LinearAlgebra:-HermitianTranspose(d) = 1.5}, {M = 1.5, N = 2, Pr = .8, S = -2.5, Sc = .5, d = 2.4, sigma = .2, C[T] = .5, N[b] = .4, N[t] = .4, Re[r] = 1.1, LinearAlgebra:-HermitianTranspose(beta) = .6, LinearAlgebra:-HermitianTranspose(d) = 1.5}, {M = 1.5, N = 2, Pr = .8, S = -2.5, Sc = .5, d = 2.4, sigma = .2, C[T] = .5, N[b] = .4, N[t] = .4, Re[r] = 1.1, LinearAlgebra:-HermitianTranspose(beta) = .6, LinearAlgebra:-HermitianTranspose(d) = 1.5}]; for j to numelems(params) do sol[j] := dsolve(eval(eqat, params[j]), numeric); plt[j] := plots:-odeplot(sol[j], [[eta, phi(eta)], [eta, theta(eta)], [eta, g(eta)], [eta, f(eta)]], eta = 0 .. 6, color = [red, blue, green, black]) end do

proc (x_bvp) local res, data, solnproc, _ndsol, outpoint, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then outpoint := evalf[_EnvDSNumericSaveDigits](x_bvp) else outpoint := evalf(x_bvp) end if; data := Array(1..4, {(1) = proc (outpoint) local X, Y, YP, yout, errproc, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; X := Vector(34, {(1) = .0, (2) = .13366909959653117, (3) = .2683635837634211, (4) = .40539579703927375, (5) = .5456421407987249, (6) = .690398774919993, (7) = .8403390195695455, (8) = .9960328972067461, (9) = 1.1571868308306694, (10) = 1.3234598247694607, (11) = 1.4937398294607878, (12) = 1.6675158503619374, (13) = 1.8442802324721828, (14) = 2.023725437311482, (15) = 2.205907318478869, (16) = 2.3910839001179105, (17) = 2.5796474958750175, (18) = 2.7718072329755925, (19) = 2.9673730099493594, (20) = 3.1661669900597245, (21) = 3.3680058154457995, (22) = 3.5725688409626093, (23) = 3.7796368814258052, (24) = 3.98894318190587, (25) = 4.200045394545681, (26) = 4.412547062182143, (27) = 4.6259923926047675, (28) = 4.8400453819308185, (29) = 5.054663867823781, (30) = 5.26987245308115, (31) = 5.48540480130525, (32) = 5.684905714709049, (33) = 5.856447484891232, (34) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(34, 9, {(1, 1) = .30261005777054845, (1, 2) = 1.0, (1, 3) = -.12828910075531397, (1, 4) = 1.0, (1, 5) = -2.712073613419604, (1, 6) = 1.0, (1, 7) = -1.2536980768174106, (1, 8) = 1.0, (1, 9) = -.32278406162191803, (2, 1) = .43562207584770557, (2, 2) = .9938904578645821, (2, 3) = 0.3830877918696932e-1, (2, 4) = .6834802681522679, (2, 5) = -2.0427461549469648, (2, 6) = .8382612657533728, (2, 7) = -1.16079562333757, (2, 8) = .9551063246996946, (2, 9) = -.34944334490996426, (3, 1) = .5703489551117956, (3, 2) = 1.010294392137934, (3, 3) = .20301687397612211, (3, 4) = .4475057600243843, (3, 5) = -1.4792531435076846, (3, 6) = .6899146087050525, (3, 7) = -1.0376461067101896, (3, 8) = .9060432753870786, (3, 9) = -.3796693363771705, (4, 1) = .711177712540075, (4, 2) = 1.0484664960326449, (4, 3) = .3495218285742398, (4, 4) = .2777423774579882, (4, 5) = -1.0169683192433, (4, 6) = .5575965529564689, (4, 7) = -.8907055193188926, (4, 8) = .8516853522663418, (4, 9) = -.41440397914126165, (5, 1) = .8620724009269528, (5, 2) = 1.1061209444058577, (5, 3) = .4664380961627092, (5, 4) = .16170659857374708, (5, 5) = -.6560748403426995, (5, 6) = .4440097200292112, (5, 7) = -.7279018259111789, (5, 8) = .7908037489948215, (5, 9) = -.454630471083783, (6, 1) = 1.0273914308663479, (6, 2) = 1.1798702856366365, (6, 3) = .5449130690397553, (6, 4) = 0.8710216929019007e-1, (6, 5) = -.3916029728133374, (6, 6) = .35098892628779615, (6, 7) = -.5579069046173161, (6, 8) = .7216706455635471, (6, 9) = -.501423143318293, (7, 1) = 1.2105929681181937, (7, 2) = 1.2645692709890932, (7, 3) = .5760264228756773, (7, 4) = 0.4282073542172477e-1, (7, 5) = -.21325332765688593, (7, 6) = .2800027975373657, (7, 7) = -.3915834361372721, (7, 8) = .6425248198595471, (7, 9) = -.5550084200196749, (8, 1) = 1.4144187004812625, (8, 2) = 1.3530648932519789, (8, 3) = .5507867593734522, (8, 4) = 0.1892766134996714e-1, (8, 5) = -.10432143774153105, (8, 6) = .23107203756569525, (8, 7) = -.24196918456586647, (8, 8) = .5515914536816012, (8, 9) = -.6129627057075188, (9, 1) = 1.639304680291791, (9, 2) = 1.4354745232925592, (9, 3) = .46120112348443565, (9, 4) = 0.7436009828643011e-2, (9, 5) = -0.4526457507996651e-1, (9, 6) = .20202432489658637, (9, 7) = -.1266406098667342, (9, 8) = .44839106510368015, (9, 9) = -.6649315922800709, (10, 1) = 1.8837054786060758, (10, 2) = 1.4998863108065725, (10, 3) = .3028171184648881, (10, 4) = 0.2568705293326878e-2, (10, 5) = -0.1721219353276161e-1, (10, 6) = .18674686697749415, (10, 7) = -0.6937451346217655e-1, (10, 8) = .335510023500959, (10, 9) = -.6837348607377794, (11, 1) = 2.1424831666371276, (11, 2) = 1.5331944276741596, (11, 3) = 0.7911930992984854e-1, (11, 4) = 0.7773289408711771e-3, (11, 5) = -0.5704906057021582e-2, (11, 6) = .1741392557565823, (11, 7) = -0.9247051912851766e-1, (11, 8) = .2227621645682474, (11, 9) = -.624043432835674, (12, 1) = 2.408771354148729, (12, 2) = 1.523555186863631, (12, 3) = -.19590384159585505, (12, 4) = 0.20520244368788478e-3, (12, 5) = -0.163909923873506e-2, (12, 6) = .15126608578416031, (12, 7) = -.17433145452708357, (12, 8) = .12683705248685526, (12, 9) = -.46707862535314015, (13, 1) = 2.6734673827938913, (13, 2) = 1.462517744933617, (13, 3) = -.4949439419013769, (13, 4) = 0.472278733758014e-4, (13, 5) = -0.4075288967512536e-3, (13, 6) = .1144509659585264, (13, 7) = -.23075594976701774, (13, 8) = 0.6139946023824742e-1, (13, 9) = -.27635011931094033, (14, 1) = 2.9263637993213956, (14, 2) = 1.3476236386464229, (14, 3) = -.7786278093802473, (14, 4) = 0.9493852336780296e-5, (14, 5) = -0.8777063430681689e-4, (14, 6) = 0.7374308086989677e-1, (14, 7) = -.21121651787595683, (14, 8) = 0.25745545089248267e-1, (14, 9) = -.13274557626595584, (15, 1) = 3.157602412417246, (15, 2) = 1.1841217073046302, (15, 3) = -1.0020025352801187, (15, 4) = 0.1670489201627961e-5, (15, 5) = -0.1640467391878714e-4, (15, 6) = 0.4088770136884376e-1, (15, 7) = -.14656494068401213, (15, 8) = 0.9592622880344622e-2, (15, 9) = -0.5428622637595274e-1, (16, 1) = 3.358822462343543, (16, 2) = .98533774762351, (16, 3) = -1.1254382362793207, (16, 4) = 0.25799237037949105e-6, (16, 5) = -0.26685799030532697e-5, (16, 6) = 0.19902264614366567e-1, (16, 7) = -0.8297365149696555e-1, (16, 8) = 0.3238294850313828e-2, (16, 9) = -0.19603878334428778e-1, (17, 1) = 3.524415857171542, (17, 2) = .7709621138367287, (17, 3) = -1.1277907180187716, (17, 4) = 0.35075347052979386e-7, (17, 5) = -0.37915749362285766e-6, (17, 6) = 0.8658528250298858e-2, (17, 7) = -0.40179142828117555e-1, (17, 8) = 0.10022185337427577e-2, (17, 9) = -0.63888422986472845e-2, (18, 1) = 3.6522752020897817, (18, 2) = .5634011486558522, (18, 3) = -1.0160136935088595, (18, 4) = 0.4220396221296643e-8, (18, 5) = -0.47351174294860164e-7, (18, 6) = 0.34169146935741322e-2, (18, 7) = -0.17162478712329135e-1, (18, 8) = 0.28669135735767643e-3, (18, 9) = -0.1904580115812736e-2, (19, 1) = 3.744159058624356, (19, 2) = .3825216927323655, (19, 3) = -.825150689315674, (19, 4) = 0.45373100447425437e-9, (19, 5) = -0.5253901029117767e-8, (19, 6) = 0.12395408965508526e-2, (19, 7) = -0.6614431453113312e-2, (19, 8) = 0.7641192483236134e-4, (19, 9) = -0.5251749598525846e-3, (20, 1) = 3.8053436321806764, (20, 2) = .24035381855914015, (20, 3) = -.6050635722001317, (20, 4) = 0.43953020041013217e-10, (20, 5) = -0.5230238182938136e-9, (20, 6) = 0.41776264957087215e-3, (20, 7) = -0.2338429107507638e-2, (20, 8) = 0.1909463335573854e-4, (20, 9) = -0.13507521742715288e-3, (21, 1) = 3.842976581269453, (21, 2) = .1394171734813488, (21, 3) = -.40127189702878063, (21, 4) = 0.38622302897728705e-11, (21, 5) = -0.4708973639133712e-10, (21, 6) = 0.1318930716283216e-3, (21, 7) = -0.7677270792799976e-3, (21, 8) = 0.44951064350415666e-5, (21, 9) = -0.32613658036875296e-4, (22, 1) = 3.864307636293622, (22, 2) = 0.7459113877369129e-1, (22, 3) = -.24130876727686887, (22, 4) = 0.30984290451896314e-12, (22, 5) = -0.3863155485134707e-11, (22, 6) = 0.3928125046675726e-4, (22, 7) = -0.23636846501836652e-3, (22, 8) = 0.10013260962893196e-5, (22, 9) = -0.74342632297224925e-5, (23, 1) = 3.8754509670964596, (23, 2) = 0.3680603725965509e-1, (23, 3) = -.1319696899401779, (23, 4) = 0.22773037359968653e-13, (23, 5) = -0.2900122786765241e-12, (23, 6) = 0.1108957961896378e-4, (23, 7) = -0.6870608293884695e-4, (23, 8) = 0.21162262195359558e-6, (23, 9) = -0.16055252169568676e-5, (24, 1) = 3.8808164981504945, (24, 2) = 0.16761551380531085e-1, (24, 3) = -0.6585043108569526e-1, (24, 4) = 0.1537756904879294e-14, (24, 5) = -0.19987663085110875e-13, (24, 6) = 0.29792452438725965e-5, (24, 7) = -0.18952399755769856e-4, (24, 8) = 0.4252636571044575e-7, (24, 9) = -0.32941073928032e-6, (25, 1) = 3.8831986804118217, (25, 2) = 0.7057784829971844e-2, (25, 3) = -0.30097292469505724e-1, (25, 4) = 0.9580945401160766e-16, (25, 5) = -0.12704283434476773e-14, (25, 6) = 0.764891561972781e-6, (25, 7) = -0.4986326651698543e-5, (25, 8) = 0.8151339486715907e-8, (25, 9) = -0.6443104111830425e-7, (26, 1) = 3.8841760117420643, (26, 2) = 0.2753343419941555e-2, (26, 3) = -0.12647973587716506e-1, (26, 4) = 0.55268307463298745e-17, (26, 5) = -0.7473488699562753e-16, (26, 6) = 0.18833442373615996e-6, (26, 7) = -0.12563166370362975e-5, (26, 8) = 0.1494305783515932e-8, (26, 9) = -0.12048108592545628e-7, (27, 1) = 3.884547252900906, (27, 2) = 0.9976138720321382e-3, (27, 3) = -0.4906348836473167e-2, (27, 4) = 0.2964546832853492e-18, (27, 5) = -0.40866188231595435e-17, (27, 6) = 0.4463789653576736e-7, (27, 7) = -0.3043493889624659e-6, (27, 8) = 0.2628385436342442e-9, (27, 9) = -0.21608865169030054e-8, (28, 1) = 3.884678177594698, (28, 2) = 0.33632098592368225e-3, (28, 3) = -0.17627488194226191e-2, (28, 4) = 0.14829408332681475e-19, (28, 5) = -0.20832718325915573e-18, (28, 6) = 0.102121271883272e-7, (28, 7) = -0.7110962286290007e-7, (28, 8) = 0.44464932046114936e-10, (28, 9) = -0.37264090228619667e-9, (29, 1) = 3.8847211408668985, (29, 2) = 0.10541248947969113e-3, (29, 3) = -0.5874766346724493e-3, (29, 4) = 0.6911239767630536e-21, (29, 5) = -0.9891465965961135e-20, (29, 6) = 0.225576728340643e-8, (29, 7) = -0.16038251919900216e-7, (29, 8) = 0.7234381666377739e-11, (29, 9) = -0.6179271321890758e-10, (30, 1) = 3.8847342355722954, (30, 2) = 0.3056324090843652e-4, (30, 3) = -0.18167064376209426e-3, (30, 4) = 0.2994491101200052e-22, (30, 5) = -0.43650752994661485e-21, (30, 6) = 0.480146366751377e-9, (30, 7) = -0.34926950075960246e-8, (30, 8) = 0.11304467739285172e-11, (30, 9) = -0.9848365415742262e-11, (31, 1) = 3.884737907530465, (31, 2) = 0.8063486263005321e-5, (31, 3) = -0.52128173288287365e-4, (31, 4) = 0.120996853098929e-23, (31, 5) = -0.17965075533461143e-22, (31, 6) = 0.9765595207812525e-10, (31, 7) = -0.7360225172028583e-9, (31, 8) = 0.16900696783742397e-12, (31, 9) = -0.15116757992202024e-11, (32, 1) = 3.884738795274378, (32, 2) = 0.20355203572403154e-5, (32, 3) = -0.15289099064224142e-4, (32, 4) = 0.5829220902103849e-25, (32, 5) = -0.88622564678018e-24, (32, 6) = 0.20523263062623402e-10, (32, 7) = -0.16952221055322545e-9, (32, 8) = 0.27087086772564773e-13, (32, 9) = -0.25857917192868305e-12, (33, 1) = 3.8847389836336212, (33, 2) = 0.45056146929306907e-6, (33, 3) = -0.4967943183151448e-5, (33, 4) = 0.3792509742191952e-26, (33, 5) = -0.6491758948337743e-25, (33, 6) = 0.4115515235464916e-11, (33, 7) = -0.4699130781892468e-10, (33, 8) = 0.44359765500639796e-14, (33, 9) = -0.553132179817156e-13, (34, 1) = 3.8847390105888686, (34, 2) = .0, (34, 3) = -0.17904798791729745e-5, (34, 4) = .0, (34, 5) = -0.7103322154892983e-26, (34, 6) = .0, (34, 7) = -0.15828229556167442e-10, (34, 8) = .0, (34, 9) = -0.14961653480026574e-13}, datatype = float[8], order = C_order); YP := Matrix(34, 9, {(1, 1) = 1.0, (1, 2) = -.12828910075531397, (1, 3) = 1.1957321094887048, (1, 4) = -2.712073613419604, (1, 5) = 5.442353730699574, (1, 6) = -1.2536980768174106, (1, 7) = .567578031520862, (1, 8) = -.32278406162191803, (1, 9) = -.18819638406831987, (2, 1) = .9938904578645821, (2, 2) = 0.3830877918696932e-1, (2, 3) = 1.2618867583442976, (2, 4) = -2.0427461549469648, (2, 5) = 4.589253826904975, (2, 6) = -1.16079562333757, (2, 7) = .8139110734323961, (2, 8) = -.34944334490996426, (2, 9) = -.21126630824219808, (3, 1) = 1.010294392137934, (3, 2) = .20301687397612211, (3, 3) = 1.1629262743193336, (3, 4) = -1.4792531435076846, (3, 5) = 3.7801688126352087, (3, 6) = -1.0376461067101896, (3, 7) = 1.0040365230498152, (3, 8) = -.3796693363771705, (3, 9) = -.23817463289001817, (4, 1) = 1.0484664960326449, (4, 2) = .3495218285742398, (4, 3) = .962737546944699, (4, 4) = -1.0169683192433, (4, 5) = 2.9704723279263368, (4, 6) = -.8907055193188926, (4, 7) = 1.1285373647083161, (4, 8) = -.41440397914126165, (4, 9) = -.2694072797250596, (5, 1) = 1.1061209444058577, (5, 2) = .4664380961627092, (5, 3) = .6966625822256599, (5, 4) = -.6560748403426995, (5, 5) = 2.18849692282618, (5, 6) = -.7279018259111789, (5, 7) = 1.1803948617224744, (5, 8) = -.454630471083783, (5, 9) = -.3046570929066888, (6, 1) = 1.1798702856366365, (6, 2) = .5449130690397553, (6, 3) = .38223797500592305, (6, 4) = -.3916029728133374, (6, 5) = 1.487851564467833, (6, 6) = -.5579069046173161, (6, 7) = 1.155353607883064, (6, 8) = -.501423143318293, (6, 9) = -.34142843269106443, (7, 1) = 1.2645692709890932, (7, 2) = .5760264228756773, (7, 3) = 0.29060043868716412e-1, (7, 4) = -.21325332765688593, (7, 5) = .9196940808067965, (7, 6) = -.3915834361372721, (7, 7) = 1.0501038353572436, (7, 8) = -.5550084200196749, (7, 9) = -.3703914056358592, (8, 1) = 1.3530648932519789, (8, 2) = .5507867593734522, (8, 3) = -.35516984101043947, (8, 4) = -.10432143774153105, (8, 5) = .5087759339523428, (8, 6) = -.24196918456586647, (8, 7) = .8571525835229483, (8, 8) = -.6129627057075188, (8, 9) = -.36427605147160097, (9, 1) = 1.4354745232925592, (9, 2) = .46120112348443565, (9, 3) = -.7552093171224034, (9, 4) = -0.4526457507996651e-1, (9, 5) = .24847726384032023, (9, 6) = -.1266406098667342, (9, 7) = .554586614007597, (9, 8) = -.6649315922800709, (9, 9) = -.2553922907967095, (10, 1) = 1.4998863108065725, (10, 2) = .3028171184648881, (10, 3) = -1.1425332343275985, (10, 4) = -0.1721219353276161e-1, (10, 5) = .105751348503445, (10, 6) = -0.6937451346217655e-1, (10, 7) = .11368105081546452, (10, 8) = -.6837348607377794, (10, 9) = 0.7438408866269262e-1, (11, 1) = 1.5331944276741596, (11, 2) = 0.7911930992984854e-1, (11, 3) = -1.4685412076646323, (11, 4) = -0.5704906057021582e-2, (11, 5) = 0.3895036123943347e-1, (11, 6) = -0.9247051912851766e-1, (11, 7) = -.3637508100260144, (11, 8) = -.624043432835674, (11, 9) = .648196651589799, (12, 1) = 1.523555186863631, (12, 2) = -.19590384159585505, (12, 3) = -1.6693617018132314, (12, 4) = -0.163909923873506e-2, (12, 5) = 0.12334330653344008e-1, (12, 6) = -.17433145452708357, (12, 7) = -.4832252113011083, (12, 8) = -.46707862535314015, (12, 9) = 1.084837614868381, (13, 1) = 1.462517744933617, (13, 2) = -.4949439419013769, (13, 3) = -1.6768349524213666, (13, 4) = -0.4075288967512536e-3, (13, 5) = 0.3349128620194866e-2, (13, 6) = -.23075594976701774, (13, 7) = -.10523211106764574, (13, 8) = -.27635011931094033, (13, 9) = .9881372640808026, (14, 1) = 1.3476236386464229, (14, 2) = -.7786278093802473, (14, 3) = -1.4437817918783917, (14, 4) = -0.8777063430681689e-4, (14, 5) = 0.7800389570509509e-3, (14, 6) = -.21121651787595683, (14, 7) = .2823011872790301, (14, 8) = -.13274557626595584, (14, 9) = .6029478344555962, (15, 1) = 1.1841217073046302, (15, 2) = -1.0020025352801187, (15, 3) = -.9742566333362426, (15, 4) = -0.1640467391878714e-4, (15, 5) = 0.15608823876664472e-3, (15, 6) = -.14656494068401213, (15, 7) = .38072764954434296, (15, 8) = -0.5428622637595274e-1, (15, 9) = .2841340827898366, (16, 1) = .98533774762351, (16, 2) = -1.1254382362793207, (16, 3) = -.34410640494109856, (16, 4) = -0.26685799030532697e-5, (16, 5) = 0.26919042143291096e-4, (16, 6) = -0.8297365149696555e-1, (16, 7) = .290137694618928, (16, 8) = -0.19603878334428778e-1, (16, 9) = .11255417120448777, (17, 1) = .7709621138367287, (17, 2) = -1.1277907180187716, (17, 3) = .30694843665667637, (17, 4) = -0.37915749362285766e-6, (17, 5) = 0.4018029580910469e-5, (17, 6) = -0.40179142828117555e-1, (17, 7) = .16719888620863715, (17, 8) = -0.63888422986472845e-2, (17, 9) = 0.3918913764168941e-1, (18, 1) = .5634011486558522, (18, 2) = -1.0160136935088595, (18, 3) = .820160925907538, (18, 4) = -0.47351174294860164e-7, (18, 5) = 0.5229192097825805e-6, (18, 6) = -0.17162478712329135e-1, (18, 7) = 0.8012686435379185e-1, (18, 8) = -0.1904580115812736e-2, (18, 9) = 0.12287157697781324e-1, (19, 1) = .3825216927323655, (19, 2) = -.825150689315674, (19, 3) = 1.085358102574541, (19, 4) = -0.5253901029117767e-8, (19, 5) = 0.6005895934583145e-7, (19, 6) = -0.6614431453113312e-2, (19, 7) = 0.3350598101042412e-1, (19, 8) = -0.5251749598525846e-3, (19, 9) = 0.35266807887303028e-2, (20, 1) = .24035381855914015, (20, 2) = -.6050635722001317, (20, 3) = 1.0896081673612195, (20, 4) = -0.5230238182938136e-9, (20, 5) = 0.6156970422119022e-8, (20, 6) = -0.2338429107507638e-2, (20, 7) = 0.12588509212942653e-1, (20, 8) = -0.13507521742715288e-3, (20, 9) = 0.9374277561084219e-3, (21, 1) = .1394171734813488, (21, 2) = -.40127189702878063, (21, 3) = .9083926999846729, (21, 4) = -0.4708973639133712e-10, (21, 5) = 0.5687661970847612e-9, (21, 6) = -0.7677270792799976e-3, (21, 7) = 0.4333652436976795e-2, (21, 8) = -0.32613658036875296e-4, (21, 9) = 0.23277304180903844e-3, (22, 1) = 0.7459113877369129e-1, (22, 2) = -.24130876727686887, (22, 3) = .6524068855042205, (22, 4) = -0.3863155485134707e-11, (22, 5) = 0.477600808207829e-10, (22, 6) = -0.23636846501836652e-3, (22, 7) = 0.1386784198062518e-2, (22, 8) = -0.74342632297224925e-5, (22, 9) = 0.5439289948119292e-4, (23, 1) = 0.3680603725965509e-1, (23, 2) = -.1319696899401779, (23, 3) = .41187975856319575, (23, 4) = -0.2900122786765241e-12, (23, 5) = 0.3664448794827344e-11, (23, 6) = -0.6870608293884695e-4, (23, 7) = 0.41655183065504575e-3, (23, 8) = -0.16055252169568676e-5, (23, 9) = 0.12017753074447173e-4, (24, 1) = 0.16761551380531085e-1, (24, 2) = -0.6585043108569526e-1, (24, 3) = .2316532169337991, (24, 4) = -0.19987663085110875e-13, (24, 5) = 0.2578897175386536e-12, (24, 6) = -0.18952399755769856e-4, (24, 7) = 0.11828125641632459e-3, (24, 8) = -0.32941073928032e-6, (24, 9) = 0.2519557851993364e-5, (25, 1) = 0.7057784829971844e-2, (25, 2) = -0.30097292469505724e-1, (25, 3) = .11727745081176845, (25, 4) = -0.12704283434476773e-14, (25, 5) = 0.1672826437271077e-13, (25, 6) = -0.4986326651698543e-5, (25, 7) = 0.31948947881435316e-4, (25, 8) = -0.6443104111830425e-7, (25, 9) = 0.5031981232720431e-6, (26, 1) = 0.2753343419941555e-2, (26, 2) = -0.12647973587716506e-1, (26, 3) = 0.5388154927445168e-1, (26, 4) = -0.7473488699562753e-16, (26, 5) = 0.10038529684832242e-14, (26, 6) = -0.12563166370362975e-5, (26, 7) = 0.8248449123642927e-5, (26, 8) = -0.12048108592545628e-7, (26, 9) = 0.9602849978908711e-7, (27, 1) = 0.9976138720321382e-3, (27, 2) = -0.4906348836473167e-2, (27, 3) = 0.22623078141317202e-1, (27, 4) = -0.40866188231595435e-17, (27, 5) = 0.5597559360455985e-16, (27, 6) = -0.3043493889624659e-6, (27, 7) = 0.20446382443794946e-5, (27, 8) = -0.21608865169030054e-8, (27, 9) = 0.17570062208144633e-7, (28, 1) = 0.33632098592368225e-3, (28, 2) = -0.17627488194226191e-2, (28, 3) = 0.8729122203129389e-2, (28, 4) = -0.20832718325915573e-18, (28, 5) = 0.29088325360610443e-17, (28, 6) = -0.7110962286290007e-7, (28, 7) = 0.4882568191159677e-6, (28, 8) = -0.37264090228619667e-9, (28, 9) = 0.30898071292927874e-8, (29, 1) = 0.10541248947969113e-3, (29, 2) = -0.5874766346724493e-3, (29, 3) = 0.3105795141494522e-2, (29, 4) = -0.9891465965961135e-20, (29, 5) = 0.14074477659435029e-18, (29, 6) = -0.16038251919900216e-7, (29, 7) = 0.11244930610027162e-6, (29, 8) = -0.6179271321890758e-10, (29, 9) = 0.5223129971232624e-9, (30, 1) = 0.3056324090843652e-4, (30, 2) = -0.18167064376209426e-3, (30, 3) = 0.10211477565741395e-2, (30, 4) = -0.43650752994661485e-21, (30, 5) = 0.6327485723382176e-20, (30, 6) = -0.34926950075960246e-8, (30, 7) = 0.2498714296418133e-7, (30, 8) = -0.9848365415742262e-11, (30, 9) = 0.8483466095460712e-10, (31, 1) = 0.8063486263005321e-5, (31, 2) = -0.52128173288287365e-4, (31, 3) = 0.31113923199530273e-3, (31, 4) = -0.17965075533461143e-22, (31, 5) = 0.26521599233804225e-21, (31, 6) = -0.7360225172028583e-9, (31, 7) = 0.5369351907054898e-8, (31, 8) = -0.15116757992202024e-11, (31, 9) = 0.13266072402372778e-10, (32, 1) = 0.20355203572403154e-5, (32, 2) = -0.15289099064224142e-4, (32, 3) = 0.9696694054550872e-4, (32, 4) = -0.88622564678018e-24, (32, 5) = 0.13301577691894139e-22, (32, 6) = -0.16952221055322545e-9, (32, 7) = 0.1258565209003725e-8, (32, 8) = -0.25857917192868305e-12, (32, 9) = 0.23079137081503815e-11, (33, 1) = 0.45056146929306907e-6, (33, 2) = -0.4967943183151448e-5, (33, 3) = 0.3378386063000339e-4, (33, 4) = -0.6491758948337743e-25, (33, 5) = 0.9873221671454053e-24, (33, 6) = -0.4699130781892468e-10, (33, 7) = 0.35404948731674447e-9, (33, 8) = -0.553132179817156e-13, (33, 9) = 0.5008071142916154e-12, (34, 1) = .0, (34, 2) = -0.17904798791729745e-5, (34, 3) = 0.13428599093797308e-4, (34, 4) = -0.7103322154892983e-26, (34, 5) = 0.10846402152148327e-24, (34, 6) = -0.15828229556167442e-10, (34, 7) = 0.1207073276776431e-9, (34, 8) = -0.14961653480026574e-13, (34, 9) = 0.13707398338418868e-12}, datatype = float[8], order = C_order); errproc := proc (x_bvp) local outpoint, X, Y, yout, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; Digits := 15; outpoint := evalf(x_bvp); X := Vector(34, {(1) = .0, (2) = .13366909959653117, (3) = .2683635837634211, (4) = .40539579703927375, (5) = .5456421407987249, (6) = .690398774919993, (7) = .8403390195695455, (8) = .9960328972067461, (9) = 1.1571868308306694, (10) = 1.3234598247694607, (11) = 1.4937398294607878, (12) = 1.6675158503619374, (13) = 1.8442802324721828, (14) = 2.023725437311482, (15) = 2.205907318478869, (16) = 2.3910839001179105, (17) = 2.5796474958750175, (18) = 2.7718072329755925, (19) = 2.9673730099493594, (20) = 3.1661669900597245, (21) = 3.3680058154457995, (22) = 3.5725688409626093, (23) = 3.7796368814258052, (24) = 3.98894318190587, (25) = 4.200045394545681, (26) = 4.412547062182143, (27) = 4.6259923926047675, (28) = 4.8400453819308185, (29) = 5.054663867823781, (30) = 5.26987245308115, (31) = 5.48540480130525, (32) = 5.684905714709049, (33) = 5.856447484891232, (34) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(34, 9, {(1, 1) = -0.9752080449850462e-14, (1, 2) = .0, (1, 3) = 0.983897715131829e-13, (1, 4) = .0, (1, 5) = -0.310219833247179e-13, (1, 6) = .0, (1, 7) = -0.10089931300637086e-13, (1, 8) = .0, (1, 9) = 0.9426285220068333e-14, (2, 1) = -0.6068633858882282e-14, (2, 2) = 0.11907079363232053e-15, (2, 3) = 0.9077210842582218e-13, (2, 4) = 0.924127285268852e-14, (2, 5) = -0.656630543800621e-14, (2, 6) = 0.9097963542833772e-15, (2, 7) = -0.11758350749103653e-13, (2, 8) = 0.2695690726679571e-14, (2, 9) = 0.11163213682982005e-13, (3, 1) = -0.5738951698130848e-14, (3, 2) = 0.1106175734731391e-13, (3, 3) = 0.8709325984643413e-13, (3, 4) = 0.13553070115795456e-13, (3, 5) = -0.4402169917822054e-14, (3, 6) = -0.24203447366205788e-14, (3, 7) = -0.16931077989817426e-13, (3, 8) = 0.30331497853271513e-14, (3, 9) = 0.12779927054165379e-13, (4, 1) = -0.5789111613868834e-14, (4, 2) = 0.18925153455655345e-13, (4, 3) = 0.8995318906576652e-13, (4, 4) = 0.1480345452246894e-13, (4, 5) = -0.23849508433952057e-13, (4, 6) = -0.4358676535325894e-14, (4, 7) = -0.1837675923053065e-13, (4, 8) = 0.4779989477539141e-14, (4, 9) = 0.15765157905064966e-13, (5, 1) = -0.35157671509847903e-14, (5, 2) = 0.26623256761390943e-13, (5, 3) = 0.9130411724602094e-13, (5, 4) = 0.18625480502833315e-13, (5, 5) = -0.37327079134760666e-13, (5, 6) = -0.8429765754928243e-14, (5, 7) = -0.18017913397116255e-13, (5, 8) = 0.8551278310897128e-14, (5, 9) = 0.18577547244303427e-13, (6, 1) = 0.22894643575576645e-14, (6, 2) = 0.45449238042789775e-13, (6, 3) = 0.10336860666237201e-12, (6, 4) = 0.8893217317089943e-14, (6, 5) = -0.1903534728376189e-13, (6, 6) = -0.10335979244942496e-13, (6, 7) = -0.18729850104300025e-13, (6, 8) = 0.10088332723858423e-13, (6, 9) = 0.23431612329846455e-13, (7, 1) = 0.9245176278336629e-14, (7, 2) = 0.56176597663231424e-13, (7, 3) = 0.11222250370296893e-12, (7, 4) = -0.19224649145827727e-13, (7, 5) = 0.8780404280450285e-13, (7, 6) = -0.12415707329564458e-13, (7, 7) = -0.23119191615891925e-13, (7, 8) = 0.13168111658259762e-13, (7, 9) = 0.316634302010783e-13, (8, 1) = 0.16882751071748792e-13, (8, 2) = 0.7411979833292991e-13, (8, 3) = 0.10322770708875103e-12, (8, 4) = -0.37727328858835305e-13, (8, 5) = 0.21235398729513936e-12, (8, 6) = 0.2580053418133852e-14, (8, 7) = -0.7993469822186085e-13, (8, 8) = 0.17124833316929666e-13, (8, 9) = 0.43686767793797883e-13, (9, 1) = 0.2273835268066684e-13, (9, 2) = 0.8166988945927042e-13, (9, 3) = 0.10261878113864409e-12, (9, 4) = 0.28097922233863432e-13, (9, 5) = -0.4430112454222368e-13, (9, 6) = 0.10553913640280838e-12, (9, 7) = -0.45225442309110645e-12, (9, 8) = -0.10591538147452321e-13, (9, 9) = 0.7842962936591674e-13, (10, 1) = 0.313906619252299e-13, (10, 2) = 0.10042548469848159e-12, (10, 3) = 0.14949820815427861e-12, (10, 4) = 0.18844626590362843e-12, (10, 5) = -0.9624352558014393e-12, (10, 6) = -0.15977215219223856e-12, (10, 7) = -0.30326785341859066e-12, (10, 8) = 0.12491616002902943e-13, (10, 9) = 0.5226178865983482e-12, (11, 1) = 0.42816144263606146e-13, (11, 2) = 0.1483811647002052e-12, (11, 3) = 0.17611764676548855e-12, (11, 4) = 0.2447568714459002e-12, (11, 5) = -0.15293217731238017e-11, (11, 6) = -0.23803358420147457e-11, (11, 7) = 0.9894385653178522e-11, (11, 8) = -0.37759297996199044e-12, (11, 9) = -0.15974687242995365e-11, (12, 1) = 0.808927292692445e-13, (12, 2) = 0.24142823210896906e-12, (12, 3) = 0.19993770778779547e-12, (12, 4) = 0.10058966449791705e-12, (12, 5) = -0.7880666413849763e-12, (12, 6) = 0.5149576647171257e-11, (12, 7) = -0.5802200549854656e-11, (12, 8) = 0.4509361310095502e-11, (12, 9) = -0.9875250871521975e-11, (13, 1) = 0.1719453959622907e-12, (13, 2) = 0.33831400745857377e-12, (13, 3) = -0.13654794989680004e-13, (13, 4) = -0.51270219710665236e-13, (13, 5) = 0.3005490287942649e-12, (13, 6) = 0.26481499617185948e-11, (13, 7) = -0.5243281058235659e-10, (13, 8) = -0.9594602340600365e-11, (13, 9) = 0.3421249358694579e-10, (14, 1) = 0.311567908661366e-12, (14, 2) = 0.26784107039696174e-12, (14, 3) = -0.4347734912771428e-12, (14, 4) = -0.3900711657752802e-13, (14, 5) = 0.29579821233470074e-12, (14, 6) = -0.2183073691051755e-10, (14, 7) = 0.13532331350179534e-9, (14, 8) = 0.102150267045298e-10, (14, 9) = -0.4037434432405448e-10, (15, 1) = 0.36191646128601704e-12, (15, 2) = -0.7615012298460986e-13, (15, 3) = -0.5962709927610138e-12, (15, 4) = 0.25458328633459012e-13, (15, 5) = -0.2093272032665846e-12, (15, 6) = 0.24012379360094613e-10, (15, 7) = -0.12190103278940525e-9, (15, 8) = -0.4651015875510865e-11, (15, 9) = 0.19153291692729587e-10, (16, 1) = 0.21339011607570307e-12, (16, 2) = -0.32084678345688753e-12, (16, 3) = 0.1381862926163546e-12, (16, 4) = 0.26760530088883925e-13, (16, 5) = -0.23161902610359537e-12, (16, 6) = -0.2565448558429802e-11, (16, 7) = -0.780341027555318e-12, (16, 8) = -0.16606077549439291e-11, (16, 9) = 0.968118695714185e-11, (17, 1) = -0.25706402697546027e-13, (17, 2) = 0.55183322066421577e-13, (17, 3) = 0.7189193808662033e-12, (17, 4) = 0.17410968374919154e-14, (17, 5) = -0.729446183572338e-14, (17, 6) = -0.9955657976094144e-11, (17, 7) = 0.6095498742566647e-10, (17, 8) = 0.22378887384212893e-11, (17, 9) = -0.12772902857763714e-10, (18, 1) = 0.5996721229753867e-13, (18, 2) = 0.5901027857786525e-12, (18, 3) = -0.4155361386136197e-12, (18, 4) = -0.58542764376728556e-14, (18, 5) = 0.6219359739787141e-13, (18, 6) = 0.3324507369287636e-12, (18, 7) = 0.2534730822576258e-11, (18, 8) = 0.615440208650383e-12, (18, 9) = -0.3800358287615847e-11, (19, 1) = 0.4330121322752371e-12, (19, 2) = 0.18004814228391485e-12, (19, 3) = -0.11349004948068184e-11, (19, 4) = -0.2372453086014116e-14, (19, 5) = 0.24054232895420714e-13, (19, 6) = 0.27399926516769413e-11, (19, 7) = -0.16772841609007806e-10, (19, 8) = -0.3838425080344551e-12, (19, 9) = 0.2406729180456695e-11, (20, 1) = 0.5289192115729606e-12, (20, 2) = -0.5920997079377778e-12, (20, 3) = 0.4424950250489303e-12, (20, 4) = 0.4435770494809074e-16, (20, 5) = -0.17659910470837575e-14, (20, 6) = 0.4677832948341392e-12, (20, 7) = -0.3808939439663867e-11, (20, 8) = -0.20669481108925033e-12, (20, 9) = 0.1329132347981419e-11, (21, 1) = 0.1886833585138779e-12, (21, 2) = -0.2902148166622943e-12, (21, 3) = 0.9311259211262213e-12, (21, 4) = 0.31425644162367903e-15, (21, 5) = -0.4120538137944103e-14, (21, 6) = -0.5661001362028079e-12, (21, 7) = 0.34157563609191883e-11, (21, 8) = 0.23367577506328065e-13, (21, 9) = -0.17962924773896272e-12, (22, 1) = -0.271467965930339e-14, (22, 2) = 0.4382773121062764e-12, (22, 3) = -0.8402443515386096e-12, (22, 4) = 0.12655346408325116e-15, (22, 5) = -0.1628133090727533e-14, (22, 6) = -0.316662384003977e-12, (22, 7) = 0.21778804957723436e-11, (22, 8) = 0.51387635785479695e-13, (22, 9) = -0.36212447427189874e-12, (23, 1) = 0.15787997052060104e-12, (23, 2) = 0.279457397159411e-12, (23, 3) = -0.10387125105088698e-11, (23, 4) = 0.2999558911503954e-16, (23, 5) = -0.3889637750002174e-15, (23, 6) = -0.5561682096276831e-16, (23, 7) = 0.8560333263275441e-13, (23, 8) = 0.17047984598373227e-13, (23, 9) = -0.11773575238410316e-12, (24, 1) = 0.32770115357473717e-12, (24, 2) = -0.29046366949064977e-12, (24, 3) = 0.6697800930362651e-12, (24, 4) = 0.5141668805520364e-17, (24, 5) = -0.6763085047701778e-16, (24, 6) = 0.6991200340119174e-13, (24, 7) = -0.4535109131331345e-12, (24, 8) = -0.15070872409869256e-14, (24, 9) = 0.1466007978904493e-13, (25, 1) = 0.30367545615602875e-12, (25, 2) = -0.32891555544622494e-12, (25, 3) = 0.113721798087777e-11, (25, 4) = 0.6920847786405955e-18, (25, 5) = -0.9254667995338726e-17, (25, 6) = 0.35332789679803677e-13, (25, 7) = -0.24729666942726595e-12, (25, 8) = -0.3661959388489881e-14, (25, 9) = 0.2871925677926856e-13, (26, 1) = 0.19114037492183206e-12, (26, 2) = -0.15633911925670464e-14, (26, 3) = 0.6485775240595498e-13, (26, 4) = 0.7659662022353707e-19, (26, 5) = -0.10422472672018803e-17, (26, 6) = 0.5071767818628232e-14, (26, 7) = -0.40556381291639574e-13, (26, 8) = -0.1668559024255563e-14, (26, 9) = 0.12820712830647955e-13, (27, 1) = 0.15552346337002498e-12, (27, 2) = 0.1508723765670259e-12, (27, 3) = -0.6130530203407421e-12, (27, 4) = 0.7184396315089854e-20, (27, 5) = -0.9951220310214939e-19, (27, 6) = -0.3883052162815989e-14, (27, 7) = 0.25393610403856576e-13, (27, 8) = -0.35405729152898586e-15, (27, 9) = 0.2537898212620954e-14, (28, 1) = 0.18421734849669772e-12, (28, 2) = 0.7132055347078763e-13, (28, 3) = -0.33862033043210943e-12, (28, 4) = 0.5838693302528357e-21, (28, 5) = -0.823327439749357e-20, (28, 6) = -0.325350721559335e-14, (28, 7) = 0.22844226807260792e-13, (28, 8) = 0.3935405267553348e-16, (28, 9) = -0.4845952564799585e-15, (29, 1) = 0.20679433505544764e-12, (29, 2) = -0.24124785222843647e-13, (29, 3) = 0.9149068150566002e-13, (29, 4) = 0.41659225176683164e-22, (29, 5) = -0.5980447655606985e-21, (29, 6) = -0.13346544122355226e-14, (29, 7) = 0.9599043099085426e-14, (29, 8) = 0.7122067783549155e-16, (29, 9) = -0.6622022866886662e-15, (30, 1) = 0.2114040315355687e-12, (30, 2) = -0.405954389841434e-13, (30, 3) = 0.18596671412292873e-12, (30, 4) = 0.26423036563467377e-23, (30, 5) = -0.38611339699713655e-22, (30, 6) = -0.3047325314932245e-15, (30, 7) = 0.21522714600027558e-14, (30, 8) = 0.3741916464505358e-16, (30, 9) = -0.34368220797829814e-15, (31, 1) = 0.20354030989601533e-12, (31, 2) = -0.16556995825233466e-13, (31, 3) = 0.7200425708441014e-13, (31, 4) = 0.1490643900390583e-24, (31, 5) = -0.221782415551401e-23, (31, 6) = 0.1228088102680229e-16, (31, 7) = -0.2165760047406848e-15, (31, 8) = 0.13897956775249974e-16, (31, 9) = -0.1305967741927181e-15, (32, 1) = 0.20000753996830083e-12, (32, 2) = 0.5667322772405388e-15, (32, 3) = -0.1839493649454992e-13, (32, 4) = 0.9369270298963716e-26, (32, 5) = -0.14285936999535134e-24, (32, 6) = 0.4493071563207732e-16, (32, 7) = -0.4863539324744263e-15, (32, 8) = 0.416159508616002e-17, (32, 9) = -0.4257942103387732e-16, (33, 1) = 0.19780698485879973e-12, (33, 2) = 0.2440221162669036e-14, (33, 3) = -0.27313742015464874e-13, (33, 4) = 0.6724801697653601e-27, (33, 5) = -0.11693536310870121e-25, (33, 6) = 0.199635363447875e-16, (33, 7) = -0.3100860449662148e-15, (33, 8) = 0.9746150922878277e-18, (33, 9) = -0.13592086606034965e-16, (34, 1) = 0.19707360169925606e-12, (34, 2) = .0, (34, 3) = -0.1051313657143666e-13, (34, 4) = .0, (34, 5) = -0.14363506202079199e-26, (34, 6) = .0, (34, 7) = -0.16223515328445266e-15, (34, 8) = .0, (34, 9) = -0.46497520902413735e-17}, datatype = float[8], order = C_order); if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "right" then return X[34] elif outpoint = "order" then return 10 elif outpoint = "error" then return HFloat(1.3532331350179534e-10) elif outpoint = "errorproc" then error "this is already the error procedure" elif outpoint = "rawdata" then return [9, 34, [f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], X, Y] else return ('procname')(x_bvp) end if end if; if outpoint < X[1] or X[34] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[34] end if; V := array([1 = 4, 2 = 0]); if Digits <= trunc(evalhf(Digits)) then L := Vector(4, 'datatype' = 'float'[8]); yout := Vector(9, 'datatype' = 'float'[8]); evalhf(`dsolve/numeric/lagrange`(34, 9, X, Y, outpoint, var(yout), var(L), var(V))) else L := Vector(4, 'datatype' = 'sfloat'); yout := Vector(9, 'datatype' = 'sfloat'); `dsolve/numeric/lagrange`(34, 9, X, Y, outpoint, yout, L, V) end if; [eta = outpoint, seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = yout[i], i = 1 .. 9)] end proc; if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "method" then return "bvp" elif outpoint = "right" then return X[34] elif outpoint = "order" then return 10 elif outpoint = "error" then return HFloat(1.3532331350179534e-10) elif outpoint = "errorproc" then return eval(errproc) elif outpoint = "rawdata" then return [9, 34, "depnames", X, Y, YP] else error "non-numeric value" end if end if; if outpoint < X[1] or X[34] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[34] end if; if Digits <= trunc(evalhf(Digits)) and (_EnvInFsolve <> true or _EnvDSNumericSaveDigits <= trunc(evalhf(Digits))) then V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0, (3, 1) = .0, (3, 2) = .0, (4, 1) = .0, (4, 2) = .0, (5, 1) = .0, (5, 2) = .0, (6, 1) = .0, (6, 2) = .0, (7, 1) = .0, (7, 2) = .0}, datatype = float[8], order = C_order); yout := Vector(9, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0, (9) = .0}, datatype = float[8]); evalhf(`dsolve/numeric/hermite`(34, 9, X, Y, YP, outpoint, var(yout), var(L), var(V))) else if _EnvInFsolve = true then Digits := _EnvDSNumericSaveDigits end if; V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = 0., (1, 2) = 0., (2, 1) = 0., (2, 2) = 0., (3, 1) = 0., (3, 2) = 0., (4, 1) = 0., (4, 2) = 0., (5, 1) = 0., (5, 2) = 0., (6, 1) = 0., (6, 2) = 0., (7, 1) = 0., (7, 2) = 0.}, order = C_order); yout := Vector(9, {(1) = 0., (2) = 0., (3) = 0., (4) = 0., (5) = 0., (6) = 0., (7) = 0., (8) = 0., (9) = 0.}); `dsolve/numeric/hermite`(34, 9, X, Y, YP, outpoint, yout, L, V) end if; [outpoint, seq(yout[i], i = 1 .. 9)] end proc, (2) = Array(0..0, {}), (3) = [eta, f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], (4) = 0}); solnproc := data[1]; if not type(outpoint, 'numeric') then if outpoint = "solnprocedure" then return eval(solnproc) elif member(outpoint, ["start", "left", "right", "errorproc", "rawdata", "order", "error"]) then return solnproc(x_bvp) elif outpoint = "sysvars" then return data[3] elif procname <> unknown then return ('procname')(x_bvp) else _ndsol := pointto(data[2][0]); return ('_ndsol')(x_bvp) end if end if; try res := solnproc(outpoint); [eta = res[1], seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = res[i+1], i = 1 .. 9)] catch: error  end try end proc

 

 

proc (x_bvp) local res, data, solnproc, _ndsol, outpoint, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then outpoint := evalf[_EnvDSNumericSaveDigits](x_bvp) else outpoint := evalf(x_bvp) end if; data := Array(1..4, {(1) = proc (outpoint) local X, Y, YP, yout, errproc, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; X := Vector(35, {(1) = .0, (2) = .12749715022450836, (3) = .25605698721917164, (4) = .38695249700082396, (5) = .5210567472636626, (6) = .6598409946595171, (7) = .8041036044568863, (8) = .9546377687147535, (9) = 1.1111913115811083, (10) = 1.2733101425756794, (11) = 1.4394846702915018, (12) = 1.6085101064158414, (13) = 1.7796811606208904, (14) = 1.9524649090671249, (15) = 2.1269604715842054, (16) = 2.3034104801712836, (17) = 2.4825420245947605, (18) = 2.664620862424041, (19) = 2.849853866441256, (20) = 3.038433404968119, (21) = 3.230431956960644, (22) = 3.4257876820505753, (23) = 3.6244547568213603, (24) = 3.8263174640412196, (25) = 4.030996564086637, (26) = 4.2379704086249586, (27) = 4.446876079848968, (28) = 4.657298401561449, (29) = 4.868823130864057, (30) = 5.081174878794767, (31) = 5.2940763818148175, (32) = 5.507380660872569, (33) = 5.701599596563936, (34) = 5.86354865627428, (35) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(35, 9, {(1, 1) = .29827964780328764, (1, 2) = 1.0, (1, 3) = -.4593107676414169, (1, 4) = 1.0, (1, 5) = -2.814311446902807, (1, 6) = 1.0, (1, 7) = -1.240555463823252, (1, 8) = 1.0, (1, 9) = -.31816495765684005, (2, 1) = .42276764469410427, (2, 2) = .9582946558256945, (2, 3) = -.2005529558280186, (2, 4) = .6893252856194496, (2, 5) = -2.0889901510524593, (2, 6) = .8469862431340814, (2, 7) = -1.154803004217796, (2, 8) = .9578941805944395, (2, 9) = -.3427743111277334, (3, 1) = .5449571361213161, (3, 2) = .9474672766043083, (3, 3) = 0.26519286056817734e-1, (3, 4) = .45921961176921045, (3, 5) = -1.5133470609539035, (3, 6) = .705534346550141, (3, 7) = -1.0419308021186093, (3, 8) = .9120797798890945, (3, 9) = -.3704775472422472, (4, 1) = .6697906102324774, (4, 2) = .9642068410485848, (4, 3) = .2235437648625982, (4, 4) = .29247005349723626, (4, 5) = -1.0540400326731834, (4, 6) = .5777852109713263, (4, 7) = -.9073576617844665, (4, 8) = .8615555636822739, (4, 9) = -.4021162273995921, (5, 1) = .8016305933429809, (5, 2) = 1.0057435939480357, (5, 3) = .38994137690982184, (5, 4) = .17626037809085515, (5, 5) = -.6968841678399251, (5, 6) = .46607116209092114, (5, 7) = -.7574040081925993, (5, 8) = .8052325005452998, (5, 9) = -.438595110459179, (6, 1) = .9454292674109945, (6, 2) = 1.069622158738795, (6, 3) = .5241025554127182, (6, 4) = 0.9911391483312611e-1, (6, 5) = -.4309175782800838, (6, 6) = .37198965672043527, (6, 7) = -.598530756451782, (6, 8) = .7414722389464543, (6, 9) = -.4810599309742026, (7, 1) = 1.1055653972904318, (7, 2) = 1.1527880407077569, (7, 3) = .6216472625591476, (7, 4) = 0.5129475803561501e-1, (7, 5) = -.24566561167732612, (7, 6) = .2972692884318061, (7, 7) = -.4391435027451014, (7, 8) = .6685860220650308, (7, 9) = -.5301931742837361, (8, 1) = 1.2863953424778787, (8, 2) = 1.2510921634832255, (8, 3) = .6762057615254279, (8, 4) = 0.24043996312412663e-1, (8, 5) = -.12702460236805663, (8, 6) = .24270796354133714, (8, 7) = -.2894783721819916, (8, 8) = .5846588630482372, (8, 9) = -.5852008039219289, (9, 1) = 1.4906145161633608, (9, 2) = 1.3579254615769172, (9, 3) = .6792412352399116, (9, 4) = 0.10078860323680005e-1, (9, 5) = -0.5875680554150573e-1, (9, 6) = .20770786907316072, (9, 7) = -.16389495648909957, (9, 8) = .488638817727352, (9, 9) = -.6401359520601079, (10, 1) = 1.7195026432354708, (10, 2) = 1.4642267182356172, (10, 3) = .6216164204803559, (10, 4) = 0.3733200755115074e-2, (10, 5) = -0.2399588724618251e-1, (10, 6) = .18854241367371252, (10, 7) = -0.824008001902804e-1, (10, 8) = .38140928960042847, (10, 9) = -.6769796688593245, (11, 1) = 1.9709026800091671, (11, 2) = 1.5580317251598905, (11, 3) = .49610242962013884, (11, 4) = 0.12168498214102938e-2, (11, 5) = -0.8600865654660336e-2, (11, 6) = .1769760292187995, (11, 7) = -0.7014556400369003e-1, (11, 8) = .2693851953669248, (11, 9) = -.6581628152791628, (12, 1) = 2.2404839183344194, (12, 2) = 1.6262831796919326, (12, 3) = .30043686475072146, (12, 4) = 0.3482159044306508e-3, (12, 5) = -0.26948708873880964e-2, (12, 6) = .1607099337732908, (12, 7) = -.1318753466558721, (12, 8) = .16623460269637327, (12, 9) = -.5463717310003724, (13, 1) = 2.5220558120016725, (13, 2) = 1.6562330554576452, (13, 3) = 0.4024828743568249e-1, (13, 4) = 0.8729592151659544e-4, (13, 5) = -0.7355920824674441e-3, (13, 6) = .1309990060121682, (13, 7) = -.2103120515274862, (13, 8) = 0.8779850966775464e-1, (13, 9) = -.36529669637749096, (14, 1) = 2.80733753599726, (14, 2) = 1.6370770322310038, (14, 3) = -.2673322704049564, (14, 4) = 0.19178595992075392e-4, (14, 5) = -0.1747811173440762e-3, (14, 6) = 0.9191699831184644e-1, (14, 7) = -.22905250909870875, (14, 8) = 0.3997250614469064e-1, (14, 9) = -.1967166216278267, (15, 1) = 3.0872753033353777, (15, 2) = 1.561978568689287, (15, 3) = -.5926527916887021, (15, 4) = 0.36863234452960634e-5, (15, 5) = -0.36064672480701e-4, (15, 6) = 0.5533160200343358e-1, (15, 7) = -.18285378252675438, (15, 8) = 0.16019311170764258e-1, (15, 9) = -0.8867353384956166e-1, (16, 1) = 3.3520318812982004, (16, 2) = 1.430055647466813, (16, 3) = -.8941711502439368, (16, 4) = 0.6196906163621693e-6, (16, 5) = -0.6457211148148708e-5, (16, 6) = 0.2900372534942012e-1, (16, 7) = -.11585786543406909, (16, 8) = 0.5764258906996044e-2, (16, 9) = -0.3477375648655288e-1, (17, 1) = 3.592489972337411, (17, 2) = 1.2477388178969926, (17, 3) = -1.1251411158612419, (17, 4) = 0.9081979826263406e-7, (17, 5) = -0.9999383440938342e-6, (17, 6) = 0.13445154019138967e-1, (17, 7) = -0.61443620810999536e-1, (17, 8) = 0.18827041371116961e-2, (17, 9) = -0.12139676597899697e-1, (18, 1) = 3.80019152237252, (18, 2) = 1.0300966673413436, (18, 3) = -1.2438704356083428, (18, 4) = 0.1164210387376716e-7, (18, 5) = -0.13437921215335973e-6, (18, 6) = 0.5593004943609769e-2, (18, 7) = -0.28235068007374062e-1, (18, 8) = 0.5629788473749914e-3, (18, 9) = -0.38296152378962853e-2, (19, 1) = 3.9695495377285566, (19, 2) = .798944426086244, (19, 3) = -1.2297040215243336, (19, 4) = 0.13125603390794598e-8, (19, 5) = -0.15766662918287645e-7, (19, 6) = 0.21135274617868583e-2, (19, 7) = -0.11509551417095166e-1, (19, 8) = 0.15512201850302726e-3, (19, 9) = -0.11024448366794165e-2, (20, 1) = 4.098999414400277, (20, 2) = .5782525671498183, (20, 3) = -1.0936072396113785, (20, 4) = 0.13096264310758703e-9, (20, 5) = -0.1626698954685329e-8, (20, 6) = 0.7328847277088636e-3, (20, 7) = -0.4233062024302352e-2, (20, 8) = 0.3959108880975777e-4, (20, 9) = -0.2917387677801637e-3, (21, 1) = 4.191120202590972, (21, 2) = .3883291824888921, (21, 3) = -.8763944018064724, (21, 4) = 0.11646189814302018e-10, (21, 5) = -0.14880974953641621e-9, (21, 6) = 0.23526322365046375e-3, (21, 7) = -0.14237198655298908e-2, (21, 8) = 0.9407619131940101e-5, (21, 9) = -0.7145049484053003e-4, (22, 1) = 4.251811352963701, (22, 2) = .24095021971655572, (22, 3) = -.6333786980986275, (22, 4) = 0.9297237754282584e-12, (22, 5) = -0.12173298477308697e-10, (22, 6) = 0.7046014149281105e-4, (22, 7) = -0.44282980001244957e-3, (22, 8) = 0.20917087085358352e-5, (22, 9) = -0.16301489686561315e-4, (23, 1) = 4.288701393375118, (23, 2) = .13772807500987544, (23, 3) = -.4132512512920861, (23, 4) = 0.6694976246171369e-13, (23, 5) = -0.8959041030679103e-12, (23, 6) = 0.19804585441562337e-4, (23, 7) = -0.12846717554107422e-3, (23, 8) = 0.43674985235346376e-6, (23, 9) = -0.34819474885280983e-5, (24, 1) = 4.309335481594124, (24, 2) = 0.7240867901457243e-1, (24, 3) = -.24385532532924262, (24, 4) = 0.4363602698594396e-14, (24, 5) = -0.5957889841984457e-13, (24, 6) = 0.52486123645156275e-5, (24, 7) = -0.3499139528164402e-4, (24, 8) = 0.8588240478031201e-7, (24, 9) = -0.6990345233982686e-6, (25, 1) = 4.3199350509866035, (25, 2) = 0.35021653160984864e-1, (25, 3) = -.13054858228615426, (25, 4) = 0.258716878038081e-15, (25, 5) = -0.360058261809674e-14, (25, 6) = 0.13181831343828065e-5, (25, 7) = -0.9005970823277549e-5, (25, 8) = 0.1596607257805768e-7, (25, 9) = -0.132518391811466e-6, (26, 1) = 4.324936959532162, (26, 2) = 0.15609348350808369e-1, (26, 3) = -0.6367101196865653e-1, (26, 4) = 0.14034744458838334e-16, (26, 5) = -0.1989716862098591e-15, (26, 6) = 0.3153495694792843e-6, (26, 7) = -0.2203557459656569e-5, (26, 8) = 0.28185250853885963e-8, (26, 9) = -0.23838095536277032e-7, (27, 1) = 4.327110738863352, (27, 2) = 0.6421658848488656e-2, (27, 3) = -0.28400574652724758e-1, (27, 4) = 0.6986440489371548e-18, (27, 5) = -0.10085909064283426e-16, (27, 6) = 0.7211236962542219e-7, (27, 7) = -0.5146550130829033e-6, (27, 8) = 0.4737647614377911e-9, (27, 9) = -0.4081241709924881e-8, (28, 1) = 4.32798213623329, (28, 2) = 0.2443413386028776e-2, (28, 3) = -0.11632036380739327e-1, (28, 4) = 0.3202729968750562e-19, (28, 5) = -0.4706804276107416e-18, (28, 6) = 0.15817948503054614e-7, (28, 7) = -0.11518371015335407e-6, (28, 8) = 0.7605828750984261e-10, (28, 9) = -0.6671450986921702e-9, (29, 1) = 4.328304978435466, (29, 2) = 0.8613934445254764e-3, (29, 3) = -0.4391085943848175e-2, (29, 4) = 0.13567945993608263e-20, (29, 5) = -0.202934352422038e-19, (29, 6) = 0.3339234273945431e-8, (29, 7) = -0.24791954895038447e-7, (29, 8) = 0.11698207665853225e-10, (29, 9) = -0.1044545932780809e-9, (30, 1) = 4.328415715471198, (30, 2) = 0.2812998102739962e-3, (30, 3) = -0.1532031799137515e-2, (30, 4) = 0.5329058603151024e-22, (30, 5) = -0.8109845937678252e-21, (30, 6) = 0.6797345294101692e-9, (30, 7) = -0.51444843901911634e-8, (30, 8) = 0.17270772689165266e-11, (30, 9) = -0.1569631978334699e-10, (31, 1) = 4.328450825869358, (31, 2) = 0.8470074561440626e-4, (31, 3) = -0.4949217282373613e-3, (31, 4) = 0.1931823699096787e-23, (31, 5) = -0.2990803672822708e-22, (31, 6) = 0.13346929045280903e-9, (31, 7) = -0.10316326192972865e-8, (31, 8) = 0.2450924514273287e-12, (31, 9) = -0.22686666108429055e-11, (32, 1) = 4.328461026098542, (32, 2) = 0.2303352116516764e-4, (32, 3) = -0.14785254279339426e-3, (32, 4) = 0.677482665188198e-25, (32, 5) = -0.10664527051753965e-23, (32, 6) = 0.25046732690804577e-10, (32, 7) = -0.20019796426744644e-9, (32, 8) = 0.33276909810153687e-13, (32, 9) = -0.31573384569417525e-12, (33, 1) = 4.328463533080603, (33, 2) = 0.6026636069150454e-5, (33, 3) = -0.4571573058121896e-4, (33, 4) = 0.2443982912331616e-26, (33, 5) = -0.394395832922747e-25, (33, 6) = 0.5010626599202483e-11, (33, 7) = -0.4385104979546144e-10, (33, 8) = 0.5030851418938532e-14, (33, 9) = -0.5088479082891081e-13, (34, 1) = 4.328464071463702, (34, 2) = 0.14122649612901025e-5, (34, 3) = -0.16008393673164007e-4, (34, 4) = 0.23602162852881045e-27, (34, 5) = -0.4127860484617812e-26, (34, 6) = 0.10070762099932512e-11, (34, 7) = -0.12134799463128695e-10, (34, 8) = 0.825707691417027e-15, (34, 9) = -0.10868527833601425e-13, (35, 1) = 4.328464152608338, (35, 2) = .0, (35, 3) = -0.609324224367239e-5, (35, 4) = .0, (35, 5) = -0.32335721367173567e-27, (35, 6) = .0, (35, 7) = -0.4057754193631551e-11, (35, 8) = .0, (35, 9) = -0.2915270805269468e-14}, datatype = float[8], order = C_order); YP := Matrix(35, 9, {(1, 1) = 1.0, (1, 2) = -.4593107676414169, (1, 3) = 2.1630991654824387, (1, 4) = -2.814311446902807, (1, 5) = 6.438562115470875, (1, 6) = -1.240555463823252, (1, 7) = .5529299652336989, (1, 8) = -.31816495765684005, (1, 9) = -.18289751840405513, (2, 1) = .9582946558256945, (2, 2) = -.2005529558280186, (2, 3) = 1.8972835671543016, (2, 4) = -2.0889901510524593, (2, 5) = 5.0262391363106556, (2, 6) = -1.154803004217796, (2, 7) = .7838939558289323, (2, 8) = -.3427743111277334, (2, 9) = -.2036593020823053, (3, 1) = .9474672766043083, (3, 2) = 0.26519286056817734e-1, (3, 3) = 1.6362245141405247, (3, 4) = -1.5133470609539035, (3, 5) = 3.9687751758271155, (3, 6) = -1.0419308021186093, (3, 7) = .9624449656977621, (3, 8) = -.3704775472422472, (3, 9) = -.2278913009377776, (4, 1) = .9642068410485848, (4, 2) = .2235437648625982, (4, 3) = 1.3745660163233682, (4, 4) = -1.0540400326731834, (4, 5) = 3.071277402577049, (4, 6) = -.9073576617844665, (4, 7) = 1.0833001255085168, (4, 8) = -.4021162273995921, (4, 9) = -.2561202879600799, (5, 1) = 1.0057435939480357, (5, 2) = .38994137690982184, (5, 3) = 1.1067471224039203, (5, 4) = -.6968841678399251, (5, 5) = 2.2749635484301587, (5, 6) = -.7574040081925993, (5, 7) = 1.142217403124632, (5, 8) = -.438595110459179, (5, 9) = -.28840263559103635, (6, 1) = 1.069622158738795, (6, 2) = .5241025554127182, (6, 3) = .8256278988642514, (6, 4) = -.4309175782800838, (6, 5) = 1.5811216352233994, (6, 6) = -.598530756451782, (6, 7) = 1.1362565332404688, (6, 8) = -.4810599309742026, (6, 9) = -.32355358260065153, (7, 1) = 1.1527880407077569, (7, 2) = .6216472625591476, (7, 3) = .5248864135118771, (7, 4) = -.24566561167732612, (7, 5) = 1.0139513824322686, (7, 6) = -.4391435027451014, (7, 7) = 1.0622585072438528, (7, 8) = -.5301931742837361, (7, 9) = -.35605860026947883, (8, 1) = 1.2510921634832255, (8, 2) = .6762057615254279, (8, 3) = .19729067339630668, (8, 4) = -.12702460236805663, (8, 5) = .5896375740733264, (8, 6) = -.2894783721819916, (8, 7) = .9139157281161514, (8, 8) = -.5852008039219289, (8, 9) = -.3688152313237874, (9, 1) = 1.3579254615769172, (9, 2) = .6792412352399116, (9, 3) = -.16172222348462162, (9, 4) = -0.5875680554150573e-1, (9, 5) = .30631678778000937, (9, 6) = -.16389495648909957, (9, 7) = .6742765297595599, (9, 8) = -.6401359520601079, (9, 9) = -.31614817120178856, (10, 1) = 1.4642267182356172, (10, 2) = .6216164204803559, (10, 3) = -.5516788573905735, (10, 4) = -0.2399588724618251e-1, (10, 5) = .140135512324097, (10, 6) = -0.824008001902804e-1, (10, 7) = .30930379042476425, (10, 8) = -.6769796688593245, (10, 9) = -.10203928754371173, (11, 1) = 1.5580317251598905, (11, 2) = .49610242962013884, (11, 3) = -.9583080052790494, (11, 4) = -0.8600865654660336e-2, (11, 5) = 0.5602016461562381e-1, (11, 6) = -0.7014556400369003e-1, (11, 7) = -.16808390655327965, (11, 8) = -.6581628152791628, (11, 9) = .3694424016840714, (12, 1) = 1.6262831796919326, (12, 2) = .30043686475072146, (12, 3) = -1.3496826786592921, (12, 4) = -0.26948708873880964e-2, (12, 5) = 0.1946103166188167e-1, (12, 6) = -.1318753466558721, (12, 7) = -.49941823558199855, (12, 8) = -.5463717310003724, (12, 9) = .927459596416171, (13, 1) = 1.6562330554576452, (13, 2) = 0.4024828743568249e-1, (13, 3) = -1.6729885329043643, (13, 4) = -0.7355920824674441e-3, (13, 5) = 0.5848260730875393e-2, (13, 6) = -.2103120515274862, (13, 7) = -.3306800927008575, (13, 8) = -.36529669637749096, (13, 9) = 1.0950290720616225, (14, 1) = 1.6370770322310038, (14, 2) = -.2673322704049564, (14, 3) = -1.857583910943752, (14, 4) = -0.1747811173440762e-3, (14, 5) = 0.15175797371270506e-2, (14, 6) = -.22905250909870875, (14, 7) = .11215384897567393, (14, 8) = -.1967166216278267, (14, 9) = .8103844739996146, (15, 1) = 1.561978568689287, (15, 2) = -.5926527916887021, (15, 3) = -1.830547688130305, (15, 4) = -0.36064672480701e-4, (15, 5) = 0.3390488301292e-3, (15, 6) = -.18285378252675438, (15, 7) = .36690451492746257, (15, 8) = -0.8867353384956166e-1, (15, 9) = .44069218168513247, (16, 1) = 1.430055647466813, (16, 2) = -.8941711502439368, (16, 3) = -1.5425497137970443, (16, 4) = -0.6457211148148708e-5, (16, 5) = 0.6513812472323982e-4, (16, 6) = -.11585786543406909, (16, 7) = .36002263107978744, (16, 8) = -0.3477375648655288e-1, (16, 9) = .19512926596131214, (17, 1) = 1.2477388178969926, (17, 2) = -1.1251411158612419, (17, 3) = -.9998691984417212, (17, 4) = -0.9999383440938342e-6, (17, 5) = 0.10726464479161598e-4, (17, 6) = -0.61443620810999536e-1, (17, 7) = .24178158070201589, (17, 8) = -0.12139676597899697e-1, (17, 9) = 0.7428924267970942e-1, (18, 1) = 1.0300966673413436, (18, 2) = -1.2438704356083428, (18, 3) = -.2901257946683687, (18, 4) = -0.13437921215335973e-6, (18, 5) = 0.1519293904739665e-5, (18, 6) = -0.28235068007374062e-1, (18, 7) = .12927642306340906, (18, 8) = -0.38296152378962853e-2, (18, 9) = 0.25044587552081974e-1, (19, 1) = .798944426086244, (19, 2) = -1.2297040215243336, (19, 3) = .4267614469959355, (19, 4) = -0.15766662918287645e-7, (19, 5) = 0.1863125362212493e-6, (19, 6) = -0.11509551417095166e-1, (19, 7) = 0.58587195800261074e-1, (19, 8) = -0.11024448366794165e-2, (19, 9) = 0.7600875961315288e-2, (20, 1) = .5782525671498183, (20, 2) = -1.0936072396113785, (20, 3) = .9740967018588325, (20, 4) = -0.1626698954685329e-8, (20, 5) = 0.1994322155224929e-7, (20, 6) = -0.4233062024302352e-2, (20, 7) = 0.23290735041597725e-1, (20, 8) = -0.2917387677801637e-3, (20, 9) = 0.20992568796015625e-2, (21, 1) = .3883291824888921, (21, 2) = -.8763944018064724, (21, 3) = 1.2362733480245278, (21, 4) = -0.14880974953641621e-9, (21, 5) = 0.1881345113350223e-8, (21, 6) = -0.14237198655298908e-2, (21, 7) = 0.8309079640317747e-2, (21, 8) = -0.7145049484053003e-4, (21, 9) = 0.5324202955393482e-3, (22, 1) = .24095021971655572, (22, 2) = -.6333786980986275, (22, 3) = 1.2091004379893524, (22, 4) = -0.12173298477308697e-10, (22, 5) = 0.1579759828133963e-9, (22, 6) = -0.44282980001244957e-3, (22, 7) = 0.27059247920894276e-2, (22, 8) = -0.16301489686561315e-4, (22, 9) = 0.12505452536388143e-3, (23, 1) = .13772807500987544, (23, 2) = -.4132512512920861, (23, 3) = .9854358946844521, (23, 4) = -0.8959041030679103e-12, (23, 5) = 0.11895873521940735e-10, (23, 6) = -0.12846717554107422e-3, (23, 7) = 0.8145874065579576e-3, (23, 8) = -0.34819474885280983e-5, (23, 9) = 0.27384614116295344e-4, (24, 1) = 0.7240867901457243e-1, (24, 2) = -.24385532532924262, (24, 3) = .6916664946873927, (24, 4) = -0.5957889841984457e-13, (24, 5) = 0.807769872730309e-12, (24, 6) = -0.3499139528164402e-4, (24, 7) = 0.22884889033521867e-3, (24, 8) = -0.6990345233982686e-6, (24, 9) = 0.5620887688282649e-5, (25, 1) = 0.35021653160984864e-1, (25, 2) = -.13054858228615426, (25, 3) = .4261466857459941, (25, 4) = -0.360058261809674e-14, (25, 5) = 0.4978401712068562e-13, (25, 6) = -0.9005970823277549e-5, (25, 7) = 0.60507006872355795e-4, (25, 8) = -0.132518391811466e-6, (25, 9) = 0.10876005583437555e-5, (26, 1) = 0.15609348350808369e-1, (26, 2) = -0.6367101196865653e-1, (26, 3) = .2336567953193398, (26, 4) = -0.1989716862098591e-15, (26, 5) = 0.28035595139388896e-14, (26, 6) = -0.2203557459656569e-5, (26, 7) = 0.15167392411365162e-4, (26, 8) = -0.23838095536277032e-7, (26, 9) = 0.19948675568716324e-6, (27, 1) = 0.6421658848488656e-2, (27, 2) = -0.28400574652724758e-1, (27, 3) = .11518678651702556, (27, 4) = -0.10085909064283426e-16, (27, 5) = 0.14475645856810217e-15, (27, 6) = -0.5146550130829033e-6, (27, 7) = 0.36225450874876032e-5, (27, 8) = -0.4081241709924881e-8, (27, 9) = 0.34803563341236734e-7, (28, 1) = 0.2443413386028776e-2, (28, 2) = -0.11632036380739327e-1, (28, 3) = 0.5148075460140208e-1, (28, 4) = -0.4706804276107416e-18, (28, 5) = 0.68787997483006716e-17, (28, 6) = -0.11518371015335407e-6, (28, 7) = 0.8279959173535162e-6, (28, 8) = -0.6671450986921702e-9, (28, 9) = 0.57951908147315966e-8, (29, 1) = 0.8613934445254764e-3, (29, 2) = -0.4391085943848175e-2, (29, 3) = 0.21003931231360465e-1, (29, 4) = -0.202934352422038e-19, (29, 5) = 0.3019149909754638e-18, (29, 6) = -0.24791954895038447e-7, (29, 7) = 0.1818254571474525e-6, (29, 8) = -0.1044545932780809e-9, (29, 9) = 0.9239618075784416e-9, (30, 1) = 0.2812998102739962e-3, (30, 2) = -0.1532031799137515e-2, (30, 3) = 0.7863939676171827e-2, (30, 4) = -0.8109845937678252e-21, (30, 5) = 0.12279205125146952e-19, (30, 6) = -0.51444843901911634e-8, (30, 7) = 0.3846363756638948e-7, (30, 8) = -0.1569631978334699e-10, (30, 9) = 0.14134504597969e-9, (31, 1) = 0.8470074561440626e-4, (31, 2) = -0.4949217282373613e-3, (31, 3) = 0.2713488199935228e-2, (31, 4) = -0.2990803672822708e-22, (31, 5) = 0.4607428620098633e-21, (31, 6) = -0.10316326192972865e-8, (31, 7) = 0.785804309584349e-8, (31, 8) = -0.22686666108429055e-11, (31, 9) = 0.20791644979818418e-10, (32, 1) = 0.2303352116516764e-4, (32, 2) = -0.14785254279339426e-3, (32, 3) = 0.8651870901959909e-3, (32, 4) = -0.10664527051753965e-23, (32, 5) = 0.167113654588741e-22, (32, 6) = -0.20019796426744644e-9, (32, 7) = 0.15527089639746277e-8, (32, 8) = -0.31573384569417525e-12, (32, 9) = 0.2944119831652716e-11, (33, 1) = 0.6026636069150454e-5, (33, 2) = -0.4571573058121896e-4, (33, 3) = 0.2858893950547157e-3, (33, 4) = -0.394395832922747e-25, (33, 5) = 0.6274774434418087e-24, (33, 6) = -0.4385104979546144e-10, (33, 7) = 0.34558897773521386e-9, (33, 8) = -0.5088479082891081e-13, (33, 9) = 0.4818970809351246e-12, (34, 1) = 0.14122649612901025e-5, (34, 2) = -0.16008393673164007e-4, (34, 3) = 0.1079790409166282e-3, (34, 4) = -0.4127860484617812e-26, (34, 5) = 0.6646952774264759e-25, (34, 6) = -0.12134799463128695e-10, (34, 7) = 0.968914114744202e-10, (34, 8) = -0.10868527833601425e-13, (34, 9) = 0.10424894501569935e-12, (35, 1) = .0, (35, 2) = -0.609324224367239e-5, (35, 3) = 0.45699316827542924e-4, (35, 4) = -0.32335721367173567e-27, (35, 5) = 0.5224459318268863e-26, (35, 6) = -0.4057754193631551e-11, (35, 7) = 0.3275216070051402e-10, (35, 8) = -0.2915270805269468e-14, (35, 9) = 0.28261092834615197e-13}, datatype = float[8], order = C_order); errproc := proc (x_bvp) local outpoint, X, Y, yout, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; Digits := 15; outpoint := evalf(x_bvp); X := Vector(35, {(1) = .0, (2) = .12749715022450836, (3) = .25605698721917164, (4) = .38695249700082396, (5) = .5210567472636626, (6) = .6598409946595171, (7) = .8041036044568863, (8) = .9546377687147535, (9) = 1.1111913115811083, (10) = 1.2733101425756794, (11) = 1.4394846702915018, (12) = 1.6085101064158414, (13) = 1.7796811606208904, (14) = 1.9524649090671249, (15) = 2.1269604715842054, (16) = 2.3034104801712836, (17) = 2.4825420245947605, (18) = 2.664620862424041, (19) = 2.849853866441256, (20) = 3.038433404968119, (21) = 3.230431956960644, (22) = 3.4257876820505753, (23) = 3.6244547568213603, (24) = 3.8263174640412196, (25) = 4.030996564086637, (26) = 4.2379704086249586, (27) = 4.446876079848968, (28) = 4.657298401561449, (29) = 4.868823130864057, (30) = 5.081174878794767, (31) = 5.2940763818148175, (32) = 5.507380660872569, (33) = 5.701599596563936, (34) = 5.86354865627428, (35) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(35, 9, {(1, 1) = -0.6567357391912079e-15, (1, 2) = .0, (1, 3) = 0.6096140731632884e-13, (1, 4) = .0, (1, 5) = -0.7397219697063043e-13, (1, 6) = .0, (1, 7) = -0.1007027858292113e-13, (1, 8) = .0, (1, 9) = 0.11646463789835269e-14, (2, 1) = 0.3342358149859276e-14, (2, 2) = 0.7502609722196556e-16, (2, 3) = 0.8855820919380107e-13, (2, 4) = 0.19205881132981648e-13, (2, 5) = -0.7914059903563197e-13, (2, 6) = 0.24010968947514727e-16, (2, 7) = -0.13555272912289508e-13, (2, 8) = -0.4776232486261816e-16, (2, 9) = 0.1175018264091448e-14, (3, 1) = 0.37890792424311145e-14, (3, 2) = 0.14243583374613594e-13, (3, 3) = 0.8924063283597768e-13, (3, 4) = 0.2447445354313162e-13, (3, 5) = -0.5524005187523698e-13, (3, 6) = -0.3703556752025279e-14, (3, 7) = -0.10199437671887792e-13, (3, 8) = 0.526216144271345e-15, (3, 9) = 0.20980713787228357e-14, (4, 1) = 0.29867428763686456e-14, (4, 2) = 0.26343655771012447e-13, (4, 3) = 0.10813188043573817e-12, (4, 4) = 0.17880891062741e-13, (4, 5) = -0.3664467359166012e-13, (4, 6) = -0.3187690468499276e-14, (4, 7) = -0.9066820868332271e-14, (4, 8) = 0.1513559440596786e-15, (4, 9) = 0.11238275194120839e-14, (5, 1) = 0.69311376078637375e-14, (5, 2) = 0.38639707451388535e-13, (5, 3) = 0.994337821770794e-13, (5, 4) = 0.1761375524404628e-13, (5, 5) = -0.3228362616159424e-13, (5, 6) = -0.5058182372233438e-14, (5, 7) = -0.6857304144760358e-14, (5, 8) = 0.14902043420348188e-14, (5, 9) = 0.1595435174583195e-14, (6, 1) = 0.13361701568696277e-13, (6, 2) = 0.46313396235151144e-13, (6, 3) = 0.973321085781965e-13, (6, 4) = 0.12286358759658158e-13, (6, 5) = -0.22342157985106315e-13, (6, 6) = -0.7011559650992144e-14, (6, 7) = -0.6278724360279411e-14, (6, 8) = -0.1133478409899807e-15, (6, 9) = 0.2082266138700749e-14, (7, 1) = 0.18701499993720607e-13, (7, 2) = 0.6479893516092014e-13, (7, 3) = 0.11576150685283025e-12, (7, 4) = -0.20224235628142557e-14, (7, 5) = 0.21248397248819016e-13, (7, 6) = -0.7349175201586306e-14, (7, 7) = -0.5415964734446662e-14, (7, 8) = 0.57023115361983005e-15, (7, 9) = 0.28661218223981768e-14, (8, 1) = 0.3018839477289639e-13, (8, 2) = 0.8436576592949138e-13, (8, 3) = 0.12110374544436506e-12, (8, 4) = -0.1648812600997047e-13, (8, 5) = 0.9346777025858601e-13, (8, 6) = -0.17973399277245415e-14, (8, 7) = -0.1953803452297116e-13, (8, 8) = 0.6073039713323031e-15, (8, 9) = 0.4409412440302625e-14, (9, 1) = 0.4461799800786312e-13, (9, 2) = 0.10397023539483472e-12, (9, 3) = 0.14003575743660538e-12, (9, 4) = 0.4578674638433293e-14, (9, 5) = 0.30506197543000386e-13, (9, 6) = 0.42997765940834925e-13, (9, 7) = -0.16492533599259904e-12, (9, 8) = -0.5805706849539464e-14, (9, 9) = 0.17723707060542712e-13, (10, 1) = 0.5825086800646252e-13, (10, 2) = 0.12094993881715118e-12, (10, 3) = 0.14199476165550017e-12, (10, 4) = 0.9442289728018384e-13, (10, 5) = -0.43340234194198977e-12, (10, 6) = 0.13664200851953188e-12, (10, 7) = -0.644355519197429e-12, (10, 8) = -0.11125978321381415e-12, (10, 9) = 0.1277844855260445e-12, (11, 1) = 0.7129072253436991e-13, (11, 2) = 0.137044465132365e-12, (11, 3) = 0.19372005392941213e-12, (11, 4) = 0.16775128390485814e-12, (11, 5) = -0.967956313788549e-12, (11, 6) = -0.11048065996009125e-11, (11, 7) = 0.4022374532034456e-11, (11, 8) = 0.25196699565217494e-12, (11, 9) = -0.6408383101072604e-12, (12, 1) = 0.8159651299635894e-13, (12, 2) = 0.16646841178155523e-12, (12, 3) = 0.2575062429712225e-12, (12, 4) = 0.10666785615327108e-12, (12, 5) = -0.7447412353031919e-12, (12, 6) = -0.25555619020404934e-11, (12, 7) = 0.7453518793885088e-11, (12, 8) = 0.10827289768366336e-11, (12, 9) = 0.29091136541206e-11, (13, 1) = 0.9466138983774824e-13, (13, 2) = 0.2399972422031995e-12, (13, 3) = 0.3472480017165399e-12, (13, 4) = -0.13687405643426477e-13, (13, 5) = 0.3275583696683797e-13, (13, 6) = 0.15765097093438514e-10, (13, 7) = -0.57962012237391385e-10, (13, 8) = -0.3626730441683744e-11, (13, 9) = -0.19914767402125818e-11, (14, 1) = 0.1460878240614429e-12, (14, 2) = 0.38235225263804535e-12, (14, 3) = 0.2759645196498915e-12, (14, 4) = -0.462619246516474e-13, (14, 5) = 0.33288164775466516e-12, (14, 6) = -0.20863282732956638e-10, (14, 7) = 0.7585999499577828e-10, (14, 8) = 0.18931079426161135e-11, (14, 9) = 0.3779284413454026e-11, (15, 1) = 0.27316848610296507e-12, (15, 2) = 0.5283015956478434e-12, (15, 3) = 0.21395099225957056e-13, (15, 4) = 0.18538923731820955e-15, (15, 5) = 0.5336885203949027e-15, (15, 6) = 0.44730124431883154e-11, (15, 7) = 0.47587539676484254e-11, (15, 8) = 0.3015230796970798e-11, (15, 9) = -0.17847213363607335e-10, (16, 1) = 0.4795741586323639e-12, (16, 2) = 0.4602885646112368e-12, (16, 3) = -0.6467936003786487e-12, (16, 4) = 0.2301237928281158e-13, (16, 5) = -0.19740613039077394e-12, (16, 6) = 0.12102777591845904e-10, (16, 7) = -0.768325243181875e-10, (16, 8) = -0.3987843949208362e-11, (16, 9) = 0.20261732930925932e-10, (17, 1) = 0.5843775952718112e-12, (17, 2) = 0.29640205426902556e-13, (17, 3) = -0.8936238979342444e-12, (17, 4) = 0.9621187720326784e-14, (17, 5) = -0.8326123078160002e-13, (17, 6) = -0.7210021448998094e-11, (17, 7) = 0.35978343608980966e-10, (17, 8) = 0.595747936782886e-12, (17, 9) = -0.2856260825011396e-11, (18, 1) = 0.42685214369723403e-12, (18, 2) = -0.33116979546531695e-12, (18, 3) = 0.39230654107199573e-13, (18, 4) = -0.28704509413852758e-14, (18, 5) = 0.3389576747653355e-13, (18, 6) = -0.463499737032591e-11, (18, 7) = 0.3239853726692526e-10, (18, 8) = 0.1385603207686337e-11, (18, 9) = -0.841797352963701e-11, (19, 1) = 0.1528841063299568e-12, (19, 2) = 0.6458062400971718e-13, (19, 3) = 0.788166930384649e-12, (19, 4) = -0.33110470650145223e-14, (19, 5) = 0.3562518799510716e-13, (19, 6) = 0.16872375602902094e-11, (19, 7) = -0.8262019320710318e-11, (19, 8) = 0.6158366036322637e-13, (19, 9) = -0.44603875839803535e-12, (20, 1) = 0.2405255271946464e-12, (20, 2) = 0.6678735757306939e-12, (20, 3) = -0.5442294002839677e-12, (20, 4) = -0.7257491991236862e-15, (20, 5) = 0.6809426502050358e-14, (20, 6) = 0.1622181258109732e-11, (20, 7) = -0.10924673988447374e-10, (20, 8) = -0.2934765680561726e-12, (20, 9) = 0.19391004581155315e-11, (21, 1) = 0.6571592823966057e-12, (21, 2) = 0.1606621766939195e-12, (21, 3) = -0.1325588696843931e-11, (21, 4) = 0.2096699296322222e-15, (21, 5) = -0.3308387211984522e-14, (21, 6) = -0.6613229134046015e-13, (21, 7) = -0.1125819661486575e-12, (21, 8) = -0.834470914907445e-13, (21, 9) = 0.5540010273596193e-12, (22, 1) = 0.726817722813175e-12, (22, 2) = -0.6928438266968854e-12, (22, 3) = 0.6250394631638718e-12, (22, 4) = 0.16954882111957618e-15, (22, 5) = -0.23421532051342983e-14, (22, 6) = -0.4561138546392642e-12, (22, 7) = 0.30567855883309367e-11, (22, 8) = 0.4064657529110193e-13, (22, 9) = -0.30766453839271006e-12, (23, 1) = 0.358432517606949e-12, (23, 2) = -0.24063232000736207e-12, (23, 3) = 0.947436025263784e-12, (23, 4) = 0.51937885050942164e-16, (23, 5) = -0.7129466952509492e-15, (23, 6) = -0.1526884855936083e-12, (23, 7) = 0.1161452369303633e-11, (23, 8) = 0.3354457001625688e-13, (23, 9) = -0.2490128967407552e-12, (24, 1) = 0.15265876550973576e-12, (24, 2) = 0.5625435504504198e-12, (24, 3) = -0.12390134576541839e-11, (24, 4) = 0.10222809294977154e-16, (24, 5) = -0.14168513188170416e-15, (24, 6) = 0.4506301005134629e-13, (24, 7) = -0.2694297281146497e-12, (24, 8) = 0.6201672408560983e-14, (24, 9) = -0.4283686390705656e-13, (25, 1) = 0.36841054955796174e-12, (25, 2) = 0.23447276208915643e-12, (25, 3) = -0.1038164805996158e-11, (25, 4) = 0.14827069471416307e-17, (25, 5) = -0.208395815492925e-16, (25, 6) = 0.5507653687207183e-13, (25, 7) = -0.39202937818885425e-12, (25, 8) = -0.3283677001574749e-14, (25, 9) = 0.28296035813686245e-13, (26, 1) = 0.549607984335683e-12, (26, 2) = -0.4125132042570099e-12, (26, 3) = 0.11033440388986333e-11, (26, 4) = 0.16914462570050011e-18, (26, 5) = -0.24147913652099236e-17, (26, 6) = 0.17931726558178133e-13, (26, 7) = -0.13674707336755618e-12, (26, 8) = -0.2635972771904707e-14, (26, 9) = 0.21656968890182458e-13, (27, 1) = 0.4877909763632142e-12, (27, 2) = -0.34004867404039884e-12, (27, 3) = 0.12626707855111379e-11, (27, 4) = 0.15811550321763022e-19, (27, 5) = -0.229445022888836e-18, (27, 6) = -0.13883234802835356e-14, (27, 7) = 0.6912586486709158e-14, (27, 8) = -0.8311416526851997e-15, (27, 9) = 0.66123051823509566e-14, (28, 1) = 0.3584498753462446e-12, (28, 2) = 0.630192616873868e-13, (28, 3) = -0.17844944751403143e-12, (28, 4) = 0.12428145533348172e-20, (28, 5) = -0.18337441389831383e-19, (28, 6) = -0.4111781235602028e-14, (28, 7) = 0.29911307007376885e-13, (28, 8) = -0.5973229553758538e-16, (28, 9) = 0.2722461250317617e-15, (29, 1) = 0.34692961283719933e-12, (29, 2) = 0.18298567064095132e-12, (29, 3) = -0.7801261261663797e-12, (29, 4) = 0.8434953565886671e-22, (29, 5) = -0.12654806957660432e-20, (29, 6) = -0.2145638845174143e-14, (29, 7) = 0.16165865598375592e-13, (29, 8) = 0.7939695520730059e-16, (29, 9) = -0.7970803528807761e-15, (30, 1) = 0.37139800549271385e-12, (30, 2) = 0.595211063914462e-13, (30, 3) = -0.29938278111267865e-12, (30, 4) = 0.49389851800772996e-23, (30, 5) = -0.753617211495217e-22, (30, 6) = -0.6059379928294282e-15, (30, 7) = 0.4621274458459277e-14, (30, 8) = 0.5254691717119687e-16, (30, 9) = -0.503890355860529e-15, (31, 1) = 0.39958067429575435e-12, (31, 2) = -0.40954554306524904e-13, (31, 3) = 0.1788069224282603e-12, (31, 4) = 0.2697293475701178e-24, (31, 5) = -0.4181540663222863e-23, (31, 6) = -0.3686574386900499e-16, (31, 7) = 0.2162431262134643e-15, (31, 8) = 0.21047919781242588e-16, (31, 9) = -0.202277578356844e-15, (32, 1) = 0.3945420444364965e-12, (32, 2) = -0.4330735522179906e-13, (32, 3) = 0.2078970660590169e-12, (32, 4) = 0.1011119508321149e-25, (32, 5) = -0.16006665543051956e-24, (32, 6) = 0.646731790701159e-16, (32, 7) = -0.5975517821075992e-15, (32, 8) = 0.6525449725028907e-17, (32, 9) = -0.6420914409015137e-16, (33, 1) = 0.3794012396172445e-12, (33, 2) = -0.13047538437689438e-13, (33, 3) = 0.5281857327311292e-13, (33, 4) = 0.1079810618190637e-26, (33, 5) = -0.1733060620215692e-25, (33, 6) = 0.4116825359734068e-16, (33, 7) = -0.4229631956980461e-15, (33, 8) = 0.17186813160619864e-17, (33, 9) = -0.1833336820836217e-16, (34, 1) = 0.38947107668475746e-12, (34, 2) = 0.6073253183740132e-15, (34, 3) = -0.2351960358627711e-13, (34, 4) = -0.555136844553848e-29, (34, 5) = -0.5362819229325475e-28, (34, 6) = 0.14097308068667318e-16, (34, 7) = -0.21112647660005672e-15, (34, 8) = 0.3777007991288034e-18, (34, 9) = -0.54379808417968566e-17, (35, 1) = 0.3790953197499586e-12, (35, 2) = .0, (35, 3) = -0.1708856090809477e-13, (35, 4) = .0, (35, 5) = -0.1397129186093547e-27, (35, 6) = .0, (35, 7) = -0.9874506447581362e-16, (35, 8) = .0, (35, 9) = -0.17732339107334624e-17}, datatype = float[8], order = C_order); if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "right" then return X[35] elif outpoint = "order" then return 10 elif outpoint = "error" then return HFloat(7.68325243181875e-11) elif outpoint = "errorproc" then error "this is already the error procedure" elif outpoint = "rawdata" then return [9, 35, [f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], X, Y] else return ('procname')(x_bvp) end if end if; if outpoint < X[1] or X[35] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[35] end if; V := array([1 = 4, 2 = 0]); if Digits <= trunc(evalhf(Digits)) then L := Vector(4, 'datatype' = 'float'[8]); yout := Vector(9, 'datatype' = 'float'[8]); evalhf(`dsolve/numeric/lagrange`(35, 9, X, Y, outpoint, var(yout), var(L), var(V))) else L := Vector(4, 'datatype' = 'sfloat'); yout := Vector(9, 'datatype' = 'sfloat'); `dsolve/numeric/lagrange`(35, 9, X, Y, outpoint, yout, L, V) end if; [eta = outpoint, seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = yout[i], i = 1 .. 9)] end proc; if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "method" then return "bvp" elif outpoint = "right" then return X[35] elif outpoint = "order" then return 10 elif outpoint = "error" then return HFloat(7.68325243181875e-11) elif outpoint = "errorproc" then return eval(errproc) elif outpoint = "rawdata" then return [9, 35, "depnames", X, Y, YP] else error "non-numeric value" end if end if; if outpoint < X[1] or X[35] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[35] end if; if Digits <= trunc(evalhf(Digits)) and (_EnvInFsolve <> true or _EnvDSNumericSaveDigits <= trunc(evalhf(Digits))) then V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0, (3, 1) = .0, (3, 2) = .0, (4, 1) = .0, (4, 2) = .0, (5, 1) = .0, (5, 2) = .0, (6, 1) = .0, (6, 2) = .0, (7, 1) = .0, (7, 2) = .0}, datatype = float[8], order = C_order); yout := Vector(9, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0, (9) = .0}, datatype = float[8]); evalhf(`dsolve/numeric/hermite`(35, 9, X, Y, YP, outpoint, var(yout), var(L), var(V))) else if _EnvInFsolve = true then Digits := _EnvDSNumericSaveDigits end if; V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = 0., (1, 2) = 0., (2, 1) = 0., (2, 2) = 0., (3, 1) = 0., (3, 2) = 0., (4, 1) = 0., (4, 2) = 0., (5, 1) = 0., (5, 2) = 0., (6, 1) = 0., (6, 2) = 0., (7, 1) = 0., (7, 2) = 0.}, order = C_order); yout := Vector(9, {(1) = 0., (2) = 0., (3) = 0., (4) = 0., (5) = 0., (6) = 0., (7) = 0., (8) = 0., (9) = 0.}); `dsolve/numeric/hermite`(35, 9, X, Y, YP, outpoint, yout, L, V) end if; [outpoint, seq(yout[i], i = 1 .. 9)] end proc, (2) = Array(0..0, {}), (3) = [eta, f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], (4) = 0}); solnproc := data[1]; if not type(outpoint, 'numeric') then if outpoint = "solnprocedure" then return eval(solnproc) elif member(outpoint, ["start", "left", "right", "errorproc", "rawdata", "order", "error"]) then return solnproc(x_bvp) elif outpoint = "sysvars" then return data[3] elif procname <> unknown then return ('procname')(x_bvp) else _ndsol := pointto(data[2][0]); return ('_ndsol')(x_bvp) end if end if; try res := solnproc(outpoint); [eta = res[1], seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = res[i+1], i = 1 .. 9)] catch: error  end try end proc

 

 

proc (x_bvp) local res, data, solnproc, _ndsol, outpoint, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then outpoint := evalf[_EnvDSNumericSaveDigits](x_bvp) else outpoint := evalf(x_bvp) end if; data := Array(1..4, {(1) = proc (outpoint) local X, Y, YP, yout, errproc, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; X := Vector(36, {(1) = .0, (2) = .12223549540595634, (3) = .24541775457048298, (4) = .3707977727419159, (5) = .49960247621244935, (6) = .6330352520557593, (7) = .7724247368307788, (8) = .918623291279872, (9) = 1.0717229017756573, (10) = 1.2309719801388979, (11) = 1.3946568157421464, (12) = 1.5610311506926429, (13) = 1.7287541179063115, (14) = 1.8971969447006007, (15) = 2.066159030990762, (16) = 2.2357541306820754, (17) = 2.406625517272389, (18) = 2.5793923632957445, (19) = 2.7545650169308145, (20) = 2.9324780217754807, (21) = 3.1135827998983046, (22) = 3.2981309426076324, (23) = 3.4863056209827903, (24) = 3.6783335382948414, (25) = 3.874005068551992, (26) = 4.073159868524134, (27) = 4.2755555606890985, (28) = 4.480737522711142, (29) = 4.688363240066403, (30) = 4.898107591764175, (31) = 5.109381462889699, (32) = 5.321580036533796, (33) = 5.529726701889748, (34) = 5.714984801036228, (35) = 5.869194054288012, (36) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(36, 9, {(1, 1) = .29304572729689693, (1, 2) = 1.0, (1, 3) = -.7685073829592864, (1, 4) = 1.0, (1, 5) = -2.907890919548722, (1, 6) = 1.0, (1, 7) = -1.2237009250058457, (1, 8) = 1.0, (1, 9) = -.31258210911668993, (2, 1) = .4104375210517266, (2, 2) = .9276715104228836, (2, 3) = -.4281237872099994, (2, 4) = .6945140085988132, (2, 5) = -2.130205510160788, (2, 6) = .8549894186564466, (2, 7) = -1.144517425019679, (2, 8) = .9604277774338718, (2, 9) = -.3352699472776104, (3, 1) = .5221961832398943, (3, 2) = .892518232783433, (3, 3) = -.15191815483196894, (3, 4) = .4699307672244896, (3, 5) = -1.5428177164563712, (3, 6) = .7201699427275001, (3, 7) = -1.0409834892139498, (3, 8) = .9175957398769251, (3, 9) = -.36059788713857305, (4, 1) = .6335413326828134, (4, 2) = .8884382302690547, (4, 3) = 0.7957186961199426e-1, (4, 4) = .30639092164005066, (4, 5) = -1.0865117551819647, (4, 6) = .5972220500443777, (4, 7) = -.9177970308920965, (4, 8) = .8706175056805521, (4, 9) = -.38930004587928435, (5, 1) = .7492070360847015, (5, 2) = .911772076089867, (5, 3) = .27646395745967656, (5, 4) = .19032383358551147, (5, 5) = -.7332210431010013, (5, 6) = .48781027604318944, (5, 7) = -.7797420480393706, (5, 8) = .8183905886653177, (5, 9) = -.42226890971904435, (6, 1) = .8738500475204157, (6, 2) = .9601892819263472, (6, 3) = .4433276167660329, (6, 4) = .11123836442809175, (6, 5) = -.467480052146975, (6, 6) = .3936077707714036, (6, 7) = -.6320872558385131, (6, 8) = .7595417178495838, (6, 9) = -.4605253444744291, (7, 1) = 1.012472673533314, (7, 2) = 1.032008360140351, (7, 3) = .581131354436556, (7, 4) = 0.6025146176503883e-1, (7, 5) = -.277184881384346, (7, 6) = .31612193572533537, (7, 7) = -.48088327440504985, (7, 8) = .6922973363348235, (7, 9) = -.5050768719439305, (8, 1) = 1.1699745730156546, (8, 2) = 1.1252115385181647, (8, 3) = .6874193886967563, (8, 4) = 0.29766236939779433e-1, (8, 5) = -.1503707331498843, (8, 6) = .2567378144154185, (8, 7) = -.3342606336304469, (8, 8) = .6147719335433007, (8, 9) = -.5560288846348963, (9, 1) = 1.3506137650843093, (9, 2) = 1.2363193215752148, (9, 3) = .7567769198180381, (9, 4) = 0.13216755256544149e-1, (9, 5) = -0.7349011045653658e-1, (9, 6) = .2159276970992279, (9, 7) = -.2036715153431451, (9, 8) = .5254558626943652, (9, 9) = -.61032088701173, (10, 1) = 1.5572494383862194, (10, 2) = 1.3594624358243923, (10, 3) = .7814381880122798, (10, 4) = 0.5214070950140744e-2, (10, 5) = -0.3194803315145783e-1, (10, 6) = .19190928650136313, (10, 7) = -.10573323648725617, (10, 8) = .42432106741232717, (10, 9) = -.6564928082197171, (11, 1) = 1.790175699844357, (11, 2) = 1.4857817988630229, (11, 3) = .7524214554488772, (11, 4) = 0.18187449239379014e-2, (11, 5) = -0.12272147915060936e-1, (11, 6) = .17899696099891516, (11, 7) = -0.63563656506912e-1, (11, 8) = .3152623174213187, (11, 9) = -.6666723350211456, (12, 1) = 2.047439555427066, (12, 2) = 1.6042860061631614, (12, 3) = .6613627689208743, (12, 4) = 0.5602554448678931e-3, (12, 5) = -0.4152972946177512e-2, (12, 6) = .1668098006024622, (12, 7) = -0.9504691354499503e-1, (12, 8) = .20857816646083324, (12, 9) = -.6004074885210231, (13, 1) = 2.3251527918275703, (13, 2) = 1.702841705998251, (13, 3) = .5024056135392052, (13, 4) = 0.15245628916951597e-3, (13, 5) = -0.12365894618678952e-2, (13, 6) = .14439931531744318, (13, 7) = -.17440256362580986, (13, 8) = .11969052208422737, (13, 9) = -.4486152738863258, (14, 1) = 2.6181126012578795, (14, 2) = 1.7692027130444705, (14, 3) = .27442026620365223, (14, 4) = 0.3660518712821792e-4, (14, 5) = -0.32324625100367055e-3, (14, 6) = .10974683774342169, (14, 7) = -.22667179632730428, (14, 8) = 0.59299164400225104e-1, (14, 9) = -.2711689029942582, (15, 1) = 2.9196427458844907, (15, 2) = 1.7918207578696101, (15, 3) = -0.1579819888445081e-1, (15, 4) = 0.7742572705879314e-5, (15, 5) = -0.7399696650473135e-4, (15, 6) = 0.7191375563543224e-1, (15, 7) = -.21046816356753245, (15, 8) = 0.25760384096863126e-1, (15, 9) = -.1358676220090488, (16, 1) = 3.2217330499079417, (16, 2) = 1.7611991089229249, (16, 3) = -.35024664015038465, (16, 4) = 0.14400966963026293e-5, (16, 5) = -0.14797522902360535e-4, (16, 6) = 0.40950186741372976e-1, (16, 7) = -.15132875874460952, (16, 8) = 0.10006929209504767e-1, (16, 9) = -0.58633876247251276e-1, (17, 1) = 3.515855260061108, (17, 2) = 1.6714818290331672, (17, 3) = -.6983285872377049, (17, 4) = 0.23434481008937171e-6, (17, 5) = -0.25708564744368696e-5, (17, 6) = 0.20546121827885018e-1, (17, 7) = -0.8956905563353748e-1, (17, 8) = 0.35190728081075677e-2, (17, 9) = -0.22383951674691784e-1, (18, 1) = 3.792555267958305, (18, 2) = 1.5224855505142543, (18, 3) = -1.016777262505806, (18, 4) = 0.3324773937006488e-7, (18, 5) = -0.3865669193588218e-6, (18, 6) = 0.9196603384930687e-2, (18, 7) = -0.4534421520540423e-1, (18, 8) = 0.11278040392985755e-2, (18, 9) = -0.7672023285511213e-2, (19, 1) = 4.042295218640982, (19, 2) = 1.3218759567724425, (19, 3) = -1.2557262348208453, (19, 4) = 0.4109625104074972e-8, (19, 5) = -0.502629040250117e-7, (19, 6) = 0.37096559376571117e-2, (19, 7) = -0.20111659509839758e-1, (19, 8) = 0.33068911224034924e-3, (19, 9) = -0.2379654297891907e-2, (20, 1) = 4.256803780101446, (20, 2) = 1.086066528233595, (20, 3) = -1.3716382247677896, (20, 4) = 0.4438209682560571e-9, (20, 5) = -0.5667933912813401e-8, (20, 6) = 0.13606533757071493e-2, (20, 7) = -0.7947650356668131e-2, (20, 8) = 0.890499688951334e-4, (20, 9) = -0.6718001251585216e-3, (21, 1) = 4.4309568293091885, (21, 2) = .8380144815497014, (21, 3) = -1.3437919575358812, (21, 4) = 0.41957970425181977e-10, (21, 5) = -0.5556800717314274e-9, (21, 6) = 0.4569817723663823e-3, (21, 7) = -0.2831891583902532e-2, (21, 8) = 0.2207997787121794e-4, (21, 9) = -0.17328279214186894e-3, (22, 1) = 4.56346839085257, (22, 2) = .6029498092182939, (22, 3) = -1.1854041339928858, (22, 4) = 0.3484987587455255e-11, (22, 5) = -0.47578501947859426e-10, (22, 6) = 0.141523844715008e-3, (22, 7) = -0.9194242002627101e-3, (22, 8) = 0.5060490193981811e-5, (22, 9) = -0.4104152765974585e-4, (23, 1) = 4.657299980368146, (23, 2) = .40200384461523886, (23, 3) = -.9418920276812297, (23, 4) = 0.25500438326822914e-12, (23, 5) = -0.35716384107103392e-11, (23, 6) = 0.4066999281981183e-4, (23, 7) = -0.27447687293846035e-3, (23, 8) = 0.10762583788403801e-5, (23, 9) = -0.8971897968962322e-5, (24, 1) = 4.7187915800422235, (24, 2) = .24705237296673802, (24, 3) = -.6737133182371462, (24, 4) = 0.1642996647808491e-13, (24, 5) = -0.2352501542115355e-12, (24, 6) = 0.10894884301353607e-4, (24, 7) = -0.7586998316073022e-4, (24, 8) = 0.2129478004825105e-6, (24, 9) = -0.18172702472502776e-5, (25, 1) = 4.755847220106922, (25, 2) = .139531234012686, (25, 3) = -.43405359601014365, (25, 4) = 0.9350909534925825e-15, (25, 5) = -0.13654497348862087e-13, (25, 6) = 0.2737172857004824e-5, (25, 7) = -0.19573626584240755e-4, (25, 8) = 0.3939053041150899e-7, (25, 9) = -0.34315337864621454e-6, (26, 1) = 4.77634017191786, (26, 2) = 0.7230101119419836e-1, (26, 3) = -.25228556521749645, (26, 4) = 0.4704831709915759e-16, (26, 5) = -0.6995993703057922e-15, (26, 6) = 0.6477334296647492e-6, (26, 7) = -0.4740878064503461e-5, (26, 8) = 0.6833816802266162e-8, (26, 9) = -0.6066365885718376e-7, (27, 1) = 4.786726310638857, (27, 2) = 0.3435831320703714e-1, (27, 3) = -.13262889352342158, (27, 4) = 0.2094092618374462e-17, (27, 5) = -0.3168250383903296e-16, (27, 6) = 0.14491534547084013e-6, (27, 7) = -0.10832383056154999e-5, (27, 8) = 0.11150180225720236e-8, (27, 9) = -0.10075300106394826e-7, (28, 1) = 4.791546934326103, (28, 2) = 0.14990281717296444e-1, (28, 3) = -0.6330010071227161e-1, (28, 4) = 0.8287742162226521e-19, (28, 5) = -0.12751719987107553e-17, (28, 6) = 0.3078720452504648e-7, (28, 7) = -0.23469178617193796e-6, (28, 8) = 0.17175602469614883e-9, (28, 9) = -0.15788449380017452e-8, (29, 1) = 4.7935994810814355, (29, 2) = 0.6010383981973171e-2, (29, 3) = -0.27524325164902344e-1, (29, 4) = 0.29069363028204808e-20, (29, 5) = -0.4547765294451508e-19, (29, 6) = 0.6229858247336487e-8, (29, 7) = -0.4838399037291334e-7, (29, 8) = 0.2503668706200248e-10, (29, 9) = -0.2340500159140601e-9, (30, 1) = 4.794401962017242, (30, 2) = 0.2215672439215715e-2, (30, 3) = -0.10937971729193724e-1, (30, 4) = 0.9440884004116453e-22, (30, 5) = -0.15006549735218089e-20, (30, 6) = 0.12037316725230799e-8, (30, 7) = -0.9518628375252073e-8, (30, 8) = 0.3460363918519863e-11, (30, 9) = -0.328903342750271e-10, (31, 1) = 4.794689826452536, (31, 2) = 0.7509962930071404e-3, (31, 3) = -0.3987588293129663e-2, (31, 4) = 0.19798961766046494e-23, (31, 5) = -0.3216537904891888e-22, (31, 6) = 0.22302389433777427e-9, (31, 7) = -0.17953399521332584e-8, (31, 8) = 0.4554557843905414e-12, (31, 9) = -0.4401150928217403e-11, (32, 1) = 4.794784422753626, (32, 2) = 0.23285539206328355e-3, (32, 3) = -0.13375644260806372e-2, (32, 4) = 0.22534928848877133e-24, (32, 5) = -0.3660001584031703e-23, (32, 6) = 0.39737020327214907e-10, (32, 7) = -0.32622476304526185e-9, (32, 8) = 0.573266502448059e-13, (32, 9) = -0.5635239299844608e-12, (33, 1) = 4.7948123191760335, (33, 2) = 0.6634921971183591e-4, (33, 3) = -0.42331823009009205e-3, (33, 4) = -0.38048469482661334e-25, (33, 5) = 0.6248730197056138e-24, (33, 6) = 0.7022169018602123e-11, (33, 7) = -0.594985732754925e-10, (33, 8) = 0.72077779529536e-14, (33, 9) = -0.7249944946950195e-13, (34, 1) = 4.794819380363771, (34, 2) = 0.1845563381497783e-4, (34, 3) = -0.14109354316228044e-3, (34, 4) = 0.818318081304006e-26, (34, 5) = -0.13788376367593947e-24, (34, 6) = 0.13820259055471305e-11, (34, 7) = -0.1277861638365013e-10, (34, 8) = 0.10634588340826038e-14, (34, 9) = -0.11367740759413866e-13, (35, 1) = 4.794820979782686, (35, 2) = 0.4533704775964936e-5, (35, 3) = -0.526001350749332e-4, (35, 4) = -0.10776237370155173e-26, (35, 5) = 0.17381457933542307e-25, (35, 6) = 0.27609177357335785e-12, (35, 7) = -0.3492741009744529e-11, (35, 8) = 0.1726361453427803e-15, (35, 9) = -0.2386035032674512e-14, (36, 1) = 4.79482123158997, (36, 2) = -0.18987064553901744e-38, (36, 3) = -0.20926343377161045e-4, (36, 4) = .0, (36, 5) = -0.9271131350613818e-27, (36, 6) = .0, (36, 7) = -0.1148739850256061e-11, (36, 8) = .0, (36, 9) = -0.6263102616725631e-15}, datatype = float[8], order = C_order); YP := Matrix(36, 9, {(1, 1) = 1.0, (1, 2) = -.7685073829592864, (1, 3) = 3.1322732425544326, (1, 4) = -2.907890919548722, (1, 5) = 7.422654715986622, (1, 6) = -1.2237009250058457, (1, 7) = .5351846931251554, (1, 8) = -.31258210911668993, (1, 9) = -.17658436556293183, (2, 1) = .9276715104228836, (2, 2) = -.4281237872099994, (2, 3) = 2.4814166607380193, (2, 4) = -2.130205510160788, (2, 5) = 5.458396624695731, (2, 6) = -1.144517425019679, (2, 7) = .7522803270831294, (2, 8) = -.3352699472776104, (2, 9) = -.19508952332752827, (3, 1) = .892518232783433, (3, 2) = -.15191815483196894, (3, 3) = 2.0274755773132034, (3, 4) = -1.5428177164563712, (3, 5) = 4.154061972511621, (3, 6) = -1.0409834892139498, (3, 7) = .9199114516320973, (3, 8) = -.36059788713857305, (3, 9) = -.21664145270642876, (4, 1) = .8884382302690547, (4, 2) = 0.7957186961199426e-1, (4, 3) = 1.6790185813075644, (4, 4) = -1.0865117551819647, (4, 5) = 3.1648549137930395, (4, 6) = -.9177970308920965, (4, 7) = 1.035894823495831, (4, 8) = -.38930004587928435, (4, 9) = -.24173428510966494, (5, 1) = .911772076089867, (5, 2) = .27646395745967656, (5, 3) = 1.3860866746304614, (5, 4) = -.7332210431010013, (5, 5) = 2.348216793535867, (5, 6) = -.7797420480393706, (5, 7) = 1.0983386592688695, (5, 8) = -.42226890971904435, (5, 9) = -.27067476929203016, (6, 1) = .9601892819263472, (6, 2) = .4433276167660329, (6, 3) = 1.1193388080553455, (6, 4) = -.467480052146975, (6, 5) = 1.6599003778594428, (6, 6) = -.6320872558385131, (6, 7) = 1.105390375809924, (6, 8) = -.4605253444744291, (6, 9) = -.30295745018278597, (7, 1) = 1.032008360140351, (7, 2) = .581131354436556, (7, 3) = .859917718116145, (7, 4) = -.277184881384346, (7, 5) = 1.096275588026919, (7, 6) = -.48088327440504985, (7, 7) = 1.0545877374451431, (7, 8) = -.5050768719439305, (7, 9) = -.3355527275266557, (8, 1) = 1.1252115385181647, (8, 2) = .6874193886967563, (8, 3) = .5941436677895606, (8, 4) = -.1503707331498843, (8, 5) = .6642944632946686, (8, 6) = -.3342606336304469, (8, 7) = .940964708357463, (8, 8) = -.5560288846348963, (8, 9) = -.35797601411792845, (9, 1) = 1.2363193215752148, (9, 2) = .7567769198180381, (9, 3) = .3098997168337092, (9, 4) = -0.7349011045653658e-1, (9, 5) = .36315935275500166, (9, 6) = -.2036715153431451, (9, 7) = .7519914493101875, (9, 8) = -.61032088701173, (9, 9) = -.3404852549867801, (10, 1) = 1.3594624358243923, (10, 2) = .7814381880122798, (10, 3) = -0.4182751440215071e-2, (10, 4) = -0.3194803315145783e-1, (10, 5) = .1765843596987432, (10, 6) = -.10573323648725617, (10, 7) = .459153460258614, (10, 8) = -.6564928082197171, (10, 9) = -.21315377994181942, (11, 1) = 1.4857817988630229, (11, 2) = .7524214554488772, (11, 3) = -.3556126900790162, (11, 4) = -0.12272147915060936e-1, (11, 5) = 0.7571726443443462e-1, (11, 6) = -0.63563656506912e-1, (11, 7) = 0.3820031480623226e-1, (11, 8) = -.6666723350211456, (11, 9) = .13099572770373114, (12, 1) = 1.6042860061631614, (12, 2) = .6613627689208743, (12, 3) = -.7436196073205363, (12, 4) = -0.4152972946177512e-2, (12, 5) = 0.28493548025601716e-1, (12, 6) = -0.9504691354499503e-1, (12, 7) = -.3913459740299369, (12, 8) = -.6004074885210231, (12, 9) = .6786807799562962, (13, 1) = 1.702841705998251, (13, 2) = .5024056135392052, (13, 3) = -1.152722624984921, (13, 4) = -0.12365894618678952e-2, (13, 5) = 0.9385291765880942e-2, (13, 6) = -.17440256362580986, (13, 7) = -.46856865115341484, (13, 8) = -.4486152738863258, (13, 9) = 1.0625182276458123, (14, 1) = 1.7692027130444705, (14, 2) = .27442026620365223, (14, 3) = -1.5474724898098176, (14, 4) = -0.32324625100367055e-3, (14, 5) = 0.2697049790752222e-2, (14, 6) = -.22667179632730428, (14, 7) = -.10818703320993872, (14, 8) = -.2711689029942582, (14, 9) = .9704149691754377, (15, 1) = 1.7918207578696101, (15, 2) = -0.1579819888445081e-1, (15, 3) = -1.8695886822371435, (15, 4) = -0.7399696650473135e-4, (15, 5) = 0.6740307627465358e-3, (15, 6) = -.21046816356753245, (15, 7) = .26681578006528395, (15, 8) = -.1358676220090488, (15, 9) = .6194640024912289, (16, 1) = 1.7611991089229249, (16, 2) = -.35024664015038465, (16, 3) = -2.0426808427458836, (16, 4) = -0.14797522902360535e-4, (16, 5) = 0.14604674776036108e-3, (16, 6) = -.15132875874460952, (16, 7) = .3870942654735919, (16, 8) = -0.58633876247251276e-1, (16, 9) = .3119052838843696, (17, 1) = 1.6714818290331672, (17, 2) = -.6983285872377049, (17, 3) = -1.987771357158421, (17, 4) = -0.25708564744368696e-5, (17, 5) = 0.2727770659414438e-4, (17, 6) = -0.8956905563353748e-1, (17, 7) = .3168648958728837, (17, 8) = -0.22383951674691784e-1, (17, 9) = .13277142379353354, (18, 1) = 1.5224855505142543, (18, 2) = -1.016777262505806, (18, 3) = -1.6505090042776895, (18, 4) = -0.3865669193588218e-6, (18, 5) = 0.4373709383048954e-5, (18, 6) = -0.4534421520540423e-1, (18, 7) = .19558322730683234, (18, 8) = -0.7672023285511213e-2, (18, 9) = 0.4948754145464506e-1, (19, 1) = 1.3218759567724425, (19, 2) = -1.2557262348208453, (19, 3) = -1.038627232522864, (19, 4) = -0.502629040250117e-7, (19, 5) = 0.6014063925618703e-6, (19, 6) = -0.20111659509839758e-1, (19, 7) = 0.9949176422727492e-1, (19, 8) = -0.2379654297891907e-2, (19, 9) = 0.16429796922178597e-1, (20, 1) = 1.086066528233595, (20, 2) = -1.3716382247677896, (20, 3) = -.2501098765426589, (20, 4) = -0.5667933912813401e-8, (20, 5) = 0.7113461878848856e-7, (20, 6) = -0.7947650356668131e-2, (20, 7) = 0.4349155937158627e-1, (20, 8) = -0.6718001251585216e-3, (20, 9) = 0.4906472456906586e-2, (21, 1) = .8380144815497014, (21, 2) = -1.3437919575358812, (21, 3) = .5380373986304241, (21, 4) = -0.5556800717314274e-9, (21, 5) = 0.7259153889651238e-8, (21, 6) = -0.2831891583902532e-2, (21, 7) = 0.16733015842171496e-1, (21, 8) = -0.17328279214186894e-3, (21, 9) = 0.13258040906444484e-2, (22, 1) = .6029498092182939, (22, 2) = -1.1854041339928858, (22, 3) = 1.12994424700676, (22, 4) = -0.47578501947859426e-10, (22, 5) = 0.6425891508610383e-9, (22, 6) = -0.9194242002627101e-3, (22, 7) = 0.5764745810860611e-2, (22, 8) = -0.4104152765974585e-4, (22, 9) = 0.32625584249112066e-3, (23, 1) = .40200384461523886, (23, 2) = -.9418920276812297, (23, 3) = 1.3995163588057415, (23, 4) = -0.35716384107103392e-11, (23, 5) = 0.4959497957717717e-10, (23, 6) = -0.27447687293846035e-3, (23, 7) = 0.18027900324228338e-2, (23, 8) = -0.8971897968962322e-5, (23, 9) = 0.7360001812192588e-4, (24, 1) = .24705237296673802, (24, 2) = -.6737133182371462, (24, 3) = 1.346700004188274, (24, 4) = -0.2352501542115355e-12, (24, 5) = 0.33445247964496187e-11, (24, 6) = -0.7586998316073022e-4, (24, 7) = 0.5171328431743723e-3, (24, 8) = -0.18172702472502776e-5, (24, 9) = 0.15303734298663496e-4, (25, 1) = .139531234012686, (25, 2) = -.43405359601014365, (25, 3) = 1.0804294412875997, (25, 4) = -0.13654497348862087e-13, (25, 5) = 0.19817857255998653e-12, (25, 6) = -0.19573626584240755e-4, (25, 7) = 0.1375264694465066e-3, (25, 8) = -0.34315337864621454e-6, (25, 9) = 0.29554135048736666e-5, (26, 1) = 0.7230101119419836e-1, (26, 2) = -.25228556521749645, (26, 3) = .7453425004610168, (26, 4) = -0.6995993703057922e-15, (26, 5) = 0.10347018817453496e-13, (26, 6) = -0.4740878064503461e-5, (26, 7) = 0.3417999794125039e-4, (26, 8) = -0.6066365885718376e-7, (26, 9) = 0.5330198295903539e-6, (27, 1) = 0.3435831320703714e-1, (27, 2) = -.13262889352342158, (27, 3) = .4501938302976667, (27, 4) = -0.3168250383903296e-16, (27, 5) = 0.4769925901344175e-15, (27, 6) = -0.10832383056154999e-5, (27, 7) = 0.7989637402857128e-5, (27, 8) = -0.10075300106394826e-7, (27, 9) = 0.9018137102805667e-7, (28, 1) = 0.14990281717296444e-1, (28, 2) = -0.6330010071227161e-1, (28, 3) = .24123376017250966, (28, 4) = -0.12751719987107553e-17, (28, 5) = 0.19531261045791298e-16, (28, 6) = -0.23469178617193796e-6, (28, 7) = 0.17673979676344433e-5, (28, 8) = -0.15788449380017452e-8, (28, 9) = 0.1438392376716224e-7, (29, 1) = 0.6010383981973171e-2, (29, 2) = -0.27524325164902344e-1, (29, 3) = .11581306003640542, (29, 4) = -0.4547765294451508e-19, (29, 5) = 0.7084075468553719e-18, (29, 6) = -0.4838399037291334e-7, (29, 7) = 0.37154023325718906e-6, (29, 8) = -0.2340500159140601e-9, (29, 9) = 0.2169314057116005e-8, (30, 1) = 0.2215672439215715e-2, (30, 2) = -0.10937971729193724e-1, (30, 3) = 0.50197071080863576e-1, (30, 4) = -0.15006549735218089e-20, (30, 5) = 0.23768271979065158e-19, (30, 6) = -0.9518628375252073e-8, (30, 7) = 0.7446561907378108e-7, (30, 8) = -0.328903342750271e-10, (30, 9) = 0.31005267674301157e-9, (31, 1) = 0.7509962930071404e-3, (31, 2) = -0.3987588293129663e-2, (31, 3) = 0.1978479268324201e-1, (31, 4) = -0.3216537904891888e-22, (31, 5) = 0.5178829630210459e-21, (31, 6) = -0.17953399521332584e-8, (31, 7) = 0.1429908316938116e-7, (31, 8) = -0.4401150928217403e-11, (31, 9) = 0.4218795352029878e-10, (32, 1) = 0.23285539206328355e-3, (32, 2) = -0.13375644260806372e-2, (32, 3) = 0.7136245026238088e-2, (32, 4) = -0.3660001584031703e-23, (32, 5) = 0.5990070356365727e-22, (32, 6) = -0.32622476304526185e-9, (32, 7) = 0.26437054045083134e-8, (32, 8) = -0.5635239299844608e-12, (32, 9) = 0.5491499185496713e-11, (33, 1) = 0.6634921971183591e-4, (33, 2) = -0.42331823009009205e-3, (33, 3) = 0.24244332918559e-2, (33, 4) = 0.6248730197056138e-24, (33, 5) = -0.10388740310354382e-22, (33, 6) = -0.594985732754925e-10, (33, 7) = 0.4901984508580344e-9, (33, 8) = -0.7249944946950195e-13, (33, 9) = 0.7178221103416243e-12, (34, 1) = 0.1845563381497783e-4, (34, 2) = -0.14109354316228044e-3, (34, 3) = 0.868455252324717e-3, (34, 4) = -0.13788376367593947e-24, (34, 5) = 0.23238892396911724e-23, (34, 6) = -0.1277861638365013e-10, (34, 7) = 0.10680052413163866e-9, (34, 8) = -0.11367740759413866e-13, (34, 9) = 0.11413236569161895e-12, (35, 1) = 0.4533704775964936e-5, (35, 2) = -0.526001350749332e-4, (35, 3) = 0.3516453693963263e-3, (35, 4) = 0.17381457933542307e-25, (35, 5) = -0.2963927676718906e-24, (35, 6) = -0.3492741009744529e-11, (35, 7) = 0.29535070290225623e-10, (35, 8) = -0.2386035032674512e-14, (35, 9) = 0.2423180997011715e-13, (36, 1) = -0.18987064553901744e-38, (36, 2) = -0.20926343377161045e-4, (36, 3) = 0.15694757532870785e-3, (36, 4) = -0.9271131350613818e-27, (36, 5) = 0.1584403200111687e-25, (36, 6) = -0.1148739850256061e-11, (36, 7) = 0.980935461097567e-11, (36, 8) = -0.6263102616725631e-15, (36, 9) = 0.64220510658026905e-14}, datatype = float[8], order = C_order); errproc := proc (x_bvp) local outpoint, X, Y, yout, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; Digits := 15; outpoint := evalf(x_bvp); X := Vector(36, {(1) = .0, (2) = .12223549540595634, (3) = .24541775457048298, (4) = .3707977727419159, (5) = .49960247621244935, (6) = .6330352520557593, (7) = .7724247368307788, (8) = .918623291279872, (9) = 1.0717229017756573, (10) = 1.2309719801388979, (11) = 1.3946568157421464, (12) = 1.5610311506926429, (13) = 1.7287541179063115, (14) = 1.8971969447006007, (15) = 2.066159030990762, (16) = 2.2357541306820754, (17) = 2.406625517272389, (18) = 2.5793923632957445, (19) = 2.7545650169308145, (20) = 2.9324780217754807, (21) = 3.1135827998983046, (22) = 3.2981309426076324, (23) = 3.4863056209827903, (24) = 3.6783335382948414, (25) = 3.874005068551992, (26) = 4.073159868524134, (27) = 4.2755555606890985, (28) = 4.480737522711142, (29) = 4.688363240066403, (30) = 4.898107591764175, (31) = 5.109381462889699, (32) = 5.321580036533796, (33) = 5.529726701889748, (34) = 5.714984801036228, (35) = 5.869194054288012, (36) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(36, 9, {(1, 1) = -0.9043698928940775e-12, (1, 2) = .0, (1, 3) = 0.5837258712848847e-10, (1, 4) = .0, (1, 5) = 0.1498912676178155e-10, (1, 6) = .0, (1, 7) = -0.4804208167065043e-12, (1, 8) = .0, (1, 9) = 0.964680946068039e-12, (2, 1) = 0.3832963732120129e-12, (2, 2) = -0.5836921580613932e-12, (2, 3) = 0.607114576082514e-10, (2, 4) = -0.5251287915047417e-10, (2, 5) = 0.1855908102638377e-9, (2, 6) = 0.7201213874510324e-12, (2, 7) = -0.25806128994957348e-11, (2, 8) = 0.13787148075707805e-12, (2, 9) = 0.10452863984325091e-11, (3, 1) = 0.3049367928324361e-12, (3, 2) = 0.1199522039868647e-11, (3, 3) = 0.621335652541479e-10, (3, 4) = -0.39667413182257276e-10, (3, 5) = 0.15094256170535988e-9, (3, 6) = 0.6447211219332684e-12, (3, 7) = -0.35019690377488425e-11, (3, 8) = 0.26884285995384107e-12, (3, 9) = 0.11593040663179162e-11, (4, 1) = 0.4664587448079572e-12, (4, 2) = 0.549017989751097e-11, (4, 3) = 0.6077925215356435e-10, (4, 4) = -0.23701233014249754e-10, (4, 5) = 0.10463801591798161e-9, (4, 6) = 0.20775930242629874e-12, (4, 7) = -0.3740001797453238e-11, (4, 8) = 0.3954098356395204e-12, (4, 9) = 0.12794942962753589e-11, (5, 1) = 0.14278263023713148e-11, (5, 2) = 0.12831264279934802e-10, (5, 3) = 0.6170803878850477e-10, (5, 4) = -0.12111336293199544e-10, (5, 5) = 0.6790334013760307e-10, (5, 6) = -0.3718729060984488e-12, (5, 7) = -0.3372380761558069e-11, (5, 8) = 0.5042399745186866e-12, (5, 9) = 0.13802197174302398e-11, (6, 1) = 0.3229431284049011e-11, (6, 2) = 0.21231224388375023e-10, (6, 3) = 0.6555728716784342e-10, (6, 4) = -0.422570045709265e-11, (6, 5) = 0.3590700728430028e-10, (6, 6) = -0.9725981488076406e-12, (6, 7) = -0.2429202660459223e-11, (6, 8) = 0.5841703386248098e-12, (6, 9) = 0.14356564503869845e-11, (7, 1) = 0.60950811184464025e-11, (7, 2) = 0.29843936769876106e-10, (7, 3) = 0.7061308662372642e-10, (7, 4) = 0.16618372929751543e-11, (7, 5) = 0.7010673076289743e-11, (7, 6) = -0.16174490085340518e-11, (7, 7) = -0.10279783818629936e-11, (7, 8) = 0.7752164662535791e-12, (7, 9) = 0.16755002201651083e-11, (8, 1) = 0.10251801237468475e-10, (8, 2) = 0.38918030063638184e-10, (8, 3) = 0.7707819892025402e-10, (8, 4) = 0.28587918037191062e-11, (8, 5) = -0.6637518022441706e-11, (8, 6) = -0.2508323063710888e-11, (8, 7) = -0.18657726828754297e-12, (8, 8) = 0.19382268971726096e-11, (8, 9) = 0.34751403482834135e-11, (9, 1) = 0.1564297668202477e-10, (9, 2) = 0.4819275909839893e-10, (9, 3) = 0.8532961124818803e-10, (9, 4) = -0.6164795862262928e-11, (9, 5) = 0.24886971712989308e-10, (9, 6) = -0.1558965668526864e-12, (9, 7) = -0.6316973232238581e-11, (9, 8) = 0.31149022643781795e-11, (9, 9) = 0.4463609981115291e-11, (10, 1) = 0.21546469773621837e-10, (10, 2) = 0.5670770479127831e-10, (10, 3) = 0.9601547827203019e-10, (10, 4) = -0.23169658107593973e-10, (10, 5) = 0.11030755667231922e-9, (10, 6) = 0.24955794124955718e-10, (10, 7) = -0.9951906054734128e-10, (10, 8) = -0.8725013780511149e-11, (10, 9) = 0.22693421400642195e-10, (11, 1) = 0.2615642298723526e-10, (11, 2) = 0.6394917252842306e-10, (11, 3) = 0.11261196203677041e-9, (11, 4) = -0.2923529329402315e-10, (11, 5) = 0.16308429530440947e-9, (11, 6) = 0.44914038346191696e-10, (11, 7) = -0.3890070925683025e-9, (11, 8) = 0.7549552291538765e-10, (11, 9) = 0.17878352316479733e-9, (12, 1) = 0.27207720926533742e-10, (12, 2) = 0.730485021678744e-10, (12, 3) = 0.14643204191154454e-9, (12, 4) = -0.13158109712477497e-10, (12, 5) = 0.9015763083521412e-10, (12, 6) = -0.35442548466823146e-11, (12, 7) = 0.325318277311967e-10, (12, 8) = -0.4056662755924421e-9, (12, 9) = -0.1357758940006578e-9, (13, 1) = 0.24759224163371766e-10, (13, 2) = 0.9616342199960468e-10, (13, 3) = 0.2185836172903578e-9, (13, 4) = 0.6805905336647061e-11, (13, 5) = -0.34964747890665324e-10, (13, 6) = -0.15652474987615576e-8, (13, 7) = 0.6103772461565739e-8, (13, 8) = 0.9266076022622614e-9, (13, 9) = -0.176563465565666e-9, (14, 1) = 0.2629297007351512e-10, (14, 2) = 0.15797280563889105e-9, (14, 3) = 0.3440642698769278e-9, (14, 4) = 0.10541642561916084e-10, (14, 5) = -0.7134077390581618e-10, (14, 6) = 0.278509991034528e-8, (14, 7) = -0.8629331747521183e-8, (14, 8) = -0.3207850619597296e-9, (14, 9) = -0.1553660961889974e-8, (15, 1) = 0.5204087944048554e-10, (15, 2) = 0.2865121770723145e-9, (15, 3) = 0.4831111351322765e-9, (15, 4) = 0.28640738301870187e-11, (15, 5) = -0.21671188025644032e-10, (15, 6) = -0.30483354644289575e-9, (15, 7) = -0.3906165750735804e-8, (15, 8) = -0.8138915177236866e-9, (15, 9) = 0.4138548866694594e-8, (16, 1) = 0.13314867334006e-9, (16, 2) = 0.4770483143179854e-9, (16, 3) = 0.4844764742839627e-9, (16, 4) = -0.28170323128309654e-11, (16, 5) = 0.22435323432389094e-10, (16, 6) = -0.20739199199716855e-8, (16, 7) = 0.11798008820799963e-7, (16, 8) = 0.6418552129500132e-9, (16, 9) = -0.2688726344256814e-8, (17, 1) = 0.2917763950668191e-9, (17, 2) = 0.6384099445274596e-9, (17, 3) = 0.1329047069511318e-9, (17, 4) = -0.28785366956893757e-11, (17, 5) = 0.2353294518609462e-10, (17, 6) = 0.5593385503647122e-9, (17, 7) = -0.12654576386316017e-8, (17, 8) = 0.15870577157796408e-9, (17, 9) = -0.964327437349994e-9, (18, 1) = 0.499003627373126e-9, (18, 2) = 0.5868383084689767e-9, (18, 3) = -0.5640566042679688e-9, (18, 4) = -0.10169905904596317e-11, (18, 5) = 0.72241487510940475e-11, (18, 6) = 0.9262322718825815e-9, (18, 7) = -0.573585771752706e-8, (18, 8) = -0.2108968922933367e-9, (18, 9) = 0.119110207648883e-8, (19, 1) = 0.6431804880604637e-9, (19, 2) = 0.2105677115242439e-9, (19, 3) = -0.10224752832329544e-8, (19, 4) = 0.24703417667908925e-13, (19, 5) = -0.19757834679336314e-11, (19, 6) = 0.14717112104045885e-10, (19, 7) = -0.7241201344518486e-9, (19, 8) = -0.9637003292867879e-10, (19, 9) = 0.5976503527451106e-9, (20, 1) = 0.5934522982842164e-9, (20, 2) = -0.2445655522699904e-9, (20, 3) = -0.4961693771601465e-9, (20, 4) = 0.18121875067778454e-12, (20, 5) = -0.27330963142829357e-11, (20, 6) = -0.3037781034873658e-9, (20, 7) = 0.18012427780769387e-8, (20, 8) = 0.22107591012072786e-10, (20, 9) = -0.14725725339876837e-9, (21, 1) = 0.3742215876516568e-9, (21, 2) = -0.2560944889146185e-9, (21, 3) = 0.5355279634306453e-9, (21, 4) = 0.8804670132758528e-13, (21, 5) = -0.1240843121631624e-11, (21, 6) = -0.12628639393834013e-9, (21, 7) = 0.9258694949911367e-9, (21, 8) = 0.3170557584053607e-10, (21, 9) = -0.21611219339486892e-9, (22, 1) = 0.23189123006829522e-9, (22, 2) = 0.24334570228210023e-9, (22, 3) = 0.4190262054809932e-9, (22, 4) = 0.24303936456466278e-13, (22, 5) = -0.34172166068251075e-12, (22, 6) = 0.31757593207988686e-10, (22, 7) = -0.15374004878810642e-9, (22, 8) = 0.8654819872246988e-11, (22, 9) = -0.56350001402762743e-10, (23, 1) = 0.3623910366187224e-9, (23, 2) = 0.5164792356551719e-9, (23, 3) = -0.7870589758841164e-9, (23, 4) = 0.4569938205862001e-14, (23, 5) = -0.6503468914291112e-13, (23, 6) = 0.4966233388356828e-10, (23, 7) = -0.34092658949815013e-9, (23, 8) = -0.2843896887295164e-11, (23, 9) = 0.25510123348307326e-10, (24, 1) = 0.6083708780283342e-9, (24, 2) = 0.9828356030306874e-10, (24, 3) = -0.8487760349269704e-9, (24, 4) = 0.634652215241209e-15, (24, 5) = -0.9173952541438237e-14, (24, 6) = 0.17305878722545178e-10, (24, 7) = -0.13282422368252076e-9, (24, 8) = -0.31945445100628767e-11, (24, 9) = 0.2601805211326645e-10, (25, 1) = 0.6642609879081557e-9, (25, 2) = -0.3684862944293627e-9, (25, 3) = 0.4174300076066416e-9, (25, 4) = 0.6844261871688208e-16, (25, 5) = -0.10056061591774156e-14, (25, 6) = -0.24737548067638106e-11, (25, 7) = 0.12892970011557173e-10, (25, 8) = -0.11544481424638563e-11, (25, 9) = 0.9038975803569561e-11, (26, 1) = 0.5168552337645783e-9, (26, 2) = -0.2441545762293876e-9, (26, 3) = 0.7286628406879452e-9, (26, 4) = 0.5917683111218621e-17, (26, 5) = -0.8837538652983211e-16, (26, 6) = -0.52368109004590185e-11, (26, 7) = 0.3780549572201997e-10, (26, 8) = -0.8787024405968733e-13, (26, 9) = 0.32761431316663954e-12, (27, 1) = 0.39327408472444776e-9, (27, 2) = 0.12613795613289802e-9, (27, 3) = -0.21069266990033663e-9, (27, 4) = 0.42079883047140535e-18, (27, 5) = -0.6386701667260574e-17, (27, 6) = -0.2587926186662255e-11, (27, 7) = 0.19647481699004092e-10, (27, 8) = 0.1292400661037685e-12, (27, 9) = -0.13193548776924834e-11, (28, 1) = 0.4016150948929227e-9, (28, 2) = 0.20353295898040117e-9, (28, 3) = -0.6679507861462238e-9, (28, 4) = 0.24993642859239296e-19, (28, 5) = -0.3855265423075101e-18, (28, 6) = -0.5875859314342798e-12, (28, 7) = 0.4639181940505019e-11, (28, 8) = 0.8703247457689459e-13, (28, 9) = -0.8418454776497393e-12, (29, 1) = 0.46226652540338747e-9, (29, 2) = 0.3912670284735306e-10, (29, 3) = -0.20300573100856882e-9, (29, 4) = 0.12815771055834754e-20, (29, 5) = -0.20084808768707363e-19, (29, 6) = 0.8633995627446183e-13, (29, 7) = -0.645792712400841e-12, (29, 8) = 0.34720450847650774e-13, (29, 9) = -0.3344652856975038e-12, (30, 1) = 0.4909965457517122e-9, (30, 2) = -0.7524174897043024e-10, (30, 3) = 0.2625671642400349e-9, (30, 4) = 0.5288215151458188e-22, (30, 5) = -0.8430711859607712e-21, (30, 6) = 0.15139821376323149e-12, (30, 7) = -0.12081064800736035e-11, (30, 8) = 0.10582190537426424e-13, (30, 9) = -0.10263777597667142e-12, (31, 1) = 0.4838265531684939e-9, (31, 2) = -0.6123510583421178e-10, (31, 3) = 0.2496362716628778e-9, (31, 4) = 0.27788629074834314e-23, (31, 5) = -0.44788648521577e-22, (31, 6) = 0.8533718220044032e-13, (31, 7) = -0.6974871625093458e-12, (31, 8) = 0.26750399298584726e-14, (31, 9) = -0.26236465502977362e-13, (32, 1) = 0.4702001075866032e-9, (32, 2) = -0.993454021009392e-11, (32, 3) = 0.36726264178596386e-10, (32, 4) = -0.9223327577493404e-25, (32, 5) = 0.14705336635080336e-23, (32, 6) = 0.3450631877237664e-13, (32, 7) = -0.2890628301435499e-12, (32, 8) = 0.5846256942426638e-15, (32, 9) = -0.58172450346066256e-14, (33, 1) = 0.46458605287673014e-9, (33, 2) = 0.13684212224041517e-10, (33, 3) = -0.7636015768788299e-10, (33, 4) = 0.4384042693843825e-25, (33, 5) = -0.7211455348831396e-24, (33, 6) = 0.11426551840082464e-13, (33, 7) = -0.9974822847355221e-13, (33, 8) = 0.11511787968449868e-15, (33, 9) = -0.11732462030618005e-14, (34, 1) = 0.4654272100602554e-9, (34, 2) = 0.8563358530558615e-11, (34, 3) = -0.49221179000235754e-10, (34, 4) = -0.8349377411461887e-26, (34, 5) = 0.14065066769775986e-24, (34, 6) = 0.3337862775468761e-14, (34, 7) = -0.3242621791221074e-13, (34, 8) = 0.22565846002993613e-16, (34, 9) = -0.2465427776286934e-15, (35, 1) = 0.466592276822315e-9, (35, 2) = 0.19099932025493616e-11, (35, 3) = -0.11218555784728633e-10, (35, 4) = 0.11335606497467233e-26, (35, 5) = -0.18315992197916386e-25, (35, 6) = 0.8169813471004081e-15, (35, 7) = -0.1118835877459149e-13, (35, 8) = 0.4230625317513569e-17, (35, 9) = -0.60875224213501e-16, (36, 1) = 0.4669158903191878e-9, (36, 2) = 0.19778192243648588e-38, (36, 3) = 0.14651533284676405e-12, (36, 4) = .0, (36, 5) = 0.9437571335531637e-27, (36, 6) = .0, (36, 7) = -0.42317313208548645e-14, (36, 8) = .0, (36, 9) = -0.176064728807288e-16}, datatype = float[8], order = C_order); if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "right" then return X[36] elif outpoint = "order" then return 8 elif outpoint = "error" then return HFloat(1.1798008820799963e-8) elif outpoint = "errorproc" then error "this is already the error procedure" elif outpoint = "rawdata" then return [9, 36, [f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], X, Y] else return ('procname')(x_bvp) end if end if; if outpoint < X[1] or X[36] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[36] end if; V := array([1 = 4, 2 = 0]); if Digits <= trunc(evalhf(Digits)) then L := Vector(4, 'datatype' = 'float'[8]); yout := Vector(9, 'datatype' = 'float'[8]); evalhf(`dsolve/numeric/lagrange`(36, 9, X, Y, outpoint, var(yout), var(L), var(V))) else L := Vector(4, 'datatype' = 'sfloat'); yout := Vector(9, 'datatype' = 'sfloat'); `dsolve/numeric/lagrange`(36, 9, X, Y, outpoint, yout, L, V) end if; [eta = outpoint, seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = yout[i], i = 1 .. 9)] end proc; if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "method" then return "bvp" elif outpoint = "right" then return X[36] elif outpoint = "order" then return 8 elif outpoint = "error" then return HFloat(1.1798008820799963e-8) elif outpoint = "errorproc" then return eval(errproc) elif outpoint = "rawdata" then return [9, 36, "depnames", X, Y, YP] else error "non-numeric value" end if end if; if outpoint < X[1] or X[36] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[36] end if; if Digits <= trunc(evalhf(Digits)) and (_EnvInFsolve <> true or _EnvDSNumericSaveDigits <= trunc(evalhf(Digits))) then V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0, (3, 1) = .0, (3, 2) = .0, (4, 1) = .0, (4, 2) = .0, (5, 1) = .0, (5, 2) = .0, (6, 1) = .0, (6, 2) = .0, (7, 1) = .0, (7, 2) = .0}, datatype = float[8], order = C_order); yout := Vector(9, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0, (9) = .0}, datatype = float[8]); evalhf(`dsolve/numeric/hermite`(36, 9, X, Y, YP, outpoint, var(yout), var(L), var(V))) else if _EnvInFsolve = true then Digits := _EnvDSNumericSaveDigits end if; V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = 0., (1, 2) = 0., (2, 1) = 0., (2, 2) = 0., (3, 1) = 0., (3, 2) = 0., (4, 1) = 0., (4, 2) = 0., (5, 1) = 0., (5, 2) = 0., (6, 1) = 0., (6, 2) = 0., (7, 1) = 0., (7, 2) = 0.}, order = C_order); yout := Vector(9, {(1) = 0., (2) = 0., (3) = 0., (4) = 0., (5) = 0., (6) = 0., (7) = 0., (8) = 0., (9) = 0.}); `dsolve/numeric/hermite`(36, 9, X, Y, YP, outpoint, yout, L, V) end if; [outpoint, seq(yout[i], i = 1 .. 9)] end proc, (2) = Array(0..0, {}), (3) = [eta, f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], (4) = 0}); solnproc := data[1]; if not type(outpoint, 'numeric') then if outpoint = "solnprocedure" then return eval(solnproc) elif member(outpoint, ["start", "left", "right", "errorproc", "rawdata", "order", "error"]) then return solnproc(x_bvp) elif outpoint = "sysvars" then return data[3] elif procname <> unknown then return ('procname')(x_bvp) else _ndsol := pointto(data[2][0]); return ('_ndsol')(x_bvp) end if end if; try res := solnproc(outpoint); [eta = res[1], seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = res[i+1], i = 1 .. 9)] catch: error  end try end proc

 

 

proc (x_bvp) local res, data, solnproc, _ndsol, outpoint, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; _EnvDSNumericSaveDigits := Digits; Digits := 15; if _EnvInFsolve = true then outpoint := evalf[_EnvDSNumericSaveDigits](x_bvp) else outpoint := evalf(x_bvp) end if; data := Array(1..4, {(1) = proc (outpoint) local X, Y, YP, yout, errproc, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; X := Vector(36, {(1) = .0, (2) = .12223549540595634, (3) = .24541775457048298, (4) = .3707977727419159, (5) = .49960247621244935, (6) = .6330352520557593, (7) = .7724247368307788, (8) = .918623291279872, (9) = 1.0717229017756573, (10) = 1.2309719801388979, (11) = 1.3946568157421464, (12) = 1.5610311506926429, (13) = 1.7287541179063115, (14) = 1.8971969447006007, (15) = 2.066159030990762, (16) = 2.2357541306820754, (17) = 2.406625517272389, (18) = 2.5793923632957445, (19) = 2.7545650169308145, (20) = 2.9324780217754807, (21) = 3.1135827998983046, (22) = 3.2981309426076324, (23) = 3.4863056209827903, (24) = 3.6783335382948414, (25) = 3.874005068551992, (26) = 4.073159868524134, (27) = 4.2755555606890985, (28) = 4.480737522711142, (29) = 4.688363240066403, (30) = 4.898107591764175, (31) = 5.109381462889699, (32) = 5.321580036533796, (33) = 5.529726701889748, (34) = 5.714984801036228, (35) = 5.869194054288012, (36) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(36, 9, {(1, 1) = .29304572729689693, (1, 2) = 1.0, (1, 3) = -.7685073829592864, (1, 4) = 1.0, (1, 5) = -2.907890919548722, (1, 6) = 1.0, (1, 7) = -1.2237009250058457, (1, 8) = 1.0, (1, 9) = -.31258210911668993, (2, 1) = .4104375210517266, (2, 2) = .9276715104228836, (2, 3) = -.4281237872099994, (2, 4) = .6945140085988132, (2, 5) = -2.130205510160788, (2, 6) = .8549894186564466, (2, 7) = -1.144517425019679, (2, 8) = .9604277774338718, (2, 9) = -.3352699472776104, (3, 1) = .5221961832398943, (3, 2) = .892518232783433, (3, 3) = -.15191815483196894, (3, 4) = .4699307672244896, (3, 5) = -1.5428177164563712, (3, 6) = .7201699427275001, (3, 7) = -1.0409834892139498, (3, 8) = .9175957398769251, (3, 9) = -.36059788713857305, (4, 1) = .6335413326828134, (4, 2) = .8884382302690547, (4, 3) = 0.7957186961199426e-1, (4, 4) = .30639092164005066, (4, 5) = -1.0865117551819647, (4, 6) = .5972220500443777, (4, 7) = -.9177970308920965, (4, 8) = .8706175056805521, (4, 9) = -.38930004587928435, (5, 1) = .7492070360847015, (5, 2) = .911772076089867, (5, 3) = .27646395745967656, (5, 4) = .19032383358551147, (5, 5) = -.7332210431010013, (5, 6) = .48781027604318944, (5, 7) = -.7797420480393706, (5, 8) = .8183905886653177, (5, 9) = -.42226890971904435, (6, 1) = .8738500475204157, (6, 2) = .9601892819263472, (6, 3) = .4433276167660329, (6, 4) = .11123836442809175, (6, 5) = -.467480052146975, (6, 6) = .3936077707714036, (6, 7) = -.6320872558385131, (6, 8) = .7595417178495838, (6, 9) = -.4605253444744291, (7, 1) = 1.012472673533314, (7, 2) = 1.032008360140351, (7, 3) = .581131354436556, (7, 4) = 0.6025146176503883e-1, (7, 5) = -.277184881384346, (7, 6) = .31612193572533537, (7, 7) = -.48088327440504985, (7, 8) = .6922973363348235, (7, 9) = -.5050768719439305, (8, 1) = 1.1699745730156546, (8, 2) = 1.1252115385181647, (8, 3) = .6874193886967563, (8, 4) = 0.29766236939779433e-1, (8, 5) = -.1503707331498843, (8, 6) = .2567378144154185, (8, 7) = -.3342606336304469, (8, 8) = .6147719335433007, (8, 9) = -.5560288846348963, (9, 1) = 1.3506137650843093, (9, 2) = 1.2363193215752148, (9, 3) = .7567769198180381, (9, 4) = 0.13216755256544149e-1, (9, 5) = -0.7349011045653658e-1, (9, 6) = .2159276970992279, (9, 7) = -.2036715153431451, (9, 8) = .5254558626943652, (9, 9) = -.61032088701173, (10, 1) = 1.5572494383862194, (10, 2) = 1.3594624358243923, (10, 3) = .7814381880122798, (10, 4) = 0.5214070950140744e-2, (10, 5) = -0.3194803315145783e-1, (10, 6) = .19190928650136313, (10, 7) = -.10573323648725617, (10, 8) = .42432106741232717, (10, 9) = -.6564928082197171, (11, 1) = 1.790175699844357, (11, 2) = 1.4857817988630229, (11, 3) = .7524214554488772, (11, 4) = 0.18187449239379014e-2, (11, 5) = -0.12272147915060936e-1, (11, 6) = .17899696099891516, (11, 7) = -0.63563656506912e-1, (11, 8) = .3152623174213187, (11, 9) = -.6666723350211456, (12, 1) = 2.047439555427066, (12, 2) = 1.6042860061631614, (12, 3) = .6613627689208743, (12, 4) = 0.5602554448678931e-3, (12, 5) = -0.4152972946177512e-2, (12, 6) = .1668098006024622, (12, 7) = -0.9504691354499503e-1, (12, 8) = .20857816646083324, (12, 9) = -.6004074885210231, (13, 1) = 2.3251527918275703, (13, 2) = 1.702841705998251, (13, 3) = .5024056135392052, (13, 4) = 0.15245628916951597e-3, (13, 5) = -0.12365894618678952e-2, (13, 6) = .14439931531744318, (13, 7) = -.17440256362580986, (13, 8) = .11969052208422737, (13, 9) = -.4486152738863258, (14, 1) = 2.6181126012578795, (14, 2) = 1.7692027130444705, (14, 3) = .27442026620365223, (14, 4) = 0.3660518712821792e-4, (14, 5) = -0.32324625100367055e-3, (14, 6) = .10974683774342169, (14, 7) = -.22667179632730428, (14, 8) = 0.59299164400225104e-1, (14, 9) = -.2711689029942582, (15, 1) = 2.9196427458844907, (15, 2) = 1.7918207578696101, (15, 3) = -0.1579819888445081e-1, (15, 4) = 0.7742572705879314e-5, (15, 5) = -0.7399696650473135e-4, (15, 6) = 0.7191375563543224e-1, (15, 7) = -.21046816356753245, (15, 8) = 0.25760384096863126e-1, (15, 9) = -.1358676220090488, (16, 1) = 3.2217330499079417, (16, 2) = 1.7611991089229249, (16, 3) = -.35024664015038465, (16, 4) = 0.14400966963026293e-5, (16, 5) = -0.14797522902360535e-4, (16, 6) = 0.40950186741372976e-1, (16, 7) = -.15132875874460952, (16, 8) = 0.10006929209504767e-1, (16, 9) = -0.58633876247251276e-1, (17, 1) = 3.515855260061108, (17, 2) = 1.6714818290331672, (17, 3) = -.6983285872377049, (17, 4) = 0.23434481008937171e-6, (17, 5) = -0.25708564744368696e-5, (17, 6) = 0.20546121827885018e-1, (17, 7) = -0.8956905563353748e-1, (17, 8) = 0.35190728081075677e-2, (17, 9) = -0.22383951674691784e-1, (18, 1) = 3.792555267958305, (18, 2) = 1.5224855505142543, (18, 3) = -1.016777262505806, (18, 4) = 0.3324773937006488e-7, (18, 5) = -0.3865669193588218e-6, (18, 6) = 0.9196603384930687e-2, (18, 7) = -0.4534421520540423e-1, (18, 8) = 0.11278040392985755e-2, (18, 9) = -0.7672023285511213e-2, (19, 1) = 4.042295218640982, (19, 2) = 1.3218759567724425, (19, 3) = -1.2557262348208453, (19, 4) = 0.4109625104074972e-8, (19, 5) = -0.502629040250117e-7, (19, 6) = 0.37096559376571117e-2, (19, 7) = -0.20111659509839758e-1, (19, 8) = 0.33068911224034924e-3, (19, 9) = -0.2379654297891907e-2, (20, 1) = 4.256803780101446, (20, 2) = 1.086066528233595, (20, 3) = -1.3716382247677896, (20, 4) = 0.4438209682560571e-9, (20, 5) = -0.5667933912813401e-8, (20, 6) = 0.13606533757071493e-2, (20, 7) = -0.7947650356668131e-2, (20, 8) = 0.890499688951334e-4, (20, 9) = -0.6718001251585216e-3, (21, 1) = 4.4309568293091885, (21, 2) = .8380144815497014, (21, 3) = -1.3437919575358812, (21, 4) = 0.41957970425181977e-10, (21, 5) = -0.5556800717314274e-9, (21, 6) = 0.4569817723663823e-3, (21, 7) = -0.2831891583902532e-2, (21, 8) = 0.2207997787121794e-4, (21, 9) = -0.17328279214186894e-3, (22, 1) = 4.56346839085257, (22, 2) = .6029498092182939, (22, 3) = -1.1854041339928858, (22, 4) = 0.3484987587455255e-11, (22, 5) = -0.47578501947859426e-10, (22, 6) = 0.141523844715008e-3, (22, 7) = -0.9194242002627101e-3, (22, 8) = 0.5060490193981811e-5, (22, 9) = -0.4104152765974585e-4, (23, 1) = 4.657299980368146, (23, 2) = .40200384461523886, (23, 3) = -.9418920276812297, (23, 4) = 0.25500438326822914e-12, (23, 5) = -0.35716384107103392e-11, (23, 6) = 0.4066999281981183e-4, (23, 7) = -0.27447687293846035e-3, (23, 8) = 0.10762583788403801e-5, (23, 9) = -0.8971897968962322e-5, (24, 1) = 4.7187915800422235, (24, 2) = .24705237296673802, (24, 3) = -.6737133182371462, (24, 4) = 0.1642996647808491e-13, (24, 5) = -0.2352501542115355e-12, (24, 6) = 0.10894884301353607e-4, (24, 7) = -0.7586998316073022e-4, (24, 8) = 0.2129478004825105e-6, (24, 9) = -0.18172702472502776e-5, (25, 1) = 4.755847220106922, (25, 2) = .139531234012686, (25, 3) = -.43405359601014365, (25, 4) = 0.9350909534925825e-15, (25, 5) = -0.13654497348862087e-13, (25, 6) = 0.2737172857004824e-5, (25, 7) = -0.19573626584240755e-4, (25, 8) = 0.3939053041150899e-7, (25, 9) = -0.34315337864621454e-6, (26, 1) = 4.77634017191786, (26, 2) = 0.7230101119419836e-1, (26, 3) = -.25228556521749645, (26, 4) = 0.4704831709915759e-16, (26, 5) = -0.6995993703057922e-15, (26, 6) = 0.6477334296647492e-6, (26, 7) = -0.4740878064503461e-5, (26, 8) = 0.6833816802266162e-8, (26, 9) = -0.6066365885718376e-7, (27, 1) = 4.786726310638857, (27, 2) = 0.3435831320703714e-1, (27, 3) = -.13262889352342158, (27, 4) = 0.2094092618374462e-17, (27, 5) = -0.3168250383903296e-16, (27, 6) = 0.14491534547084013e-6, (27, 7) = -0.10832383056154999e-5, (27, 8) = 0.11150180225720236e-8, (27, 9) = -0.10075300106394826e-7, (28, 1) = 4.791546934326103, (28, 2) = 0.14990281717296444e-1, (28, 3) = -0.6330010071227161e-1, (28, 4) = 0.8287742162226521e-19, (28, 5) = -0.12751719987107553e-17, (28, 6) = 0.3078720452504648e-7, (28, 7) = -0.23469178617193796e-6, (28, 8) = 0.17175602469614883e-9, (28, 9) = -0.15788449380017452e-8, (29, 1) = 4.7935994810814355, (29, 2) = 0.6010383981973171e-2, (29, 3) = -0.27524325164902344e-1, (29, 4) = 0.29069363028204808e-20, (29, 5) = -0.4547765294451508e-19, (29, 6) = 0.6229858247336487e-8, (29, 7) = -0.4838399037291334e-7, (29, 8) = 0.2503668706200248e-10, (29, 9) = -0.2340500159140601e-9, (30, 1) = 4.794401962017242, (30, 2) = 0.2215672439215715e-2, (30, 3) = -0.10937971729193724e-1, (30, 4) = 0.9440884004116453e-22, (30, 5) = -0.15006549735218089e-20, (30, 6) = 0.12037316725230799e-8, (30, 7) = -0.9518628375252073e-8, (30, 8) = 0.3460363918519863e-11, (30, 9) = -0.328903342750271e-10, (31, 1) = 4.794689826452536, (31, 2) = 0.7509962930071404e-3, (31, 3) = -0.3987588293129663e-2, (31, 4) = 0.19798961766046494e-23, (31, 5) = -0.3216537904891888e-22, (31, 6) = 0.22302389433777427e-9, (31, 7) = -0.17953399521332584e-8, (31, 8) = 0.4554557843905414e-12, (31, 9) = -0.4401150928217403e-11, (32, 1) = 4.794784422753626, (32, 2) = 0.23285539206328355e-3, (32, 3) = -0.13375644260806372e-2, (32, 4) = 0.22534928848877133e-24, (32, 5) = -0.3660001584031703e-23, (32, 6) = 0.39737020327214907e-10, (32, 7) = -0.32622476304526185e-9, (32, 8) = 0.573266502448059e-13, (32, 9) = -0.5635239299844608e-12, (33, 1) = 4.7948123191760335, (33, 2) = 0.6634921971183591e-4, (33, 3) = -0.42331823009009205e-3, (33, 4) = -0.38048469482661334e-25, (33, 5) = 0.6248730197056138e-24, (33, 6) = 0.7022169018602123e-11, (33, 7) = -0.594985732754925e-10, (33, 8) = 0.72077779529536e-14, (33, 9) = -0.7249944946950195e-13, (34, 1) = 4.794819380363771, (34, 2) = 0.1845563381497783e-4, (34, 3) = -0.14109354316228044e-3, (34, 4) = 0.818318081304006e-26, (34, 5) = -0.13788376367593947e-24, (34, 6) = 0.13820259055471305e-11, (34, 7) = -0.1277861638365013e-10, (34, 8) = 0.10634588340826038e-14, (34, 9) = -0.11367740759413866e-13, (35, 1) = 4.794820979782686, (35, 2) = 0.4533704775964936e-5, (35, 3) = -0.526001350749332e-4, (35, 4) = -0.10776237370155173e-26, (35, 5) = 0.17381457933542307e-25, (35, 6) = 0.27609177357335785e-12, (35, 7) = -0.3492741009744529e-11, (35, 8) = 0.1726361453427803e-15, (35, 9) = -0.2386035032674512e-14, (36, 1) = 4.79482123158997, (36, 2) = -0.18987064553901744e-38, (36, 3) = -0.20926343377161045e-4, (36, 4) = .0, (36, 5) = -0.9271131350613818e-27, (36, 6) = .0, (36, 7) = -0.1148739850256061e-11, (36, 8) = .0, (36, 9) = -0.6263102616725631e-15}, datatype = float[8], order = C_order); YP := Matrix(36, 9, {(1, 1) = 1.0, (1, 2) = -.7685073829592864, (1, 3) = 3.1322732425544326, (1, 4) = -2.907890919548722, (1, 5) = 7.422654715986622, (1, 6) = -1.2237009250058457, (1, 7) = .5351846931251554, (1, 8) = -.31258210911668993, (1, 9) = -.17658436556293183, (2, 1) = .9276715104228836, (2, 2) = -.4281237872099994, (2, 3) = 2.4814166607380193, (2, 4) = -2.130205510160788, (2, 5) = 5.458396624695731, (2, 6) = -1.144517425019679, (2, 7) = .7522803270831294, (2, 8) = -.3352699472776104, (2, 9) = -.19508952332752827, (3, 1) = .892518232783433, (3, 2) = -.15191815483196894, (3, 3) = 2.0274755773132034, (3, 4) = -1.5428177164563712, (3, 5) = 4.154061972511621, (3, 6) = -1.0409834892139498, (3, 7) = .9199114516320973, (3, 8) = -.36059788713857305, (3, 9) = -.21664145270642876, (4, 1) = .8884382302690547, (4, 2) = 0.7957186961199426e-1, (4, 3) = 1.6790185813075644, (4, 4) = -1.0865117551819647, (4, 5) = 3.1648549137930395, (4, 6) = -.9177970308920965, (4, 7) = 1.035894823495831, (4, 8) = -.38930004587928435, (4, 9) = -.24173428510966494, (5, 1) = .911772076089867, (5, 2) = .27646395745967656, (5, 3) = 1.3860866746304614, (5, 4) = -.7332210431010013, (5, 5) = 2.348216793535867, (5, 6) = -.7797420480393706, (5, 7) = 1.0983386592688695, (5, 8) = -.42226890971904435, (5, 9) = -.27067476929203016, (6, 1) = .9601892819263472, (6, 2) = .4433276167660329, (6, 3) = 1.1193388080553455, (6, 4) = -.467480052146975, (6, 5) = 1.6599003778594428, (6, 6) = -.6320872558385131, (6, 7) = 1.105390375809924, (6, 8) = -.4605253444744291, (6, 9) = -.30295745018278597, (7, 1) = 1.032008360140351, (7, 2) = .581131354436556, (7, 3) = .859917718116145, (7, 4) = -.277184881384346, (7, 5) = 1.096275588026919, (7, 6) = -.48088327440504985, (7, 7) = 1.0545877374451431, (7, 8) = -.5050768719439305, (7, 9) = -.3355527275266557, (8, 1) = 1.1252115385181647, (8, 2) = .6874193886967563, (8, 3) = .5941436677895606, (8, 4) = -.1503707331498843, (8, 5) = .6642944632946686, (8, 6) = -.3342606336304469, (8, 7) = .940964708357463, (8, 8) = -.5560288846348963, (8, 9) = -.35797601411792845, (9, 1) = 1.2363193215752148, (9, 2) = .7567769198180381, (9, 3) = .3098997168337092, (9, 4) = -0.7349011045653658e-1, (9, 5) = .36315935275500166, (9, 6) = -.2036715153431451, (9, 7) = .7519914493101875, (9, 8) = -.61032088701173, (9, 9) = -.3404852549867801, (10, 1) = 1.3594624358243923, (10, 2) = .7814381880122798, (10, 3) = -0.4182751440215071e-2, (10, 4) = -0.3194803315145783e-1, (10, 5) = .1765843596987432, (10, 6) = -.10573323648725617, (10, 7) = .459153460258614, (10, 8) = -.6564928082197171, (10, 9) = -.21315377994181942, (11, 1) = 1.4857817988630229, (11, 2) = .7524214554488772, (11, 3) = -.3556126900790162, (11, 4) = -0.12272147915060936e-1, (11, 5) = 0.7571726443443462e-1, (11, 6) = -0.63563656506912e-1, (11, 7) = 0.3820031480623226e-1, (11, 8) = -.6666723350211456, (11, 9) = .13099572770373114, (12, 1) = 1.6042860061631614, (12, 2) = .6613627689208743, (12, 3) = -.7436196073205363, (12, 4) = -0.4152972946177512e-2, (12, 5) = 0.28493548025601716e-1, (12, 6) = -0.9504691354499503e-1, (12, 7) = -.3913459740299369, (12, 8) = -.6004074885210231, (12, 9) = .6786807799562962, (13, 1) = 1.702841705998251, (13, 2) = .5024056135392052, (13, 3) = -1.152722624984921, (13, 4) = -0.12365894618678952e-2, (13, 5) = 0.9385291765880942e-2, (13, 6) = -.17440256362580986, (13, 7) = -.46856865115341484, (13, 8) = -.4486152738863258, (13, 9) = 1.0625182276458123, (14, 1) = 1.7692027130444705, (14, 2) = .27442026620365223, (14, 3) = -1.5474724898098176, (14, 4) = -0.32324625100367055e-3, (14, 5) = 0.2697049790752222e-2, (14, 6) = -.22667179632730428, (14, 7) = -.10818703320993872, (14, 8) = -.2711689029942582, (14, 9) = .9704149691754377, (15, 1) = 1.7918207578696101, (15, 2) = -0.1579819888445081e-1, (15, 3) = -1.8695886822371435, (15, 4) = -0.7399696650473135e-4, (15, 5) = 0.6740307627465358e-3, (15, 6) = -.21046816356753245, (15, 7) = .26681578006528395, (15, 8) = -.1358676220090488, (15, 9) = .6194640024912289, (16, 1) = 1.7611991089229249, (16, 2) = -.35024664015038465, (16, 3) = -2.0426808427458836, (16, 4) = -0.14797522902360535e-4, (16, 5) = 0.14604674776036108e-3, (16, 6) = -.15132875874460952, (16, 7) = .3870942654735919, (16, 8) = -0.58633876247251276e-1, (16, 9) = .3119052838843696, (17, 1) = 1.6714818290331672, (17, 2) = -.6983285872377049, (17, 3) = -1.987771357158421, (17, 4) = -0.25708564744368696e-5, (17, 5) = 0.2727770659414438e-4, (17, 6) = -0.8956905563353748e-1, (17, 7) = .3168648958728837, (17, 8) = -0.22383951674691784e-1, (17, 9) = .13277142379353354, (18, 1) = 1.5224855505142543, (18, 2) = -1.016777262505806, (18, 3) = -1.6505090042776895, (18, 4) = -0.3865669193588218e-6, (18, 5) = 0.4373709383048954e-5, (18, 6) = -0.4534421520540423e-1, (18, 7) = .19558322730683234, (18, 8) = -0.7672023285511213e-2, (18, 9) = 0.4948754145464506e-1, (19, 1) = 1.3218759567724425, (19, 2) = -1.2557262348208453, (19, 3) = -1.038627232522864, (19, 4) = -0.502629040250117e-7, (19, 5) = 0.6014063925618703e-6, (19, 6) = -0.20111659509839758e-1, (19, 7) = 0.9949176422727492e-1, (19, 8) = -0.2379654297891907e-2, (19, 9) = 0.16429796922178597e-1, (20, 1) = 1.086066528233595, (20, 2) = -1.3716382247677896, (20, 3) = -.2501098765426589, (20, 4) = -0.5667933912813401e-8, (20, 5) = 0.7113461878848856e-7, (20, 6) = -0.7947650356668131e-2, (20, 7) = 0.4349155937158627e-1, (20, 8) = -0.6718001251585216e-3, (20, 9) = 0.4906472456906586e-2, (21, 1) = .8380144815497014, (21, 2) = -1.3437919575358812, (21, 3) = .5380373986304241, (21, 4) = -0.5556800717314274e-9, (21, 5) = 0.7259153889651238e-8, (21, 6) = -0.2831891583902532e-2, (21, 7) = 0.16733015842171496e-1, (21, 8) = -0.17328279214186894e-3, (21, 9) = 0.13258040906444484e-2, (22, 1) = .6029498092182939, (22, 2) = -1.1854041339928858, (22, 3) = 1.12994424700676, (22, 4) = -0.47578501947859426e-10, (22, 5) = 0.6425891508610383e-9, (22, 6) = -0.9194242002627101e-3, (22, 7) = 0.5764745810860611e-2, (22, 8) = -0.4104152765974585e-4, (22, 9) = 0.32625584249112066e-3, (23, 1) = .40200384461523886, (23, 2) = -.9418920276812297, (23, 3) = 1.3995163588057415, (23, 4) = -0.35716384107103392e-11, (23, 5) = 0.4959497957717717e-10, (23, 6) = -0.27447687293846035e-3, (23, 7) = 0.18027900324228338e-2, (23, 8) = -0.8971897968962322e-5, (23, 9) = 0.7360001812192588e-4, (24, 1) = .24705237296673802, (24, 2) = -.6737133182371462, (24, 3) = 1.346700004188274, (24, 4) = -0.2352501542115355e-12, (24, 5) = 0.33445247964496187e-11, (24, 6) = -0.7586998316073022e-4, (24, 7) = 0.5171328431743723e-3, (24, 8) = -0.18172702472502776e-5, (24, 9) = 0.15303734298663496e-4, (25, 1) = .139531234012686, (25, 2) = -.43405359601014365, (25, 3) = 1.0804294412875997, (25, 4) = -0.13654497348862087e-13, (25, 5) = 0.19817857255998653e-12, (25, 6) = -0.19573626584240755e-4, (25, 7) = 0.1375264694465066e-3, (25, 8) = -0.34315337864621454e-6, (25, 9) = 0.29554135048736666e-5, (26, 1) = 0.7230101119419836e-1, (26, 2) = -.25228556521749645, (26, 3) = .7453425004610168, (26, 4) = -0.6995993703057922e-15, (26, 5) = 0.10347018817453496e-13, (26, 6) = -0.4740878064503461e-5, (26, 7) = 0.3417999794125039e-4, (26, 8) = -0.6066365885718376e-7, (26, 9) = 0.5330198295903539e-6, (27, 1) = 0.3435831320703714e-1, (27, 2) = -.13262889352342158, (27, 3) = .4501938302976667, (27, 4) = -0.3168250383903296e-16, (27, 5) = 0.4769925901344175e-15, (27, 6) = -0.10832383056154999e-5, (27, 7) = 0.7989637402857128e-5, (27, 8) = -0.10075300106394826e-7, (27, 9) = 0.9018137102805667e-7, (28, 1) = 0.14990281717296444e-1, (28, 2) = -0.6330010071227161e-1, (28, 3) = .24123376017250966, (28, 4) = -0.12751719987107553e-17, (28, 5) = 0.19531261045791298e-16, (28, 6) = -0.23469178617193796e-6, (28, 7) = 0.17673979676344433e-5, (28, 8) = -0.15788449380017452e-8, (28, 9) = 0.1438392376716224e-7, (29, 1) = 0.6010383981973171e-2, (29, 2) = -0.27524325164902344e-1, (29, 3) = .11581306003640542, (29, 4) = -0.4547765294451508e-19, (29, 5) = 0.7084075468553719e-18, (29, 6) = -0.4838399037291334e-7, (29, 7) = 0.37154023325718906e-6, (29, 8) = -0.2340500159140601e-9, (29, 9) = 0.2169314057116005e-8, (30, 1) = 0.2215672439215715e-2, (30, 2) = -0.10937971729193724e-1, (30, 3) = 0.50197071080863576e-1, (30, 4) = -0.15006549735218089e-20, (30, 5) = 0.23768271979065158e-19, (30, 6) = -0.9518628375252073e-8, (30, 7) = 0.7446561907378108e-7, (30, 8) = -0.328903342750271e-10, (30, 9) = 0.31005267674301157e-9, (31, 1) = 0.7509962930071404e-3, (31, 2) = -0.3987588293129663e-2, (31, 3) = 0.1978479268324201e-1, (31, 4) = -0.3216537904891888e-22, (31, 5) = 0.5178829630210459e-21, (31, 6) = -0.17953399521332584e-8, (31, 7) = 0.1429908316938116e-7, (31, 8) = -0.4401150928217403e-11, (31, 9) = 0.4218795352029878e-10, (32, 1) = 0.23285539206328355e-3, (32, 2) = -0.13375644260806372e-2, (32, 3) = 0.7136245026238088e-2, (32, 4) = -0.3660001584031703e-23, (32, 5) = 0.5990070356365727e-22, (32, 6) = -0.32622476304526185e-9, (32, 7) = 0.26437054045083134e-8, (32, 8) = -0.5635239299844608e-12, (32, 9) = 0.5491499185496713e-11, (33, 1) = 0.6634921971183591e-4, (33, 2) = -0.42331823009009205e-3, (33, 3) = 0.24244332918559e-2, (33, 4) = 0.6248730197056138e-24, (33, 5) = -0.10388740310354382e-22, (33, 6) = -0.594985732754925e-10, (33, 7) = 0.4901984508580344e-9, (33, 8) = -0.7249944946950195e-13, (33, 9) = 0.7178221103416243e-12, (34, 1) = 0.1845563381497783e-4, (34, 2) = -0.14109354316228044e-3, (34, 3) = 0.868455252324717e-3, (34, 4) = -0.13788376367593947e-24, (34, 5) = 0.23238892396911724e-23, (34, 6) = -0.1277861638365013e-10, (34, 7) = 0.10680052413163866e-9, (34, 8) = -0.11367740759413866e-13, (34, 9) = 0.11413236569161895e-12, (35, 1) = 0.4533704775964936e-5, (35, 2) = -0.526001350749332e-4, (35, 3) = 0.3516453693963263e-3, (35, 4) = 0.17381457933542307e-25, (35, 5) = -0.2963927676718906e-24, (35, 6) = -0.3492741009744529e-11, (35, 7) = 0.29535070290225623e-10, (35, 8) = -0.2386035032674512e-14, (35, 9) = 0.2423180997011715e-13, (36, 1) = -0.18987064553901744e-38, (36, 2) = -0.20926343377161045e-4, (36, 3) = 0.15694757532870785e-3, (36, 4) = -0.9271131350613818e-27, (36, 5) = 0.1584403200111687e-25, (36, 6) = -0.1148739850256061e-11, (36, 7) = 0.980935461097567e-11, (36, 8) = -0.6263102616725631e-15, (36, 9) = 0.64220510658026905e-14}, datatype = float[8], order = C_order); errproc := proc (x_bvp) local outpoint, X, Y, yout, L, V, i; option `Copyright (c) 2000 by Waterloo Maple Inc. All rights reserved.`; Digits := 15; outpoint := evalf(x_bvp); X := Vector(36, {(1) = .0, (2) = .12223549540595634, (3) = .24541775457048298, (4) = .3707977727419159, (5) = .49960247621244935, (6) = .6330352520557593, (7) = .7724247368307788, (8) = .918623291279872, (9) = 1.0717229017756573, (10) = 1.2309719801388979, (11) = 1.3946568157421464, (12) = 1.5610311506926429, (13) = 1.7287541179063115, (14) = 1.8971969447006007, (15) = 2.066159030990762, (16) = 2.2357541306820754, (17) = 2.406625517272389, (18) = 2.5793923632957445, (19) = 2.7545650169308145, (20) = 2.9324780217754807, (21) = 3.1135827998983046, (22) = 3.2981309426076324, (23) = 3.4863056209827903, (24) = 3.6783335382948414, (25) = 3.874005068551992, (26) = 4.073159868524134, (27) = 4.2755555606890985, (28) = 4.480737522711142, (29) = 4.688363240066403, (30) = 4.898107591764175, (31) = 5.109381462889699, (32) = 5.321580036533796, (33) = 5.529726701889748, (34) = 5.714984801036228, (35) = 5.869194054288012, (36) = 6.0}, datatype = float[8], order = C_order); Y := Matrix(36, 9, {(1, 1) = -0.9043698928940775e-12, (1, 2) = .0, (1, 3) = 0.5837258712848847e-10, (1, 4) = .0, (1, 5) = 0.1498912676178155e-10, (1, 6) = .0, (1, 7) = -0.4804208167065043e-12, (1, 8) = .0, (1, 9) = 0.964680946068039e-12, (2, 1) = 0.3832963732120129e-12, (2, 2) = -0.5836921580613932e-12, (2, 3) = 0.607114576082514e-10, (2, 4) = -0.5251287915047417e-10, (2, 5) = 0.1855908102638377e-9, (2, 6) = 0.7201213874510324e-12, (2, 7) = -0.25806128994957348e-11, (2, 8) = 0.13787148075707805e-12, (2, 9) = 0.10452863984325091e-11, (3, 1) = 0.3049367928324361e-12, (3, 2) = 0.1199522039868647e-11, (3, 3) = 0.621335652541479e-10, (3, 4) = -0.39667413182257276e-10, (3, 5) = 0.15094256170535988e-9, (3, 6) = 0.6447211219332684e-12, (3, 7) = -0.35019690377488425e-11, (3, 8) = 0.26884285995384107e-12, (3, 9) = 0.11593040663179162e-11, (4, 1) = 0.4664587448079572e-12, (4, 2) = 0.549017989751097e-11, (4, 3) = 0.6077925215356435e-10, (4, 4) = -0.23701233014249754e-10, (4, 5) = 0.10463801591798161e-9, (4, 6) = 0.20775930242629874e-12, (4, 7) = -0.3740001797453238e-11, (4, 8) = 0.3954098356395204e-12, (4, 9) = 0.12794942962753589e-11, (5, 1) = 0.14278263023713148e-11, (5, 2) = 0.12831264279934802e-10, (5, 3) = 0.6170803878850477e-10, (5, 4) = -0.12111336293199544e-10, (5, 5) = 0.6790334013760307e-10, (5, 6) = -0.3718729060984488e-12, (5, 7) = -0.3372380761558069e-11, (5, 8) = 0.5042399745186866e-12, (5, 9) = 0.13802197174302398e-11, (6, 1) = 0.3229431284049011e-11, (6, 2) = 0.21231224388375023e-10, (6, 3) = 0.6555728716784342e-10, (6, 4) = -0.422570045709265e-11, (6, 5) = 0.3590700728430028e-10, (6, 6) = -0.9725981488076406e-12, (6, 7) = -0.2429202660459223e-11, (6, 8) = 0.5841703386248098e-12, (6, 9) = 0.14356564503869845e-11, (7, 1) = 0.60950811184464025e-11, (7, 2) = 0.29843936769876106e-10, (7, 3) = 0.7061308662372642e-10, (7, 4) = 0.16618372929751543e-11, (7, 5) = 0.7010673076289743e-11, (7, 6) = -0.16174490085340518e-11, (7, 7) = -0.10279783818629936e-11, (7, 8) = 0.7752164662535791e-12, (7, 9) = 0.16755002201651083e-11, (8, 1) = 0.10251801237468475e-10, (8, 2) = 0.38918030063638184e-10, (8, 3) = 0.7707819892025402e-10, (8, 4) = 0.28587918037191062e-11, (8, 5) = -0.6637518022441706e-11, (8, 6) = -0.2508323063710888e-11, (8, 7) = -0.18657726828754297e-12, (8, 8) = 0.19382268971726096e-11, (8, 9) = 0.34751403482834135e-11, (9, 1) = 0.1564297668202477e-10, (9, 2) = 0.4819275909839893e-10, (9, 3) = 0.8532961124818803e-10, (9, 4) = -0.6164795862262928e-11, (9, 5) = 0.24886971712989308e-10, (9, 6) = -0.1558965668526864e-12, (9, 7) = -0.6316973232238581e-11, (9, 8) = 0.31149022643781795e-11, (9, 9) = 0.4463609981115291e-11, (10, 1) = 0.21546469773621837e-10, (10, 2) = 0.5670770479127831e-10, (10, 3) = 0.9601547827203019e-10, (10, 4) = -0.23169658107593973e-10, (10, 5) = 0.11030755667231922e-9, (10, 6) = 0.24955794124955718e-10, (10, 7) = -0.9951906054734128e-10, (10, 8) = -0.8725013780511149e-11, (10, 9) = 0.22693421400642195e-10, (11, 1) = 0.2615642298723526e-10, (11, 2) = 0.6394917252842306e-10, (11, 3) = 0.11261196203677041e-9, (11, 4) = -0.2923529329402315e-10, (11, 5) = 0.16308429530440947e-9, (11, 6) = 0.44914038346191696e-10, (11, 7) = -0.3890070925683025e-9, (11, 8) = 0.7549552291538765e-10, (11, 9) = 0.17878352316479733e-9, (12, 1) = 0.27207720926533742e-10, (12, 2) = 0.730485021678744e-10, (12, 3) = 0.14643204191154454e-9, (12, 4) = -0.13158109712477497e-10, (12, 5) = 0.9015763083521412e-10, (12, 6) = -0.35442548466823146e-11, (12, 7) = 0.325318277311967e-10, (12, 8) = -0.4056662755924421e-9, (12, 9) = -0.1357758940006578e-9, (13, 1) = 0.24759224163371766e-10, (13, 2) = 0.9616342199960468e-10, (13, 3) = 0.2185836172903578e-9, (13, 4) = 0.6805905336647061e-11, (13, 5) = -0.34964747890665324e-10, (13, 6) = -0.15652474987615576e-8, (13, 7) = 0.6103772461565739e-8, (13, 8) = 0.9266076022622614e-9, (13, 9) = -0.176563465565666e-9, (14, 1) = 0.2629297007351512e-10, (14, 2) = 0.15797280563889105e-9, (14, 3) = 0.3440642698769278e-9, (14, 4) = 0.10541642561916084e-10, (14, 5) = -0.7134077390581618e-10, (14, 6) = 0.278509991034528e-8, (14, 7) = -0.8629331747521183e-8, (14, 8) = -0.3207850619597296e-9, (14, 9) = -0.1553660961889974e-8, (15, 1) = 0.5204087944048554e-10, (15, 2) = 0.2865121770723145e-9, (15, 3) = 0.4831111351322765e-9, (15, 4) = 0.28640738301870187e-11, (15, 5) = -0.21671188025644032e-10, (15, 6) = -0.30483354644289575e-9, (15, 7) = -0.3906165750735804e-8, (15, 8) = -0.8138915177236866e-9, (15, 9) = 0.4138548866694594e-8, (16, 1) = 0.13314867334006e-9, (16, 2) = 0.4770483143179854e-9, (16, 3) = 0.4844764742839627e-9, (16, 4) = -0.28170323128309654e-11, (16, 5) = 0.22435323432389094e-10, (16, 6) = -0.20739199199716855e-8, (16, 7) = 0.11798008820799963e-7, (16, 8) = 0.6418552129500132e-9, (16, 9) = -0.2688726344256814e-8, (17, 1) = 0.2917763950668191e-9, (17, 2) = 0.6384099445274596e-9, (17, 3) = 0.1329047069511318e-9, (17, 4) = -0.28785366956893757e-11, (17, 5) = 0.2353294518609462e-10, (17, 6) = 0.5593385503647122e-9, (17, 7) = -0.12654576386316017e-8, (17, 8) = 0.15870577157796408e-9, (17, 9) = -0.964327437349994e-9, (18, 1) = 0.499003627373126e-9, (18, 2) = 0.5868383084689767e-9, (18, 3) = -0.5640566042679688e-9, (18, 4) = -0.10169905904596317e-11, (18, 5) = 0.72241487510940475e-11, (18, 6) = 0.9262322718825815e-9, (18, 7) = -0.573585771752706e-8, (18, 8) = -0.2108968922933367e-9, (18, 9) = 0.119110207648883e-8, (19, 1) = 0.6431804880604637e-9, (19, 2) = 0.2105677115242439e-9, (19, 3) = -0.10224752832329544e-8, (19, 4) = 0.24703417667908925e-13, (19, 5) = -0.19757834679336314e-11, (19, 6) = 0.14717112104045885e-10, (19, 7) = -0.7241201344518486e-9, (19, 8) = -0.9637003292867879e-10, (19, 9) = 0.5976503527451106e-9, (20, 1) = 0.5934522982842164e-9, (20, 2) = -0.2445655522699904e-9, (20, 3) = -0.4961693771601465e-9, (20, 4) = 0.18121875067778454e-12, (20, 5) = -0.27330963142829357e-11, (20, 6) = -0.3037781034873658e-9, (20, 7) = 0.18012427780769387e-8, (20, 8) = 0.22107591012072786e-10, (20, 9) = -0.14725725339876837e-9, (21, 1) = 0.3742215876516568e-9, (21, 2) = -0.2560944889146185e-9, (21, 3) = 0.5355279634306453e-9, (21, 4) = 0.8804670132758528e-13, (21, 5) = -0.1240843121631624e-11, (21, 6) = -0.12628639393834013e-9, (21, 7) = 0.9258694949911367e-9, (21, 8) = 0.3170557584053607e-10, (21, 9) = -0.21611219339486892e-9, (22, 1) = 0.23189123006829522e-9, (22, 2) = 0.24334570228210023e-9, (22, 3) = 0.4190262054809932e-9, (22, 4) = 0.24303936456466278e-13, (22, 5) = -0.34172166068251075e-12, (22, 6) = 0.31757593207988686e-10, (22, 7) = -0.15374004878810642e-9, (22, 8) = 0.8654819872246988e-11, (22, 9) = -0.56350001402762743e-10, (23, 1) = 0.3623910366187224e-9, (23, 2) = 0.5164792356551719e-9, (23, 3) = -0.7870589758841164e-9, (23, 4) = 0.4569938205862001e-14, (23, 5) = -0.6503468914291112e-13, (23, 6) = 0.4966233388356828e-10, (23, 7) = -0.34092658949815013e-9, (23, 8) = -0.2843896887295164e-11, (23, 9) = 0.25510123348307326e-10, (24, 1) = 0.6083708780283342e-9, (24, 2) = 0.9828356030306874e-10, (24, 3) = -0.8487760349269704e-9, (24, 4) = 0.634652215241209e-15, (24, 5) = -0.9173952541438237e-14, (24, 6) = 0.17305878722545178e-10, (24, 7) = -0.13282422368252076e-9, (24, 8) = -0.31945445100628767e-11, (24, 9) = 0.2601805211326645e-10, (25, 1) = 0.6642609879081557e-9, (25, 2) = -0.3684862944293627e-9, (25, 3) = 0.4174300076066416e-9, (25, 4) = 0.6844261871688208e-16, (25, 5) = -0.10056061591774156e-14, (25, 6) = -0.24737548067638106e-11, (25, 7) = 0.12892970011557173e-10, (25, 8) = -0.11544481424638563e-11, (25, 9) = 0.9038975803569561e-11, (26, 1) = 0.5168552337645783e-9, (26, 2) = -0.2441545762293876e-9, (26, 3) = 0.7286628406879452e-9, (26, 4) = 0.5917683111218621e-17, (26, 5) = -0.8837538652983211e-16, (26, 6) = -0.52368109004590185e-11, (26, 7) = 0.3780549572201997e-10, (26, 8) = -0.8787024405968733e-13, (26, 9) = 0.32761431316663954e-12, (27, 1) = 0.39327408472444776e-9, (27, 2) = 0.12613795613289802e-9, (27, 3) = -0.21069266990033663e-9, (27, 4) = 0.42079883047140535e-18, (27, 5) = -0.6386701667260574e-17, (27, 6) = -0.2587926186662255e-11, (27, 7) = 0.19647481699004092e-10, (27, 8) = 0.1292400661037685e-12, (27, 9) = -0.13193548776924834e-11, (28, 1) = 0.4016150948929227e-9, (28, 2) = 0.20353295898040117e-9, (28, 3) = -0.6679507861462238e-9, (28, 4) = 0.24993642859239296e-19, (28, 5) = -0.3855265423075101e-18, (28, 6) = -0.5875859314342798e-12, (28, 7) = 0.4639181940505019e-11, (28, 8) = 0.8703247457689459e-13, (28, 9) = -0.8418454776497393e-12, (29, 1) = 0.46226652540338747e-9, (29, 2) = 0.3912670284735306e-10, (29, 3) = -0.20300573100856882e-9, (29, 4) = 0.12815771055834754e-20, (29, 5) = -0.20084808768707363e-19, (29, 6) = 0.8633995627446183e-13, (29, 7) = -0.645792712400841e-12, (29, 8) = 0.34720450847650774e-13, (29, 9) = -0.3344652856975038e-12, (30, 1) = 0.4909965457517122e-9, (30, 2) = -0.7524174897043024e-10, (30, 3) = 0.2625671642400349e-9, (30, 4) = 0.5288215151458188e-22, (30, 5) = -0.8430711859607712e-21, (30, 6) = 0.15139821376323149e-12, (30, 7) = -0.12081064800736035e-11, (30, 8) = 0.10582190537426424e-13, (30, 9) = -0.10263777597667142e-12, (31, 1) = 0.4838265531684939e-9, (31, 2) = -0.6123510583421178e-10, (31, 3) = 0.2496362716628778e-9, (31, 4) = 0.27788629074834314e-23, (31, 5) = -0.44788648521577e-22, (31, 6) = 0.8533718220044032e-13, (31, 7) = -0.6974871625093458e-12, (31, 8) = 0.26750399298584726e-14, (31, 9) = -0.26236465502977362e-13, (32, 1) = 0.4702001075866032e-9, (32, 2) = -0.993454021009392e-11, (32, 3) = 0.36726264178596386e-10, (32, 4) = -0.9223327577493404e-25, (32, 5) = 0.14705336635080336e-23, (32, 6) = 0.3450631877237664e-13, (32, 7) = -0.2890628301435499e-12, (32, 8) = 0.5846256942426638e-15, (32, 9) = -0.58172450346066256e-14, (33, 1) = 0.46458605287673014e-9, (33, 2) = 0.13684212224041517e-10, (33, 3) = -0.7636015768788299e-10, (33, 4) = 0.4384042693843825e-25, (33, 5) = -0.7211455348831396e-24, (33, 6) = 0.11426551840082464e-13, (33, 7) = -0.9974822847355221e-13, (33, 8) = 0.11511787968449868e-15, (33, 9) = -0.11732462030618005e-14, (34, 1) = 0.4654272100602554e-9, (34, 2) = 0.8563358530558615e-11, (34, 3) = -0.49221179000235754e-10, (34, 4) = -0.8349377411461887e-26, (34, 5) = 0.14065066769775986e-24, (34, 6) = 0.3337862775468761e-14, (34, 7) = -0.3242621791221074e-13, (34, 8) = 0.22565846002993613e-16, (34, 9) = -0.2465427776286934e-15, (35, 1) = 0.466592276822315e-9, (35, 2) = 0.19099932025493616e-11, (35, 3) = -0.11218555784728633e-10, (35, 4) = 0.11335606497467233e-26, (35, 5) = -0.18315992197916386e-25, (35, 6) = 0.8169813471004081e-15, (35, 7) = -0.1118835877459149e-13, (35, 8) = 0.4230625317513569e-17, (35, 9) = -0.60875224213501e-16, (36, 1) = 0.4669158903191878e-9, (36, 2) = 0.19778192243648588e-38, (36, 3) = 0.14651533284676405e-12, (36, 4) = .0, (36, 5) = 0.9437571335531637e-27, (36, 6) = .0, (36, 7) = -0.42317313208548645e-14, (36, 8) = .0, (36, 9) = -0.176064728807288e-16}, datatype = float[8], order = C_order); if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "right" then return X[36] elif outpoint = "order" then return 8 elif outpoint = "error" then return HFloat(1.1798008820799963e-8) elif outpoint = "errorproc" then error "this is already the error procedure" elif outpoint = "rawdata" then return [9, 36, [f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], X, Y] else return ('procname')(x_bvp) end if end if; if outpoint < X[1] or X[36] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[36] end if; V := array([1 = 4, 2 = 0]); if Digits <= trunc(evalhf(Digits)) then L := Vector(4, 'datatype' = 'float'[8]); yout := Vector(9, 'datatype' = 'float'[8]); evalhf(`dsolve/numeric/lagrange`(36, 9, X, Y, outpoint, var(yout), var(L), var(V))) else L := Vector(4, 'datatype' = 'sfloat'); yout := Vector(9, 'datatype' = 'sfloat'); `dsolve/numeric/lagrange`(36, 9, X, Y, outpoint, yout, L, V) end if; [eta = outpoint, seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = yout[i], i = 1 .. 9)] end proc; if not type(outpoint, 'numeric') then if outpoint = "start" or outpoint = "left" then return X[1] elif outpoint = "method" then return "bvp" elif outpoint = "right" then return X[36] elif outpoint = "order" then return 8 elif outpoint = "error" then return HFloat(1.1798008820799963e-8) elif outpoint = "errorproc" then return eval(errproc) elif outpoint = "rawdata" then return [9, 36, "depnames", X, Y, YP] else error "non-numeric value" end if end if; if outpoint < X[1] or X[36] < outpoint then error "solution is only defined in the range %1..%2", X[1], X[36] end if; if Digits <= trunc(evalhf(Digits)) and (_EnvInFsolve <> true or _EnvDSNumericSaveDigits <= trunc(evalhf(Digits))) then V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = .0, (1, 2) = .0, (2, 1) = .0, (2, 2) = .0, (3, 1) = .0, (3, 2) = .0, (4, 1) = .0, (4, 2) = .0, (5, 1) = .0, (5, 2) = .0, (6, 1) = .0, (6, 2) = .0, (7, 1) = .0, (7, 2) = .0}, datatype = float[8], order = C_order); yout := Vector(9, {(1) = .0, (2) = .0, (3) = .0, (4) = .0, (5) = .0, (6) = .0, (7) = .0, (8) = .0, (9) = .0}, datatype = float[8]); evalhf(`dsolve/numeric/hermite`(36, 9, X, Y, YP, outpoint, var(yout), var(L), var(V))) else if _EnvInFsolve = true then Digits := _EnvDSNumericSaveDigits end if; V := array( 1 .. 6, [( 1 ) = (7), ( 2 ) = (0), ( 3 ) = (false), ( 4 ) = (false), ( 5 ) = (false), ( 6 ) = (false)  ] ); L := Matrix(7, 2, {(1, 1) = 0., (1, 2) = 0., (2, 1) = 0., (2, 2) = 0., (3, 1) = 0., (3, 2) = 0., (4, 1) = 0., (4, 2) = 0., (5, 1) = 0., (5, 2) = 0., (6, 1) = 0., (6, 2) = 0., (7, 1) = 0., (7, 2) = 0.}, order = C_order); yout := Vector(9, {(1) = 0., (2) = 0., (3) = 0., (4) = 0., (5) = 0., (6) = 0., (7) = 0., (8) = 0., (9) = 0.}); `dsolve/numeric/hermite`(36, 9, X, Y, YP, outpoint, yout, L, V) end if; [outpoint, seq(yout[i], i = 1 .. 9)] end proc, (2) = Array(0..0, {}), (3) = [eta, f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)], (4) = 0}); solnproc := data[1]; if not type(outpoint, 'numeric') then if outpoint = "solnprocedure" then return eval(solnproc) elif member(outpoint, ["start", "left", "right", "errorproc", "rawdata", "order", "error"]) then return solnproc(x_bvp) elif outpoint = "sysvars" then return data[3] elif procname <> unknown then return ('procname')(x_bvp) else _ndsol := pointto(data[2][0]); return ('_ndsol')(x_bvp) end if end if; try res := solnproc(outpoint); [eta = res[1], seq('[f(eta), diff(f(eta), eta), diff(diff(f(eta), eta), eta), g(eta), diff(g(eta), eta), phi(eta), diff(phi(eta), eta), theta(eta), diff(theta(eta), eta)]'[i] = res[i+1], i = 1 .. 9)] catch: error  end try end proc

 

 

``

Download odeSys2.mw

be a lot simpler?

  restart;
  n:=5:
  R:= Matrix(5, n, (i,j)-> sin(i));

Matrix(5, 5, {(1, 1) = sin(1), (1, 2) = sin(1), (1, 3) = sin(1), (1, 4) = sin(1), (1, 5) = sin(1), (2, 1) = sin(2), (2, 2) = sin(2), (2, 3) = sin(2), (2, 4) = sin(2), (2, 5) = sin(2), (3, 1) = sin(3), (3, 2) = sin(3), (3, 3) = sin(3), (3, 4) = sin(3), (3, 5) = sin(3), (4, 1) = sin(4), (4, 2) = sin(4), (4, 3) = sin(4), (4, 4) = sin(4), (4, 5) = sin(4), (5, 1) = sin(5), (5, 2) = sin(5), (5, 3) = sin(5), (5, 4) = sin(5), (5, 5) = sin(5)})

(1)

 

Download fillMat.mw

one of which (shown in the attached) produces a separate plot for each decade of frequency and then display these plots together.

This ought to ensure that Maple's plot() command will produce the same number of points in each decade.

Impedance Graph

 

with(Units)

Automatically loading the Units[Simple] subpackage
 

 

 

Example

A noise voltage specification of `&Delta;V__noise` := 50*10^(-3)*Unit('V')

Worst case transient current I__wc_transient := Unit('A')

Z__target := `&Delta;V__noise`/I__wc_transient

(1/20)*Units:-Unit(`&Omega;`)

(1)

For a clock frequency f__clk := 2*10^9*Unit(1/'s') 

the clock period  `&tau;__clk` := 1/f__clk

(1/2000000000)*Units:-Unit(s)

(2)

NULL

The maximum number of switching gate cycles N__sw_gates := 20

The transient time

t__transient := N__sw_gates*`&tau;__clk`

(1/100000000)*Units:-Unit(s)

(3)

 

The roll-off frequency for the maximum transient current         f__roll_off := .35/t__transient

35000000.00*Units:-Unit(1/s)

(4)

 Therefore the target impedance for this example is

Z__target_ac := proc (f) local X1, Z__target_1; Z__target_1 := Z__target/Unit('Omega'); X1 := proc (f) options operator, arrow; evalf(20*log[10](Z__target_1))+20*log[10](sqrt(1+f^2/f__roll_off^2)) end proc; 10^((1/20)*X1(f)) end proc

NULL

Z__target_ac(3.82*10^6*Unit(1/'s'))

0.5029692240e-1

(5)

``

f__range := proc (p) options operator, arrow; 10^p*Unit(1/'s') .. 10^(p+1)*Unit(1/'s') end proc

proc (p) options operator, arrow; Units:-Simple:-`*`(Units:-Simple:-`^`(10, p), Units:-Unit(Units:-Simple:-`/`('s'))) .. Units:-Simple:-`*`(Units:-Simple:-`^`(10, Units:-Simple:-`+`(p, 1)), Units:-Unit(Units:-Simple:-`/`('s'))) end proc

(6)

NULL

Target Impedance plot

plots:-display([seq(plot(Z__target_ac, f__range(j), gridlines, axes = boxed, axis = [mode = log]), j = 6 .. 9)], title = "Target Impedance", color = red, labels = ["Frequency (Hz)", "Impedance (&Omega;)"])

 

This graph should have a horizontal line all the way along to the roll-off/corner frequency and then rises.``

``

 

NULL

Download logProb.mw

 

Your original worksheet defines the six functions, whihc I have organised in pairs

  1.  sqrt(2.*sin(phi - 1.550000000) - 2.),
  2. -sqrt(2.*sin(phi - 1.550000000) - 2.),
  3.  1.414213562*sqrt(sin(phi - 1.550000000)),
  4. -1.414213562*sqrt(sin(phi - 1.550000000)),
  5.  sqrt(2.*sin(phi - 1.550000000) + 2.),
  6. -sqrt(2.*sin(phi - 1.550000000) + 2.)

Now apply brain power

  1. In functions (1) and (2) above the sin(phi - 1.550000000) factor can only produce values in the range -1..1, so 2.*sin(phi - 1.550000000) produces values in the range -2..2, so 2.*sin(phi - 1.550000000) - 2 produces values in the range -4..0. In other the argument of the square root function is always negative, and thus the values of these functions are purely imaginary, and Maple can't plot these on a "real" graph. So for these two functions, Maple will plot precisely nothing.
  2. In functions (3) and (4) above, the sin(phi - 1.550000000) factor can only produce values in the range -1..1. In (1) above we showed that if the argument to the sqrt() function is negative, then Maple can't plot it on a real graph. The values of sin(phi - 1.550000000) will be positive in the range phi=1.55..Pi+1.55 (which as it happens, is very close to the range Pi/2..3*Pi/2). Values will also be positive in the range phi=-2*Pi+1.55..-Pi+1.55 (which as it happens, is very close to the range -3*Pi/2..-Pi/2). In these two ranges 1.55..Pi+1.55 and -2*Pi+1.55..-Pi+1.55, Maple will plot the function. In the three ranges -2*Pi.. -2*Pi+1.55, -Pi+1.55..1.55 and Pi+1.5..2*Pi, values of these functions will be purely imaginary and Maple will not plot them. So for these two functions, Maple will plot them when they are real, which means you get curves with "gaps", where the values are imaginary.
  3. In functions (5) and (6) above the sin(phi - 1.550000000) factor can only produce values in the range -1..1, so 2.*sin(phi - 1.550000000) produces values in the range -2..2, so 2.*sin(phi - 1.550000000)  2 produces values in the range 0..4, so the aargument of the square root is always >=0, so Male can plot these two functions for any value of phi

In the attached, rather than using the values h=[-1, 0, 1] I have used the values h=[0, 1, 2], which generates the six functions

  1.  1.414213562*sqrt(sin(phi - 1.550000000)),
  2. -1.414213562*sqrt(sin(phi - 1.550000000)),
  3.   sqrt(2.*sin(phi - 1.550000000) + 2.),
  4. -sqrt(2.*sin(phi - 1.550000000) + 2.),
  5.  sqrt(2.*sin(phi - 1.550000000) + 4.),
  6. -sqrt(2.*sin(phi - 1.550000000) + 4.)

Now four of these (ie 3..6) in the above list always have arguments to the sqrt() which are >=0, and so can be plotted for all values of phi. Functions (1) and (2) iin the above list correspond to functions (3) and (4) in the earlier list. (Not surprising because both are generated by h=0.) Thus argument (2) in the above discussion applies, which mans that onec again you get curves with "gaps".

See the attached, for visualization.

Take m = 1 and renane "(&PartialD;phi)/(&PartialD; xi)" to y:

restart;1/2*y^2 - (sin(phi-1.55)) = h:
solve(%, y):
f := unapply(%[1], phi, h);
seq(f(phi,h), h in [-1,0,1]), seq(-f(phi,h), h in [-1,0,1]);
plot([%], phi=-2*Pi..2*Pi, color=[red, green, blue, red, green, blue], size=[800,500]);
plot(-sin(x - 1.55), x = -2*Pi .. 2*Pi);

proc (phi, h) options operator, arrow; (2.*sin(phi-1.550000000)+2.*h)^(1/2) end proc

 

(2.*sin(phi-1.550000000)-2.)^(1/2), 1.414213562*sin(phi-1.550000000)^(1/2), (2.*sin(phi-1.550000000)+2.)^(1/2), -(2.*sin(phi-1.550000000)-2.)^(1/2), -1.414213562*sin(phi-1.550000000)^(1/2), -(2.*sin(phi-1.550000000)+2.)^(1/2)

 

 

 

restart;
1/2*y^2 - (sin(phi-1.55)) = h:
solve(%, y):
f := unapply(%[1], phi, h);
seq(f(phi,h), h in [0,1,2]), seq(-f(phi,h), h in [0,1,2]);
plot([%], phi=-2*Pi..2*Pi, color=[red, green, blue, red, green, blue], size=[800,500]);
plot(-sin(x - 1.55), x = -2*Pi .. 2*Pi);

proc (phi, h) options operator, arrow; (2.*sin(phi-1.550000000)+2.*h)^(1/2) end proc

 

1.414213562*sin(phi-1.550000000)^(1/2), (2.*sin(phi-1.550000000)+2.)^(1/2), (2.*sin(phi-1.550000000)+4.)^(1/2), -1.414213562*sin(phi-1.550000000)^(1/2), -(2.*sin(phi-1.550000000)+2.)^(1/2), -(2.*sin(phi-1.550000000)+4.)^(1/2)

 

 

 

 

Download implt.mw

 

it depends (a bit) on how accurately you want to know this maximum. The attached shows two possibilities

  1. Extract the maximum point which is used on the graph
  2. Curve fit around the maximum point determined above using splines, and differentiate the result wrt 't', which is (probably?) more accurate than (1) above

restart

q1 := 3

b1 := 20

l1 := 22

r1 := .5

m1 := 900

g1 := -11

u0 := -10

v0 := -10

 

x0 := 0

 

z0 := 20

 

xa := 0

 

za := z0+5

 

mu1 := .1

omega0 := -24

mn := q1*g1*b1*za

fz := mn/za

TM1 := (2/5)*m1*r1^2

0

(1)

"Lp(t):=sqrt((xn(t)-xa)^(2)+(zn(t)-za)^(2)) :"

"Lr(t):=piecewise(sqrt(zn(t)^(2)+A1(t)^(2))>0,sqrt(zn(t)^(2)+A1(t)^(2)),0) : "

"A1(t):=piecewise((xa-xn(t))>0,xa-xn(t),0):"

"sinalpha1(t):=piecewise((xa-xn(t))>0,(xa-xn(t))/(Lp(t)),0) :"

"cosalpha1(t):=piecewise((xa-xn(t))>0,((za-zn(t)))/(Lp(t)),1) :"

"alpha2(t):=arccos(cosalpha1(t))+phi(t) :"

NULL

"S1(t):=piecewise(zn(t)>=0 and xn(t)<=xa,fz*Lr(t),0):"

"S1z(t):=S1(t)*cos(phi(t)):"

"S1x(t):=S1(t)*sin(-phi(t)):"

"S2(t):=piecewise(xn(t)<=xa and zn(t)>0, (-1) S1(t)*exp(mu1*alpha2(t)),0) :"

"S2x(t):=S2(t)*sinalpha1(t):"

"S2z(t):=S2(t)*cosalpha1(t) :"

"Sx(t):=S2x(t)+S1x(t) :"

"Sz(t):=S1z(t)+S2z(t)+m1*g1:"

shape_factor := 10

"Fr(t):=S2(t)+S1(t)+shape_factor:"

NULL

"m(t):=Lr(t)q1*b1:"

"J(t):=1/(3)*m(t)*Lr(t)^(2) :"

"M(t):=g1*m(t)*(Lr(t))/(2)*sin(phi(t)): "

k := 50*m1

NULL

NULL

eqx1 := m1*(diff(u(t), t)) = 0.; eqz1 := m1*(diff(v(t), t)) = m1*g1

eqx0 := diff(x(t), t) = u(t); eqz0 := diff(z(t), t) = v(t)

eqx1n := m1*(diff(un(t), t)) = Sx(t); eqz1n := m1*(diff(vn(t), t)) = m1*g1+S1z(t)+S2z(t)

eqx0n := diff(xn(t), t) = un(t); eqz0n := diff(zn(t), t) = vn(t)

eqr1 := TM1*(diff(omega(t), t)) = (S2(t)+S1(t)+shape_factor)*r1

NULL

u0n := u0*m1/(m1+mn)

phid0 := 2*u0n(t)/(l1-z0)

eqp := (diff(phi(t), t, t))*J(t) = M(t)-k*(diff(phi(t), t))

with(plots)

ini := x(0) = x0, u(0) = u0, z(0) = z0, v(0) = v0, xn(0) = x0, un(0) = u0, zn(0) = z0, vn(0) = v0, omega(0) = omega0, phi(0) = 0, (D(phi))(0) = phid0

sol1 := dsolve({eqp, eqr1, eqx0, eqx0n, eqx1, eqx1n, eqz0, eqz0n, eqz1, eqz1n, ini}, {omega(t), phi(t), u(t), un(t), v(t), vn(t), x(t), xn(t), z(t), zn(t)}, type = numeric)

p1 := odeplot(sol1, [t, 180*arccos(cosalpha1(t))/Pi], 0 .. 2, legend = ["alpha"], linestyle = [dashdot, solid], size = [300, 300])

 

mi := max[index](plottools:-getdata(p1)[3][() .. (), 2])
plottools:-getdata(p1)[3][mi, () .. ()]

Vector[row](%id = 36893488148104331380)

(2)

myFit := CurveFitting:-Spline(plottools:-getdata(p1)[3][mi-5 .. mi+5, () .. ()], t); fsolve(diff(myFit, t) = 0, t = .61 .. .63); eval(180*arccos(cosalpha1(t))/Pi, sol1(%))

.6180310979

 

HFloat(22.00633968780902)

(3)

``

Download getMax.mw

you can use Maple's maximize() function to get the coordinates of the maximum of the difference between the two "gaussian" functions. This saves a fair bit of effort. See the attached

  restart;
  with(plots):
#
# OP's definition of a "gaussian"
#
  f:=(x, x0, S, Gmax)-> -Gmax*(exp(S*(x - x0)^2*(-1/2)) - 1);
#
# Get the coordinates of the maximum of
# the difference between two gaussians
# Select the one for x>0, Store these
# coordinates as pt1.

  ans:= maximize
        ( f(x, 0, 2, 1)-f(x, 0, 1, 1),
          location=true
        )[2,1];
  pt1:=[ rhs(ans[1][]), ans[2]];
#
# Find the x-values of the gaussian difference
# function, where the y-values are half the
# maximum obtained above.
#
# Store the relevant points as pt2 and pt3
#
  sols:= [ solve
           ( [ x>0,
               f(x, 0, 2, 1)-f(x, 0, 1,1 )=pt1[2]/2
             ],
             explicit
           )
         ]:
  pt2:= [ rhs(sols[1][]), pt1[2]/2];
  pt3:= [ rhs(sols[2][]), pt1[2]/2];
#
# Display the two gaussians, the difference between
# them and the three points of interest
#
  display([ plot
            ( [ f(x, 0, 2, 1),
                f(x, 0, 1, 1),
                f(x, 0, 2, 1)-f(x, 0, 1, 1)
              ],
              x=-10..10,
              color=[red, blue, green]
            ),
            plot
            ( [ pt1,
                pt2,
                pt3
              ],
              symbol=solidcircle,
              symbolsize=12,
              color=black,
              style=point
            )
         ]);
#
# Full width at half maximum of the gaussian difference
# function is the difference between the x-coordinates of
# pt2 and pt3.
#
  fwhm:= pt2[1]-pt3[1];
  evalf(%);

proc (x, x0, S, Gmax) options operator, arrow; -Gmax*(exp(-(1/2)*S*(x-x0)^2)-1) end proc

 

[{x = 2^(1/2)*ln(2)^(1/2)}, 1/4]

 

[2^(1/2)*ln(2)^(1/2), 1/4]

 

[(-2*ln(1/2-(1/4)*2^(1/2)))^(1/2), 1/8]

 

[(-2*ln(1/2+(1/4)*2^(1/2)))^(1/2), 1/8]

 

 

(-2*ln(1/2-(1/4)*2^(1/2)))^(1/2)-(-2*ln(1/2+(1/4)*2^(1/2)))^(1/2)

 

1.397394131

(1)

 

Download gMax2.mw

From a Microsoft help page, emphasis added

In the Windows API (with some exceptions discussed in the following paragraphs), the maximum length for a path is MAX_PATH, which is defined as 260 characters. A local path is structured in the following order: drive letter, colon, backslash, name components separated by backslashes, and a terminating null character. For example, the maximum path on drive D is "D:\some 256-character path string<NUL>" where "<NUL>" represents the invisible terminating null character for the current system codepage

I think there are ways to change this in Windows, but I suspect that Maple may not "honour" the change - it is more likely that Maple itself will check the path length, and issue an error if it is too long, rather than cause an error to be generated by the OS

First 13 14 15 16 17 18 19 Last Page 15 of 207