       Re: Solving Third Order differential equation using Mathematica.

• To: mathgroup at smc.vnet.net
• Subject: [mg127384] Re: Solving Third Order differential equation using Mathematica.
• From: stephen.p.luttrell at gmail.com
• Date: Fri, 20 Jul 2012 23:41:00 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <jub2q5\$ehn\$1@smc.vnet.net>

```The differential equation can be solved for a=0, and if you series expand the differential equation in powers of a about a=0, discarding 2nd and higher powers of a, then it is still possible to solve it. I haven't investigated any further.

Here's what I did:

DSolve[{Normal@
Series[1/30 f'''[x] - f[x] (2 a^3/(1 - x a)^3 + 1/(1 - x)^3) -
24 a/(1 - y) (1/(1 - x)^7 - a^5/(1 - a x)^7), {a, 0, 1}] == 0,
f == 0, f'' == 0}, f[x], x] // Simplify

I haven't quoted the output because it is quite large.

```

• Prev by Date: Re: How to Scale and vary plot for a Differential Equation
• Next by Date: Re: FindCurvePath has a problem
• Previous by thread: Re: Solving Third Order differential equation using Mathematica.
• Next by thread: can one make local symbol in a pure function?