{VERSION 4 0 "SUN SPARC SOLARIS" "4.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 "" 0 1 0 0 0 0 0 0 0 0 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 3 0 }1 0 0 
-1 -1 -1 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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(plots);with(plo
ttools);" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoord
s has been redefined\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7U%(animateG
%*animate3dG%-animatecurveG%-changecoordsG%,complexplotG%.complexplot3
dG%*conformalG%,contourplotG%.contourplot3dG%*coordplotG%,coordplot3dG
%-cylinderplotG%,densityplotG%(displayG%*display3dG%*fieldplotG%,field
plot3dG%)gradplotG%+gradplot3dG%-implicitplotG%/implicitplot3dG%(inequ
alG%-listcontplotG%/listcontplot3dG%0listdensityplotG%)listplotG%+list
plot3dG%+loglogplotG%(logplotG%+matrixplotG%(odeplotG%'paretoG%*pointp
lotG%,pointplot3dG%*polarplotG%,polygonplotG%.polygonplot3dG%4polyhedr
a_supportedG%.polyhedraplotG%'replotG%*rootlocusG%,semilogplotG%+setop
tionsG%-setoptions3dG%+spacecurveG%1sparsematrixplotG%+sphereplotG%)su
rfdataG%)textplotG%+textplot3dG%)tubeplotG" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#7F%$arcG%&arrowG%'circleG%%coneG%'cuboidG%&curveG%&cuti
nG%'cutoutG%)cylinderG%%diskG%-dodecahedronG%(ellipseG%,ellipticArcG%+
hemisphereG%+hexahedronG%*homothetyG%*hyperbolaG%,icosahedronG%%lineG%
+octahedronG%)piesliceG%&pointG%(polygonG%(projectG%*rectangleG%(refle
ctG%'rotateG%&scaleG%*semitorusG%'sphereG%)stellateG%,tetrahedronG%&to
rusG%*transformG%*translateG%%vrmlG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 66 "display(arrow([0,0],[1,1],.2,.4,.1),arrow([0,0],[-1,1
],.2,.4,.1));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "display(ar
row([1,0],[1,1],.2,.4,.1,color=red),arrow([1,0],[-1,1],.2,.4,.1,color=
green));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "display(arrow(
[1,0],vector([1,1]),.2,.4,.1,color=red),arrow([1,0],vector([-1,1]),.2,
.4,.1,color=green));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "cur
ve:=[cos(t),sin(t),t];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "v
elocity:=diff(curve,t);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "
acceleration:=diff(velocity,t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-
accelerationG7%,$-%$cosG6#%\"tG!\"\",$-%$sinGF)F+\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "A:=spacecurve(curve,t=0..6*Pi,numpo
ints=1000):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "B:=seq(arrow
(eval(curve,t=i*Pi/2),vector(eval(velocity,t=i*Pi/2)),.2,.4,.1,color=g
reen),i=0..12):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "C:=seq(a
rrow(eval(curve,t=i*Pi/2),vector(eval(acceleration,t=i*Pi/2)),.2,.4,.1
,color=red),i=0..12):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "di
splay(A,B,C);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 124 "#You try.
 Put a normal vector on x+2y+3z=6 so that the tail of the arrow is at \+
the point on the plane nearest to the origin." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 64 "#Then add a sphere centered at the origin tangen
t to your plane." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "12 0 0" 64 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }