Guest User

Untitled

a guest
Feb 21st, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.26 KB | None | 0 0
  1. sol= ParametricNDSolve[{x''[t] + 2 d x'[t] + x[t] == 0, x[0] == 1,x'[0] ==0,
  2. WhenEvent[ x'[t] == 0.,tEvent = t; "StopIntegration" ,"DetectionMethod" -> "Interpolation"]}, x, {t, 0, 10}, {d }]
  3.  
  4. x[.3] /. sol
  5. (* InterpolatingFunction[{{0., 3.29328}}, <>] *)
Add Comment
Please, Sign In to add comment