<< 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 notebookComplexSinusoid.nbon Craig Sapp's web pageof Mathematica notebooks. (The packageSCMTheory.mis required.)
| "Music 320 Background Reader" by Julius O. Smith III, (Course Background Reader, Music 320). Copyright © 2001-01-02 by Julius O. Smith III. - Center for Computer Research in Music and Acoustics (CCRMA), Department of Electrical Engineering, Stanford University. This is a modified HTML version reproduced by permission. |