Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.soft-sys.math.maple > #871

Re: Bessel And Airy Functions in Solutions

Date 2014-04-04 11:28 -0700
From "Thomas D. Dean" <tomdean@speakeasy.org>
Newsgroups comp.soft-sys.math.maple
Subject Re: Bessel And Airy Functions in Solutions
References <x6udnZIbHKrEr6POnZ2dnUVZ_tadnZ2d@megapath.net>
Message-ID <i4GdnSf2wuMyZKPOnZ2dnUVZ_vednZ2d@megapath.net> (permalink)

Show all headers | View raw


On 04/03/14 21:17, Thomas D. Dean wrote:

I am making some progress.  I can now recognize the results as similar.

maxima := y(x) = BesselY(1/3,2*(a*x+b)^(3/2)/(3*abs(a)))*_C12*sqrt(a*x+b)
+BesselJ(1/3,2*(a*x+b)^(3/2)/(3*abs(a)))*_C11*sqrt(a*x+b);
convert(maxima,Airy);
collect(%, [AiryAi, AiryBi]):
simplify(%, size);
maxima2:=%;
maxima3:=subs({-_C12-sqrt(3)*_C11/3=_C2,-_C12*sqrt(3)/3+_C11=_C1},maxima2);

ode:=diff(y(x),x,x)+(a*x+b)*y(x)=0;
raw_soln:=dsolve(ode);

subs(raw_soln,ode);
evala(%,diff);
expand(%);

subs(maxima3,ode);
evala(%,diff);
expand(%);
collect(%, [AiryAi, AiryBi]):
simplify(%, size);

raw_soln; subs({K1=_C2,K2=_C1},maxima3);

If I can reduce
((a*x+b)^(3/2)/abs(a))^(2/3);
to
(a*x+b)/a^(2/3);
I will be within a factor of 1/abs(a).

Tom Dean

Back to comp.soft-sys.math.maple | Previous | NextPrevious in thread | Find similar


Thread

Bessel And Airy Functions in Solutions "Thomas D. Dean" <tomdean@speakeasy.org> - 2014-04-03 21:17 -0700
  Re: Bessel And Airy Functions in Solutions Axel Vogt <&noreply@axelvogt.de> - 2014-04-04 11:53 +0200
  Re: Bessel And Airy Functions in Solutions "Thomas D. Dean" <tomdean@speakeasy.org> - 2014-04-04 11:28 -0700

csiph-web