{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "restart;  # file Wav
esOnStrings(simulation).mws for Maple V release 4" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{PARA 0 "" 0 "" {TEXT -1 0 
"" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "LeftToRight := A*cos(2*
Pi*f*t-2*Pi*x/lambda); # Wave that moves left to right" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "RightToLeft := A*cos(2*Pi*f*t+2*Pi*
x/lambda); # Wave that moves right to left" }}}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "A := 0.025;       \+
        # Amplitude is 2.5 cm" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 47 "f := 120;                 # Frequency is 120 Hz" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "L := 1.5;                 # Length \+
of string is 1.5 m" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "sigma
 := 5.0e-4;          # Linear density of string, in kg/m" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "n := 2*L*f*sqrt(sigma/T); # Formula
 for n, from lab handout" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 
"T := M*9.8;               # String tension, due to hanging mass M" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "lambda := 2*L/n;          #
 Formula for wavelength, from lab handout" }}}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "period := 1/f;    \+
        # Period, in seconds" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 62 "t1 := period/4;           # Animation start time: 1/4 * period" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "t2 := t1 + 2*period;     \+
 # Animation end time, 2 periods after starting" }}}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "M := 0.73469
4;            # Mass, in kg" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
90 "animate( LeftToRight-RightToLeft, x=0..L, t=t1..t2, numpoints=41, \+
frames=121, color=blue);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "20 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }