Updated mathematica analytical work.