{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 Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 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 20 "restart:with(plots): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "x,y,z:=cos(t),sin(t),f( t);M:=[x,y,z];M1:= [cos(t), sin(t), u*f(t)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>6%%\"xG%\"yG%\"zG6%-%$cosG6#%\"tG-%$sinGF+-%\"fGF+" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG7%-%$cosG6#%\"tG-%$sinGF(-%\"fGF (" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#M1G7%-%$cosG6#%\"tG-%$sinGF(*& %\"uG\"\"\"-%\"fGF(F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "V: =[diff(x,t),diff(y,t),diff(z,t)];A:=[diff(x,t,t),diff(y,t,t),diff(z,t, t)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"VG7%,$-%$sinG6#%\"tG!\"\"- %$cosGF)-%%diffG6$-%\"fGF)F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG 7%,$-%$cosG6#%\"tG!\"\",$-%$sinGF)F+-%%diffG6$-%\"fGF)-%\"$G6$F*\"\"# " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "scal:=(U,V)->U[1]*V[1]+ U[2]*V[2]+U[3]*V[3]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "pv: =(U,V)->[U[2]*V[3]-U[3]*V[2],U[3]*V[1]-U[1]*V[3],U[1]*V[2]-U[2]*V[1]]: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "N:=simplify(pv(pv(V,A), V)):B:=simplify(pv(N,V));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG7%, **&-%%diffG6$-%\"fG6#%\"tGF.\"\"\"-%$sinGF-F/!\"\"*()F(\"\"#F/-%$cosGF -F/-F)6$F+-%\"$G6$F.F5F/F2*&)F(\"\"$F/F0F/F2*&F6F/F8F/F2,**&F0F/F8F/F2 *&F>F/F6F/F/*(F4F/F0F/F8F/F2*&F(F/F6F/F/,&*$F4F/F2F/F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "sym:=(X,V)->expand(X-2*scal(X,V)/sc al(V,V)*V):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "NT:=[-sin(t) ,cos(t),0];SNT:=simplify(sym(NT,B));" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#NTG7%,$-%$sinG6#%\"tG!\"\"-%$cosGF)\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$SNTG7%*&,**&)-%%diffG6$-%\"fG6#%\"tGF0\"\"#\"\"\"-%$ sinGF/F2F2**F1F2F*F2-%$cosGF/F2-F+6$F--%\"$G6$F0F1F2F2F3!\"\"*&F3F2)F8 F1F2F=F2,(*$F)F2F2F2F2*$F?F2F2F=,$*&,**&F)F2F6F2F2**F1F2F*F2F3F2F8F2F= F6F=*&F6F2F?F2F=F2F@F=F=,$*(F1F2F*F2F@F=F2" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 35 "dir:=simplify(pv(SNT,diff(SNT,t))):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "M2:=expand(M-u*dir):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f:=t->1+2*sin(t/2);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%\"fGf*6#%\"tG6\"6$%)operatorG%&arrowGF(,&\"\"\"F-*&\"\"#F--%$sinG6 #,$*&#F-F/F-9$F-F-F-F-F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f := t -> 1+sin(t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6 #%\"tG6\"6$%)operatorG%&arrowGF(,&\"\"\"F--%$sinG6#9$F-F(F(F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f:=t->1+sin(t)^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"tG6\"6$%)operatorG%&arrowGF(,& \"\"\"F-*$)-%$sinG6#9$\"\"#F-F-F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "simplify(combine(simplify(M2)));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7%*(,2*&\"$W\"\"\"\")-%$cosG6#%\"tG\"\")F(F(\"#DF(*(\"# [F(%\"uGF()F*\"\"'F(F(*&\"$k#F()F*\"\"%F(F(*(\"#?F()F*\"\"#F(F2F(!\"\" *&\"$)GF(F3F(F=*(F1F(F7F(F2F(F=*&\"$?\"F(F;F(F=F(F*F(,,F/F(*&F6F(F7F(F (*&F'F(F)F(F(*&F?F(F3F(F=*&FBF(F;F(F=F=*(,4F/F(*&F6F(F7F(F(*&F'F(F)F(F (*&F:F(F2F(F(*(\"#'*F(F7F(F2F(F=*&FBF(F;F(F=*&F?F(F3F(F=*(\"#GF(F;F(F2 F(F(*(F1F(F2F(F3F(F(F(-%$sinGF,F(FCF=,$*&#F(F " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 173 "displa y(spacecurve(M,t=0..2*Pi,color=red),plot3d(M1,t=0..2*Pi,u=0..1,style=p atchnogrid),plot3d(M2,t=0..2*Pi,u=0..1,style=patchnogrid),lightmodel=l ight2,scaling=constrained);" }}{PARA 13 "" 1 "" {GLPLOT3D 676 641 641 {PLOTDATA 3 "6'-%'CURVESG6$7T7%$\"\"\"\"\"!$F*F*F(7%$\"+Q,!z\"**!#5$\" +<;xy7F/$\"+oDN;5!\"*7%$\"+I'[Hn*F/$\"+SeaODF/$\"+[1Mk5F47%$\"+tv;p#*F /$\"+\\+n_PF/$\"+D`#39\"F47%$\"+Tq=8()F/$\"+@b<2\\F/$\"+;P!3C\"F47%$\" +=i89!)F/$\"+1`5\")fF/$\"+2itd8F47%$\"++N\\$=(F/$\"+2b#o&pF/$\"+6U(R[ \"F47%$\"+>F47%$\"+M*)*ff\"F/$\"+Py\"=()*F/$\"+uy_u>F47%$\"+Zv:0K!#6 $\"+j@'[***F/$\"+(ps*)*>F47%$!+UGI-'*Fhp$\"+F6z`**F/$\"+y&z2*>F47%$!+o $4_A#F/$\"+:\"z#\\(*F/$\"+LW[]>F47%$!+w0l`MF/$\"+4Uo%Q*F/$\"+xHs!)=F47 %$!+OHQDYF/$\"+YI*f'))F/$\"+F$egy\"F47%$!+Om;@dF/$\"+ADs,#)F/$\"+BDos; F47%$!+P*3Is'F/$\"+S*zFS(F/$\"+3:,[:F47%$!+<'fWh(F/$\"+9RG#['F/$\"+Z+? ?9F47%$!+z5)3Q)F/$\"+m*[`X&F/$\"+B$3wH\"F47%$!+0()o4!*F/$\"+Qt$)QVF/$ \"+%4b#)=\"F47%$!+!\\d0\\*F/$\"+?@3^JF/$\"+&=$H*4\"F47%$!+$e\"f:)*F/$ \"+@ie6>F/$\"+>;aO5F47%$!+KRXz**F/$\"+!G@qS'Fhp$\"+#*\\5/5F47%$!+BRXz* *F/$!+fF-2kFhp$\"+%*\\5/5F47%$!+b:f:)*F/$!+mje6>F/$\"+C;aO5F47%$!+Vub! \\*F/$!+hA3^JF/$\"+%>$H*4\"F47%$!+S')o4!*F/$!+ru$)QVF/$\"+1^D)=\"F47%$ !+)*4)3Q)F/$!+!4\\`X&F/$\"+P$3wH\"F47%$!+@&fWh(F/$!+FSG#['F/$\"+i+??9F 47%$!+F)3Is'F/$!+R+y-uF/$\"+B:,[:F47%$!+9l;@dF/$!+2Es,#)F/$\"+PDos;F47 %$!+0GQDYF/$!+:J*f'))F/$\"+R$egy\"F47%$!+P/l`MF/$!+gUo%Q*F/$\"+()Hs!)= F47%$!+C#4_A#F/$!+[\"z#\\(*F/$\"+RW[]>F47%$!+n8I-'*Fhp$!+T6z`**F/$\"+ \"ez2*>F47%$\"+H!f^?$Fhp$!+e@'[***F/$\"+'ps*)*>F47%$\"+!3**ff\"F/$!+8y \"=()*F/$\"+py_u>F47%$\"+'*fFXGF/$!+#\\yme*F/$\"+XS/>>F47%$\"+fN$y/%F/ $!+uh7W\"*F/$\"+N/:O=F47%$\"+1e#R=&F/$!+bvU^&)F/$\"+K\"p7t\"F47%$\"+N \")*[B'F/$!+KZJ=yF/$\"+`/E6;F47%$\"+2O\\$=(F/$!+'RDo&pF/$\"+'>uR[\"F47 %$\"+8j89!)F/$!+z^5\")fF/$\"+#>OxN\"F47%$\"+?r=8()F/$!+!Qvr!\\F/$\"+-P !3C\"F47%$\"+Ow;p#*F/$!+&*)pEv$F/$\"+8`#39\"F47%$\"+t'[Hn*F/$!+vcaODF/ $\"+S1Mk5F47%$\"+g,!z\"**F/$!+W9xy7F/$\"+kDN;5F47%$\"+++++5F4$\"+M8/#y \"!# " 0 "" {MPLTEXT 1 0 234 "M2:=simplify(M+sym(M1-M,B)) :simplify(combine(simplify(M2)));\ndisplay(spacecurve(M,t=0..2*Pi,colo r=red),plot3d(M1,t=0..2*Pi,u=0..1,style=patchnogrid),plot3d(M2,t=0..2* Pi,u=1..2,style=patchnogrid),lightmodel=light2,scaling=constrained);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%*(,,\"\"&\"\"\"*&\"\"%F')-%$cosG6# %\"tG\"\"#F'!\"\"*(\"\")F'F*F'%\"uGF'F0*&F2F')F+F)F'F'*(F)F'F5F'F3F'F' F'F+F',(F&F'*&\"#7F'F*F'F0*&F9F'F5F'F'F0*(,,\"\"$F0*&F2F'F3F'F'*(F9F'F *F'F3F'F0*&F2F'F5F'F'*(F)F'F5F'F3F'F'F'-%$sinGF-F'F7F0,$*&,*\"\"'F0*(F =F'F3F')-F,6#,$*&F/F'F.F'F'F=F'F'*(\"\"*F'F3F')FJF/F'F0*&F/F'FJF'F'F', &*&F=F'-F,6#,$*&F)F'F.F'F'F'F'\"\"(F'F0F0" }}{PARA 13 "" 1 "" {GLPLOT3D 416 416 416 {PLOTDATA 3 "6'-%'CURVESG6$7T7%$\"\"\"\"\"!$F*F* F(7%$\"+Q,!z\"**!#5$\"+<;xy7F/$\"+oDN;5!\"*7%$\"+I'[Hn*F/$\"+SeaODF/$ \"+[1Mk5F47%$\"+tv;p#*F/$\"+\\+n_PF/$\"+D`#39\"F47%$\"+Tq=8()F/$\"+@b< 2\\F/$\"+;P!3C\"F47%$\"+=i89!)F/$\"+1`5\")fF/$\"+2itd8F47%$\"++N\\$=(F /$\"+2b#o&pF/$\"+6U(R[\"F47%$\"+>F47%$\"+M*)*ff\"F/$\"+Py\"=()*F/$\" +uy_u>F47%$\"+Zv:0K!#6$\"+j@'[***F/$\"+(ps*)*>F47%$!+UGI-'*Fhp$\"+F6z` **F/$\"+y&z2*>F47%$!+o$4_A#F/$\"+:\"z#\\(*F/$\"+LW[]>F47%$!+w0l`MF/$\" +4Uo%Q*F/$\"+xHs!)=F47%$!+OHQDYF/$\"+YI*f'))F/$\"+F$egy\"F47%$!+Om;@dF /$\"+ADs,#)F/$\"+BDos;F47%$!+P*3Is'F/$\"+S*zFS(F/$\"+3:,[:F47%$!+<'fWh (F/$\"+9RG#['F/$\"+Z+??9F47%$!+z5)3Q)F/$\"+m*[`X&F/$\"+B$3wH\"F47%$!+0 ()o4!*F/$\"+Qt$)QVF/$\"+%4b#)=\"F47%$!+!\\d0\\*F/$\"+?@3^JF/$\"+&=$H*4 \"F47%$!+$e\"f:)*F/$\"+@ie6>F/$\"+>;aO5F47%$!+KRXz**F/$\"+!G@qS'Fhp$\" +#*\\5/5F47%$!+BRXz**F/$!+fF-2kFhp$\"+%*\\5/5F47%$!+b:f:)*F/$!+mje6>F/ $\"+C;aO5F47%$!+Vub!\\*F/$!+hA3^JF/$\"+%>$H*4\"F47%$!+S')o4!*F/$!+ru$) QVF/$\"+1^D)=\"F47%$!+)*4)3Q)F/$!+!4\\`X&F/$\"+P$3wH\"F47%$!+@&fWh(F/$ !+FSG#['F/$\"+i+??9F47%$!+F)3Is'F/$!+R+y-uF/$\"+B:,[:F47%$!+9l;@dF/$!+ 2Es,#)F/$\"+PDos;F47%$!+0GQDYF/$!+:J*f'))F/$\"+R$egy\"F47%$!+P/l`MF/$! +gUo%Q*F/$\"+()Hs!)=F47%$!+C#4_A#F/$!+[\"z#\\(*F/$\"+RW[]>F47%$!+n8I-' *Fhp$!+T6z`**F/$\"+\"ez2*>F47%$\"+H!f^?$Fhp$!+e@'[***F/$\"+'ps*)*>F47% $\"+!3**ff\"F/$!+8y\"=()*F/$\"+py_u>F47%$\"+'*fFXGF/$!+#\\yme*F/$\"+XS />>F47%$\"+fN$y/%F/$!+uh7W\"*F/$\"+N/:O=F47%$\"+1e#R=&F/$!+bvU^&)F/$\" +K\"p7t\"F47%$\"+N\")*[B'F/$!+KZJ=yF/$\"+`/E6;F47%$\"+2O\\$=(F/$!+'RDo &pF/$\"+'>uR[\"F47%$\"+8j89!)F/$!+z^5\")fF/$\"+#>OxN\"F47%$\"+?r=8()F/ $!+!Qvr!\\F/$\"+-P!3C\"F47%$\"+Ow;p#*F/$!+&*)pEv$F/$\"+8`#39\"F47%$\"+ t'[Hn*F/$!+vcaODF/$\"+S1Mk5F47%$\"+g,!z\"**F/$!+W9xy7F/$\"+kDN;5F47%$ \"+++++5F4$\"+M8/#y\"!# " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "17 2 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }