4.22.43 \(f(x) (y(x)-a)^3 (y(x)-b)^2+y'(x)^4=0\)

ODE
\[ f(x) (y(x)-a)^3 (y(x)-b)^2+y'(x)^4=0 \] ODE Classification

[[_1st_order, `_with_symmetry_[F(x),G(x)*y+H(x)]`]]

Book solution method
Binomial equation \((y')^m + F(x) G(y)=0\)

Mathematica
cpu = 0.862765 (sec), leaf count = 359

\[\left \{\left \{y(x)\to \text {InverseFunction}\left [-\frac {4 \sqrt [4]{a-\text {$\#$1}} \sqrt {\frac {\text {$\#$1}-b}{a-b}} \, _2F_1\left (\frac {1}{4},\frac {1}{2};\frac {5}{4};\frac {a-\text {$\#$1}}{a-b}\right )}{\sqrt {b-\text {$\#$1}}}\& \right ]\left [\int _1^x-\sqrt [4]{f(K[1])}dK[1]+c_1\right ]\right \},\left \{y(x)\to \text {InverseFunction}\left [-\frac {4 \sqrt [4]{a-\text {$\#$1}} \sqrt {\frac {\text {$\#$1}-b}{a-b}} \, _2F_1\left (\frac {1}{4},\frac {1}{2};\frac {5}{4};\frac {a-\text {$\#$1}}{a-b}\right )}{\sqrt {b-\text {$\#$1}}}\& \right ]\left [\int _1^x-i \sqrt [4]{f(K[2])}dK[2]+c_1\right ]\right \},\left \{y(x)\to \text {InverseFunction}\left [-\frac {4 \sqrt [4]{a-\text {$\#$1}} \sqrt {\frac {\text {$\#$1}-b}{a-b}} \, _2F_1\left (\frac {1}{4},\frac {1}{2};\frac {5}{4};\frac {a-\text {$\#$1}}{a-b}\right )}{\sqrt {b-\text {$\#$1}}}\& \right ]\left [\int _1^xi \sqrt [4]{f(K[3])}dK[3]+c_1\right ]\right \},\left \{y(x)\to \text {InverseFunction}\left [-\frac {4 \sqrt [4]{a-\text {$\#$1}} \sqrt {\frac {\text {$\#$1}-b}{a-b}} \, _2F_1\left (\frac {1}{4},\frac {1}{2};\frac {5}{4};\frac {a-\text {$\#$1}}{a-b}\right )}{\sqrt {b-\text {$\#$1}}}\& \right ]\left [\int _1^x\sqrt [4]{f(K[4])}dK[4]+c_1\right ]\right \}\right \}\]

Maple
cpu = 1.198 (sec), leaf count = 270

\[\left [\int _{}^{y \left (x \right )}\frac {1}{\left (\textit {\_a} -a \right )^{\frac {3}{4}} \sqrt {\textit {\_a} -b}}d \textit {\_a} +\int _{}^{x}-\frac {\left (f \left (\textit {\_a} \right ) \left (a -y \left (x \right )\right )^{3} \left (b -y \left (x \right )\right )^{2}\right )^{\frac {1}{4}}}{\left (y \left (x \right )-a \right )^{\frac {3}{4}} \sqrt {y \left (x \right )-b}}d \textit {\_a} +\textit {\_C1} = 0, \int _{}^{y \left (x \right )}\frac {1}{\left (\textit {\_a} -a \right )^{\frac {3}{4}} \sqrt {\textit {\_a} -b}}d \textit {\_a} +\int _{}^{x}\frac {i \left (f \left (\textit {\_a} \right ) \left (a -y \left (x \right )\right )^{3} \left (b -y \left (x \right )\right )^{2}\right )^{\frac {1}{4}}}{\left (y \left (x \right )-a \right )^{\frac {3}{4}} \sqrt {y \left (x \right )-b}}d \textit {\_a} +\textit {\_C1} = 0, \int _{}^{y \left (x \right )}\frac {1}{\left (\textit {\_a} -a \right )^{\frac {3}{4}} \sqrt {\textit {\_a} -b}}d \textit {\_a} +\int _{}^{x}-\frac {i \left (f \left (\textit {\_a} \right ) \left (a -y \left (x \right )\right )^{3} \left (b -y \left (x \right )\right )^{2}\right )^{\frac {1}{4}}}{\left (y \left (x \right )-a \right )^{\frac {3}{4}} \sqrt {y \left (x \right )-b}}d \textit {\_a} +\textit {\_C1} = 0, \int _{}^{y \left (x \right )}\frac {1}{\left (\textit {\_a} -a \right )^{\frac {3}{4}} \sqrt {\textit {\_a} -b}}d \textit {\_a} +\int _{}^{x}\frac {\left (f \left (\textit {\_a} \right ) \left (a -y \left (x \right )\right )^{3} \left (b -y \left (x \right )\right )^{2}\right )^{\frac {1}{4}}}{\left (y \left (x \right )-a \right )^{\frac {3}{4}} \sqrt {y \left (x \right )-b}}d \textit {\_a} +\textit {\_C1} = 0\right ]\] Mathematica raw input

DSolve[f[x]*(-a + y[x])^3*(-b + y[x])^2 + y'[x]^4 == 0,y[x],x]

Mathematica raw output

{{y[x] -> InverseFunction[(-4*Hypergeometric2F1[1/4, 1/2, 5/4, (a - #1)/(a - b)]
*(a - #1)^(1/4)*Sqrt[(-b + #1)/(a - b)])/Sqrt[b - #1] & ][C[1] + Inactive[Integr
ate][-f[K[1]]^(1/4), {K[1], 1, x}]]}, {y[x] -> InverseFunction[(-4*Hypergeometri
c2F1[1/4, 1/2, 5/4, (a - #1)/(a - b)]*(a - #1)^(1/4)*Sqrt[(-b + #1)/(a - b)])/Sq
rt[b - #1] & ][C[1] + Inactive[Integrate][(-I)*f[K[2]]^(1/4), {K[2], 1, x}]]}, {
y[x] -> InverseFunction[(-4*Hypergeometric2F1[1/4, 1/2, 5/4, (a - #1)/(a - b)]*(
a - #1)^(1/4)*Sqrt[(-b + #1)/(a - b)])/Sqrt[b - #1] & ][C[1] + Inactive[Integrat
e][I*f[K[3]]^(1/4), {K[3], 1, x}]]}, {y[x] -> InverseFunction[(-4*Hypergeometric
2F1[1/4, 1/2, 5/4, (a - #1)/(a - b)]*(a - #1)^(1/4)*Sqrt[(-b + #1)/(a - b)])/Sqr
t[b - #1] & ][C[1] + Inactive[Integrate][f[K[4]]^(1/4), {K[4], 1, x}]]}}

Maple raw input

dsolve(diff(y(x),x)^4+f(x)*(y(x)-a)^3*(y(x)-b)^2 = 0, y(x))

Maple raw output

[Intat(1/(_a-a)^(3/4)/(_a-b)^(1/2),_a = y(x))+Intat(-(f(_a)*(a-y(x))^3*(b-y(x))^
2)^(1/4)/(y(x)-a)^(3/4)/(y(x)-b)^(1/2),_a = x)+_C1 = 0, Intat(1/(_a-a)^(3/4)/(_a
-b)^(1/2),_a = y(x))+Intat(I*(f(_a)*(a-y(x))^3*(b-y(x))^2)^(1/4)/(y(x)-a)^(3/4)/
(y(x)-b)^(1/2),_a = x)+_C1 = 0, Intat(1/(_a-a)^(3/4)/(_a-b)^(1/2),_a = y(x))+Int
at(-I*(f(_a)*(a-y(x))^3*(b-y(x))^2)^(1/4)/(y(x)-a)^(3/4)/(y(x)-b)^(1/2),_a = x)+
_C1 = 0, Intat(1/(_a-a)^(3/4)/(_a-b)^(1/2),_a = y(x))+Intat((f(_a)*(a-y(x))^3*(b
-y(x))^2)^(1/4)/(y(x)-a)^(3/4)/(y(x)-b)^(1/2),_a = x)+_C1 = 0]