{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text \+
Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 
3 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 
{CSTYLE "" -1 -1 "Helvetica" 1 12 128 0 128 1 2 1 2 0 0 0 0 0 0 }0 0 
0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" 
-1 -1 "Courier" 1 11 0 128 128 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "pulses.ms  7/3/97" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 59 "animate p
ulses added when traveling in opposite directions." }}{PARA 2 "" 0 "" 
{TEXT -1 1 "\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart;with(plot
s):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "sr:=3/(2+5*(x-3*t)^2
); # going to the right" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "sl:=3/(2
+5*(x+3*t)^2); # going to the left" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 90 "Check by looking at sum of pulses at t=1 sec. Heaviside shuts o
ff x>0, where its not real." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
48 "plot(subs(t=1,((sr+sl)*Heaviside(-x))),x=-4..4);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "Nframes:=20;    " }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 39 "for i from -Nframes/2 to Nframes/2-1 do" }{TEXT 
-1 1 "\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "j:=4/(Nframes):" }
{TEXT -1 1 "\n" }{MPLTEXT 1 0 64 "pr.(i):= plot(subs(t=i*j,sr),x=-4..4
,numpoints=100,color=blue): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "pl.
(i):= plot(subs(t=i*j,sl),x=-4..4,numpoints=100,color=red): " }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 95 "pa.(i):=plot(subs(t=i*j,(sr+sl)*Heaviside
(-x)),x=-4..4,numpoints=100,color=black,thickness=3): " }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 120 "ps.(i):=plot(subs(t=i*j,sr-sl),x=-4..4,numpoi
nts=100,color=black,thickness=3): pad.(i):=display(\{pr.(i),pl.(i),pa.
(i)\}):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "psb.(i):=display(\{pr.(i
),pl.(i),ps.(i)\}):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "display([pad.(-Nframes/2..Nf
rames/2-1)],insequence=true);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "7 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }