GraphingCalculator 4;
Window 45 6 860 754;
PaneDivider 397;
FontSizes 18;
Slider 0 5;
SliderSteps 200;
SliderControlValue 173;
2D.Scale 0.025 0.25 1 1;
2D.BottomLeft -2.5 -0.0515625;
2D.Axes 0;
2D.GraphPaper 0;
Text "<size=17>Standing waves on a one-dimensional string.

Version 0.21, 3-28-11 

To do:
(i) Incorporate reflection at boundaries.<size=18>

Define amplitude, frequency, angular frequency, and wavenumber:";
Color 2;
Expr A=0.6,f=m*f_0,W=2*pi*f,l=V/f,k=2*pi/l;
Text "<size=17>Length of string, wavelength and frequency of fundamental mode:";
Color 7;
Expr L=1,L_0=2*L,f_0=V/L_0;
Text "<size=17>Speed of wave and harmonic number:";
Color 8;
MathPaneSlider 2;
Expr V=slider([0,5,40]);
Expr m=slider([1,40,39]);
Text "Wave moving to the right:";
Expr function(h,x)=A*sin([k*x-(W*n)]);
Text "Wave moving to the left:";
Color 3;
Expr function(j,x)=A*sin([k*x+W*n]);
Text "Sum of wave moving to left and wave moving to right is standing wave:";
Color 2;
Expr function(h,x)+function(j,x),0<x<L;
Color 17;
Expr function(h,x),0<x<L;
Color 17;
Expr function(j,x),0<x<L;
Color 17;
Expr function(h,x);
Color 17;
Expr function(j,x);
Color 5;
Expr d=0.05;
Color 8;
Expr abs(y)<d,x<0;
Color 8;
Expr abs(y)<d,x>L;
Text "<size=17>Option click on slider play button to get continuous motion in one direction.<size=22>

<size=15>Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";