Code

The script for the paper: 

The Mathematica script and its printout: