Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.



  • 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?