**<< Previous page TOC INDEX Next page >>**

Mathematica for Selected PlotsThe Mathematica code for producing Fig. 5.1 (minus the annotations which were done using NeXT Draw and EquationBuilder from Lighthouse Design) is

Plot[10 Sin[2 Pi 2.5 t + Pi/4],{t,0,1}, PlotLabel->“10 Sin[2 Pi 2.5 t + Pi/4]“, PlotPoints->500, AxesLabel->{” Sec”, “Amp.”}];The Mathematica code for Fig. 5.2 is

Show[ Plot[Sin[2 Pi 2.5 t],{t,-0.1,1.1}, PlotPoints->500, AxesLabel->{” Time (Sec)“, “Amplitude”}], Plot[Cos[2 Pi 2.5 t],{t,-0.1,1.1}, PlotPoints->500, PlotStyle->Dashing[{0.01,0.01}] ];For the complex sinusoid plots (Fig. 5.7 and Fig. 5.9), see the Mathematica notebook

ComplexSinusoid.nbon Craig Sapp’s web pageof Mathematica notebooks. (The packageSCMTheory.mis required.)