{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 "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 50 "grad:=proc(f);[diff(
f,x),diff(f,y),diff(f,z)] end:" }}}{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 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 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 41 "mag:
=proc(q);sqrt(add(q[i]^2,i=1..3))end:" }}}{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 40 "r:=[sin(v)*cos(u),sin(
v)*sin(u),cos(v)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG7%*&-%$sin
G6#%\"vG\"\"\"-%$cosG6#%\"uGF+*&F'F+-F(F.F+-F-F)" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 43 "plot3d(r,v=0..Pi,u=0..2*Pi,numpoints=1000);" 
}}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 60 "int(int(mag(cross(diff(r,u),diff(r,v))),u=0..2*Pi),v=0..Pi);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"%\"\"\"%#PiGF&F&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "r:=[v*cos(u),v*sin(u),v];" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"rG7%*&%\"vG\"\"\"-%$cosG6#%\"uGF(*&F'F(-
%$sinGF+F(F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "plot3d(r,v=
0..3,u=0..2*Pi,numpoints=1000);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "int(int(mag(cross(diff(r,u),
diff(r,v))),u=0..2*Pi),v=0..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*
(\"\"*\"\"\"%#PiGF&\"\"##F&F(F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "r:=[cos(u),sin(u),v];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"r
G7%-%$cosG6#%\"uG-%$sinGF(%\"vG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 42 "plot3d(r,v=0..3,u=0..2*Pi,numpoints=1000);" }}{PARA 13 "" 1 "
" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "int(int(m
ag(cross(diff(r,u),diff(r,v))),u=0..2*Pi),v=0..3);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#,$*&\"\"'\"\"\"%#PiGF&F&" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 27 "r:=[v*cos(u),v*sin(u),v^2];" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"rG7%*&%\"vG\"\"\"-%$cosG6#%\"uGF(*&F'F(-%$sinGF+F(*
$)F'\"\"#F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "plot3d(r,v=0
..3,u=0..2*Pi,numpoints=1000);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "int(int(mag(cross(diff(r,u),
diff(r,v))),u=0..2*Pi),v=0..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*
(\"\")!\"\"%#PiG#\"\"\"\"\"#,&**\"$[\"F)\"\"$F&F'F(\"#PF(F&*(\"\"%F)F.
F&F'F(F)F)F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "r:=[v*cos(u
),2*v*sin(u),v^2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG7%*&%\"vG
\"\"\"-%$cosG6#%\"uGF(,$*(\"\"#F(F'F(-%$sinGF+F(F(*$)F'F/F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "plot3d(r,v=0..3,u=0..2*Pi,nu
mpoints=1000,scaling=constrained);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "int(mag(cross(diff(r,u),di
ff(r,v))),v=0..3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "evalf
(Int(%,u=0..2*Pi));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+)GhV&=!\"(
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 114 "Osculating circle for helix \+
at [1,0,0]; the unit tangent is [0,1,1]/sqrt(2), the unit principal no
rmal is [-1,0,0]" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 21 "r:=[cos(t),sin(t),t];" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"rG7%-%$cosG6#%\"tG-%$sinGF(F)" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 13 "u:=diff(r,t);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"uG7%,$-%$sinG6#%\"tG!\"\"-%$cosGF)\"\"\"" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 29 "u:=evalm(simplify(u/mag(u)));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"uGK%'vectorG6#7%,$*&#\"\"\"\"\"#F,*&F-#F,F--
%$sinG6#%\"tGF,F,!\"\",$*&F/F,*&F-F/-%$cosGF2F,F,F,,$*&F-F4F-F/F,Q(ppr
int86\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "p:=[seq(diff(u[i
],t),i=1..3)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG7%,$*&#\"\"\"
\"\"#F)*&F*#F)F*-%$cosG6#%\"tGF)F)!\"\",$*&#F)F*F)*&F*F,-%$sinGF/F)F)F
1\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "p:=evalm(p/mag(p)
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pGK%'vectorG6#7%,$*(,&*&\"\"
#\"\"\")-%$cosG6#%\"tGF-F.F.*&F-F.)-%$sinGF2F-F.F.#!\"\"F-F-#F.F-F0F.F
9,$*(F+F8F-F:F6F.F9\"\"!Q(pprint96\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 45 "r:=eval(r,t=0):u:=eval(u,t=0):p:=eval(p,t=0):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "c:=evalm(r+2*p+2*p*cos(t)+2*
u*sin(t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cGK%'vectorG6#7%,&\"
\"\"!\"\"*&\"\"#F*-%$cosG6#%\"tGF*F+*&F-#F*F--%$sinGF0F*F2Q)pprint116
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "with(plots):spacecurv
e(\{[cos(t),sin(t),t],c\},t=-Pi..Pi,axes=boxed,scaling=constrained);" 
}}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}}{MARK "33" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }