Mathematica Tool 1

This Mathematica notebook is designed for use with Activity 1 in Section 5.4

The constants α and β determine the graphing window, with t  between -α and α and y between -β and β.

α=4 π;
β =2;

Vary the constants  A, B, (Subscript[C, 1])  and δ one at a time. (We use δ and (Subscript[C, 1]) in place of D and C  because D and C are a protected symbols in Mathematica.) You may need to change the size of the view window as you change the constants.

A=0;
B=1;
(Subscript[C, 1])=1;
δ=0;
f[t_]:=A+B Sin[(Subscript[C , 1])(t-δ)]
Plot[f[t],{t,-α,α},PlotRange->{{-α,α},{-β,β}},PlotStyle->Thickness[0.01]]