GraphingCalculator 3.5;
Window 52 4 809 723;
PaneDivider 307;
FontSizes 18 14 12;
BackgroundType 0;
SliderControlValue 53;
2D.BottomLeft -2.28125 -0.796875;
2D.Axes 0;
2D.GraphPaper 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]);
Expr vector(x,y)=vector(2+O*n,0);
Text "S – speed of source; location of source";
Color 3;
MathPaneSlider 6;
Expr S=slider([0,5,40]);
Color 2;
Expr vector(x,y)=vector(S*n,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 3;
Expr sqrt([x-(a*D)]^2+y^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/>";