Maple Tool 3

This tool is designed for use with Checkpoint 1 in Section 5.4.

>	with(stats[statplots]):with(plots):

Here are the data for average monthly highs and lows.

>	Months:=[1,2,3,4,5,6,7,8,9,10,11,12]: Highs:=[43,47,57,67,74,82,86,84,77,66,58,48]; Lows:=[26,29,36,44,53,62,67,66,59,47,38,31];

We calculate the mean monthly temperatures.

>	Mean:=(Highs+Lows)/2;

We plot the monthly high, low, and average temperatures.

>	HighPlot:=scatterplot(Months,Highs,color=navy, thickness=2, view=[0..13,0..100], xtickmarks=[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], ytickmarks=[0,20,40,60,80,100]):

>	LowPlot:=scatterplot(Months,Lows,color=navy, thickness=2, view=[0..13,0..100], xtickmarks=[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], ytickmarks=[0,20,40,60,80,100]):

>	MeanPlot:=scatterplot(Months,Mean,color=red, thickness=2, view=[0..13,0..100], xtickmarks=[1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], ytickmarks=[0,20,40,60,80,100]):

>	display(HighPlot, LowPlot, MeanPlot);

Now enter values for , , , and  (standing in for ), and compare the graph of the model function to the data.

>	A:=???; B:=???; C:=???; delta:=???; T:=t->A+B*sin(C*(t-delta)); TPlot:=plot(T(t),t=0..12): display(MeanPlot,TPlot);

>