60.1.442 problem 454

Internal problem ID [10456]
Book : Differential Gleichungen, E. Kamke, 3rd ed. Chelsea Pub. NY, 1948
Section : Chapter 1, linear first order
Problem number : 454
Date solved : Sunday, March 30, 2025 at 04:49:22 PM
CAS classification : [[_homogeneous, `class A`], _rational, _dAlembert]

\begin{align*} a \,x^{2} {y^{\prime }}^{2}-2 a x y y^{\prime }+y^{2}-a \left (a -1\right ) x^{2}&=0 \end{align*}

✓ Maple. Time used: 0.104 (sec). Leaf size: 106

ode:=a*x^2*diff(y(x),x)^2-2*a*x*y(x)*diff(y(x),x)+y(x)^2-a*(a-1)*x^2 = 0; 
dsolve(ode,y(x), singsol=all);
 

\begin{align*} y &= \sqrt {-a}\, x \\ y &= -\sqrt {-a}\, x \\ y &= \operatorname {RootOf}\left (-\ln \left (x \right )-\int _{}^{\textit {\_Z}}\frac {\sqrt {\left (a -1\right ) \left (\textit {\_a}^{2}+a \right ) a}}{\left (a -1\right ) \left (\textit {\_a}^{2}+a \right )}d \textit {\_a} +c_1 \right ) x \\ y &= \operatorname {RootOf}\left (-\ln \left (x \right )+\int _{}^{\textit {\_Z}}\frac {\sqrt {\left (a -1\right ) \left (\textit {\_a}^{2}+a \right ) a}}{\left (a -1\right ) \left (\textit {\_a}^{2}+a \right )}d \textit {\_a} +c_1 \right ) x \\ \end{align*}

✓ Mathematica. Time used: 0.348 (sec). Leaf size: 113

ode=-((-1 + a)*a*x^2) + y[x]^2 - 2*a*x*y[x]*D[y[x],x] + a*x^2*D[y[x],x]^2==0; 
ic={}; 
DSolve[{ode,ic},y[x],x,IncludeSingularSolutions->True]
 

\begin{align*} y(x)\to \frac {1}{2} e^{-c_1} x^{1-\sqrt {\frac {a-1}{a}}} \left (-a x^{2 \sqrt {\frac {a-1}{a}}}+e^{2 c_1}\right ) \\ y(x)\to \frac {1}{2} e^{c_1} x^{\sqrt {\frac {a-1}{a}}+1}-\frac {1}{2} a e^{-c_1} x^{1-\sqrt {\frac {a-1}{a}}} \\ \end{align*}

✓ Sympy. Time used: 17.626 (sec). Leaf size: 673

from sympy import * 
x = symbols("x") 
a = symbols("a") 
y = Function("y") 
ode = Eq(-a*x**2*(a - 1) + a*x**2*Derivative(y(x), x)**2 - 2*a*x*y(x)*Derivative(y(x), x) + y(x)**2,0) 
ics = {} 
dsolve(ode,func=y(x),ics=ics)
 

\[ \text {Solution too large to show} \]