Mathematica Tool 1

This Mathematica notebook is designed to be used with Checkpoint 2 in Section 4.1

f[t_]:=(t^4)-4 (t^2)+2
Plot[f[t],{t,-2,2.1},PlotStyle->Thickness[0.01]]