Mathematica code

Code for numerical search of ESS