{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 "Times" 1 14 0 0 255 1 1 2 2 0 0 2 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 503 " restart:with(plots ):\nx1:=t->2*cos(t)+cos(2*t):\ny1:=t->2*sin(t)-sin(2*t):\nH3:=plot([x1 ,y1,0..2*Pi],scaling=constrained,color=blue): \n\nx2:=(a,t)->x1(t)+((x 1(a)-x1(t))*diff(x1(t),t)+(y1(a)-y1(t))*diff(y1(t),t))*diff(x1(t),t)/( diff(x1(t),t)**2+diff(y1(t),t)**2): \ny2:=(a,t)->y1(t)+((x1(a)-x1(t))* diff(x1(t),t)+(y1(a)-y1(t))*diff(y1(t),t))*diff(y1(t),t)/(diff(x1(t),t )**2+diff(y1(t),t)**2): \nA:=animate([x2(k*Pi/12,t),y2(k*Pi/12,t),t=0. .2.05*Pi],k=0..23,frames=18,color=red): \n\ndisplay([H3,A],axes=none); \n\n" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "n:=10:P:=seq(plot([sin(t+k^2*Pi/n^2/2)*cos(t)^2,t,t=0 ..2*Pi],coords=polar),k=0..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "display([P],insequence=true,axes=none,scaling=constrained,thic kness=2);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 113 "plot([sin(t+Pi/15)*cos(t)^2,t,t=0..2*Pi],coords=po lar,xtickmarks=0,ytickmarks=0,scaling=constrained,thickness=2);" }} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6$7it7 $$\"1$fx\"3p6z?!#;\"\"!7$$\"10`F5+]3CF*$\"1&pZ!p0m\\#)!#=7$$\"19OV?(*G CFF*$\"1P&=:aa%o=!#<7$$\"1--!)Ry!G-$F*$\"1jq(Ha$*e6$F77$$\"15\")ex)41I $F*$\"12kKf\\%)[XF77$$\"1$pgZv/I_$F*$\"1#en!4*\\&HfF77$$\"1QN\\I&[as$F *$\"1)z?EflwT(F77$$\"17C0URG1RF*$\"1_EAzN;&**)F77$$\"1_d58')3kSF*$\"12 \"efDnU1\"F*7$$\"1Cvqk\\f7UF*$\"1U`;'*HOb7F*7$$\"1i-&p!HBHVF*$\"1%*z@p zp\\9F*7$$\"1N/VWT<8WF*$\"1Ks#=CqTk\"F*7$$\"1X3(4yPSY%F*$\"1icJJllN=F* 7$$\"1o?![A,>[%F*$\"1ij'yboA-#F*7$$\"1*3=/MSoY%F*$\"1:DO71m*>#F*7$$\"1 MetG2#)>WF*$\"1pF;wI\"\\O#F*7$$\"1jnvZ$HAM%F*$\"1;(G'*Q,`^#F*7$$\"164L mtTOUF*$\"1/emilvZEF*7$$\"1M&=!3j>/TF*$\"1e&3K%p'3w#F*7$$\"11@1_%*)z%R F*$\"1:@8l')y_GF*7$$\"1gGY*G!\\qPF*$\"1xFQk*H?#HF*7$$\"1Pi`NIW*e$F*$\" 1<;BQr)\\'HF*7$$\"1D@0sY0&R$F*$\"1Ye6r`!p)HF*7$$\"1v*)=<9()*=$F*$\"1bQ ![&[]()HF*7$$\"1d1(fh\"\\wHF*$\"1Ah:7D\"o'HF*7$$\"1i([$\\%)y>DF*$\"1h$ QnrV!eGF*7$$\"1u&QU,A<1#F*$\"1TiIa2tmEF*7$$\"1#pUnmy7$=F*$\"1>=Dr&*>RD F*7$$\"1G>'eWw'3;F*$\"17%Rrfr[R#F*7$$\"1sFC3#[iR\"F*$\"1sZf9v9OAF*7$$ \"1DDoDe.'>\"F*$\"1&G_e*\\ll?F*7$$\"1[/3q^L55F*$\"1bY,W'*y')=F*7$$\"1t +m/J^)R)F7$\"1FJP9\\$>q\"F*7$$\"16>8kh)f&oF7$\"1^F(y.%39:F*7$$\"1G\\;G /H#[&F7$\"1Svl2!fiK\"F*7$$\"1BU8!)>U[UF7$\"1Z85XHCO6F*7$$\"1NGTHfN&>$F 7$\"1=`AA:2E&*F77$$\"1\"4yFGL$=BF7$\"1@Uy7!3Ry(F77$$\"1IFUY1*)3;F7$\"1 Fp*=MpV;'F77$$\"1_*\\ls%y'G(F1$\"1GSPo\"Rro$F77$$\"1owX%*p7FCF1$\"1=-D EK(zy\"F77$$\"1\")zGAcB#*H!#>$\"1Mr$GB)\\[WF17$$!1CL7-%>@3#!#D$\"1P&HW s6q[$!#A7$$!1&yiYvW<5$Fcx$\"1P2s#)[27XF17$$!1!)[DgmEzBF1$\"1+%*f'*)))* HrU(F1$\"1_=r$f5Ai$F77$$!1C7Me\"*)ek\"F7$\"1G%yGaX\")*fF 77$$!1cw%)y]jcGF7$\"1/-I_kg7%)F77$$!13$R1U:WW%F7$\"1\"QU6va34\"F*7$$!1 B+)fwA\"ynF7$\"1H>p+V0w8F*7$$!1..yE;2&[*F7$\"1JeI')RXC;F*7$$!1Jp*[EzT> \"F*$\"1gJ$RQf%*y\"F*7$$!1:Bg)4+3W\"F*$\"1dQ[(z.9!>F*7$$!1\"ed+1h(y:F* $\"1[0#QBq!R>F*7$$!1i`&*\\]%)3F*7$$!1MYi$zZ*pF*7$$!1Ae:)[+z#=F*$\"1y;ulv'*\\>F*7$$!1*Ruwz9B)=F*$\"1M)HG6(4 R>F*7$$!1t/Zq%3G$>F*$\"1@'RM:XG#>F*7$$!1IZ)Q!zV6?F*$\"1\")o3T\\8\")=F* 7$$!11#>'o'>Y2#F*$\"1iPa;#oM#=F*7$$!1;azXH\\?@F*$\"1(zl:Rf2v\"F*7$$!1w v(f\"3OZ@F*$\"1NPh5XF*$\"191%[NO6-\"F*7$$!1fp'pZ&o!y\"F*$\" 1,=yGZ:1))F77$$!1.#49j[xi\"F*$\"1H%3^ZGjS(F77$$!1^;BQ/D\\9F*$\"1-LGoZ! y.'F77$$!1S+c_2'oB\"F*$\"1(pE3yV4n%F77$$!1j3w?f?$***F7$\"1%eB)oQA%R$F7 7$$!1q.#=L:gQ(F7$\"1753*\\?WB#F77$$!12+YH$Q0d%F7$\"1O\"[V\\(Q;7F77$$\" 1n=P&)*))40\"F7$!1]ISg&=<6#F17$$\"13<=mIW*3(F7$!1u\")[9M;N(*F17$$\"131 ^))[KW5F*$!1evHr'*y!3\"F77$$\"1--!>b&)=Q\"F*$!1c&f&RR'*e'*F17$$\"1LqPn %Gzr\"F*$!1'4XZ7u[?F*$!1gbd`L\"QN'Fcx7$$\"1KT(HV#*GQ #F*$\"1z\"z#Q\">f^(F17$$\"1U=K/?W.FF*$\"1L)3X_&G\"z\"F77$$\"1)[#*Q4pl+ $F*$\"1.C!HRo2/$F77$$\"1X2L6Fp)G$F*$\"1SwqX&*>\"[%F77$$\"1!Rqcz;Y^$F*$ \"1YbE361teF77$$\"1M\\-G<=?PF*$\"1#4H%4!4cP(F77$$\"13s%oMiO!RF*$\"1)R; 247-(*)F77$$\"1t9;\"HzN1%F*$\"1yc*)oBoj5F*7$$\"1'G,t#)H%3UF*$\"1UaHqWK \\7F*7$$\"1*3>!*\\5KK%F*$\"1Ys[-q6Q9F*7$$\"1av\\#\\UrS%F*$\"1:5zcW@F;F *7$$\"1o<&G&e%)fWF*$\"1>MI)R\\P\"=F*7$$\"1ax%y:B:[%F*$\"1<+Ea)\\2+#F*7 $$\"1I8'ehi.Z%F*$\"1QH.G+$*y@F*7$$\"1^POF6FFWF*$\"1N)3bLt`M#F*7$$\"1'G .;UvNN%F*$\"1kv3]-N(\\#F*7$$\"140!Rk8ND%F*$\"1_jxGKjHEF*7$$\"1+9IN5vFT F*$\"1&=;_%\\gVFF*7$$\"11e#*H\"G&yRF*$\"1q(\\0jyu$GF*7$$\"15\"**z6U$3Q F*$\"1_$3&G$)y4HF*7$$\"1Qzs0eFEOF*$\"1BaDy\"o\"eHF*7$$\"1,)QguF(HMF*$ \"1mUvo&>Y)HF*7$$\"1E@K.-T@KF*$\"1Av]\"=#y))HF*7$$\"1W3%\\y*4/IF*$\"1! Q&y+9jqHF*7$$\"1W4c+#F*$\"1\"Hs8F*$\"1\\4*Hpko@#F*7$$\"1cOv@Lg#=\"F*$\"18WzHJU`?F*7$$\"1@ \"R!GR$>%**F7$\"1T_s%3\">q=F*7$$\"1/M36de<#)F7$\"1bxmLe*4o\"F*7$$\"14n *)y&)RjmF7$\"1eIC%=H!*[\"F*7$$\"1-TZ,r$eG&F7$\"1J`e\")y](H\"F*7$$\"1)z htfqA>%F7$\"1**o775,F6F*7$$\"1U'3R/C\\C$F7$\"1'3,?#e-='*F77$$\"1%o]<+L .W#F7$\"1S$*)y6b4/)F77$$\"1:U]e&)fsYPF77$$\"1@pZ=JkZ@F1$\"1w1*>f#*)[;F77$$\"1/C-R/jwGFcx$\"1uv F'eSKL%F17$$\"14?u#)*osz#!#B$\"1_OZRD=\\\"*!#@7$$!1#QPRt\\wS#Fcx$\"1Z5 7'exV\"QF17$$!1U#z-S?T,#F1$\"1SY)[yr5b\"F77$$!1f^>?fVllF1$\"1\")z(4v.h M$F77$$!1Q6S@+y)[\"F7$\"1E%)o:*GMj&F77$$!1PA<'>Aa#GF7$\"1.Y6P,=d$)F77$ $!1d=&Q$H0[YF7$\"1*)f#[Jm!>6F*7$$!1e]DH)3*=oF7$\"1(y;#4aQ!Q\"F*7$$!1.% zkWBXI*F7$\"1*)fDnI<5;F*7$$!1G#3Ba`I?\"F*$\"1#\\)f3KU%z\"F*7$$!1L)4#o< :w9F*$\"1L)zihsG\">F*7$$!1N^C/tS0;F*$\"1'zZy\\WS%>F*7$$!1VcLjT.F'f&>F*7$$!1kBd(Q\\Ty\"F*$\"1^J\"Q*))fa>F*7$$!1c'4#*)[NQ=F*$\"1\" f;m\"oM[>F*7$$!1BfWq;K*)=F*$\"1&G>;\")Gs$>F*7$$!1Mn9KfsO>F*$\"1UGnr5H@ >F*7$$!1V0)fN.N,#F*$\"1t$Gq&*y'z=F*7$$!1O%\\9z#Hv?F*$\"1ghjDImA=F*7$$! 1ID!GPG.7#F*$\"1teuev6^F*$\"1AP9jr$o9\"F*7$$!1rGwQb[xo13\"F77$$\"1!eZ*3+I(R \"F*$!1.O+K+%Gb*F17$$\"1=r[#o#3T " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 1 0" 2 }{VIEWOPTS 1 1 0 1 1 1803 }