60.2.300 problem 878

Internal problem ID [10874]
Book : Differential Gleichungen, E. Kamke, 3rd ed. Chelsea Pub. NY, 1948
Section : Chapter 1, Additional non-linear first order
Problem number : 878
Date solved : Friday, March 14, 2025 at 02:46:11 AM
CAS classification : [_rational]

\begin{align*} y^{\prime }&=\frac {1+y^{4}-8 a x y^{2}+16 a^{2} x^{2}+y^{6}-12 y^{4} a x +48 y^{2} a^{2} x^{2}-64 a^{3} x^{3}}{y} \end{align*}

✓ Maple. Time used: 18.809 (sec). Leaf size: 73

ode:=diff(y(x),x) = (1+y(x)^4-8*a*x*y(x)^2+16*a^2*x^2+y(x)^6-12*y(x)^4*a*x+48*y(x)^2*a^2*x^2-64*a^3*x^3)/y(x); 
dsolve(ode,y(x), singsol=all);
 

\[ -\int _{\textit {\_b}}^{y}\frac {\textit {\_a}}{\textit {\_a}^{6}-12 \textit {\_a}^{4} a x +48 \textit {\_a}^{2} a^{2} x^{2}-64 a^{3} x^{3}+\textit {\_a}^{4}-8 \textit {\_a}^{2} a x +16 a^{2} x^{2}-2 a +1}d \textit {\_a} +x -c_{1} = 0 \]

✓ Mathematica. Time used: 0.322 (sec). Leaf size: 286

ode=D[y[x],x] == (1 + 16*a^2*x^2 - 64*a^3*x^3 - 8*a*x*y[x]^2 + 48*a^2*x^2*y[x]^2 + y[x]^4 - 12*a*x*y[x]^4 + y[x]^6)/y[x]; 
ic={}; 
DSolve[{ode,ic},y[x],x,IncludeSingularSolutions->True]
 

\[ \text {Solve}\left [\int _1^{y(x)}\left (-\frac {2 a K[2]}{K[2]^6-12 a x K[2]^4+K[2]^4+48 a^2 x^2 K[2]^2-8 a x K[2]^2-64 a^3 x^3+16 a^2 x^2-2 a+1}-\int _1^x\frac {4 a^2 \left (-6 K[2]^5+48 a K[1] K[2]^3-4 K[2]^3-96 a^2 K[1]^2 K[2]+16 a K[1] K[2]\right )}{\left (-K[2]^6+12 a K[1] K[2]^4-K[2]^4-48 a^2 K[1]^2 K[2]^2+8 a K[1] K[2]^2+64 a^3 K[1]^3-16 a^2 K[1]^2+2 a-1\right )^2}dK[1]\right )dK[2]+\int _1^x\left (2 a-\frac {4 a^2}{-y(x)^6+12 a K[1] y(x)^4-y(x)^4-48 a^2 K[1]^2 y(x)^2+8 a K[1] y(x)^2+64 a^3 K[1]^3-16 a^2 K[1]^2+2 a-1}\right )dK[1]=c_1,y(x)\right ] \]

✗ Sympy

from sympy import * 
x = symbols("x") 
a = symbols("a") 
y = Function("y") 
ode = Eq((64*a**3*x**3 - 48*a**2*x**2*y(x)**2 - 16*a**2*x**2 + 12*a*x*y(x)**4 + 8*a*x*y(x)**2 - y(x)**6 - y(x)**4 - 1)/y(x) + Derivative(y(x), x),0) 
ics = {} 
dsolve(ode,func=y(x),ics=ics)
 

Timed Out