To "produce a wolfram mathematica" takes a lot of people many years.
I guess you meant a Mathematica notebook (nb) file. I attached one from after evaluating the code. Empty plots and division-by-zero warnings. You have some debugging to do.
Attachments: