Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Reap@
- NDSolve[{(2 - f[x]) f'[x] == f[x], f[0] == 1,
- WhenEvent[Abs[f'[x]] > 10^6, Sow[x]; "StopIntegration"]}, f, {x, 0, 5}]
- (* {{{f -> InterpolatingFunction[{{0., 0.386294}}, <>]}}, {{0.386294}}} *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement