Updated the mathematica notebook and put the plot here...