Interesting to see this come up again. Here’s a small model for this system written in Haskell from a few years back:

http://syntacticsalt.com/blog/2011-08-27-harmonic-motion.htm...