{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 "" 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 "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 "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 
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 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 89 "This is an example showing a space curve, r(t) = (x(t), y(t), z
(t)) and its corresponding" }}{PARA 0 "" 0 "" {TEXT -1 52 "linearizati
on at t=Pi/2, L(t) = r(Pi/2) + t r'(Pi/2)" }}{PARA 0 "" 0 "" {TEXT -1 
0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "r:=t->[cos(t),sin(t),t];" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"rGf*6#%\"tG6\"6$%)operatorG%&arrowGF(7%-%$cosG6#9$-
%$sinGF/F0F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "rt:=r(t)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#rtG7%-%$cosG6#%\"tG-%$sinGF(F)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "r1:=r(Pi/2);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#r1G7%\"\"!\"\"\",$%#PiG#F'\"\"#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "dr:=diff(r(t),t);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#drG7%,$-%$sinG6#%\"tG!\"\"-%$cosGF)\"\"\"
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "dr1:=subs(t=Pi/2,dr);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dr1G7%,$-%$sinG6#,$%#PiG#\"\"\"\"
\"#!\"\"-%$cosGF)F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "L:=[
r1[1]+t*dr1[1],r1[2]+t*dr1[2],r1[3]+t*dr1[3]];" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"LG7%,$%\"tG!\"\"\"\"\",&%#PiG#F)\"\"#F'F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "Fig1:=spacecurve([rt[1],rt[2],rt[3]
,t=0..8],color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "Fi
g2:=spacecurve([L[1],L[2],L[3],t=-2..4],color=black):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "display3d(\{Fig1,Fig2\});  #Rotate \+
the figure so you can see it better!" }}{PARA 13 "" 1 "" {GLPLOT3D 
400 300 300 {PLOTDATA 3 "6$-%'CURVESG6$7T7%$\"\"\"\"\"!$F*F*F+7%$\"+')
z,n)*!#5$\"+3&4ai\"F/$\"+hIlK;F/7%$\"+'y3;Z*F/$\"+q*)e2KF/$\"+AhIlKF/7
%$\"+k))GC))F/$\"+/\"eWq%F/$\"+$=fz*[F/7%$\"++YFUzF/$\"+vb?wgF/$\"+WAh
IlF/7%$\"+,W-\\oF/$\"+MyM'G(F/$\"+0`Ej\")F/7%$\"+!z9Od&F/$\"+^%*p-$)F/
$\"+m$=fz*F/7%$\"+sq'*\\TF/$\"+I\"H#)4*F/$\"+Vr&G9\"!\"*7%$\"+h^%fh#F/
$\"+S'y<l*F/$\"+\\C718Fhn7%$\"+>&[B,\"F/$\"+dbi[**F/$\"+bxQp9Fhn7%$!+9
&H<='!#6$\"+@[(3)**F/$F3Fhn7%$!+XKDKAF/$\"+>(owu*F/$\"+n$=fz\"Fhn7%$!+
LO'py$F/$\"+#p4_D*F/$\"+tO=f>Fhn7%$!+5W&4C&F/$\"+!Q&f;&)F/$\"+z*[C7#Fh
n7%$!+`YbblF/$\"+n-Z^vF/$\"+&G9dG#Fhn7%$!+B2!ep(F/$\"+4K]&Q'F/$\"+\"fz
*[CFhn7%$!+yhOJ')F/$\"+NZq\\]F/$\"+(*[C7EFhn7%$!+S$otL*F/$\"+!G-'zNF/$
\"+.-^vFFhn7%$!+$4I]z*F/$\"+\"G&H9?F/$\"+4bxQHFhn7%$!+!Gz@***F/$\"+EF:
aRFjo$\"+:3/-JFhn7%$!+UCdB**F/$!+f8)RB\"F/$\"+@hIlKFhn7%$!+tU.\"f*F/$!
+E&e0$GF/$\"+F9dGMFhn7%$!+%44M+*F/$!+=I&=N%F/$\"+Ln$=f$Fhn7%$!+?cKw\")
F/$!+tQSddF/$\"+R?5bPFhn7%$!+'H\"yJrF/$!+(\\G)4qF/$\"+XtO=RFhn7%$!+Vsb
(*eF/$!+)*o\"e2)F/$\"+^Ej\"3%Fhn7%$!+$Qzk]%F/$!+>w,F*)F/$\"+dz*[C%Fhn7
%$!+#QXb*HF/$!+%y\"zS&*F/$\"+jK;3WFhn7%$!+\\1%\\S\"F/$!+3_\"3!**F/$\"+
p&G9d%Fhn7%$\"+=XIIAFjo$!+iD^(***F/$\"+vQpMZFhn7%$\"+W(p]%=F/$!+W?JG)*
F/$\"+\"=fz*[Fhn7%$\"+>o.=MF/$!+\"y8xR*F/$\"+([C71&Fhn7%$\"+4k4+\\F/$!
+O,<<()F/$\"+$z*[C_Fhn7%$\"+i5$=D'F/$!+B6y/yF/$\"+*4bxQ&Fhn7%$\"+(\\*G
PuF/$!+2I\"[o'F/$\"+0/-^bFhn7%$\"+&yU\\U)F/$!+7H0(Q&F/$\"+6dG9dFhn7%$
\"+,H_)=*F/$!+(e;g%RF/$\"+<5bxeFhn7%$\"+g8s2(*F/$!+;/.+CF/$\"+Bj\"3/'F
hn7%$\"+_$H(o**F/$!+(o?@!zFjo$\"+H;3/iFhn7%$\"+-]gk**F/$\"+o2B1%)Fjo$
\"+NpMnjFhn7%$\"+.!eap*F/$\"+s15\\CF/$\"+TAhIlFhn7%$\"+)pY%o\"*F/$\"++
5W#*RF/$\"+Zv(Qp'Fhn7%$\"+#p(e(R)F/$\"+enfHaF/$\"+`G9doFhn7%$\"+gIQ.uF
/$\"+uZMAnF/$\"+f\"3/-(Fhn7%$\"+r]F7iF/$\"+,EIOyF/$\"+lMn$=(Fhn7%$\"+6
H%f&[F/$\"+mH%=u)F/$\"+r(QpM(Fhn7%$\"+P,YqLF/$\"+b<)[T*F/$\"+xS?5vFhn7
%$\"+[_L&z\"F/$\"+c&=v$)*F/$\"+$QpMn(Fhn7%$\"+&**3Ys\"Fjo$\"+^F^)***F/
$\"+*oMn$yFhn7%$!+*G+]X\"F/$\"+uCe$*)*F/$\"+&*******zFhn-%'COLOURG6&%$
RGBGF+F+$\"*++++\"!\")-F$6$7T7%$\"\"#F*F($!+Kn.#H%F/7%$\"+?5bx=FhnF($!
+KpanIF/7%$\"+S?5b<FhnF($!+Kr0V=F/7%$\"+gIlK;FhnF($!+@Ln&='Fjo7%$\"+!3
/-^\"FhnF($\"+zYAfgFjo7%$\"++^v(Q\"FhnF($\"+oATI=F/7%$\"+?hIl7FhnF($\"
+o?!\\0$F/7%$\"+Sr&G9\"FhnF($\"+o=RzUF/7%$\"+g\"3/-\"FhnF($\"+o;)Q]&F/
7%$\"+/=fz*)F/F($\"+k9PGnF/7%$\"+3?5bxF/F($\"+g7'G&zF/7%$\"+7AhIlF/F($
\"+c5Nx\"*F/7%$\"+;C71`F/F($\"+&3%=S5Fhn7%$\"+?Ej\"3%F/F($\"+lIji6Fhn7
%$\"+CG9dGF/F($\"+W?3&G\"Fhn7%$\"+GIlK;F/F($\"+C5`29Fhn7%$\"+?Bj\"3%Fj
oF($\"+/+)*H:Fhn7%$!+ScEj\")FjoF($\"+$)*GCl\"Fhn7%$!+gj\"3/#F/F($\"+jz
([x\"Fhn7%$!+chIlKF/F($\"+UpK(*=Fhn7%$!+_fz*[%F/F($\"+Afx>?Fhn7%$!+[dG
9dF/F($\"+-\\AU@Fhn7%$!+WbxQpF/F($\"+\")QnkAFhn7%$!+S`Ej\")F/F($\"+hG7
(Q#Fhn7%$!+O^v(Q*F/F($\"+S=d4DFhn7%$!+$\\C71\"FhnF($\"+?3-KEFhn7%$!+tM
n$=\"FhnF($\"++)pWv#Fhn7%$!+`C718FhnF($\"+!y=p(GFhn7%$!+L9dG9FhnF($\"+
gxO**HFhn7%$!+8/-^:FhnF($\"+Sn\"=7$Fhn7%$!+$RpMn\"FhnF($\"+?dEWKFhn7%$
!+t$=fz\"FhnF($\"++ZrmLFhn7%$!+`tO=>FhnF($\"+!oj\"*[$Fhn7%$!+Lj\"3/#Fh
nF($\"+gEh6OFhn7%$!+8`Ej@FhnF($\"+S;1MPFhn7%$!+$H9dG#FhnF($\"+?1^cQFhn
7%$!+tK;3CFhnF($\"++'f*yRFhn7%$!+`AhIDFhnF($\"+!e395%Fhn7%$!+L71`EFhnF
($\"+gv&QA%Fhn7%$!+8-^vFFhnF($\"+SlIYVFhn7%$!+$>fz*GFhnF($\"+?bvoWFhn7
%$!+t\"3/-$FhnF($\"++X?\"f%Fhn7%$!+`r&G9$FhnF($\"+![`Or%Fhn7%$!+LhIlKF
hnF($\"+gC5O[Fhn7%$!+8^v(Q$FhnF($\"+S9be\\Fhn7%$!+$4/-^$FhnF($\"+?/+\"
3&Fhn7%$!+tIlKOFhnF($\"++%\\M?&Fhn7%$!+`?5bPFhnF($\"+!Q)*eK&Fhn7%$!+L5
bxQFhnF($\"+gtM[aFhn7%$!+8+++SFhnF($\"+SjzqbFhn-F`al6&FbalF*F*F*" 1 2 
0 1 10 0 2 1 1 1 2 1.000000 63.000000 -19.000000 0 0 "Curve 1" "Curve \+
2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 
0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }