Mathematica Tool 1

This Mathematica notebook is designed to be used with Activity 1 in Section 4.2

f[t_]:=(t^3)-t
Plot[f[t],{t,-2.5,2.5},PlotStyle->Thickness[0.01]]

f''[t]
Plot[f''[t],{t,-2.5,2.5},PlotStyle->Thickness[0.01]]