{VERSION 6 0 "IBM INTEL NT" "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 "" -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 
258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 
{CSTYLE "" -1 -1 "Times" 1 18 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 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helv
etica" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 18 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 "" {TEXT 258 10 "DIVERGENCE" }}{PARA 0 "" 
0 "" {TEXT 256 18 "by Corinne Manogue" }{TEXT 257 0 "" }}{PARA 0 "" 0 
"" {TEXT -1 30 "Copyright 1997 Corinne Manogue" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 "restart:wi
th(linalg):with(plots):\nsetoptions(scaling=constrained); setoptions3d
(axes=boxed,thickness=2,\nscaling=constrained);\n" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 11 "v1:=[0,1];\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 57 "fieldplot(v1,x=-1..1,y=-1..1,\narrows=SLIM,grid=[10,1
0]);\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 118 "Note:  arrows are scal
ed in Maple plots so that the longest arrow in a given graph has lengt
h equal to the grid unit.\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "f1:=diverge(v1,[x,y]);\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "N
ow try another vector field:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 11 "v2:=[x, y];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "fieldp
lot(v2,x=-1..1,y=-1..1,\narrows=SLIM,grid=[10,10]);" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 22 "f2:=diverge(v2,[x,y]);" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 29 "Now try another vector field:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 19 "v3:=[0, exp(-y^2)];" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 57 "fieldplot(v3,x=-2..2,y=-1..1,\narrows=SLIM,gr
id=[10,10]);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "f3:=diver
ge(v3,[x,y]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "plot3d(f3,
x=-3..3,y=-3..3,orientation=[-90,0],shading=zhue);\n" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 29 "Now try another vector field:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 19 "v4:=[0, exp(-x^2)];" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 56 "fieldplot(v4,x=-1..1,y=-1..1,\narrows=SLIM,gr
id=[10,10]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "f4:=diverge
(v4,[x,y]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "Now try another ve
ctor field:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "v5:=[-y, x];
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "fieldplot(v5,x=-1..1,y=
-1..1,\narrows=SLIM,grid=[10,10]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "f5:=diverge(v5,[x,y]);" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 29 "Now try another vector field:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 18 "v6:=[sin(x*y), y];" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 56 "fieldplot(v6,x=-2..2,y=-2..2,\narrows=SLIM,grid=[10,1
0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "f6:=diverge(v6,[x,y
]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "plot3d(f6,x=-2..2,y=
-2..2,\nstyle=patchcontour,orientation=[-90,0],shading=zhue);\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "v7:=[0,1,0];\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "fieldplot3d(v7,x=-5..5,y=-5..5,z=-5
..5,\ngrid=[4,4,4],shading=none,arrows=SLIM);\n" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 25 "f7:=diverge(v7,[x,y,z]);\n" }}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 29 "Now try another vector field:" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 12 "v8:=[x,y,z];" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 79 "fieldplot3d(v8,x=-5..5,y=-5..5,z=-5..5,\ngrid=[4,4,4]
,shading=none,arrows=SLIM);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
24 "f8:=diverge(v8,[x,y,z]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 24 "V:=1/sqrt(x^2+y^2+z^2);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 25 "Efield:=grad(-V,[x,y,z]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 83 "fieldplot3d(Efield,x=-5..5,y=-5..5,z=-5..5,\ngrid=[4,
4,4],shading=none,arrows=SLIM);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 28 "f9:=diverge(Efield,[x,y,z]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "normal(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
53 "diverge([1/r^2,0,0],[r,theta,phi],coords=spherical);\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "\n" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 
1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }