One thing I've wanted to make available for years now is a user interactive way to illustrate evolutionary dynamics--specifically underdominance.  I have been using Mathematica for about six years now and tried exporting a video of a table of plots that sequentially increment a value.  This example is just of a sine wave, and it is not interactive, but it is a first step.

Sine Wave Animation (Click link to see animation.)

...and below is a screen capture of the Mathematica notebook to create the animation.