{VERSION 5 0 "IBM INTEL NT" "5.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 Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "dot:=proc(r,q) simpl
ify(add(r[i]*q[i],i=1..3)) end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 93 "cross:=proc(r,q) simplify([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 52 "mag:=proc(q) simplify(sqrt(add(q[i]^2,i=1..3))) end:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "scalm:=proc(v,s) [seq(simpli
fy(s*v[i]),i=1..3)] end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 
"grad:=proc(f) simplify([diff(f,x),diff(f,y),diff(f,z)]) end:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "div:=proc(g) simplify(diff(g
[1],x)+diff(g[2],y)+diff(g[3],z)) end:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 108 "curl:=proc(g) simplify([diff(g[3],y)-diff(g[2],z),di
ff(g[1],z)-diff(g[3],x),diff(g[2],x)-diff(g[1],y)]) end:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "plugin:=proc(g,r) simplify(eval(g,
\{x=r[1],y=r[2],z=r[3]\})) end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 93 "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 "" {TEXT -1 
16 "Type I integral:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "f:=x*y^2*z^3:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "r:=[cos(t),sin(t),t]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "rd:=diff(r,t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "int
(plugin(f,r)*mag(rd),t=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$
**\"\")\"\"\"\"\"$!\"\"\"\"##F&F)%#PiGF)F&" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 7 "Length:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "L:=int(mag(rd),t=0..2*Pi);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"LG,$*(\"\"#\"\"\"F'#F(F'%#PiGF(F(" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 15 "Center of mass:" }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "[int(r[1]*mag(rd),t=0..2*Pi)/L, int
(r[2]*mag(rd),t=0..2*Pi)/L, int(r[3]*mag(rd),t=0..2*Pi)/L];" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#7%\"\"!F$%#PiG" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 50 "Moment of inertia with respect to axis defined by:" }
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "a:=[3,0
,-2]:   b:=[1,2,-3]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "dsq
:=dot(r-a,r-a)-dot(r-a,b)^2/mag(b)^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%$dsqG,,\"#9\"\"\"*&\"\"'F'-%$cosG6#%\"tGF'!\"\"*&\"\"%F'F-F'F'*$)
F-\"\"#F'F'*&#F'F&F'*$),*\"\"*F.F*F'*&F3F'-%$sinGF,F'F'*&\"\"$F'F-F'F.
F3F'F'F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "evalf(M/L*int(d
sq*mag(rd),t=0..2*Pi));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&$\"++#=
FB\"!\")\"\"\"%\"MGF(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "
with(plots):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "spacecurve(\{r,eval
m(a-b*t/2)\},t=0..2*Pi,axes=BOXED);" }}{PARA 7 "" 1 "" {TEXT -1 50 "Wa
rning, the name changecoords has been redefined\n" }}{PARA 13 "" 1 "" 
{GLPLOT3D 496 496 496 {PLOTDATA 3 "6%-%'CURVESG6#7T7%$\"\"\"\"\"!$F*F*
F+7%$\"+Q,!z\"**!#5$\"+<;xy7F/$\"+;FG#G\"F/7%$\"+I'[Hn*F/$\"+SeaODF/$
\"+KackDF/7%$\"+tv;p#*F/$\"+\\+n_PF/$\"+[\"[o%QF/7%$\"+Tq=8()F/$\"+@b<
2\\F/$\"+k38H^F/7%$\"+=i89!)F/$\"+1`5\")fF/$\"+!e89T'F/7%$\"++N\\$=(F/
$\"+2b#o&pF/$\"+'H'p$p(F/7%$\"+<!)*[B'F/$\"+E[J=yF/$\"+7!zf(*)F/7%$\"+
!oDR=&F/$\"+KwU^&)F/$\"+th#e-\"!\"*7%$\"+CM$y/%F/$\"+Li7W\"*F/$\"+XW0a
6F_o7%$\"+aeFXGF/$\"+M&yme*F/$\"+<FG#G\"F_o7%$\"+M*)*ff\"F/$\"+Py\"=()
*F/$\"+*)4^59F_o7%$\"+Zv:0K!#6$\"+j@'[***F/$\"+h#R(Q:F_o7%$!+UGI-'*Fhp
$\"+F6z`**F/$\"+Lv'pm\"F_o7%$!+o$4_A#F/$\"+:\"z#\\(*F/$\"+0e>&z\"F_o7%
$!+w0l`MF/$\"+4Uo%Q*F/$\"+xSUB>F_o7%$!+OHQDYF/$\"+YI*f'))F/$\"+\\Bl^?F
_o7%$!+Om;@dF/$\"+ADs,#)F/$\"+@1))z@F_o7%$!+P*3Is'F/$\"+S*zFS(F/$\"+$*
)3\"3BF_o7%$!+<'fWh(F/$\"+9RG#['F/$\"+lrLOCF_o7%$!+z5)3Q)F/$\"+m*[`X&F
/$\"+PackDF_o7%$!+0()o4!*F/$\"+Qt$)QVF/$\"+4Pz#p#F_o7%$!+!\\d0\\*F/$\"
+?@3^JF/$\"+\")>-@GF_o7%$!+$e\"f:)*F/$\"+@ie6>F/$\"+`-D\\HF_o7%$!+KRXz
**F/$\"+!G@qS'Fhp$\"+D&yu2$F_o7%$!+BRXz**F/$!+fF-2kFhp$\"+(z1d?$F_o7%$
!+b:f:)*F/$!+mje6>F/$\"+p]$RL$F_o7%$!+Vub!\\*F/$!+hA3^JF/$\"+TL;iMF_o7
%$!+S')o4!*F/$!+ru$)QVF/$\"+8;R!f$F_o7%$!+)*4)3Q)F/$!+!4\\`X&F/$\"+&))
>'=PF_o7%$!+@&fWh(F/$!+FSG#['F/$\"+d\"[o%QF_o7%$!+F)3Is'F/$!+R+y-uF/$
\"+Hk2vRF_o7%$!+9l;@dF/$!+2Es,#)F/$\"+,ZI.TF_o7%$!+0GQDYF/$!+:J*f'))F/
$\"+tH`JUF_o7%$!+P/l`MF/$!+gUo%Q*F/$\"+X7wfVF_o7%$!+C#4_A#F/$!+[\"z#\\
(*F/$\"+<&*)z[%F_o7%$!+n8I-'*Fhp$!+T6z`**F/$\"+*y<ih%F_o7%$\"+H!f^?$Fh
p$!+e@'[***F/$\"+hgWWZF_o7%$\"+!3**ff\"F/$!+8y\"=()*F/$\"+LVns[F_o7%$
\"+'*fFXGF/$!+#\\yme*F/$\"+0E!4+&F_o7%$\"+fN$y/%F/$!+uh7W\"*F/$\"+x38H
^F_o7%$\"+1e#R=&F/$!+bvU^&)F/$\"+\\\"ftD&F_o7%$\"+N\")*[B'F/$!+KZJ=yF/
$\"+@ue&Q&F_o7%$\"+2O\\$=(F/$!+'RDo&pF/$\"+$p:Q^&F_o7%$\"+8j89!)F/$!+z
^5\")fF/$\"+lR/UcF_o7%$\"+?r=8()F/$!+!Qvr!\\F/$\"+PAFqdF_o7%$\"+Ow;p#*
F/$!+&*)pEv$F/$\"+40])*eF_o7%$\"+t'[Hn*F/$!+vcaODF/$\"+\"yGn-'F_o7%$\"
+g,!z\"**F/$!+W9xy7F/$\"+`q&\\:'F_o7%$\"+++++5F_o$\"+M8/#y\"!#<$\"+D`=
$G'F_o-F$6#7T7%$\"\"$F*F+$!\"#F*7%$\"+ke)e$HF_o$!+;FG#G\"F/$!+$fdw!=F_
o7%$\"+G<xrGF_o$!+KackDF/$!+&=:`h\"F_o7%$\"+$fdw!GF_o$!+[\"[o%QF/$!+yF
(HU\"F_o7%$\"+dMaVFF_o$!+k38H^F/$!+q.jI7F_o7%$\"+@$H%zEF_o$!+!e89T'F/$
!+jzGQ5F_o7%$\"+&=:`h#F_o$!+'H'p$p(F/$!+cbXf%)F/7%$\"+\\5?^DF_o$!+7!zf
(*)F/$!+#[Jg`'F/7%$\"+8p3([#F_o$!+th#e-\"F_o$!+0ug7YF/7%$\"+yF(HU#F_o$
!+XW0a6F_o$!+DL=*o#F/7%$\"+T'e)eBF_o$!+<FG#G\"F_o$!+]CfdwFhp7%$\"+0Xu%
H#F_o$!+*)4^59F_o$\"+N[md6F/7%$\"+q.jIAF_o$!+h#R(Q:F_o$\"+:*)3\"3$F/7%
$\"+Li^m@F_o$!+Lv'pm\"F_o$\"+&*H^/]F/7%$\"+(4-C5#F_o$!+0e>&z\"F_o$\"+v
q$z#pF/7%$\"+izGQ?F_o$!+xSUB>F_o$\"+b6O^))F/7%$\"+EQ<u>F_o$!+\\Bl^?F_o
$\"+B&yu2\"F_o7%$\"+*of+\">F_o$!+@1))z@F_o$\"+J4#)p7F_o7%$\"+ab%f%=F_o
$!+$*)3\"3BF_o$\"+SL;i9F_o7%$\"+=9$=y\"F_o$!+lrLOCF_o$\"+[d]a;F_o7%$\"
+\"G<xr\"F_o$!+PackDF_o$\"+c\"[o%=F_o7%$\"+XJg`;F_o$!+4Pz#p#F_o$\"+k0>
R?F_o7%$\"+5!*[*e\"F_o$!+\")>-@GF_o$\"+sH`JAF_o7%$\"+t[PD:F_o$!+`-D\\H
F_o$\"+!QvQU#F_o7%$\"+P2Eh9F_o$!+D&yu2$F_o$\"+)y<ih#F_o7%$\"+-m9(R\"F_
o$!+(z1d?$F_o$\"+'>g&3GF_o7%$\"+mC.L8F_o$!+p]$RL$F_o$\"+/E!4+$F_o7%$\"
+H$=*o7F_o$!+TL;iMF_o$\"+7]C$>$F_o7%$\"+%>/[?\"F_o$!+8;R!f$F_o$\"+?ue&
Q$F_o7%$\"+e+pS6F_o$!+&))>'=PF_o$\"+G)Hzd$F_o7%$\"+@fdw5F_o$!+d\"[o%QF
_o$\"+OAFqPF_o7%$\"+&yhC,\"F_o$!+Hk2vRF_o$\"+WYhiRF_o7%$\"+&\\wM[*F/$!
+,ZI.TF_o$\"+_q&\\:%F_o7%$\"+N^LU))F/$!+tH`JUF_o$\"+g%*HZVF_o7%$\"+vP>
,#)F/$!+X7wfVF_o$\"+n=kRXF_o7%$\"+:C0gvF/$!+<&*)z[%F_o$\"+wU)>t%F_o7%$
\"+b5\"*=pF/$!+*y<ih%F_o$\"+%oEV#\\F_o7%$\"+&ppxF'F/$!+hgWWZF_o$\"+\"4
pm6&F_o7%$\"+N$Gmj&F/$!+LVns[F_o$\"++:,4`F_o7%$\"+vp[&*\\F/$!+0E!4+&F_
o$\"+3RN,bF_o7%$\"+:cMaVF/$!+x38H^F_o$\"+:jp$p&F_o7%$\"+bU?8PF/$!+\\\"
ftD&F_o$\"+C(Qg)eF_o7%$\"+&*G1sIF/$!+@ue&Q&F_o$\"+K6QygF_o7%$\"+N:#4V#
F/$!+$p:Q^&F_o$\"+SNsqiF_o7%$\"+v,y*y\"F/$!+lR/UcF_o$\"+[f1jkF_o7%$\"+
:)Q'[6F/$!+PAFqdF_o$\"+c$3al'F_o7%$\"+]X(\\2&Fhp$!+40])*eF_o$\"+j2vZoF
_o7%$!+]!RkL\"Fhp$!+\"yGn-'F_o$\"+sJ4SqF_o7%$!+]E&yu(Fhp$!+`q&\\:'F_o$
\"+!eNCB(F_o7%$!+Dm#fT\"F/$!+D`=$G'F_o$\"+))zxCuF_o-%*AXESSTYLEG6#%$BO
XG" 1 2 0 1 10 0 2 1 1 2 2 1.000000 45.000000 45.000000 0 0 "Curve 1" 
"Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 33 "Numerical evaluation of integrals" }
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "f:=x*co
s(y)*exp(-z^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "r:=[cos(
t),sin(t),t]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "rd:=diff(r
,t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "int(plugin(f,r)*mag
(rd),t=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$intG6$**-%$cosG
6#%\"tG\"\"\"-F(6#-%$sinGF)F+-%$expG6#,$*$)F*\"\"#F+!\"\"F+F6#F+F6/F*;
\"\"!,$*&F6F+%#PiGF+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "ev
alf(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+<qiX()!#5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 13 "" 1 "" {TEXT 
-1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "Type II integrals" }
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "g:=[x*y
^2*z^3,x^2*y^3*z,x^3*y*z^2]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 26 "curl(g); # nonconservative" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%
,&*&)%\"xG\"\"$\"\"\")%\"zG\"\"#F)F)*&)F'F,F))%\"yGF(F)!\"\",&**F(F)F'
F))F0F,F)F*F)F)**F(F)F.F)F0F)F*F)F1,&**F,F)F'F)F/F)F+F)F)**F,F)F'F)F0F
))F+F(F)F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "int(dot(plugi
n(g,r),rd),t=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&#\"\"$\"
\"%\"\"\"*$)%#PiGF&F(F(F(*&#\"$n\"\"$%QF(F+F(!\"\"*&#\"\"&\"\")F(*$)F+
\"\"#F(F(F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+@R*>d\"!\")" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "grad(x+y^2+z^3);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#7%\"\"\",$*&\"\"#F$%\"yGF$F$,$*&\"\"$F$)%\"zGF'F$F$" }}}{EXCHG 
{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "g:=[1,2*y,3*z^2]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "
curl(g);  # conservative field -  can use a shortcut! " }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#7%\"\"!F$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 12 "f:=findf(g);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,(%\"xG
\"\"\"*$)%\"yG\"\"#F'F'*$)%\"zG\"\"$F'F'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "plugin(f,[1,0,2*Pi])-plugin(f,[1,0,0]);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#,$*&\"\")\"\"\")%#PiG\"\"$F&F&" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 47 "int(dot(plugin(g,r),rd),t=0..2*Pi); # to \+
verify" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\")\"\"\")%#PiG\"\"$F&
F&" }}}}{MARK "44" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 
0 1 2 33 1 1 }