Approximation methods for LDE solutions 

Copyright © 2004-2012  DigiArea, Inc. . All rights reserved.

Description:

This worksheet illustrates ©LdeApprox ©package capability of doing polynomial approximation of solution of simple LDE. First of all we load LdeApprox package and define simple IVP. Then we use ApproxSol procedure to find 7-th degree polynomial approximation for the IVP solution on interval x = [-h,h]. After that we find exact solution by Maple™ procedure dsolve . Finally we compare exact and approximate results using Maple™ procedures plot ©and plot3d .

This loads the package.

restart:
with(LdeApprox):

Examples:

This is simple IVP with parameter xi .

ivp:={diff(y(x),x,x)+xi*y(x)=0,y(0)=0,D(y)(0)=1};

ivp := {y(0) = 0, D(y)(0) = 1, diff(y(x),`$`(x,2))+xi*y(x) = 0}

Finding polynomial approximation of the IVP solution on interval [-h, h].

apr:=ApproxSol(ivp,y(x),x=-h..h,7);

apr := y(x) = 80*(4032*xi*h^2+129024+72*xi^2*h^4+xi^3*h^6)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+80*xi^3*h^6)*x-960*xi*(56*xi*h^2+1792+xi^2*h^4)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+...
apr := y(x) = 80*(4032*xi*h^2+129024+72*xi^2*h^4+xi^3*h^6)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+80*xi^3*h^6)*x-960*xi*(56*xi*h^2+1792+xi^2*h^4)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+...
apr := y(x) = 80*(4032*xi*h^2+129024+72*xi^2*h^4+xi^3*h^6)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+80*xi^3*h^6)*x-960*xi*(56*xi*h^2+1792+xi^2*h^4)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+...
apr := y(x) = 80*(4032*xi*h^2+129024+72*xi^2*h^4+xi^3*h^6)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+80*xi^3*h^6)*x-960*xi*(56*xi*h^2+1792+xi^2*h^4)/(322560*xi*h^2+10321920+5760*xi^2*h^4+xi^4*h^8+...

Finding exact solution of the IVP using Maple™ ©function dsolve .

sol:=dsolve(ivp,y(x));

sol := y(x) = 1/xi^(1/2)*sin(xi^(1/2)*x)

Comparing exact and approximate results for h = Pi/8 ©and xi = 1/4

plot(subs({h=Pi/8,xi=1/4},subs(sol,y(x))-subs(apr,y(x))),x=-Pi/8..Pi/8);

[Maple Plot]

Comparing exact and approximate results for h = Pi/8 ©using Maple™ ©function plot3d

plot3d(subs({h=Pi/8},subs(sol,y(x))-subs(apr,y(x))),xi=1/16..2,x=-Pi/8..Pi/8,axes=boxed);

[Maple Plot]

Comparing exact and approximate results for xi = 1/4 ©©using Maple™ ©function plot3d .

plot3d(subs({xi=1/4},subs(sol,y(x))-subs(apr,y(x))),x=-h..h,h=-Pi/4..Pi/4,axes=boxed);

[Maple Plot]

Note:

This trivial example is just for Web. You can try more complex examples in your computer.