- #1
nassboy
- 39
- 0
I've been working on finding a closed form solution or an approximate solution for a variant of the Poisson-Boltzmann equation.
y''[x]=A*(1-e^(-y[x])
I'm unable to solve it using methods such as separation of variables, but I have been able to generate a power series using recursive derivatives. I've pasted the mathematica code below...I've been unable to find the pattern to generate the series...can anybody help?
In[2]:= (*Define Recursive Derivative Function *)
In[3]:= Derivative[N_][Y][0]:=D[Y''[x],{x,N-2}] /. x->0
In[4]:= (*Define the Problem*)
In[5]:= Y''[x]=A*(1-E^(-Y[x]))
Out[5]= A (1-E^-Y[x])
In[6]:= Y''[0]=Y''[x] /. x->0
Out[6]= A (1-E^-Y[0])
In[7]:= Y'[0]=0
Out[7]= 0
In[8]:= (*Check the Series*)
In[9]:= Y[0]+Integrate[Integrate[Series[Y''[x],{x,0,10}],x],x]
Out[9]= Y[0]+1/2 (A-A E^-Y[0]) x^2+1/24 A^2 E^(-2 Y[0]) (-1+E^Y[0]) x^4-1/720 (A^3 E^(-3 Y[0]) (4-7 E^Y[0]+3 E^(2 Y[0]))) x^6+(A^4 E^(-4 Y[0]) (-34+82 E^Y[0]-63 E^(2 Y[0])+15 E^(3 Y[0])) x^8)/40320-((A^5 E^(-5 Y[0]) (496-1510 E^Y[0]+1638 E^(2 Y[0])-729 E^(3 Y[0])+105 E^(4 Y[0]))) x^10)/3628800+(A^6 E^(-6 Y[0]) (-11056+40540 E^Y[0]-56568 E^(2 Y[0])+36684 E^(3 Y[0])-10545 E^(4 Y[0])+945 E^(5 Y[0])) x^12)/479001600+O[x]^13
y''[x]=A*(1-e^(-y[x])
I'm unable to solve it using methods such as separation of variables, but I have been able to generate a power series using recursive derivatives. I've pasted the mathematica code below...I've been unable to find the pattern to generate the series...can anybody help?
In[2]:= (*Define Recursive Derivative Function *)
In[3]:= Derivative[N_][Y][0]:=D[Y''[x],{x,N-2}] /. x->0
In[4]:= (*Define the Problem*)
In[5]:= Y''[x]=A*(1-E^(-Y[x]))
Out[5]= A (1-E^-Y[x])
In[6]:= Y''[0]=Y''[x] /. x->0
Out[6]= A (1-E^-Y[0])
In[7]:= Y'[0]=0
Out[7]= 0
In[8]:= (*Check the Series*)
In[9]:= Y[0]+Integrate[Integrate[Series[Y''[x],{x,0,10}],x],x]
Out[9]= Y[0]+1/2 (A-A E^-Y[0]) x^2+1/24 A^2 E^(-2 Y[0]) (-1+E^Y[0]) x^4-1/720 (A^3 E^(-3 Y[0]) (4-7 E^Y[0]+3 E^(2 Y[0]))) x^6+(A^4 E^(-4 Y[0]) (-34+82 E^Y[0]-63 E^(2 Y[0])+15 E^(3 Y[0])) x^8)/40320-((A^5 E^(-5 Y[0]) (496-1510 E^Y[0]+1638 E^(2 Y[0])-729 E^(3 Y[0])+105 E^(4 Y[0]))) x^10)/3628800+(A^6 E^(-6 Y[0]) (-11056+40540 E^Y[0]-56568 E^(2 Y[0])+36684 E^(3 Y[0])-10545 E^(4 Y[0])+945 E^(5 Y[0])) x^12)/479001600+O[x]^13