4.46.15 \(\text {A1} x^3 y'''(x)+x^4 y''''(x)+\text {A2} x^2 y''(x)+\text {A3} x y'(x)+\text {A4} y(x)=0\)

ODE
\[ \text {A1} x^3 y'''(x)+x^4 y''''(x)+\text {A2} x^2 y''(x)+\text {A3} x y'(x)+\text {A4} y(x)=0 \] ODE Classification

[[_high_order, _with_linear_symmetries]]

Book solution method
TO DO

Mathematica ✓
cpu = 0.170439 (sec), leaf count = 186

\[\left \{\left \{y(x)\to c_1 x^{\text {Root}\left [\text {$\#$1}^4+\text {$\#$1}^3 (\text {A1}-6)+\text {$\#$1}^2 (-3 \text {A1}+\text {A2}+11)+\text {$\#$1} (2 \text {A1}-\text {A2}+\text {A3}-6)+\text {A4}\& ,1\right ]}+c_2 x^{\text {Root}\left [\text {$\#$1}^4+\text {$\#$1}^3 (\text {A1}-6)+\text {$\#$1}^2 (-3 \text {A1}+\text {A2}+11)+\text {$\#$1} (2 \text {A1}-\text {A2}+\text {A3}-6)+\text {A4}\& ,2\right ]}+c_3 x^{\text {Root}\left [\text {$\#$1}^4+\text {$\#$1}^3 (\text {A1}-6)+\text {$\#$1}^2 (-3 \text {A1}+\text {A2}+11)+\text {$\#$1} (2 \text {A1}-\text {A2}+\text {A3}-6)+\text {A4}\& ,3\right ]}+c_4 x^{\text {Root}\left [\text {$\#$1}^4+\text {$\#$1}^3 (\text {A1}-6)+\text {$\#$1}^2 (-3 \text {A1}+\text {A2}+11)+\text {$\#$1} (2 \text {A1}-\text {A2}+\text {A3}-6)+\text {A4}\& ,4\right ]}\right \}\right \}\]

Maple ✓
cpu = 0.021 (sec), leaf count = 51

\[[y \left (x \right ) = \moverset {4}{\munderset {\textit {\_a} =1}{\sum }}x^{\RootOf \left (\textit {\_Z}^{4}+\left (\mathit {A1} -6\right ) \textit {\_Z}^{3}+\left (\mathit {A2} -3 \mathit {A1} +11\right ) \textit {\_Z}^{2}+\left (\mathit {A3} -\mathit {A2} +2 \mathit {A1} -6\right ) \textit {\_Z} +\mathit {A4} , \mathit {index} =\textit {\_a} \right )} \textit {\_C}_{\textit {\_a}}]\] Mathematica raw input

DSolve[A4*y[x] + A3*x*y'[x] + A2*x^2*y''[x] + A1*x^3*y'''[x] + x^4*y''''[x] == 0,y[x],x]

Mathematica raw output

{{y[x] -> x^Root[A4 + (-6 + 2*A1 - A2 + A3)*#1 + (11 - 3*A1 + A2)*#1^2 + (-6 + A
1)*#1^3 + #1^4 & , 1]*C[1] + x^Root[A4 + (-6 + 2*A1 - A2 + A3)*#1 + (11 - 3*A1 +
 A2)*#1^2 + (-6 + A1)*#1^3 + #1^4 & , 2]*C[2] + x^Root[A4 + (-6 + 2*A1 - A2 + A3
)*#1 + (11 - 3*A1 + A2)*#1^2 + (-6 + A1)*#1^3 + #1^4 & , 3]*C[3] + x^Root[A4 + (
-6 + 2*A1 - A2 + A3)*#1 + (11 - 3*A1 + A2)*#1^2 + (-6 + A1)*#1^3 + #1^4 & , 4]*C
[4]}}

Maple raw input

dsolve(x^4*diff(diff(diff(diff(y(x),x),x),x),x)+A1*x^3*diff(diff(diff(y(x),x),x),x)+A2*x^2*diff(diff(y(x),x),x)+A3*x*diff(y(x),x)+A4*y(x) = 0, y(x))

Maple raw output

[y(x) = Sum(x^RootOf(_Z^4+(A1-6)*_Z^3+(A2-3*A1+11)*_Z^2+(A3-A2+2*A1-6)*_Z+A4,ind
ex = _a)*_C[_a],_a = 1 .. 4)]