Mathematica Tool 1

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

Plot[{(E^(-1.7 t)),(E^(-2.5 t)),(E^(-3.7 t))},{t,0,3},PlotRange->{{0,3},{0,1}},PlotStyle->{{Red, Thickness[0.01]},{Blue, Thickness[0.01]},{Green, Thickness[0.01]}}]