Add code

Mathematica code for numerical search of ESS