{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 1 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 83 "Wave Packet Problem       \+
                                               RIPPLE.MWS" }}{PARA 0 "
" 0 "" {TEXT -1 77 "2D Plot of Multiple Source Interference           \+
              ABW  08/03/95" }}{PARA 0 "" 0 "" {TEXT -1 84 "Learning o
bjectives: Translation of equation for 2D wave to off-origin source po
ints" }}{PARA 0 "" 0 "" {TEXT -1 77 "                                 \+
   Physical intuition regarding interference" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 52 "Animates wave motion explored i
n BMSTEER and BMWIDTH" }}{PARA 0 "" 0 "" {TEXT -1 44 "                \+
                            " }}{PARA 0 "" 0 "" {TEXT -1 42 "MAPLE: fo
r..from..to..do..od, subs, plot3d" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 31 "Arbitrary units used throughout" }}{PARA 
0 "" 0 "" {TEXT -1 16 "k0 = wave number" }}{PARA 0 "" 0 "" {TEXT -1 
29 "a0 = distance between sources" }}{PARA 0 "" 0 "" {TEXT -1 43 "phi \+
= is relative phase of adjacent sources" }}{PARA 0 "" 0 "" {TEXT -1 
36 "A0 = amplitude of individual sources" }}{PARA 0 "" 0 "" {TEXT -1 
44 "xmax, ymax used to set plot range dimensions" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 8 "Remarks:" }}{PARA 0 "" 0 "
" {TEXT -1 94 "Set animation to run continuously!  Very nice effect of
 waves flowing outward from the source." }}{PARA 0 "" 0 "" {TEXT -1 
27 "Takes quite a while to run." }{MPLTEXT 1 0 0 "" }{TEXT -1 1 "\n" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 17 "for j from 1 to 4" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "     do
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "          m:=(2*j-5)/2:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "          r[j]:=((x-m*a0)^2+y^2)^0.
5:  " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "          A[j]:=(A0)*cos(k0
*r[j]-omega*t+m*phi):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "      od:" 
}}}{EXCHG {PARA 2 "" 0 "" {TEXT -1 1 "\n" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 61 "A1234:=A[1]+A[2]+A[3]+A[4]: # pattern due to all four
 sources" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "### Animate the motion of waves ###
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "xmax:=4: ymax:=4: #Set \+
plot area scale" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "f2:= sub
s(\{A0=3, k0=6, a0=0.5, omega=1,phi=0\}, A1234):" }}}{EXCHG {PARA 2 "
" 0 "" {TEXT -1 1 "\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 179 " animate3
d(f2, x=-xmax..xmax, y=-ymax/5..9*ymax/5,t=0..6, grid=[40,40],style=pa
tchnogrid, shading=zgreyscale, scaling=constrained, orientation=[0,0],
 tickmarks=[0,0,0],frames=12);" }}}}{MARK "0 0 0" 82 }{VIEWOPTS 1 1 0 
1 1 1803 }