I have been trying to solve a physical problem during which I reach the following third-order, Linear O.D.E.
The solution I get using this expression is really messy. Is there any way to simplify it in the form of trig functions or some alternative ?
$$f'''_n(x) + \alpha f''_n(x)-\Bigg(\bigg(\frac{n\pi}{d}\bigg)^2 + \beta\Bigg) f_n'(x)-\alpha \bigg(\frac{n\pi}{d}\bigg)^2 f_n(x)=-\frac{2 \alpha \beta \gamma d}{(md)^2 + (n\pi)^2} \tag 2$$
with the following boundary conditions $$f'_n(0)=f'_n(L)=0\\ f''_n(0)- \Bigg(\bigg(\frac{n\pi}{d}\bigg)^2 + \beta\Bigg)f_n(0)=0$$
ALSO $$\beta = m^2$$ Any help on solving $(2)$ is really appreciated
$(2)$
DSolve[{y'''[x] == -\[Alpha]*y''[x] + ((n*\[Pi]/d)^2 + \[Beta])*
y'[x] + \[Alpha]*((n*\[Pi]/d)^2)*
y[x] - ((2*\[Alpha]*\[Beta]*\[Gamma]*d)/((m*d)^2 + (n*\[Pi])^2)),
y'[0] == 0, y'[L] == 0,
y''[0] - ((n*\[Pi]/d)^2 + \[Beta])*y[0] == 0}, y[x], x]
The solution I get using this expression is really messy
solution is messy because the ODE is messy. You could trysol=ToRadicals[[sol]
to remove roots. But simplifying the few pages of such solution is not going to be easy. You can tryFullSimplify[sol]
and see what it does. What are you expecting the solution to look like? If you have values for beta and alpha, then it is different matter. $\endgroup$deq = y'''[x] - (a + b + c) y''[x] + (a b + a c + b c) y'[x] - a b c y[x] == d
, thenDSolve[{deq}, y[x], x]
will give you a nice answer. It seems feasible to solve for $a, b, c$ in terms of $\alpha, \beta$, but it will be messy. Consider the case of repeated roots of the characteristic polynomial by settingc=b
before usingDSolve
. Solve for $d$ to get your non-homogeneous term after putting in the BCs. $\endgroup$a,b,c
or something then it's not that bad.FullSimplify[% /. Root[-β + α β + α #1^2 + #1^3 &, n_] :> {a, b, c}[[n]]]
$\endgroup$