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] == 0, f''[0] == 0}, f[x], x] // Simplify I haven't quoted the output because it is quite large.