{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 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "restart;  with(plots
):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 8 "c: speed" }}{PARA 0 "" 0 "" {TEXT -1 25 "u0 : initial displaceme
nt" }}{PARA 0 "" 0 "" {TEXT -1 21 "v0:  initial velocity" }}{PARA 0 "
" 0 "" {TEXT -1 49 "window : t=0 viewing window, given as [xmin,xmax]
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "c := 1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "
u0 := x -> 0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "v0 := x ->
 exp(-x^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "window := [-
2,2];" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 106 "Execute this command without changes.  The right-moving \+
wave will be navy and the left-moving wave maroon." }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 168 "intv0 := u
napply(int(v0(s),s=0..x),x);\nG := x -> u0(x)/2+intv0(x)/(2*c);\nF := \+
x -> u0(x)/2-intv0(x)/(2*c);\nplot([F(x),G(x)],x=window[1]..window[2],
color=[navy,maroon]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 68 "Run the animation.  You may want to chang
e the tmax, frames, points." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "tmax:=5;" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 45 "newwin := window[1]-c*tmax..window[2]+c*tmax
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "animate(F(x-c*t)+G(x+c
*t),x=newwin,t=0..tmax, frames=100,numpoints=50);" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "12 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }