Mathematica Tool 1

This notebook is designed to be used with Activity 1 in section 9.1

We begin with a scatter plot of the original data.

data1={1,2,3,5,7,14,21,28,35,42,49,56,63,70,77,84,91,98,105,112};
data2={3,6,9,15,20,36,49,60,67,75,79,83,86,89,91,93,95,96,97,97};
data=Partition[Riffle[data1,data2],2];
dataplot=ListPlot[data,PlotRange->{{0,130},{0,114}},PlotStyle->PointSize[0.02]]

Enter your estimates for M and r.

M="???";
r="???";
LA[t_]:=M(1-(E^(-r t)))
Show[Plot[LA[t],{t,0,120},PlotStyle->Red],dataplot]

Now adjust M and r  to get a good fit.