GraphingCalculator 3.5;
Window 46 6 807 1147;
PaneDivider 149;
FontSizes 18 14 12;
BackgroundType 0;
SliderControlValue 55;
UseAntialiasing 0;
3D.X -16 16;
3D.Y -16 16;
3D.Z -16 16;
3D.Axes 0;
3D.Depth 0.4133090974299996;
3D.View 0.07903925349983075 0.8494614728254536 0.5216972326877112 0.935698050045894 -0.2437234558065091 0.2550843708122422 0.3438341977598118 0.4679894050911401 -0.8141031637181639;
3D.Speed 0;
Text "Demonstration of Doppler effect.

V – speed of wave; f – frequency of wave.";
Color 5;
MathPaneSlider 1;
Expr V=slider([0,5,5]);
Color 6;
MathPaneSlider 6;
Expr f=slider([0,10,40]);
Text "Speed of observer; observer location.";
MathPaneSlider 20;
Expr O=slider([-5,5,40]);
Color 7;
Grain 0;
Expr vector(4+O*n,0,0);
Text "S – speed of source; location of source";
Color 3;
MathPaneSlider 6;
Expr S=slider([0,5,40]);
Color 2;
Grain 0;
Expr vector(S*n,0,0);
Text "Spacing of source emission points is D=ST=S/f, where T=1/f is the period of the source:";
Color 4;
Expr D=S/f;
Text "Pulse emitted at aD at a time aD/S = a/f after t [i.e. n] = 0; a labels emitted pulses.  Wave fronts emitted at aD:";
Color 5;
Opacity 0.7;
Expr sqrt([x-(a*D)]^2+y^2+z^2)=V*[n-a/f],in(a,set(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20));
Text "<size=12>Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";