{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{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 -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 }3 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "X:=t->[cos(t),sin(t)
,ln(1+t)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "diff(X(t),t);
" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "fndiff:=
proc(X)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "local t;" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 13 "diff(X(t),t);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "unapply(%,t)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "D(X):=fndiff(X);" }{TEXT -1 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "direction:=vector(D(X)(Pi))
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "evalm(X(Pi)+t*directio
n);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "tangent:=plots[space
curve](%,t=-1..1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "curve
:=plots[spacecurve](X(t),t=0..2*Pi):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "plots[display](curve,tangent,color=blue);" }}{PARA 
13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "6 0 0" 38 }{VIEWOPTS 1 1 0 1 1 1803 }