I attached corrected for V9+ notebook to this post.
I think Jim is using earlier versions. To make this work in V9+ the function NDSolve
should have corrected method specification
NDSolve[..., Method -> {"DiscontinuityProcessing" -> False}]
and it is better for Manipulate
to have SaveDefinitions -> True
.
Attachments: