Wolfram Cloud Document

In[]:=

Clear["Global`*"]eqn1=τ*p''[x]-a*p[x]+ρ*μ'[x]==0;eqn2=μ''[x]+δ*p'[x]+ν*μ[x]-ν*μhat==0;DSolve[{eqn1,eqn2},{p,μ},x]

Out[]=

In[]:=

DSolve[u'[x]-(1/ζ)*(σ-h*p'[x]+(α/β)*μ[x]-(α/β)*μhat)==0,u,x]

Out[]=

In[]:=

eqn3=h*u'[(w/2)]+b*p'[(w/2)]==0;eqn4=h*u'[-(w/2)]+b*p'[-(w/2)]==0;eqn5=u[0]==0;eqn6=μ[(w/2)]==μ1;eqn7=μ[-(w/2)]==μ0;Solve[{eqn3,eqn4,eqn5,eqn6,eqn7},{



5

,



4

,



3

,



2

,



1

}]

Out[]=

{}