GraphingCalculator 3.5;
Window 46 6 807 1147;
PaneDivider 338;
FontSizes 18 14 12;
BackgroundType 0;
SliderControlValue 0;
UseAntialiasing 0;
3D.X -8 8;
3D.Y -8 8;
3D.Z -8 8;
3D.Depth 0.6530909743;
3D.View -0.4535743766097931 -0.8111424739139629 0.3692129086285689 -0.4310344973083188 0.5622623543919846 0.705740963077777 -0.7800509900098929 0.1609625169053646 -0.6046581853727674;
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.08333333333333333;
Expr vector(4+O*n,0,0);
Text "S – speed of source; location of source";
Color 3;
MathPaneSlider 10;
Expr S=slider([0,5,40]);
Color 2;
Grain 0.1166666666666667;
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;
Expr sqrt([x-(a*D)]^2+y^2)=V*[n-a/f]+0*z,abs(z)<1/2,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/>";