{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 "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 "Times" 1 12 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 "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 
0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "grad:=proc(f);[diff(
f,x),diff(f,y),diff(f,z)] end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 13 "f:=x*y^2/z^3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG*(%\"xG
\"\"\"%\"yG\"\"#%\"zG!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 
"grad(f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%*&%\"yG\"\"#%\"zG!\"$,$
**F&\"\"\"%\"xGF+F%F+F'F(F+,$**\"\"$F+F,F+F%F&F'!\"%!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "g:=[x^2+y^2,-x^2-y^2,x^2+y^2-z^2];
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG7%,&*$)%\"xG\"\"#\"\"\"F+*$)
%\"yGF*F+F+,&F'!\"\"F,F0,(F'F+F,F+*$)%\"zGF*F+F0" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 56 "div:=proc(g);diff(g[1],x)+diff(g[2],y)+diff(g
[3],z) end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "div(g);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"#\"\"\"%\"xGF&F&*&F%F&%\"yGF&!
\"\"*&F%F&%\"zGF&F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "curl
:=proc(g);[diff(g[3],y)-diff(g[2],z),diff(g[1],z)-diff(g[3],x),diff(g[
2],x)-diff(g[1],y)]end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "c
url(g);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%,$*&\"\"#\"\"\"%\"yGF'F',
$*&F&F'%\"xGF'!\"\",&*&F&F'F+F'F,*&F&F'F(F'F," }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 14 "curl(grad(f));" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#7%\"\"!F$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "div(curl(g
));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 13 "div(grad(f));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#,&*(\"\"#\"\"\"%\"xGF&%\"zG!\"$F&**\"#7F&F'F&%\"yGF%F(!\"&F&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "curl(grad(a(x,y,z)));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!F$F$" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 43 "div(curl([b1(x,y,z),b2(x,y,z),b3(x,y,z)]));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "div(grad(a(x,y,z)));" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#,(-%%diffG6$-%\"aG6%%\"xG%\"yG%\"zG-%\"$G6$F*\"\"#\"\"\"-F%6$F'-F.6
$F+F0F1-F%6$F'-F.6$F,F0F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
51 "dot:=proc(r,q);simplify(add(r[i]*q[i],i=1..3)) end:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "cross:=proc(r,q);[r[2]*q[3]-r[3]*q[
2],r[3]*q[1]-r[1]*q[3],r[1]*q[2]-r[2]*q[1]] end:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 76 "div(cross([b1(x,y,z),b2(x,y,z),b3(x,y,z)],[c1
(x,y,z),c2(x,y,z),c3(x,y,z)]));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,:*
&-%%diffG6$-%#b2G6%%\"xG%\"yG%\"zGF+\"\"\"-%#c3GF*F.F.*&F(F.-F&6$F/F+F
.F.*&-F&6$-%#b3GF*F+F.-%#c2GF*F.!\"\"*&F7F.-F&6$F9F+F.F;*&-F&6$F7F,F.-
%#c1GF*F.F.*&F7F.-F&6$FBF,F.F.*&-F&6$-%#b1GF*F,F.F/F.F;*&FJF.-F&6$F/F,
F.F;*&-F&6$FJF-F.F9F.F.*&FJF.-F&6$F9F-F.F.*&-F&6$F(F-F.FBF.F;*&F(F.-F&
6$FBF-F.F;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "dot([c1(x,y,
z),c2(x,y,z),c3(x,y,z)],curl([b1(x,y,z),b2(x,y,z),b3(x,y,z)]))-\ndot([
b1(x,y,z),b2(x,y,z),b3(x,y,z)],curl([c1(x,y,z),c2(x,y,z),c3(x,y,z)]));
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,:*&-%%diffG6$-%#b2G6%%\"xG%\"yG%
\"zGF+\"\"\"-%#c3GF*F.F.*&F(F.-F&6$F/F+F.F.*&-F&6$-%#b3GF*F+F.-%#c2GF*
F.!\"\"*&F7F.-F&6$F9F+F.F;*&-F&6$F7F,F.-%#c1GF*F.F.*&F7F.-F&6$FBF,F.F.
*&-F&6$-%#b1GF*F,F.F/F.F;*&FJF.-F&6$F/F,F.F;*&-F&6$FJF-F.F9F.F.*&FJF.-
F&6$F9F-F.F.*&-F&6$F(F-F.FBF.F;*&F(F.-F&6$FBF-F.F;" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 5 "%-%%;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"
\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "mag:=proc(q);sqrt(ad
d(q[i]^2,i=1..3))end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "r:
=[cos(t),sin(t),3*t];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG7%-%$co
sG6#%\"tG-%$sinGF(,$*&\"\"$\"\"\"F)F/F/" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 56 "int((r[1]^2+r[2]^2+r[3]^2)^2*mag(diff(r,t)),t=0..2.*P
i);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+8$>R1&!\"%" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "r:=[a*cos(t),a*sin(t),0];" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"rG7%*&%\"aG\"\"\"-%$cosG6#%\"tGF(*&F'F(-
%$sinGF+F(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "assume(a
>0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "int(r[2]*mag(diff(r
,t)),t=0..Pi)/int(mag(diff(r,t)),t=0..Pi);;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$*(\"\"#\"\"\"%#a|irGF&%#PiG!\"\"F&" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 78 "int((r[1]^2+r[3]^2)*mag(diff(r,t)),t=0..2
*Pi)*M/int(mag(diff(r,t)),t=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#,$*(\"\"#!\"\"%#a|irGF%%\"MG\"\"\"F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "r:=[t,t,t^2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
rG7%%\"tGF&*$)F&\"\"#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
46 "with(plots):  spacecurve(r,t=0..1,axes=BOXED):" }}{PARA 7 "" 1 "" 
{TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "g:=[5*z,x*y,x^2*z];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG7%,$*&\"\"&\"\"\"%\"zGF)F)*&%\"x
GF)%\"yGF)*&)F,\"\"#F)F*F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
47 "fieldplot3d(g,x=0..1,y=0..1,z=0..1,axes=BOXED):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 52 "plugin:=proc(g,r);eval(g,\{x=r[1],y=r[2],
z=r[3]\})end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "plugin(g,r
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%,$*&\"\"&\"\"\")%\"tG\"\"#F'F'
*$F(F'*$)F)\"\"%F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "int(d
ot(plugin(g,r),diff(r,t)),t=0..1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
#\"\"(\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "r:=[t,t,t];
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG7%%\"tGF&F&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "int(dot(plugin(g,r),diff(r,t)),t=0.
.1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6##\"#P\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 
"g:=[2*x*y*z^2,x^2*z^2+z*cos(y*z),2*x^2*y*z+y*cos(y*z)];" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"gG7%,$**\"\"#\"\"\"%\"xGF)%\"yGF))%\"zGF(F)F
),&*&)F*F(F)F,F)F)*&F-F)-%$cosG6#*&F+F)F-F)F)F),&**F(F)F0F)F+F)F-F)F)*
&F+F)F2F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "curl(g);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!F$F$" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 92 "findf:=proc(g) local h;h:=int(g[1],x);h:=h+int(g[2
]-diff(h,y),y);h+int(g[3]-diff(h,z),z)end:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 12 "f:=findf(g);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"fG,&*()%\"xG\"\"#\"\"\"%\"yGF*)%\"zGF)F*F*-%$sinG6#*&F+F*F-F*F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "grad(f);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7%,$**\"\"#\"\"\"%\"xGF'%\"yGF')%\"zGF&F'F',&*&)F(F&F'F
*F'F'*&F+F'-%$cosG6#*&F)F'F+F'F'F',&**F&F'F.F'F)F'F+F'F'*&F)F'F0F'F'" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "plugin(f,[1,Pi/4,2])-plug
in(f,[0,0,0]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%#PiG\"\"\"F%F%" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "41 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }