TransWikia.com

Solve third-order nonlinear differential equation with certain boundary conditions

Mathematica Asked by Paul B. Slater on August 10, 2020

A (distinguished theoretical–not "computer savvy") physicist colleague (C. P.) of mine sent me this ("not quite up my alley") question.

enter image description here

I take it that $G$ is the gravitational constant.

The stack exchange pointed me to

NDSolve third order PDE with boundary conditions

but I think C. P. is thinking of exact–not numerical–solutions.

Assuming that $M_0$ is an independent constant, not simply M[0], my Mathematica formulation of the question put by C. P. is

DSolve[{(1/r^2) D[
  r^2 (1 - 2 G M[r]/r) D[Sqrt[M'[r]/(4 Pi  M0 r^2)], r], r] - 
M0^2 Sqrt[M'[r]/(4 Pi  M0 r^2)] == 0, M[0] == 0, M'[0] == 0, M''[0] == 0}, M[r], r]

Execution of the command does not yield any output. (Nor do limited attempts with NDSolve, with $G=1,M_0=1$,{r,0,1},….)

So, should this be the end of the story?

One Answer

I passed this question, along with the several accompanying comments, on back to the initial poser--who responded in an email with an attached pdf along with the remarks: "I attach the Mathematica file with graphs. The way to solve it analytically is via an iteration procedure like the Hartree Fock method. Yes, at r = 0, there is a singularity."

Although I seemed unable to post the indicated pdf I was sent here, I copied and executed the Mathematica commands. Here is a url displaying the resultant notebook.

ThirdOrderDiffEq.nb

Answered by Paul B. Slater on August 10, 2020

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP