Welcome to Physics & Mathematica Brought To You By Genergy, LLC

Red is Potential Energy and Blue is Kinetic Energy

Watch a video of the model working here