Mathematica Tool 2

This Mathematica notebook is designed for use with Exercise 9 in Section 5.3

x[t_]:=Cos[t]
y[t_]:=Sin[t]
ParametricPlot[{x[t],y[t]},{t,0,2 π},PlotStyle->Thickness[0.01]]