60.2.158 problem 734

Internal problem ID [10732]
Book : Differential Gleichungen, E. Kamke, 3rd ed. Chelsea Pub. NY, 1948
Section : Chapter 1, Additional non-linear first order
Problem number : 734
Date solved : Sunday, March 30, 2025 at 06:30:43 PM
CAS classification : [[_1st_order, `_with_symmetry_[F(x),G(x)*y+H(x)]`]]

\begin{align*} y^{\prime }&=\frac {\left (-\ln \left (y\right ) x -\ln \left (y\right )+x^{3}\right ) y}{x +1} \end{align*}

✓ Maple. Time used: 0.241 (sec). Leaf size: 33

ode:=diff(y(x),x) = (-ln(y(x))*x-ln(y(x))+x^3)*y(x)/(1+x); 
dsolve(ode,y(x), singsol=all);
 

\[ y = {\mathrm e}^{x^{2}-3 x +4+c_1 \,{\mathrm e}^{-x}+\operatorname {Ei}_{1}\left (-x -1\right ) {\mathrm e}^{-x -1}} \]

✓ Mathematica. Time used: 0.231 (sec). Leaf size: 92

ode=D[y[x],x] == ((x^3 - Log[y[x]] - x*Log[y[x]])*y[x])/(1 + x); 
ic={}; 
DSolve[{ode,ic},y[x],x,IncludeSingularSolutions->True]
 

\[ \text {Solve}\left [\int _1^{y(x)}\left (-\int _1^x-\frac {e^{K[1]}}{K[2]}dK[1]-\frac {e^x}{K[2]}\right )dK[2]+\int _1^x\left (e^{K[1]} K[1]^2-e^{K[1]} K[1]-e^{K[1]} (\log (y(x))-1)-\frac {e^{K[1]}}{K[1]+1}\right )dK[1]=c_1,y(x)\right ] \]

✓ Sympy. Time used: 1.738 (sec). Leaf size: 20

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

\[ y{\left (x \right )} = e^{\left (C_{1} + \int \frac {x^{3} e^{x}}{x + 1}\, dx\right ) e^{- x}} \]