{VERSION 2 3 "SGI IRIS UNIX" "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 "New century schoo
lbook" 1 18 0 0 0 0 1 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 "Hea
ding 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 6 6 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 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 18 0 0 0 
0 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 0 0 0 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 3" -1 258 1 
{CSTYLE "" -1 -1 "Helvetica" 1 24 0 0 0 0 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 4" -1 259 1 {CSTYLE "" -1 -1 
"Helvetica" 1 24 0 0 0 0 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 5" -1 260 1 {CSTYLE "" -1 -1 "Helvetica" 1 
24 0 0 0 0 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 6" -1 261 1 {CSTYLE "" -1 -1 "Helvetica" 1 24 0 0 0 
0 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
 7" -1 262 1 {CSTYLE "" -1 -1 "Helvetica" 1 14 0 0 0 0 2 1 2 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 263 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 }{PSTYLE "" 0 264 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 {PARA 264 "" 0 "" {TEXT -1 0 "" }}{PARA 263 "" 0 "" {TEXT -1 
24 "Calulus Worksheet VIII\n\n" }}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 
130 "In this worksheet we give a few examples how Maple handles vector
 calculus using\nthe linear algebra, plots, and plottols\npackages." }
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(plottools):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT 
-1 32 "Warning, new definition for norm" }}{PARA 7 "" 1 "" {TEXT -1 
33 "Warning, new definition for trace" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 77 "plot3d(x^2-y^2,x=-1..1,y=-1..1,\nstyle=patch,\nshadin
g=zhue,lightmodel=light2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
115 "plot3d(1/(x^2-y^2),x=-1..1,y=-1..1,\ngrid=[40,40],orientation=[10
,72],\nstyle=patch,\nshading=zhue,lightmodel=light3);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "plot3d(2*x-3*y,x=-1..1,y=-1..1,\na
xes=normal,tickmarks=[0,0,0],\nstyle=patchnogrid,\nshading=zhue,lightm
odel=light2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "plot3d(\{2
*x-3*y,x^2-y^2\},x=-1..1,y=-1..1,\ngrid=[40,40],orientation=[57,68],\n
style=patch);\n" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 394 "Vectors:\nC
alling Sequence:\n   arrow(base, dir, wb, wh, hh)\n   arrow(base, dir,
 norm, wb, wh, hh)\nParameters:\n   base - base of the arrow, a 2D or \+
3D point\n   dir  - direction vector, a 2D or 3D point\n   norm - norm
al plane (3D only)\n   wb   - width of the body of the arrow\n   wh   \+
- width of the head of the arrow\n   hh   - height of the head of the \+
arrow as a ratio of the length of the body\n" }}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 49 "arr1:=arrow([0,0],[10,10],.2,.4,.1, color=green):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "arr2:=arrow([0,0,0],[1,
1,1],[1, 0, 0],\n.2,.4,.1,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "display(arr1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 14 "display(arr2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "v
ect1:=vector([1,1,x]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "v
ect3:=vector([1,1,1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "d
isplay(arrow([0,0,0],vect3,\n[1, 0, 0],.2,.4,.1,color=red));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "vect2:=vector([x,1,-1]):" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalm(vect1+vect2):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "dotprod(vect1,vect2):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "crossprod(vect1,vect2):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "angle(vect1,vect2):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalm(2*vect2):" }}}}{SECT 
0 {PARA 3 "" 0 "" {TEXT -1 36 "Lines, Planes, and Quadric Surfaces:" }
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot3d(x^2+y^2,x=-1..1,y=-1
..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "implicitplot3d(x^2
-y^2+z^2=1,\nx=-1..1,y=-1..1,z=-1..1,\ngrid=[20,20,20],\nstyle=patch);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot3d(x^2+y^2,x=-1..1,
y=-1..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot3d(x^2-y^2
,x=-1..1,y=-1..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "plot3
d([4*cos(x)*sin(y),\n9*cos(x)*cos(y),16*sin(x)],\nx=0..2*Pi,y=0..Pi);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "plot3d([cosh(x)*cos(y),
\ncosh(x)*sin(y),sinh(x)],\nx=-1..1,y=-Pi..Pi);" }}}}{PARA 3 "" 0 "" 
{TEXT -1 0 "" }}}{MARK "5 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 }