{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 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 3 0 }1 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "
" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT -1 33 "THIS WAS SEGFAULTI
NG MAPLE8 LINUX" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 44 "Deep water gravity wave animation  4/23/2003" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 1130 "restart:\na:=3;\nb:=2;\n\nA:=0.2;
\ng:=1;\nkk:=(omega^2)/g;\nomega:=sqrt(2);\n\nVcart:=proc(x,y,t)\n    \+
[-A*kk*exp(kk*y)*sin(kk*x-omega*t),\n      A*kk*exp(kk*y)*cos(kk*x-ome
ga*t)];\nend:\nVcart(0,1.5,1);\ngrid_spacing:=1/5;\nnx:=2*a/grid_spaci
ng;\nny:=b/grid_spacing;\nxmin:=-a;\nxmax:=a;\nymin:=-b;\nymax:=0;\nnt
:=30; nskip:=1;\ntmin:=0; tmax:=evalf(2*Pi/omega); dt:=(tmax-tmin)/nt;
\ndx:=(xmax-xmin)/nx;\ndy:=(ymax-ymin)/ny;\nx:=array(0..nx,0..ny,0..nt
-1):\ny:=array(0..nx,0..ny,0..nt-1):\nfor i from 0 to nx do\n   for j \+
from 0 to ny do\n      x0:=evalf(xmin+i*dx);\n      y0:=evalf(ymin+j*d
y);\n      for k from 0 to nt-1 do\n         t:=k*dt;\n         x[i,j,
k]:=x0-A*exp(kk*y0)*cos(kk*x0-omega*t);\n         y[i,j,k]:=y0-A*exp(k
k*y0)*sin(kk*x0-omega*t);\n      od: unassign('k');\n   od: unassign('
j'):\nod: unassign('i'):\n\nx[0,0,0];\nfor k from 0 to nt-1 do\n  p[k]
:=plot([ seq( seq([x[i,j,k],y[i,j,k]],j=0..ny), i=0..nx ) ],          \+
    style=point,color=black,axes=none);\n  \nod: unassign('k'):\n\n#pl
ots[display](seq(p[k],k=0..nt-1),insequence=true,axes=none);\n#plots[d
isplay]( seq(p[k],k=0..nt-1 ), insequence=true                  #,scal
ing=constrained);\n\n\n   " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\"
\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\"\"#" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"AG$\"\"#!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"gG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#kkG*$)%&omegaG\"\"#
\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&omegaG*$\"\"##\"\"\"F&" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$,$*($\"+%Q2r,%!\"*\"\"\"%\"kGF)-%$s
inG6#*$\"\"##F)F/F)F),$*(F&F)F*F)-%$cosGF-F)F)" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%-grid_spacingG#\"\"\"\"\"&" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#nxG\"#I" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#nyG\"#
5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%xminG!\"$" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%xmaxG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ymi
nG!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ymaxG\"\"!" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#ntG\"#I" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
&nskipG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%tminG\"\"!" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%tmaxG$\"+QH)GW%!\"*" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#dtG$\"+z4'4[\"!#5" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%#dxG#\"\"\"\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dyG#\"
\"\"\"\"&" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, computation interru
pted\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?circle" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 0 0" 139 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }