Mathematica Tool 2

This Mathematica notebook is designed to be used with Checkpoint 1 in Section 3.2

f[t_]:=(E^(-1.7 t));
Plot[f[t],{t,0,3},PlotRange->{{0,3},{-2,1}},PlotStyle->{Red, Thickness[0.01]}, PlotLabel->"f(t)"]
Plot[f'[t],{t,0,3},PlotRange->{{0,3},{-2,1}},PlotStyle->{Blue, Thickness[0.01]}, PlotLabel->"f '(t)"]
Plot[{f[t],f'[t]},{t,0,3},PlotRange->{{0,3},{-2,1}},PlotStyle->{{Red, Thickness[0.01]},{Blue, Thickness[0.01]}}, PlotLabel->"f(t) and f '(t)"]