{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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courie r" 1 10 255 0 255 1 2 2 2 2 2 1 1 1 3 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 57 "a:=0:b:=1:n:=12:\nx0 :=t->t:\ny0:=t->t*(t-1)*(2-5*t+2*t^2):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 262 "x:=t->simplify(\nx0(t)-D(x0)(t)/sqrt(D(x0)(t)^2+D(y0 )(t)^2)*int(sqrt(D(x0)(u)^2+D(y0)(u)^2),u=0..t)):\ny:=t->simplify(\ny0 (t)-D(y0)(t)/sqrt(D(x0)(t)^2+D(y0)(t)^2)*int(sqrt(D(x0)(u)^2+D(y0)(u)^ 2),u=0..t)):\nc:=plot([[x0,y0,a..b],[x(t),y(t),t=0..b]],color=[blue,re d]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "d:=plot([seq([[x0(t ),y0(t)],[x(t),y(t)]],t=seq(a+k*(b-a)/n,k=0..n))],color=black,linestyl e=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "display(c,d,scalin g=constrained,axes=none);" }}{PARA 13 "" 1 "" {GLPLOT2D 767 488 488 {PLOTDATA 2 "65-%'CURVESG6$7en7$$\"\"!F)F(7$$\"3ILLL3x&)*3\"!#>$!3'Rf& fsMZ(4#F-7$$\"3emmm;arz@F-$!3;#)e3eQ0MSF-7$$\"3.++D\"y%*z7$F-$!3E*>13G (*p;FN7$$\"3]mm\"zR'ok;FN$!3;***Gmj2rp\"FN 7$$\"39LL3_(>/x\"FN$!3;)=4p,jbr\"FN7$$\"3w***\\i5`h(=FN$!3iIFN$!32.:!fC(GG\\*F-7$$\"3'GLLLQ*o]RFN$!3+Wtmdd]\\ !)F-7$$\"3A++D\"=lj;%FN$!3%*oM]6gF;kF-7$$\"31++vV&Rl)zJ[F -7$$\"3WLL$e9Ege%FN$!3))3Ub[.ioJF-7$$\"3GLLeR\"3Gy%FN$!3#f0g&opS\\;F-7 $$\"3cmm;/T1&*\\FN$!3O#))*e>k8.P!#@7$$\"3&em;zRQb@&FN$\"3gVuB\"y[.f\"F -7$$\"3\\***\\(=>Y2aFN$\"3K2Mi%Q3K&HF-7$$\"39mm;zXu9cFN$\"3M3$e^i*yaVF -7$$\"3l******\\y))GeFN$\"3*3qt\\vC,)F-7$$\"35****\\P![hY'FN$\"3 Qedo=[Co!*F-7$$\"3kKLL$Qx$omFN$\"3Eh26>V(G))*F-7$$\"3!)*****\\P+V)oFN$ \"3Es-[6!)>g5FN7$$\"3?mm\"zpe*zqFN$\"3&)fU_O)Q66\"FN7$$\"3%)*****\\#\\ 'QH(FN$\"3Y.9IDWe]6FN7$$\"3GKLe9S8&\\(FN$\"3QB>]Thcr6FN7$$\"3R***\\i?= bq(FN$\"3k[84.\"*=w6FN7$$\"3\"HLL$3s?6zFN$\"3'prqZ/>J;\"FN7$$\"3a***\\ 7`Wl7)FN$\"3>Xz#f2r.8\"FN7$$\"3#pmmm'*RRL)FN$\"3SN2h2F2!3\"FN7$$\"3Qmm ;a<.Y&)FN$\"3FO**>tWO45FN7$$\"3=LLe9tOc()FN$\"35y\"y2:!e)>*F-7$$\"3u** ****\\Qk\\*)FN$\"31[%yX?Gb?)F-7$$\"3CLL$3dg6<*FN$\"3g?)G/?Wp'oF-7$$\"3 ImmmmxGp$*FN$\"3at(pHv,'*[&F-7$$\"3A++D\"oK0e*FN$\"3BtSBmg+OQF-7$$\"3A ++v=5s#y*FN$\"3=plj*H)Qx?F-7$$\"\"\"F)F(-%'COLOURG6&%$RGBGF(F($\"*++++ \"!\")-F$6$7^oF'7$$!+U[S29!#7$!+'yz#Hy!#87$$!+%Gh^9&Fj]l$!+qwpoJFj]l7$ $!+(**\\LC\"!#6$!+`1n$o)Fj]l7$$!+>C\"*3BFf^l$!+Q2ob=Ff^l7$$!+`$fLk$Ff^ l$!+*z1#>MFf^l7$$!+hEP**\\Ff^l$!+4I3'\\&Ff^l7$$!+Fb`l7$$!+dm%4k(Ff^l$!+2W,L@Fb`l7$$!+G!\\fO(Ff^l $!+/=W%H#Fb`l7$$!+oNX;lFf^l$!+6:,FEFb`l7$$!+<')HuaFf^l$!+:U#Q\"HFb`l7$ $!+\"H\"z8WFf^l$!+tt>YJFb`l7$$!+MWGuMFf^l$!+'4(yALFb`l7$$!+gLXXCFf^l$! +*H;Z\\$Fb`l7$$!+#*ez!o\"Ff^l$!+pC`6OFb`l7$$!+y!>-S*Fj]l$!+vve'QFb`l7$$\"+*)3m[;Fj]l$!+[tClQFb`l7$$\"+BO#)*R\"Fj]l$!+O0/iQ Fb`l7$$\"+B`MNrF]^l$!+HB<`QFb`l7$$!+?`p)>%F]^l$!+$4]%QQFb`l7$$!+IpGDWF j]l$!+!=ncy$Fb`l7$$!+.5O!4\"Ff^l$!+`[z(p$Fb`l7$$!+@bY]=Ff^l$!+d*[1f$Fb `l7$$!+&3Nm(GFf^l$!+sqpQMFb`l7$$!+$yyS:%Ff^l$!+s+!oB$Fb`l7$$!+)=d4g&Ff ^l$!+BZ%)))HFb`l7$$!+a9vdrFf^l$!+.I.&p#Fb`l7$$!+v%>A,*Ff^l$!+gi(*)H#Fb `l7$$!+60+s5Fb`l$!+$=/T(=Fb`l7$$!+HQF[7Fb`l$!+BLIV8Fb`l7$$!+$)eY\"R\"F b`l$!+(QB!=zFf^l7$$!+.p%e^\"Fb`l$!+[KrX6Ff^l7$$!+Eb_)e\"Fb`l$\"+z]jheF f^l7$$!+TEB0;Fb`l$\"+$GN!H(*Ff^l7$$!+%))\\ag\"Fb`l$\"+wX$3P\"Fb`l7$$!+ _*y')e\"Fb`l$\"+#z?#oYFb`l7$$!+\\\")Ff ^l$\"+?1<&*\\Fb`l7$$!+`nXGlFf^l$\"+Vyjc`Fb`l7$$!+c*4r&\\Ff^l$\"+/bnvcF b`l7$$!+2xb@LFf^l$\"+in^\")fFb`l7$$!+'z\\bQ\"Ff^l$\"+N-L:jFb`l7$$\"+ew )o(fFj]l$\"+?&e5j'Fb`l7$$\"+15+(R#Ff^l$\"+)ye\")*oFb`l7$$\"+gxM3UFf^l$ \"+qU-^rFb`l7$$\"+x`S(Fb`l7$$\"+\"y%=l!)Ff^l$\"+&3;Vk( Fb`l7$$\"+'3H$*))*Ff^l$\"+YcHfyFb`l7$$\"+:9$*o6Fb`l$\"+AvRh!)Fb`l7$$\" +KS)*e8Fb`l$\"+2#G\\E)Fb`l7$$\"+kt#\\a\"Fb`l$\"+:E2b%)Fb`l-F^]l6&F`]lF a]lF(F(-F$6%7$F'F'-F^]l6&F`]lF)F)F)-%*LINESTYLEG6#\"\"#-F$6%7$7$$\"+LL LL$)Ff^l$!+4.5?7Fb`l7$$!+(*[&fH#Ff^l$!*.oB%=Fb`lFebmFgbm-F$6%7$7$$\"+n mmm;Fb`l$!+k3`(p\"Fb`l7$$!*?35P(Fb`l$!+=uh&=\"Fb`lFebmFgbm-F$6%7$7$$\" +++++DFb`l$!++]iS;Fb`l7$$!*P>2_'Fb`l$!+\"[Zci#Fb`lFebmFgbm-F$6%7$7$$\" +LLLLLFb`l$!+,zcM7Fb`l7$$!*<.*yCFb`l$!+ACT*[$Fb`lFebmFgbm-F$6%7$7$$\"+ nmmmTFb`l$!+\\g'RT'Ff^l7$$!(j0$[Fb`l$!+LKhPQFb`lFebmFgbm-F$6%7$7$$\"++ +++]Fb`lF(7$$!)bAWXFb`l$!+\"p\"3%y$Fb`lFebmFgbm-F$6%7$7$$\"+LLLLeFb`l$ \"+G<\")QdFf^l7$$!*bQG=%Fb`l$!+<-3KKFb`lFebmFgbm-F$6%7$7$$\"+nmmmmFb`l $\"+5Kaw)*Ff^l7$$!+\"ej02\"Fb`l$!+7l)z(=Fb`lFebmFgbm-F$6%7$7$$\"+++++v Fb`l$\"++](=<\"Fb`l7$$!+*RV'*e\"Fb`l$\"+vGsPgFf^lFebmFgbm-F$6%7$7$$F`c mFb`l$\"+9pC!3\"Fb`l7$$!+_#z.B\"Fb`l$\"+PmQDQFb`lFebmFgbm-F$6%7$7$$\"+ nmmm\"*Fb`l$\"+O\">i*oFf^l7$$\")IOl^Fb`l$\"+..g=mFb`lFebmFgbm-F$6%7$Fj \\l7$$\"+qt#\\a\"Fb`l$\"+IE2b%)Fb`lFebmFgbm-%*AXESSTYLEG6#%%NONEG-%(SC ALINGG6#%,CONSTRAINEDG-%+AXESLABELSG6%Q!6\"Fj\\n%(DEFAULTG-%%VIEWG6$F \\]nF\\]n" 1 2 0 1 10 0 2 9 1 1 1 1.000000 45.000000 45.000000 0 0 "Cu rve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Cu rve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14 " "Curve 15" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "a:=0:b:=4*P i:n:=12:\nx0:=t->sin(t):\ny0:=t->sin(t)*cos(t):\n" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 50 "a:=0:b:=3*Pi:n:=20:\nx0:=t->cos(t):\ny0:=t-> sin(t):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "a:=-Pi/3.1:b:= Pi/3.1:n:=12:\nx0:=t->2*cos(t)-cos(2*t):\ny0:=t->2*sin(t)+sin(2*t):\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "a:=-2:b:=2:n:=12:\nx0:= t->(t+t^3)/(1+t^4):\ny0:=t->(t-t^3)/(1+t^4):\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 67 "a:=0:b:=Pi-0.001:n:=12:\nx0:=t->2*cos(t):\ny0: =t->sin(2*t)/2+sin(t):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "a:=0:b:=Pi-0.001:n:=12:\nx0:=t->2*cos(t)+cos(2*t):\ny0:=t->2*sin(t)+s in(2*t):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "ds:=t->simpli fy(sqrt(D(x0)(t)^2+D(y0)(t)^2)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "s:=t->evalf(Int(ds(u),u=0..t)):l:=s(b);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"lG-%$IntG6$*$,&*$)--%\"DG6#%#x0G6#%\"uG\"\"# \"\"\"F4*$)--F.6#%#y0GF1F3F4F4#F4F3/F2;$\"\"!F?%\"bG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "s1:=t->s(t)-l-1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "s1:=t->s(t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "x1:=t->\nx0(t)-D(x0)(t)/sqrt(D(x0)(t)^2+D(y0)(t)^2)* s1(t):\ny1:=t->\ny0(t)-D(y0)(t)/sqrt(D(x0)(t)^2+D(y0)(t)^2)*s1(t):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "s2:=t->s(t)+l+1:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "s2:=t->s(t)+l:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "x2:=t->\nx0(t)-D(x0)(t)/sqrt(D(x0) (t)^2+D(y0)(t)^2)*s2(t):\ny2:=t->\ny0(t)-D(y0)(t)/sqrt(D(x0)(t)^2+D(y0 )(t)^2)*s2(t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "c:=plot([ [x0,y0,a..b],[x1,y1,0..b],[x2,y2,0..b]],color=[blue,red,red]):" }} {PARA 8 "" 1 "" {TEXT -1 60 "Error, (in plot) parameter range must eva luate to a numeric\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 "c: =plot([[x0,y0,a..b],[x0,-y0,a..b],[x1,y1,0..b],[x1,-y1,0..b],[x2,y2,0. .b],[x2,-y2,0..b]],color=[blue,blue,red,red,red,red]):" }}{PARA 8 "" 1 "" {TEXT -1 60 "Error, (in plot) parameter range must evaluate to a \+ numeric\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 292 "d:=display(se q(plot([[[x1(t),y1(t)],[x0(t),y0(t)]],[[x0(t),y0(t)],[x2(t),y2(t)]]],c olor=[magenta,green]),t=seq(a+0.0001+k*(b-a)/n,k=0..n)),seq(plot([[[x1 (t),-y1(t)],[x0(t),-y0(t)]],[[x0(t),-y0(t)],[x2(t),-y2(t)]]],color=[ma genta,green]),t=seq(a+0.0001+(n-k)*(b-a)/n,k=0..n)),insequence=true): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 162 "d:=display(seq(plot([[ [x0(t),y0(t)],[x1(t),y1(t)]],[[x1(t),y1(t)],[x2(t),y2(t)]]],color=blac k,thickness=[1,2]),t=seq(a+0.0001+k*(b-a)/n,k=0..n)),insequence=true): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "display(c,d,scaling=con strained,axes=none);" }}{PARA 13 "" 1 "" {GLPLOT2D 316 407 407 {PLOTDATA 2 "6'-%(ANIMATEG677)-%'CURVESG6%7$7$$\"2-+++&********!#<$\"2 /++I)********!#@7$$\"3(******\\++++\"F.$\"33+++++++L!#I-%*THICKNESSG6# \"\"\"-%'COLOURG6&%$RGBG\"\"!F@F@-F(6%7$F27$$\"3,+++C$G1+\"F.$!3?+++w_ =$G'F.-F96#\"\"#F<-%+AXESLABELSG6$Q!6\"FO-%%VIEWG6$%(DEFAULTGFT-F(6$7g p7$$F;F@$F@F@7$$\"3W'\\Vaz#HZ**!#=$\"3(eeX+Uh`-\"Fhn7$$\"37?kl\"zE(*y* Fhn$\"3!Q.pK09*R?Fhn7$$\"31RkBVOeo&*Fhn$\"3R3$RbjZb!HFhn7$$\"3]itN#fh5 F*Fhn$\"3]dt@(Q))zu$Fhn7$$\"35xt!RX(>[))Fhn$\"3!R<39\"\\LfYFhn7$$\"3*o N)foD-O$)Fhn$\"3H52xm;lBbFhn7$$\"3jF\"[3:'[NxFhn$\"3UN;UW'ptL'Fhn7$$\" 3O(*[UbE$e0(Fhn$\"3e1J\\8-F'3(Fhn7$$\"3'p\\gEdXxI'Fhn$\"3E$f$>[9mfxFhn 7$$\"3UAP&yMbd\\&Fhn$\"3Yj6vD.Wa$)Fhn7$$\"3c!)Gte)4Ip%Fhn$\"3ZJ=z!p#QI ))Fhn7$$\"3%\\Hg)R>R\\QFhn$\"3JQqSe$>%H#*Fhn7$$\"3=-tI'yJW+#Fhn$\"3Ctc R#H`qz*Fhn7$$\"3iqowQ!ej'=!#?$\"2#*=BNe#)*****F.7$$!3)>y*e\"*=#Hw*!#>$ \"3o$f0EdGA&**Fhn7$$!3quwW<5ch>Fhn$\"3\\e`A:os0)*Fhn7$$!3UhhOf&GY&HFhn $\"37&yv*yAa`&*Fhn7$$!3ihJ='**ym\"RFhn$\"33fS4\\l1,#*Fhn7$$!3c>STB#>.t %Fhn$\"3$)o)G`)GX5))Fhn7$$!3R_^7pnU0bFhn$\"3g4w`,-2[$)Fhn7$$!3h#z.&*=] SK'Fhn$\"3#HzjD5zju(Fhn7$$!3_HZ0^#)RxqFhn$\"3w)36-qJZ1(Fhn7$$!3GAar)*y KgxFhn$\"3-iR;Ic#pI'Fhn7$$!3%[kV'*o)\\i$)Fhn$\"3u(\\7As&[$[&Fhn7$$!3!4 u8^mB0'))Fhn$\"3.$z3[j^ej%Fhn7$$!3u[yny0\"HF*Fhn$\"3f+VZl9TVPFhn7$$!3# R&>9$\\R)p&*Fhn$\"39y8UO'39!HFhn7$$!3U0jY:Q[!z*Fhn$\"3=*))Rykxi.#Fhn7$ $!3eLcbg@<^**Fhn$\"3s)*y,%R=+()*F`s7$$!3+oaK^1t****Fhn$!3Y,xiO5bRtFjr7 $$!3mq>!HX&p_**Fhn$!3`86Rm3@:(*F`s7$$!3VvFR(oe^#)*Fhn$!3')3#yOf)yh=Fhn 7$$!3sqS$34@pd*Fhn$!3u(f)[0w%z(GFhn7$$!3o)\\VRs#*QA*Fhn$!3u0Ai%3;E'QFh n7$$!3lJ5;/[/F))Fhn$!3?R2qa]G*p%Fhn7$$!3m0yX*o/XN)Fhn$!3[RFK.vl&\\&Fhn 7$$!3'>U4HB.Qv(Fhn$!36U1h,a%\\J'Fhn7$$!3')4[Q>n2tqFhn$!3sC%[MLe!pqFhn7 $$!3wJU&>2**oN'Fhn$!3DU&e&*>X%>xFhn7$$!3g)pO![jA\"e&Fhn$!3!>2`gt%e(H)F hn7$$!3Kkc>(HEjr%Fhn$!3F&)*GSO^z\"))Fhn7$$!3r-*oGtuL!QFhn$!3W\"y\\sux% [#*Fhn7$$!3s\")GC6'Q1$HFhn$!3U^ib&oG4c*Fhn7$$!3)*RG,!p>F.#Fhn$!3W)G=V9 B7z*Fhn7$$!3aNi)Q!>%[/\"Fhn$!3OJ/RwaEX**Fhn7$$!3)>h=K$[&>l%Fjr$!3SVd*f z\"*)****Fhn7$$\"3;U,OAc73**F`s$!3G2E9fMz]**Fhn7$$\"3gf%))32fu,#Fhn$!3 -<&HR%*yVz*Fhn7$$\"3+Q56pz#Q*GFhn$!3Au4uTX8s&*Fhn7$$\"3aM*eGGUlu$Fhn$! 3)3OmS2Y;F*Fhn7$$\"3]UNC!p%*Gj%Fhn$!3Y%=?(=,2i))Fhn7$$\"3K'zk!G$y]Z&Fh n$!3'Q')**[d0!o$)Fhn7$$\"3c\"GP:oH-H'Fhn$!3+4!Qc:nQx(Fhn7$$\"3sJMH(pz8 /(Fhn$!3GBe&**zJ15(Fhn7$$\"3C(fVNv`pq(Fhn$!3-V`<_w.sjFhn7$$\"3yL%Gdauu H)Fhn$!3=ps,k,R\"e&Fhn7$$\"3+0[2$\\t>z)Fhn$!3SUs(3&ydkZFhn7$$\"3%y['R, ]J1#*Fhn$!3uyL]IjK/RFhn7$$\"3#3!*[6k'*yc*Fhn$!3`b#)*Fhn$!3]1([%*H9'y=Fhn7$$\"3#Q.!)otYh&**Fhn$!3wQRjzK!\\N*F`s7$$ \"2--KA+()*****F.$\"3oLly&f7Bh\"Fjr7$$\"3'HNg\"\\tiY**Fhn$\"3`b=AumzJ5 Fhn7$$\"3=W5A.eP!z*Fhn$\"3J%*Q([!pzO?Fhn7$$\"3=\"*y5L+Eh&*Fhn$\"3U)*3J .ubHHFhn7$$\"39gR'>*)>4D*Fhn$\"3!ft/@'3V(z$Fhn7$$\"3\\t#eP\\C=#))Fhn$ \"3:`k`!ox!4ZFhn7$$\"3`^eZBz;.$)Fhn$\"3A1$=&po\"Hd&Fhn7$$\"3/v0r3O2QxF hn$\"3Aj@jR+@MjFhn7$$\"3T@dHP=U.rFhn$\"3JJ;$p1l&QqFhn7$$\"3+i@>]KuxbFh n$\"3e#f^)>l#**H)Fhn7$$\"3y5\\.\\-K[ZFhn$\"3P^dyWWw+))Fhn7$$\"3ceE#G\" 4KuQFhn$\"3JB\"pFX#)*=#*Fhn7$$\"3N1LIzg\\?HFhn$\"3OqVF:<.k&*Fhn7$$\"3, :^O!*RiO>Fhn$\"30=tt;Bo5)*Fhn7$$\"3aT?r+e#3q*F`s$\"31gV9md$G&**Fhn7$$! 3Vplq9WRFhn$\"3+jA!Q\"Qu*z*Fhn7$ $!3%oGx1f2A)QFhn$\"3OD*p%oSm:#*Fhn7$$!3]q!*3EPJ/ZFhn$\"3vf\\nLeOC))Fhn 7$$!3up@)*zBU([&Fhn$\"31c%yd+;*f$)Fhn7$$!3P,(Gf6P'GjFhn$\"3yeS0F@jUxFh n7$$!3*[\"o'G9`45(Fhn$\"3=iGaNc0TqFhn7$$!30(R#Qi5YExFhn$\"3!e(4IE)p$[j Fhn7$$!37rl'[!em%G)Fhn$\"3dCebJ]Q+cFhn7$$!3#zkGs-i'G#*Fhn$\"3ef=jPs?^Q Fhn7$$!33p^ju')=`&*Fhn$\"3%e_&*omrd&HFhn7$$!3i/f12i0\"z*Fhn$\"3Ku@4HO_ L?Fhn7$$!3#p))R`!piZ**Fhn$\"3`GixS\\6A5Fhn7$$!\"\"F@$!32()>4r0iI7!#E-F =6&F?FZFZ$\"*++++\"!\")-F(6$7]oFX7$$\"+:$z3-\"!\"*$\"))zx(G!#57$$\"+(H '4r5Ff[m$\"*HFi[m7$$\"+J****p9Ff[m$\"+M['Qq%Fi[ m7$$\"+DhkT:Ff[m$\"+1T,`qFi[m7$$\"+%f$zq:Ff[m$\"+R2qq**Fi[m7$$\"+CXsP: Ff[m$\"+/BUF8Ff[m7$$\"+1L#RU\"Ff[m$\"++9'Hp\"Ff[m7$$\"+RMZZ7Ff[m$\"+6; d??Ff[m7$$\"+d7\"[d*Fi[m$\"+U(zYP#Ff[m7$$\"+@'H=o&Fi[m$\"+*\\b,p#Ff[m7 $$\"+*>o50\"Fi[m$\"+zJsJHFf[m7$$!+0>*3\"QFi[m$\"+YMjyIFf[m7$$!+;[3B5Ff [m$\"+.z]TJFf[m7$$!+9+G-;Ff[m$\"+fI[%3$Ff[m7$$!+xw/*G#Ff[m$\"+ckIxGFf[ m7$$!+LRs\")GFf[m$\"+c9=hDFf[m7$$!+G&>J[$Ff[m$\"+@R[q?Ff[m7$$!+m%\\p(R Ff[m$\"+^g&)p9Ff[m7$$!+_-uxVFf[m$\"+!Hu0>(Fi[m7$$!+,B&oh%Ff[m$!*+?NG'F i[m7$$!+C!QBr%Ff[m$!+2+*3y*Fi[m7$$!+)f4Fh%Ff[m$!+#yD6(>Ff[m7$$!+O$f0N% Ff[m$!+8sbOGFf[m7$$!+1+l!)QFf[m$!+Ms3MPFf[m7$$!+]Km'>$Ff[m$!+'o8$yXFf[ m7$$!+gikYBFf[m$!+A$o-G&Ff[m7$$!+vf#fP\"Ff[m$!+'Hkc!eFf[m7$$!+(e(pE;Fi [m$!+S%eN<'Ff[m7$$\"+(**Hf;%Fi[m$!+X`!fD'Ff[m7$$\"+i<855Ff[m$!+Rr<$G'F f[m7$$\"+NZi`;Ff[m$!+hDG\\iFf[m7$$\"+uDd+BFf[m$!+\"35'[hFf[m7$$\"+n=#R )GFf[m$!+*QL))*fFf[m7$$\"+e^+fMFf[m$!+3=7$z&Ff[m7$$\"+#[y=2%Ff[m$!+!Hf X]&Ff[m7$$\"+R-JhYFf[m$!+-)f0:&Ff[m7$$\"+SV@)=&Ff[m$!+x(f$fZFf[m7$$\"+ 8FQ#o&Ff[m$!+@))*RJ%Ff[m7$$\"+)R$)y:'Ff[m$!+w1b$z$Ff[m7$$\"+;KT&e'Ff[m $!+j0s?KFf[m7$$\"+h!)\\^pFf[m$!+29J9EFf[m7$$\"+N=BhsFf[m$!+^&[o'>Ff[m7 $$\"+2,v2xFf[m$!+524A]Fi[m7$$\"+'QWs\"yFf[m$\"+D$z!GCFi[m7$$\"+^.)R&yF f[m$\"+*f!\\/5Ff[m7$$\"+@$**R\"yFf[m$\"+#4uJz\"Ff[m7$$\"+;j-%p(Ff[m$\" +&e/Qe#Ff[m7$$\"+.HG&\\(Ff[m$\"+6`uhLFf[m7$$\"+CN<%Fi[m$\"+?\\xv$*Ff[m7$$!+7+++5Ff[m$\"+hzxC% *Ff[m-F=6&F?F][mFZFZ-F(6$7_o7$FY$!+2`=$G'Ff[m7$$\"+:^f-BFf[m$!+u*)=[hF f[m7$$\"+ao-EMFf[m$!+0kb1eFf[m7$$\"+D%eui%Ff[m$!+z`8t^Ff[m7$$\"+mw4;dF f[m$!+'yl.G%Ff[m7$$\"+K%H]i'Ff[m$!+c#Q6;$Ff[m7$$\"+U^,psFf[m$!+/yD[>Ff [m7$$\"+biJ(p(Ff[m$!+FA?TbFi[m7$$\"+ez'R&yFf[m$\"+DSV`)*Fi[m7$$\"+*QW) )p(Ff[m$\"+Su!*fDFf[m7$$\"+@R70sFf[m$\"+$R$)Q:%Ff[m7$$\"+U1s#\\'Ff[m$ \"+pKtzaFf[m7$$\"+nHQ'R&Ff[m$\"+9-a@oFf[m7$$\"+b'eN,%Ff[m$\"+*QoW%zFf[ m7$$\"+3;;dCFf[m$\"+JZ1e()Ff[m7$$\"+VyT$)*)Fi[m$\"+_e*Ff[m$\"+*)Rkw\\Ff[m7$$!+?I()=5F_[m$\"+Z#)y3JFf[m7$$!+Cf)o2\"F_[ m$\"+U-O97Ff[m7$$!+Mba*4\"F_[m$!+z!*f)[*Fi[m7$$!+Q*pm2\"F_[m$!+0FtQKFf [m7$$!+P1h<5F_[m$!+f\"z0>&Ff[m7$$!+oHUQ\"*Ff[m$!+1/=urFf[m7$$!+%y@\"ew Ff[m$!+LIa-!*Ff[m7$$!+?r``eFf[m$!+MDP\\5F_[m7$$!+D'G:([Ff[m$!+L\\\")36 F_[m7$$!+dl3HQFf[m$!+hi,f6F_[m7$$!+'=y9h#Ff[m$!+Ug=.7F_[m7$$!+Jz.V8Ff[ m$!+/v[M7F_[m7$$!+.\"H>r\"Fi[m$!+$o`6D\"F_[m7$$\"+CAE?5Ff[m$!+Gajc7F_[ m7$$\"+6<#>I#Ff[m$!+%G$*)\\7F_[m7$$\"+>)H.e$Ff[m$!+i%3+B\"F_[m7$$\"+\" 3(Q\"F_[m$!+.e->+++5Ff[m$\"+Fjzq:F _[mFe_n7)-F(6%7$7$$\"38pV$o?6'4*)Fhn$\"3.Y'=7)fzSXFhn7$$\"3Uzk1)\\')\\ 5\"F.$\"3KY)3Q`'\\8MF`sF8F<-F(6%7$F`eo7$$\"35WU>dF0eRF.$!3eO$[s&)QRc&F .FIFRWI'Rnm(FhnF8F<-F(6%7$F\\ho7$$\"3/d p(*)>&pexF.$!3'oSVS\"=7c@FhnFIFP`\"F.F8F<-F(6% 7$Fbio7$$\"3-MT\"Q=%4fuF.$\"3SG9.&pFfZ$F.FIF4LK`c\"Fhn7$$!38K>P$=SS]\"F. $\"36A,hrSd,JF.F8F<-F(6%7$Fd]p7$$!33+Df$\\nv[#F.$\"3Z'\\I%>YI2$*F.FIF< FLFQFUF`[mFg_n7)-F(6%7$7$$!3a6t/=@e*3)Fhn$!3]%\\G0^h'yeFhn7$$!3%p+pfY#F.F8F<-F(6%7$Fj^p7$$!3=Z!f\"Q@*)=nF.$\"3;\\\">Wq\\Z a(F.FIF0\"*)Fhn7$$ !3eqHU?a2LUF.$\"3Hc\")o<$)*F.$\"3UW 9X0S+')QF.FIF'yWKF.F8F<-F(6%7$Fibp7$$!3/41^>U\\i(*F.$!35]h:\\C&y4'F. FIF\"F_bpFIFJ&4x\"\\,\"F_bp$!3PY>i+`2L()F.FIFLF.FIF(ev(F.$\"3&zvahm&oT AF.F8F<-F(6%7$Fajp7$$\"33%e3FDghR\"F_bp$\"3_#>\\d(H@DKF.FIF " 0 "" {MPLTEXT 1 0 57 "a:=0:b:=4*Pi:n:=12:\nx0:=t->sin(t):\ny0:=t->sin(t)*cos(t):\n" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 50 "a:=0:b:=2*Pi:n:=12:\nx0:=t->cos(t):\ny0:=t->sin(t): \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "ds:=t->simplify(sqrt(D(x0)(t)^2+D(y0)(t)^2)):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 39 "s:=t->evalf(Int(ds(u),u=0..t)):l:=s(b);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"lG$\"+2`=$G'!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "s1:=t->s(t)-1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "x1:=t->\nx0(t)-D(x0)(t)/sqrt(D(x0)(t)^2+D(y0)(t)^ 2)*s1(t):\ny1:=t->\ny0(t)-D(y0)(t)/sqrt(D(x0)(t)^2+D(y0)(t)^2)*s1(t): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "s2:=t->s(t)+l+1:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "x2:=t->\nx0(t)-D(x0)(t)/sqr t(D(x0)(t)^2+D(y0)(t)^2)*s2(t):\ny2:=t->\ny0(t)-D(y0)(t)/sqrt(D(x0)(t) ^2+D(y0)(t)^2)*s2(t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "c: =plot([[x0,y0,a..b],[x0,-y0,a..b],[x1,y1,0..b],[x1,-y1,0..b]],color=[b lue,blue,red,red,red,red]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 230 "d:=display(seq(plot ([[[x1(t),y1(t)],[x0(t),y0(t)]]],color=[magenta,green]),t=seq(a+0.0001 +k*(b-a)/n,k=0..n)),seq(plot([[[x1(t),-y1(t)],[x0(t),-y0(t)]]],color=[ magenta,green]),t=seq(a+0.0001+(n-k)*(b-a)/n,k=0..n)),insequence=true) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 43 "display(c,d,scaling=constrained,axes=none);" } }{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6'-%(ANIMATEG6<7) -%'CURVESG6$7$7$$\"3!)******\\++****!#=$\"2-+++&********!#<7$F/$\"2/++ I)********!#@-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!F>F:-%+AXESLABELSG6 $Q!6\"FB-%%VIEWG6$%(DEFAULTGFG-F(6$7S7$$\"\"\"F>F=7$$\"3w\"4hRPij!**F. $\"3Ikwb#=y_O\"F.7$$\"3E8J#))4-Qn*F.$\"3%[#\\ff*)GLDF.7$$\"3-N5')yke[# *F.$\"3gLj&[K5J!QF.7$$\"3?goz=42`')F.$\"3j9NXR4U7]F.7$$\"3Sb](G._U!zF. $\"3t_H-qceDhF.7$$\"3_\\$R'oTd#3(F.$\"3!GO#*3qU&fqF.7$$\"3?H$>jubk6'F. $\"3!\\@@&\\!>8\"zF.7$$\"3VGuIc:x5]F.$\"3-$>p(Qh-a')F.7$$\"37C3nW'R,#Q F.$\"3aK+16bcT#*F.7$$\"3$oY@iF'QDDF.$\"3s&Q\"[M\"oen*F.7$$\"3OB^hAo8X8 F.$\"33)fVPO<\"4**F.7$$!3+qB/u(p5(fF5$\"2%HhJ<#)******F17$$!33)\\T#fB[ i8F.$\"3ap%>wGZn!**F.7$$!3)e:d.:#=YEF.$\"3PA>=\\D`V'*F.7$$!3%*yV1J*3Jx $F.$\"3IzF#e`m3E*F.7$$!3V(\\AOF:B/&F.$\"3vU'yI2&oN')F.7$$!3[igNw%*[RgF .$\"3!G;)RQ+BqzF.7$$!3/XUwYjJ*3(F.$\"3AfvOg?x_qF.7$$!3&=e_b?/U!zF.$\"3 u3HvXQF.7$$!3!p!RS4Nij'*F.$\"3o$p9m#Q%=d#F.7$$!3#p(pT>+.2**F.$\"31V? 00]Ug8F.7$$!3/gKG4>&*****F.$\"3vCA\\O%485$!#?7$$!3__Is=!Q%3**F.$!3q#4* >c=8]8F.7$$!3)>b`sYlSn*F.$!3UNbFGIGKDF.7$$!37_J.8AEj#*F.$!3q4&=j`Bsw$F .7$$!3%\\F)4Kh=u')F.$!3kENX')3zv\\F.7$$!3EB*z7xng%zF.$!37W(H!pUCrgF.7$ $!3XD84Pfc5rF.$!3Y?#o?\"yMJqF.7$$!3!Q%y6Ike[gF.$!3)4j2yeGL'zF.7$$!3g@U D=%)o!*\\F.$!3I_Mh6Mil')F.7$$!3o+1s\"[\"ysPF.$!3#\\IN,%***4E*F.7$$!30y CH\"el'3EF.$!3=V>(fp[Pl*F.7$$!3g67Cvnc\"H\"F.$!3;$RoI*>C;**F.7$$!3EzyO HMQdIF`u$!3W1O#>E`*****F.7$$\"3GIAj`Ks(G\"F.$!3lYZ3X=u;**F.7$$\"3EKRqX 8/bDF.$!3U$[o%H'z!o'*F.7$$\"3@%)yb&Q)zNQF.$!36.2<#>x]B*F.7$$\"3O7w4w0I .]F.$!3wHgb5wMe')F.7$$\"3@\\#)[*R]$4hF.$!3/a*[=H2o\"zF.7$$\"33/wY'Q+$* 4(F.$!3)4d)eg?sUqF.7$$\"3[f=s$Ry,!zF.$!3D1$H)zD(p_v\\F.7$$\"3!G$e@`4+D#*F.$!3i&>2ndo*fQF.7$$\"31mGAp))oa'*F. $!3%)f]nRQ=0EF.7$$\"3@zb'f`bp!**F.$!3/up91t'4O\"F.7$FL$\"36YKhSr8/#)!# F-F76&F9F=F=F:-F(6$7S7$FL$!\"!F>7$$\"+uBO1**!#5$!+#=y_O\"Fc]l7$$\"+*4- Qn*Fc]l$!+f*)GLDFc]l7$$\"+zke[#*Fc]l$!+C.6.QFc]l7$$\"+>42`')Fc]l$!+R4U 7]Fc]l7$$\"+L?D/zFc]l$!+qceDhFc]l7$$\"+pTd#3(Fc]l$!++FafqFc]l7$$\"+ZdX ;hFc]l$!+\\!>8\"zFc]l7$$\"+a:x5]Fc]l$!+Sh-a')Fc]l7$$\"+Z'R,#QFc]l$!+5b cT#*Fc]l7$$\"+ziQDDFc]l$!+M\"oen*Fc]l7$$\"+?o8X8Fc]l$!+kt64**Fc]l7$$!+ 'pr5(f!#8$!+<#)******Fc]l7$$!+eB[i8Fc]l$!+)GZn!**Fc]l7$$!+\\@=YEFc]l$! +]D`V'*Fc]l7$$!+I*3Jx$Fc]l$!+Ol'3E*Fc]l7$$!+r_JU]Fc]l$!+v]oN')Fc]l7$$! +s%*[RgFc]l$!+U+BqzFc]l7$$!+WjJ*3(Fc]l$!+j?x_qFc]l7$$!+1U?/zFc]l$!+%QZ c7'Fc]l7$$!+QnIf')Fc]l$!+8/k,]Fc]l7$$!+si$4B*Fc]l$!+AHvXQFc]l7$$!+4Nij '*Fc]l$!+GQ%=d#Fc]l7$$!+>+.2**Fc]l$!+4]Ug8Fc]l7$$!+4>&*****Fc]l$!+='48 5$!#77$$!+>!Q%3**Fc]l$\"+^=8]8Fc]l7$$!+oa1u'*Fc]l$\"+FIGKDFc]l7$$!+;AE j#*Fc]l$\"+HNAnPFc]l7$$!+Lh=u')Fc]l$\"+&)3zv\\Fc]l7$$!+vx1YzFc]l$\"+lU CrgFc]l7$$!+Sfc5rFc]l$\"+5yMJqFc]l7$$!+Pke[gFc]l$\"+$eGL'zFc]l7$$!+@%) o!*\\Fc]l$\"+5Mil')Fc]l7$$!+%[\"ysPFc]l$\"+R***4E*Fc]l7$$!+$el'3EFc]l$ \"+&p[Pl*Fc]l7$$!+!ym:H\"Fc]l$\"+#*>C;**Fc]l7$$!+@OQdIFjdl$\"+iK&***** Fc]l7$$\"+]Ks(G\"Fc]l$\"+Y=u;**Fc]l7$$\"+O8/bDFc]l$\"+K'z!o'*Fc]l7$$\" +#Q)zNQFc]l$\"+%>x]B*Fc]l7$$\"+r0I.]Fc]l$\"+9wMe')Fc]l7$$\"+#R]$4hFc]l $\"+)H2o\"zFc]l7$$\"+&Q+$*4(Fc]l$\"+i?sUqFc]l7$$\"+(Qy,!zFc]l$\"+g&Q38 'Fc]l7$$\"+8vLu')Fc]l$\"+yp_v\\Fc]l7$$\"+\\4+D#*Fc]l$\"+)eo*fQFc]l7$$ \"+o))oa'*Fc]l$\"+XQ=0EFc]l7$$\"+Nb&p!**Fc]l$\"+8t'4O\"Fc]l7$FL$!+I_8/ #)!#>Fh\\l-F(6$7en7$FL$\"+++++5!\"*7$$\"+Gm1G()Fc]l$\"+i\"4\\\"**Fc]l7 $$\"+\\(Q$*y(Fc]l$\"+O#Q%H(*Fc]l7$$\"+#Q$>HpFc]l$\"+P>_V%*Fc]l7$$\"+v% RBF'Fc]l$\"+O(QB7*Fc]l7$$\"+f^A%y\"Fh\\m7$$!*E1 jn&Fc]l$\"+Q02,>Fh\\m7$$!+O@+8DFc]l$\"+\\n2(*>Fh\\m7$$!+%QPZ#[Fc]l$\"+ a3Qv?Fh\\m7$$!+D^?zrFc]l$\"+Ay_A@Fh\\m7$$!+r1jL**Fc]l$\"+lBeT@Fh\\m7$$ !+Z9F)H\"Fh\\m$\"+(Rd67#Fh\\m7$$!+&))[Xd\"Fh\\m$\"+%)QBm?Fh\\m7$$!+#4B 'y=Fh\\m$\"+$f*)['>Fh\\m7$$!+2B<#>#Fh\\m$\"+5Z$=\"=Fh\\m7$$!+[-$4\\#Fh \\m$\"+O-.8;Fh\\m7$$!+jp=lFFh\\m$\"+)GQTP\"Fh\\m7$$!+Fu'Q/$Fh\\m$\"+z& Gi0\"Fh\\m7$$!+$z&GjKFh\\m$\"+5$**RD(Fc]l7$$!+*paqX$Fh\\m$\"+h7^&G$Fc] l7$$!+3@$**e$Fh\\m$!*cc%ylFc]l7$$!+ix,#o$Fh\\m$!+'[D()G&Fc]l7$$!+R;P7P Fh\\m$!+mZa'))*Fc]l7$$!+oPw!o$Fh\\m$!+JcN'[\"Fh\\m7$$!+1kX$e$Fh\\m$!+o IN\")>Fh\\m7$$!+-pR3MFh\\m$!+#)*3&)\\#Fh\\m7$$!+7amnJFh\\m$!+iuT&)HFh \\m7$$!++o?pT[GFh\\m$!+w3ChMFh\\m7$$!+pb=jE Fh\\m$!+8j]&o$Fh\\m7$$!+?SbgCFh\\m$!+DmA+RFh\\m7$$!+'H8%fAFh\\m$!+BL(z 3%Fh\\m7$$!+V!3W/#Fh\\m$!+*fT*[Fh\\m7$$!+6)\\ke'Fc]l$!+>')35]Fh\\m7$$!+i-OAMFc]l$!+A8\"o 5&Fh\\m7$$!*TZ/+$Fc]l$!+9#*[!=&Fh\\m7$$\"+RG^-HFc]l$!+gZ([B&Fh\\m7$$\" +Spv>kFc]l$!+rw)4F&Fh\\m7$$\"+/+++5Fh\\m$!+2`=$G&Fh\\m-F76&F9F:F=F=-F( 6$7en7$FL$!+++++5Fh\\m7$Fj\\m$!+i\"4\\\"**Fc]l7$F_]m$!+O#Q%H(*Fc]l7$Fd ]m$!+P>_V%*Fc]l7$Fi]m$!+O(QB7*Fc]l7$F^^m$!+Tdh=))Fc]l7$Fc^m$!+.1,\"f)F c]l7$Fh^m$!+HjaX%)Fc]l7$F]_m$!+\"fkPU)Fc]l7$Fb_m$!+.9We&)Fc]l7$Fg_m$!+ \"pD\"z))Fc]l7$F\\`m$!+cw!GK*Fc]l7$Fa`m$!+05M+5Fh\\m7$Ff`m$!+Bi1(3\"Fh \\m7$F[am$!+OKE'=\"Fh\\m7$F`am$!+aCV(G\"Fh\\m7$Feam$!+lU'yT\"Fh\\m7$Fj am$!+;MQL:Fh\\m7$F_bm$!+9$e&o;Fh\\m7$Fdbm$!+!4)>%y\"Fh\\m7$Fibm$!+Q02, >Fh\\m7$F^cm$!+\\n2(*>Fh\\m7$Fccm$!+a3Qv?Fh\\m7$Fhcm$!+Ay_A@Fh\\m7$F]d m$!+lBeT@Fh\\m7$Fbdm$!+(Rd67#Fh\\m7$Fgdm$!+%)QBm?Fh\\m7$F\\em$!+$f*)[' >Fh\\m7$Faem$!+5Z$=\"=Fh\\m7$Ffem$!+O-.8;Fh\\m7$F[fm$!+)GQTP\"Fh\\m7$F `fm$!+z&Gi0\"Fh\\m7$Fefm$!+5$**RD(Fc]l7$Fjfm$!+h7^&G$Fc]l7$F_gm$\"*cc% ylFc]l7$Fdgm$\"+'[D()G&Fc]l7$Figm$\"+mZa'))*Fc]l7$F^hm$\"+JcN'[\"Fh\\m 7$Fchm$\"+oIN\")>Fh\\m7$Fhhm$\"+#)*3&)\\#Fh\\m7$F]im$\"+iuT&)HFh\\m7$F bim$\"+0Y!oA$Fh\\m7$Fgim$\"+w3ChMFh\\m7$F\\jm$\"+8j]&o$Fh\\m7$Fajm$\"+ DmA+RFh\\m7$Ffjm$\"+BL(z3%Fh\\m7$F[[n$\"+*fT*[Fh\\m7$ Fd\\n$\"+>')35]Fh\\m7$Fi\\n$\"+A8\"o5&Fh\\m7$F^]n$\"+9#*[!=&Fh\\m7$Fc] n$\"+gZ([B&Fh\\m7$Fh]n$\"+rw)4F&Fh\\m7$F]^n$\"+2`=$G&Fh\\mFa^n7)-F(6$7 $7$$\"35%)>\\&RNyF'F.$\"3x:k+Ju^D\"*F.7$$\"3c]Ra%*Rvf')F.$\"3'3M-/+m3+ &F.F6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$$\"34yHN.kw3aF.$\"3^b`g,sIC%)F.7$$ \"3agwf\\R8**\\F.$\"3y\"GUX*Rvg')F.F6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$$ \"3I+++TK'zq&F.$\"3!******\\3d++\"F17$$!2/++I)********F5F/F6F?FDFHFj\\ lFb\\mFc^n7)-F(6$7$7$$\"3iZ4:JB>xWF.$\"3F17 $$!3y\"GUX*Rvg')F.FijnF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$$!3'******R;9-+ \"F1$\"32+++VEfT@F17$$!2-+++&********F1Fg[oF6F?FDFHFj\\lFb\\mFc^n7)-F( 6$7$7$$!3o\"Q*HG>&))>#F1$\"3O;/&)4-*z!=F17$$!3c]Ra%*Rvf')F.Fc\\oF6F?FD FHFj\\lFb\\mFc^n7)-F(6$7$7$$!3o;32`FthKF1$\"3AhE\"3HN4G(F.7$$!3agwf\\R 8**\\F.F_]oF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$$!3#)*****4'*)Q7PF1$!35+++ W7P+5F17$F3F[^oF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$$!3uPde'=h#oJF1$!3m*\\ CG7'Q%)HF17$F]jnFg^oF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$$!3&o;-PlbL^\"F1$ !3xv&Q%43;AYF17$F[[oFc_oF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$$\"3-+++C$G0+ \"F1$!3u*****4G&=$G&F1F2F6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$Fhao$\"3u**** *4G&=$G&F17$F/Fg[oF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$F^ao$\"3xv&Q%43;AYF 17$F[[oFijnF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$Fd`o$\"3m*\\CG7'Q%)HF17$F] jnF[jnF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$Fj_o$\"35+++W7P+5F17$F3F/F6F?FD FHFj\\lFb\\mFc^n7)-F(6$7$7$F^_o$!3AhE\"3HN4G(F.7$Fc_oF[[oF6F?FDFHFj\\l Fb\\mFc^n7)-F(6$7$7$Fb^o$!3O;/&)4-*z!=F17$Fg^oF]jnF6F?FDFHFj\\lFb\\mFc ^n7)-F(6$7$7$Ff]o$!32+++VEfT@F17$F[^oF3F6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$ 7$Fj\\o$!3NdIq'p/8!>F17$F_]oFc_oF6F?FDFHFj\\lFb\\mFc^n7)-F(6$7$7$F^\\o $!3 " 0 "" {MPLTEXT 1 0 8 " restart:" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoord s has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "a :=-4:b:=4:n:=12:\nx0:=t->t-tanh(t):\ny0:=t->1/cosh(t):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "simplify(sqrt(D(x0)(u)^2+D(y0)(u)^2 ),symbolic);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%%coshG6#%\"uG!\"\" ,&\"\"\"F(*$)F$\"\"#F*F*#F*F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 182 "x:=t->simplify(\nx0(t)-D(x0)(t)/tanh(t)*int(tanh(u),u=0..t)):\n y:=t->simplify(\ny0(t)-D(y0)(t)/tanh(t)*int(tanh(u),u=0..t)):\nc:=plot ([[x0,y0,a..b],[x(t),y(t),t=a..b]],color=[blue,red]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "x(t);y(t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*&%\"tG\"\"\"-%%coshG6#F&F'F'-%%sinhGF*!\"\"*&F+F'- %#lnG6#F(F'F-F'F(F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&\"\"\"F%-%# lnG6#-%%coshG6#%\"tGF%F%F)!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 157 "n:=5:d:=plot([seq([[x0(t),y0(t)],[(t*cosh(t)-sinh(t)-sinh(t)* ln(cosh(t)))/cosh(t),(1+ln(cosh(t)))/cosh(t)]],t=seq(k*(b)/n,k=0..n))] ,color=black,linestyle=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "display(c,d,axes=none);" }}{PARA 13 "" 1 "" {GLPLOT2D 735 129 129 {PLOTDATA 2 "6--%'CURVESG6$7U7$$!3>L4E+2n+I!#<$\"3+`'otM**=m$!#>7$$!3c ><\"z@tl#GF*$\"3yV>\\[z*)eVF-7$$!3ICZef_=vEF*$\"3w6kV&H/A2&F-7$$!3F'3 \"=?!y]]#F*$\"3%oO=lgCV,'F-7$$!3fKKPix0MBF*$\"3Gf_[#)osQrF-7$$!3aG%e=% 3:k@F*$\"3=#*HMge;l%)F-7$$!3jelH#R)*p+#F*$\"33e4)eD>B\"**F-7$$!32MwvJ+ ![%=F*$\"3AQK(>1!*o;\"!#=7$$!3)4cxT8Iyn\"F*$\"3ORv!QxB3Q\"FQ7$$!3'Qn=, x([7:F*$\"3x)Rly9(>K;FQ7$$!3U&\\FQ7$$!3Qo&fdm Nu>\"F*$\"3)Q#ePS/C]AFQ7$$!3AucI7fEN5F*$\"3%[*zXV5(*fEFQ7$$!3k?/x3g]l( )FQ$\"3n=00\"[U(RJFQ7$$!3qNXAUqJ*G(FQ$\"3el1@P]XtOFQ7$$!37^ad:c>4gFQ$ \"3D\"zi8TzDA%FQ7$$!3inUs:qj&e%FQ$\"3k>Ikj#)>c\\FQ7$$!3qwRrb^.([$FQ$\" 3)H$yX?=bTcFQ7$$!3yF`s$\"3)Gudc)=ik**FQ7$$\"3/&fG:>T))o\"Fjr$ \"31^PBFz:`)*FQ7$$\"3&=bYJf%\\26F-$\"3U+^=+lE\"\\*FQ7$$\"3h$4QI#)>bh$F -$\"3s+t1()*Q;!*)FQ7$$\"3[]_i?72o#)F-$\"3Gw)4#[X5V\")FQ7$$\"3!)R)=17@& )\\\"FQ$\"33jA,I@,x%)) FQ$\"3@+WPf2p7JFQ7$$\"3>l6!\\pbB.\"F*$\"3o#GPR]9!oEFQ7$$\"3%=CVRXP/>\" F*$\"3i!3))G#RYmAFQ7$$\"3#y_'[9'fxM\"F*$\"3bb2%p(RiH>FQ7$$\"3Z6J&)3&)e 9:F*$\"3)R!R7?bsG;FQ7$$\"3OfxE,Avw;F*$\"3'fL4E+2n+IF*F+-%'COLOURG6&%$RGBG$\"\"! Fi[lFh[l$\"*++++\"!\")-F$6$7S7$$\"3x)4ga$R*H/$FQ$\"3ER)4`(*[sd\"FQ7$$ \"3sZ&fm*)**R.$FQ$\"3#fh#oI6^,=FQ7$$\"3I,D[e!=P-$FQ$\"3f*pY^sW%>?FQ7$$ \"3W#*GOdYf3IFQ$\"3o\"[6;#[2#H#FQ7$$\"37Z*[V+M%))HFQ$\"3!pv$=XlB)f#FQ7 $$\"3EoE=mw'>'HFQ$\"3%G%*>QHWn$HFQ7$$\"3Fa)pbHT#FQ$\"3sd]h90\\#='FQ7$$\"30l o;f\"HJB#FQ$\"37,5X*Gfpx'FQ7$$\"3.M!R&)\\P]-#FQ$\"3Ia^GsbC_tFQ7$$\"33X 9TQV)e!=FQ$\"3k%*G)4XHI'yFQ7$$\"3$\\%GdaG/6:FQ$\"3'4R63V#=N%)FQ7$$\"3P JMPSpIR7FQ$\"3ykAr5B#4())FQ7$$\"3%37R%oX*f8*F-$\"3YG`YPSq)H*FQ7$$\"3W4 $y))f5NO'F-$\"3C/4=3qC\"f*FQ7$$\"3Ahz&4*3j1PF-$\"3%[!ysO\")47)*FQ7$$\" 3S7w]tm9(y\"F-$\"3H\"=1aZ%4K**FQ7$$\"3F:#p\")eY^h&Fjr$\"3)yn(=II+')**F Q7$$\"3YD&HQhn4c)F`s$\"3Qp&G4E$)))***FQ7$$\"3])Q0![D:E5Ffs$\"235'p**** ******F*7$$!3[H_tqKep$)F`s$\"3E3I.al\"*)***FQ7$$!3YSy8Nclm`Fjr$\"3c(*= 06V$o)**FQ7$$!3SRWm(GUeo\"F-$\"3!*\\/>6=MP**FQ7$$!3E%oaj*4uaOF-$\"38J' H***)3e\")*FQ7$$!3mi!p!zc)p@'F-$\"3hq$y/pb\\g*FQ7$$!31z`R(Q*3m!*F-$\"3 0@3%)4K'oI*FQ7$$!3\\;*RdzdmB\"FQ$\"3#3!y\\^gzu))FQ7$$!3a/V.q(>T_\"FQ$ \"3H@ssOc;7%)FQ7$$!3s-'4)RN&f!=FQ$\"3yy,E!*3)G'yFQ7$$!3(oHP*zBrJ?FQ$\" 3Z2/=#Q+`L(FQ7$$!3CZ(H#R9[VAFQ$\"3KiHw-X]XnFQ7$$!3gw(y:1:+T#FQ$\"3%*Hf $y2IJ>'FQ7$$!3=Jx#4?$*Hb#FQ$\"3ek(yU(=sIcFQ7$$!3EWBV-czlEFQ$\"3k*[3[+d V5&FQ7$$!3)o/1(47mfFFQ$\"3knu2me^%e%FQ7$$!3on>ARD1)e#FQ7 $$!3\\Fkh\"e#z2IFQ$\"3RG,LLXL0BFQ7$$!3b65b$y&)H-$FQ$\"3P,v1@[zL?FQ7$$! 3FFdihG.MIFQ$\"3BsZgr`v+=FQ7$$!3x)4ga$R*H/$FQFc\\l-Fe[l6&Fg[lFj[lFh[lF h[l-F$6%7$7$Fh[l$\"\"\"Fi[lFh[m-Fe[l6&Fg[lFi[lFi[lFi[l-%*LINESTYLEG6# \"\"#-F$6%7$7$$\"3E5:K(HK'f8FQ$\"3[&>uB=**pZ(FQ7$$!30i$>7a#y5dF-$\"3#) z>A:L'4l*FQF[\\mF]\\m-F$6%7$7$$\"3e(GNfX9Ly'FQ$\"3m&*[u)*=yzQFQ7$$!3.l vyB,5V>FQ$\"3O9BBrK=`vFQF[\\mF]\\m-F$6%7$7$$\"3n>jIU^K;9F*$\"3osj\"3B \\&*z\"FQ7$$!3-60LtKD2FFQ$\"3iy2$e8ke)[FQF[\\mF]\\m-F$6%7$7$$\"3*)[.;- wJ.AF*$\"3$)>`2=v\"*Q\")F-7$$!3Ow!GbZJ(oHFQ$\"3]pH1!z\\b&GFQF[\\mF]\\m -F$6%7$Fa[lF`[mF[\\mF]\\m-%*AXESSTYLEG6#%%NONEG-%+AXESLABELSG6%Q!6\"F_ `m-%%FONTG6#%(DEFAULTG-%%VIEWG6$Fd`mFd`m" 1 2 0 1 10 0 2 9 1 1 2 1.000000 44.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve \+ 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" }}}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "46 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }