code

Mathematica code, coming soon.