all015
- 2
- 0
Can anyone help with the following:
dy/dx = ay / (bx2 +xy )
a,b constants
thanks,
dy/dx = ay / (bx2 +xy )
a,b constants
thanks,
The discussion revolves around solving a first-order nonlinear ordinary differential equation (ODE) of the form dy/dx = ay / (bx² + xy), where a and b are constants. Participants explore various approaches to find a solution, including numerical methods and the use of special functions.
Participants do not reach a consensus on the best approach to solve the ODE, with differing opinions on the applicability of the Ei function and the feasibility of finding an analytical solution versus numerical methods.
There are unresolved aspects regarding the definitions and assumptions related to the use of special functions, and the discussion includes varying levels of confidence in the numerical methods presented.
This discussion may be useful for those interested in nonlinear differential equations, numerical methods for solving ODEs, and the application of special functions in mathematical analysis.
JJacquelin said:The key is to consider the unknown function x(y) instead of y(x)
Of course, you cannot express that in terms of Ei(x), but in terms of Ei(y).that agrees with numerical calculations but I'm not sure how I could express that in terms of Ei(x) though
JJacquelin said:Of course, you cannot express that in terms of Ei(x), but in terms of Ei(y).
May be, writing "in terms of" isn't the good wording. What I mean is that Ei(y) is the special function involved in the formula for x(y), as it was shown.
But I never said that Ei(x) is involved in an hypothetical formula for y(x). On the contrary, I said that the analytical inversion of x(y) in order to obtain y(x) is probably utopian with a finite number of elementary functions and even with classical special functions.
mysol = NDSolve[{Derivative[1][y][x] ==
y[x]/(x^2 + x*y[x]), y[1] == 1}, y,
{x, 1, 5}];
p1 = Plot[y[x] /. mysol, {x, 1, 5}];
myx[y_] := Exp[y]/(Exp[1] -
NIntegrate[Exp[u]/u, {u, 1, y}]);
mytable = Table[{myx[y], y},
{y, 1, 1.6, 0.01}];
p2 = ListPlot[mytable, Joined -> True];
Show[{p1, p2}]