2 particles
Mathematica

Having fun with Mathematica
without ErrorBarPlot-Package

Also for use without extra package
bugfix: important mistake, added sqrt(step_length) again - its absolutely necessary!
bugfix: fixes infinite energies due to wrong initialization
cleanup