4.26.30 \(a y'(x)+y(x) \left (b+c e^x\right )+y''(x)=0\)

ODE
\[ a y'(x)+y(x) \left (b+c e^x\right )+y''(x)=0 \] ODE Classification

[[_2nd_order, _with_linear_symmetries]]

Book solution method
TO DO

Mathematica
cpu = 0.189856 (sec), leaf count = 99

\[\left \{\left \{y(x)\to e^{-\frac {a x}{2}} \left (c_1 \Gamma \left (1-\sqrt {a^2-4 b}\right ) J_{-\sqrt {a^2-4 b}}\left (2 \sqrt {c e^x}\right )+c_2 \Gamma \left (\sqrt {a^2-4 b}+1\right ) J_{\sqrt {a^2-4 b}}\left (2 \sqrt {c e^x}\right )\right )\right \}\right \}\]

Maple
cpu = 0.648 (sec), leaf count = 57

\[\left [y \left (x \right ) = \textit {\_C1} \,{\mathrm e}^{-\frac {a x}{2}} \BesselJ \left (\sqrt {a^{2}-4 b}, 2 \sqrt {c}\, {\mathrm e}^{\frac {x}{2}}\right )+\textit {\_C2} \,{\mathrm e}^{-\frac {a x}{2}} \BesselY \left (\sqrt {a^{2}-4 b}, 2 \sqrt {c}\, {\mathrm e}^{\frac {x}{2}}\right )\right ]\] Mathematica raw input

DSolve[(b + c*E^x)*y[x] + a*y'[x] + y''[x] == 0,y[x],x]

Mathematica raw output

{{y[x] -> (BesselJ[-Sqrt[a^2 - 4*b], 2*Sqrt[c*E^x]]*C[1]*Gamma[1 - Sqrt[a^2 - 4*
b]] + BesselJ[Sqrt[a^2 - 4*b], 2*Sqrt[c*E^x]]*C[2]*Gamma[1 + Sqrt[a^2 - 4*b]])/E
^((a*x)/2)}}

Maple raw input

dsolve(diff(diff(y(x),x),x)+a*diff(y(x),x)+(b+c*exp(x))*y(x) = 0, y(x))

Maple raw output

[y(x) = _C1*exp(-1/2*a*x)*BesselJ((a^2-4*b)^(1/2),2*c^(1/2)*exp(1/2*x))+_C2*exp(
-1/2*a*x)*BesselY((a^2-4*b)^(1/2),2*c^(1/2)*exp(1/2*x))]