PLEASE ANSWER ONLY USING MATHEMATICA! PLEASE THANK YOU!

Type the command lines below into Mathematica in the order in which they are listed. They illustrate a trefoil knot, and a thicker version of this knot (which gives a better idea of the knots geometry). Note that to move to a new line (carriage return) in Mathematica without executing the command, use the regular key and to execute a command use the number-pad key. (* A Trefoil knot *) ParametricPlot3D [ {(2+Cos[1.5t])Cos[t],(2+Cos[1.5t])Sin[t], 2Sin[1.5t]},{t,0,4Pi},PlotStyleBlue, PlotPoints 100] ParametricPlot3D [ {(2+Cos[1.5t])Cos[t],(2+Cos[1.5t])Sin[t], 2Sin[1.5t]},{t,0,4Pi}, P lotStyle Directive [ Thickness [.02],Blue], PlotPoints 100] (* A Trefoil knot*) ParametricPlot3D [ {(2+Cos[1.5t])Cos[t],(2+Cos[1.5t])Sin[t], 2Sin[1.5t]},{t,0,4Pi},PlotStyleBlue, PlotPoints 100] ParametricPlot3D [ {(2+Cos[1.5t])Cos[t],(2+Cos[1.5t])Sin[t], 2Sin[1.5t]},{t,0,4Pi}, PlotStyle Directive[Thickness [.02], Blue], PlotPoints >100]