Bouncing Bob Pendulum
Bouncing Bob Pendulum
This Demonstration simulates the motion of a double pendulum with the upper bob bouncing back from an obstruction along the vertical axis.
Mathematica's built-in function WhenEvent, triggered whenever the upper bob crosses the vertical, reverses and reduces the angular speed of the upper pendulum and changes the behavior of the lower pendulum accordingly.