{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" }
{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 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 
0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 
0 0 0 0 0 0 -1 0 }{PSTYLE "" 3 257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 257 "" 0 "" {TEXT -1 20 "A VIBRATING DRUMHEAD" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 129 "We will think of the dru
mhead at rest as a circle of radius 1.  The height at time t will solv
e the wave equation.  We take c=1. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 " u:= (r,theta,t,v,a) -> Bes
selJ(v,r*a)*cos(v*theta)*cos(t*a);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 101 "animate3d([r*cos(theta),r*sin(theta),u(r,theta,t,0,2
.40482)],r=0..1,theta=0..2*Pi,t=0..Pi,frames=20);" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 101 "animate3d([r*cos(theta),r*sin(theta),u(r,th
eta,t,0,5.52007)],r=0..1,theta=0..2*Pi,t=0..Pi,frames=20);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "animate3d([r*cos(theta),r*sin(thet
a),u(r,theta,t,1,3.83171)],r=0..1,theta=0..2*Pi,t=0..Pi,frames=20);" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "animate3d([r*cos(theta),r
*sin(theta),u(r,theta,t,1,7.01559)],r=0..1,theta=0..2*Pi,t=0..Pi,frame
s=20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "animate3d([r*cos
(theta),r*sin(theta),u(r,theta,t,2,5.13562)],r=0..1,theta=0..2*Pi,t=0.
.Pi,frames=20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "animate
3d([r*cos(theta),r*sin(theta),u(r,theta,t,2,8.41724)],r=0..1,theta=0..
2*Pi,t=0..Pi,frames=20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "2 0" 129 }{VIEWOPTS 1 1 0 1 1 1803 }