# Trouble solving a simple differential equation analytically (requires gluing two of the solutions together)

EDIT: Solution can be found by hand quite easily. Don't know how to get Mathematica to do it though. Solution found by hand will give the curve, but with other curves too, which are not part of the actual solution.

I'm having a problem solving a 1st order nonlinear ODE analytically. DSolve finds all the solutions to the equation, however the actual solution -- which can be seen using NDSolve -- is made up of two of the solutions that were given by DSolve. When 'glued' together, these two solutions form a smooth curve which is the actual solution. I need to how to tell Mathematica to somehow obtain this solution.

I've simplified the equation a lot to remove unnecessary variables. Here's the equation now:

$$y'(t) = \sqrt{\frac{1+y(t)}{y(t)^2}}$$

$$y(0)=1$$

eqn = y'[t] == Sqrt[(1 + y[t])/y[t]^2];


Here's my code for analytically solving and plotting the equation:

solE = DSolve[{eqn, y == c1}, y, t];

Plot[Evaluate[y[t] /. solE /. c1 -> 1], {t, -3, 3}]


Here's the code for numerically solving and plotting the equation (Used ListLinePlot to avoid extrapolation due to division by 0 at around t = -0.4):

solN = NDSolve[{eqn, y == 1}, y, {t, -5, 5}];

Show[ListLinePlot[y /. solN], PlotRange -> {{-3, 3}, {-1, 4}}]


As you can see from the plots below, the correct analytical solution (the positive curve that starts between $t=-1$ and $t=0$ at $y = 0$) is made up of two separate solutions (starts with the green curve, then transitions to red), glued together. How do I get Mathematica to return this 'composite curve' as the final solution?

Analytical solutions (left) and numerical solution (right): I would prefer a mathematical method of doing this, instead of just visually inspecting the two plots like I have. Previously, when I had multiple solutions, I successfully found the correct solution by verifying it using {eqn, initial condition} /. sol. However, it doesn't seem to work on this equation. For the original equation, the first solution returned true only for the initial condition, but the second solution returned false for both, so my method must be wrong.

• DSolve offers more solutions than admissable, I think. Assuming y>-1(and real solutions y[t]) the ode should give y'[t]>0. Together with the condition y==1only the branch remains which NDSolve returns! Aug 19, 2018 at 12:45
• @UlrichNeumann I tried adding y > -1 as an assumption to DSolve, but then DSolve ran for over 5 minutes without any results. I thought this was because I had left out the condition y==1 earlier on (I substituted 1 with 'c', or it would give missing solutions), but putting it back still yields the same result. I also tried assuming y[t] > -1 instead, but that doesn't have any effect, with or without specifying y==1 inside DSolve. I also tried adding the assumption when evaluation the equation inside plot, but it didn't have any effect either?
– user55405
Aug 19, 2018 at 13:32
• If I assume y[t] > -1 with the initial condition as y == c, solutions are returned, but then when I try to plot it, nothing shows up. I also forgot to explicitly say in the question that y(0) = 1, edited now.
– user55405
Aug 19, 2018 at 13:41

The goal of this question is to reproduce the numerically determined curve,

eqn = y'[t] == Sqrt[(1 + y[t])/y[t]^2];
solN = NDSolve[{eqn, y == 1}, y, {t, -5, 5}];
ListLinePlot[y /. solN, PlotRange -> {{-3, 3}, Automatic}, ImageSize -> Large,
AxesLabel -> {t, y}, LabelStyle -> {Bold, Black, Medium}] by means of DSolve. The obvious solution is to try something like

First[y /. solN][1/2];
solE2 = (DSolve[{eqn, y[1/2] == %}, y[t], t])


but DSolve returns solutions for both y'[t] == Sqrt[(1 + y[t])/y[t]^2] and y'[t] == - Sqrt[(1 + y[t])/y[t]^2]. Therefore, a brute force approach is necessary. Following the code in the question,

solE = (DSolve[{eqn, y == c1}, y[t], t, Assumptions -> c1 > 0] /. c1 -> 1)
// Values // Flatten;
Plot[Evaluate@solE, {t, -3, 3}, ImageSize -> Large, AxesLabel -> {t, y},
LabelStyle -> {Bold, Black, Medium}, PlotLabels -> Placed[Range, Above]] we see that combining the right side of curve 1 and the left side of curve 2 will reproduce the numerical result. This is accomplished by ploting only the segments of these two curves for which the slope is positive.

Off[Greater::nord]
Plot[{If[(Chop[N[D[solE[], t]] /. t -> t0]) > 0, Chop[N[solE[] /. t -> t0]]],
If[(Chop[N[D[solE[], t]] /. t -> t0]) > 0, Chop[N[solE[] /. t -> t0]]]},
{t0, -3, 3}, ImageSize -> Large, AxesLabel -> {t, y},
LabelStyle -> {Bold, Black, Medium}] which produces the desired result.

In response to a comment below, the appropriate parts of the DSolve solution, as defined above, can be packaged in a function by
Clear[f];