{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 0 0 0 0 1 0 1 0 0 1 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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plo t" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 10 0 0 0 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 11 0 0 0 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 167 "with(plots):\narc:= proc(A,B,C,r) local a,b:\na:=arctan(A[2]-B[2],A[1]-B[1]):\nb:=arctan(C [2]-B[2],C[1]-B[1]):\nplot([B[1]+r*cos(t),B[2]+r*sin(t),t=a..b],color= black);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "a:=2.2:d:= 1.5:\nb:=1:q:=a/b:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 896 "g1:= polarplot([a,a*d/b],0..2*Pi,scaling=constrained,color=black,axes=none, linestyle=2):\nalpha:=50*Pi/180:\ng2:=plot([(a+b)*cos(alpha)+b*cos,(a+ b)*sin(alpha)+b*sin,0..2*Pi],scaling=constrained,color=black,axes=none ):\ng3:=plot([(-d)*cos((q+1)*alpha)+(d/b*a+d)*cos,(-d)*sin((q+1)*alpha )+(d/b*a+d)*sin,0..2*Pi],scaling=constrained,color=black,axes=none):\n Ori:=[0,0]:\nA:=[a,0]:C:=[a*cos(alpha),a*sin(alpha)]:\nCC:=[d/b*a*cos( (q+1)*alpha),d/b*a*sin((q+1)*alpha)]:\nM:=[(a+b)*cos(alpha)+(d)*cos(Pi +(q+1)*alpha),(a+b)*sin(alpha)+(d)*sin(Pi+(q+1)*alpha)]:\nQ:=[-(a+2*b) *cos((q+1)*alpha),-(a+2*b)*sin((q+1)*alpha)]:\nOmeg:=[(a+b)*cos(alpha) ,(a+b)*sin(alpha)]:\nOmegp:=[-d*cos((q+1)*alpha),-d*sin((q+1)*alpha)]: \ng4:=plot([A,Ori,Omeg,M,Omegp,CC,M],\naxes=none,color=black,scaling=c onstrained):\ng5:=plot([op((a+b)*[cos(t),sin(t)]+d*[cos(Pi+(q+1)*t),si n(Pi+(q+1)*t)]),t=-1.2..1.5],color=black,axes=none,thickness=2):\n" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "display([seq(g||i,i=1..5)]) ;\n" }}{PARA 13 "" 1 "" {GLPLOT2D 350 350 350 {PLOTDATA 2 "6,-%'CURVES G6%7S7$$\"3;+++++++A!#<$\"\"!F,7$$\"3MR!fBs*Rz@F*$\"3JJ2F&*>h.I!#=7$$ \"3C_]/ikBG@F*$\"3q<8]*pNKd&F27$$\"3]KX/E!*oM?F*$\"3S^+y(pUoO)F27$$\"3 hD#oLgvO!>F*$\"3Ne8b/Et-6F*7$$\"3eIX7\\a$*Qj;e:F*$\"3a!p&f\"R*4`:F*7$$\"3+\"*Gdn-iX8F*$\"3od%z#)=!\\SF*7$$\"3K$p8$psI/%)F2$\"3qzMK5W9L?F*7$ $\"37n*=t')\\eb&F2$\"3&f_H!))4pG@F*7$$\"3)R%4Tw5IfHF2$\"3[J(=\">e+!=#F *7$$!3DtL\\))zi88!#?$\"3aWR\"yg****>#F*7$$!3OmU366Y(*HF2$\"3%Qxk+;#eF2$\"3j^$*4jrd@@F*7$$!3VL_Sj&R3I)F2$\"3ZL:MT1RP?F*7$$ !3s>Qq^$4$46F*$\"3uzj.@2&)**=F*7$$!3nn<^wwoG8F*$\"3)4zEZh]Mv\"F*7$$!31 $R%\\)e\\'f:F*$\"3c()\\6h)4;b\"F*7$$!3H+z4=\\#*QdSPVUwM\"F*7$ $!3g$>CmZZ]!>F*$\"3K'R32!4O+6F*7$$!3l`59vf!3.#F*$\"39#ywEac1Y)F27$$!3/ =qfor*f7#F*$\"3w2d+\\l0ecF27$$!3#pVcBgY&z@F*$\"3;NBf]^$H*HF27$$!3O%*)**>#F*$\"3^PDoja*G#oFbo7$$!3'f&=>mj&)z@F*$!3!*=\">:$**GqHF27$$!30> l#oS%HG@F*$!3ai,A3D-rbF27$$!3h&f$4$pF*$!3E#oO,)Rn%4\"F*7$$!3[rHZ?\\8[XKk:F* $!3?0?f0l*oa\"F*7$$!3JFJyH!*oI8F*$!3)*\\\\!yFK>v\"F*7$$!3G6d-p9&z4\"F* $!3t>(e29Pk!>F*7$$!3P@gXZ%>,I)F2$!3NmV=z*>u.#F*7$$!3QII.![k!RdF2$!3w?s n2Z#Q7#F*7$$!3AgXV=rWTGF2$!3KC?qNKd\"=#F*7$$!3=[B=2cEEnFbo$!3CRdb<(*)* *>#F*7$$\"3[P(fI$4*H$GF2$!3K`%R)3Ko\"=#F*7$$\"3+LRSN24@cF2$!3i+JVCv(p7 #F*7$$\"3WGBJFivQ%)F2$!3b\"G`9*prJ?F*7$$\"3e,5]0hs+6F*$!3L;jf'[O[!>F*7 $$\"3X;=(z1dSM\"F*$!3%=^v&>wpT-Xy[8F*7$$\"3k%=M,Ca$3>F*$!3Q**\\Qdfh%4\"F*7$ $\"3P3>1*>+&H?F*$!3GOh\\)F27$$\"3:&3#)QaJS7#F*$!3ZSJdF27$$ \"3-HL*R@I&z@F*$!3Ss\"3)e$GT*HF27$$\"3s*************>#F*$!3a7=1J!4Jw#! #D-%'COLOURG6&%$RGBGF,F,F,-%*LINESTYLEG6#\"\"#-F$6%7S7$$\"3#)********* ****H$F*F+7$$\"3+f&QNe*4pKF*$\"37'41H*zT0XF27$$\"3!zdnIpaB>$F*$\"3Ku>D \\N&)f$)F27$$\"33)zm!RN._IF*$\"3m2qm/k-b7F*7$$\"33QB00M^bGF*$\"3IPq#o! *)4a;F*7$$\"3k&z'otJS3EF*$\"3JyaWnKW@?F*7$$\"3AW#R&z%\\sL#F*$\"3QNNR(3 \\'HBF*7$$\"3QO$f8SI%=?F*$\"3H'=>CGN2h#F*7$$\"3u#QU*>Yb`;F*$\"3-)y5@iG e&GF*7$$\"3y`qR!4Y1E\"F*$\"3M>_[:mr\\IF*7$$\"3e\\%y4![xL$)F2$\"3o)GW?[ OI>$F*7$$\"3T:kh9;&*QWF2$\"3M'4y'G(3+F$F*7$$!3Mf+u#)>Wq>Fbo$\"39;4s6%* ***H$F*7$$!3c*REmm\">'\\%F2$\"3Mg#\\lgE#pKF*7$$!3h$fz:(4SK()F2$\"3AF! \\YulB=$F*7$$!3![y5X$f7X7F*$\"3a*H7?'f3cIF*7$$!3CHdbFS'Rm\"F*$\"3=pXb \"3w(\\GF*7$$!3;^ww9:.$*>F*$\"3#f=!4Af$pKF*$\"3?-&))es-%*[%F27$$!3Sv]**HT)**H$F*$\"3a!Q_& >VVB5!#>7$$!3G$y(G\\XypKF*$!3#ynys*[VbWF27$$!3!zxR-hTC>$F*$!3qU-LiP`c$ )F27$$!3=$RS'Rl(o0$F*$!3CO--WP=V7F*7$$!3!*e&)RO9[iGF*$!3=B]?q4,U;F*7$$ !3*pX42Q-Ai#F*$!3&**4%f(e5N+#F*7$$!3qTjhyn[YBF*$!3Z2!)QeZM?BF*7$$!3i!p uYaLg*>F*$!3kCuq;%)*yi#F*7$$!3qm&QN?Fpk\"F*$!39z!Q6rb'fGF*7$$!3/.%=r\" z,X7F*$!3_\\lxo*Hh0$F*7$$!3!Ra\\+s'f3')F2$!3oIe^hqt&=$F*7$$!3KS=lx1$F*7$$\"3+\\o4MM\"e E\"F*$!3KA*zr[vv/$F*7$$\"3;-:De\"*3^;F*$!3%RZ%*)HZDdGF*7$$\"3YCx&>g&3; ?F*$!3?nKOHka7EF*7$$\"3vG^I+\"pFM#F*$!3Sc@W2$)4CBF*7$$\"3`M9qX)eqg#F*$ !3U=#*G`nk\"F*7$$\"3MiGf)H]U/$F*$!3 G?kZo'*yt7F*7$$\"3]FJ#eJZg=$F*$!395#R$zq5(f)F27$$\"3K$***)4K&HpKF*$!3/ eA@QD>\"\\%F27$$\"3Q*************H$F*$!3#)=FfYNmWTFizFjzF^[l-F$6$7S7$$ \"+].#p0$!\"*$\"+=AM^CF_[m7$$\"+(ecv/$F_[m$\"+O+(ye#F_[m7$$\"+g0ICIF_[ m$\"+96n/FF_[m7$$\"+)**y<)HF_[m$\"+]KlJGF_[m7$$\"+UuAAHF_[m$\"+7Ve_HF_ [m7$$\"+`bMZGF_[m$\"+&y+R1$F_[m7$$\"+nx#F_[m$\"+aRDUMF_[m7$ $\"+VKKc?F_[m$\"+S?M^MF_[m7$$\"+9@n?>F_[m$\"+Zp,UMF_[m7$$\"+N@I#z\"F_[ m$\"+tap:MF_[m7$$\"+d%4'z;F_[m$\"+s)GuP$F_[m7$$\"+B))o_:F_[m$\"+E2\"\\ J$F_[m7$$\"+.9(HX\"F_[m$\"+A_O[KF_[m7$$\"+;())zM\"F_[m$\"+C%>m:$F_[m7$ $\"+H**\\m7F_[m$\"+cp!R1$F_[m7$$\"+w'*)4>\"F_[m$\"+fi]^HF_[m7$$\"+Bn#Q 8\"F_[m$\"+5v\"f$GF_[m7$$\"+**zb!4\"F_[m$\"+,m_3FF_[m7$$\"+[t@m5F_[m$ \"+>ZQ(e#F_[m7$$\"+f^#p0\"F_[m$\"+GNWaCF_[m7$$\"+[l2m5F_[m$\"+L!HjJ#F_ [m7$$\"+.Q^*3\"F_[m$\"+:R6)>#F_[m7$$\"+GTfI6F_[m$\"+l)>Y2#F_[m7$$\"+P< ]*=\"F_[m$\"+IJw`>F_[m7$$\"+sNJi7F_[m$\"+#zF_[m$\"+>!=(f9F_[m7$$\"+mH'Q0#F_[m$\"+#*oM^9F_[m7$$\"+vEp&=#F_[m$ \"+L!o'f9F_[m7$$\"+%[CCJ#F_[m$\"+bU`%[\"F_[m7$$\"+)=+0W#F_[m$\"+*\\My_ \"F_[m7$$\"+2/DdDF_[m$\"+du]&e\"F_[m7$$\"+*Qbym#F_[m$\"+)[h'f;F_[m7$$ \"+)Q]ow#F_[m$\"+7+2ZF_[m7$$\"+X/UzHF_[m$\"+f`Ml?F_[m7$$\"+P#*QAIF_[m$\"+MQ#3>#F _[m7$$\"+/fhZIF_[m$\"+([X_J#F_[m7$F][m$\"+>AM^CF_[mFjz-F$6$7S7$$\"+K*Q &4iF_[m$!+R@II^!#57$$\"+sGfkhF_[m$\"+NJ.B9Fhjm7$$\"+SR'H0'F_[m$\"+h[[H qFhjm7$$\"+U/')[eF_[m$\"+UFY78F_[m7$$\"+tH,jbF_[m$\"+P=$H*=F_[m7$$\"+3 *zN?&F_[m$\"+34DFCF_[m7$$\"+LX<4[F_[m$\"+#G]b(GF_[m7$$\"+\"pPaM%F_[m$ \"+IHS%G$F_[m7$$\"+y#4Z\"QF_[m$\"+LB!4k$F_[m7$$\"+jf?VKF_[m$\"+J7#H#RF _[m7$$\"+YVs@EF_[m$\"+!\\'QJTF_[m7$$\"+1Y?b?F_[m$\"+@hMVUF_[m7$$\"+=Gn 19F_[m$\"+I*opG%F_[m7$$\"+-SZbvFhjm$\"+%[3AC%F_[m7$$\"*+:PR\"F_[m$\"+5 a'e6%F_[m7$$!*aLb,%F_[m$\"+Bd=KRF_[m7$$!+)Rs2,\"F_[m$\"+A')4KOF_[m7$$! +:gT*[\"F_[m$\"+1-o7LF_[m7$$!+8HL$*>F_[m$\"+w.IsGF_[m7$$!+(3zWQ#F_[m$ \"+I0GFCF_[m7$$!+-$Gpu#F_[m$\"+%=dx)=F_[m7$$!+z/J@IF_[m$\"+*=JHL\"F_[m 7$$!+_.+HKF_[m$\"+J#[X@(Fhjm7$$!+xa$eM$F_[m$\"+/zt*R\"Fhjm7$$!+%)zV!R$ F_[m$!+x#R9)\\Fhjm7$$!+<8^YLF_[m$!+-N4h6F_[m7$$!+$\\7SB$F_[m$!+ng_GF`.?F_[m$!+jr2))QF_[m7$$!+eDy$\\\"F_[m$!+MzUNVF_[m7$ $!*5:*f)*F_[m$!+^%HDn%F_[m7$$!*!='R,%F_[m$!+&=5$e\\F_[m7$$\"*_%zt:F_[m $!+)eHo9&F_[m7$$\"+w(oe*yFhjm$!+qj#GF&F_[m7$$\"+\"\\j[R\"F_[m$!+!y2IJ& F_[m7$$\"+#4Yw-#F_[m$!++j1t_F_[m7$$\"+t(efj#F_[m$!+P%3P:&F_[m7$$\"+b@s ]KF_[m$!+ns'e%\\F_[m7$$\"+1K76QF_[m$!+pq.pYF_[m7$$\"+?r-UVF_[m$!+F*7 $$\"3wqn>J*Q&49F*$!3l:IR\\@II^F27$$!30&*Gj[c)45$F*$\"3Fjk'GZm'G6F*F`jn Fjz-F$6%7ao7$$\"3\"=JxHmX$3BF*$!3'y)f<)=Bq%RF*7$$\"3]#y\")>\\#>\"[#F*$ !3WUp@qvK*z$F*7$$\"3f[q*3sA?k#F*$!3x\\#GjVH:k$F*7$$\"3]_!p@B3;x#F*$!3; Nq!fRho\\$F*7$$\"3Gmg9Ij6\"*GF*$!37!)QJ\\68YLF*7$$\"3;BV_LjL@JF*$!39Z^ /<*p!*)HF*7$$\"3m@=MQS&pH$F*$!3NEBpXI>7EF*7$$\"3xDr6F*7 $$\"3oz2!\\%fgmLF*$!3')=URBUU'\\)F27$$\"3M^9l&foIC$F*$!37D)3,(==NbF27$ $\"3H#fyQBvr5$F*$!3;'38<7NKE$F27$$\"3\"[m>r%QqJHF*$!3,:zL-`s>6F27$$\"3 s(**=?JC/u#F*$\"3Yih'HDgrn&F`cl7$$\"3whgHv\\j]DF*$\"3+Ibpw7QY#F*$\"3#>X)H+fOPGF27$$\"3u %>^x*Q$e/#F*$\"30ju@QP%Q$GF27$$\"3GQR[c)pN!>F*$\"3ef2?,?g&\\#F27$$\"3j C8X%)=/1=F*$\"3KW_#)H*4L&>F27$$\"3Q&)\\s)\\d_w\"F*$\"3coB2=5.\"e\"F27$ $\"3Jzc(HlqSt\"F*$\"3-z]b+k)*o6F27$$\"3K>X$*3Eg8M-#3XE)Fb o7$$\"3(yQvmiD0q\"F*$!3u@z)z@Br[\"F`cl7$$\"3Nl)>g7JMq\"F*$!3MA%H#[4w\" z$F`cl7$$\"3;cp/]5()3F*$!3kZ$**RJ:hl#F27$$\"3?#*=rF-R#3#F*$!3Sfk\\,wj iGF27$$\"3y+)\\h)4BXAF*$!33e_XxzenFF27$$\"3tJ)y3lE,V#F*$!33y\"4(zQjuAF 27$$\"36zm(3)*o&>EF*$!3wD(zj)eAp8F27$$\"3!>D#)H@uI!GF*$!3eh'GK:JOh(Fbo 7$$\"3=JgnUKb(*HF*$\"3bai#>J4X%=F27$$\"3)ps?QIYb:$F*$\"3AEyN>_n$*RF27$ $\"3Q!*RH$*H0)H$F*$\"3+(\\4$yD`,nF27$$\"3#eL44mUJwOMF*$\"3z&[#f\\)fB6\"F*7$$\"3;!*QrmUUlMF*$\"3wX'fyK#H$G \"F*7$$\"3#)R`E8Oc\"[$F*$\"3G**3/]cz\\9F*7$$\"3_I\"H.h^m[$F*$\"39Szga5 %4i\"F*7$$\"3-&4@n&*\\'zMF*$\"3%)=\\0@$RQ!=F*7$$\"3c&zsda<'fMF*$\"3Uyq J%4'y*)>F*7$$\"3k#))zI=]:Q$F*$\"3CY/eNH)zN#F*7$$\"3dwKEr*fMC$F*$\"3g0C 'eTt@u#F*7$$\"3#euU9!y'f0$F*$\"3YZD\"G<&z,JF*7$$\"3ZJnm\")zf5GF*$\"3-d 8\\2Pq\\MF*7$$\"3$\\x<(p$op^#F*$\"35uQV*Gpgw$F*7$$\"3ow$>.hKlO#F*$\"3w bmgt[d**QF*7$$\"3lI07j\"zq?#F*$\"3%\\<-M/*eCSF*7$$\"3fmKrH3/9?F*$\"3=F zmK%[l:%F*7$$\"3p$\\&pgi*4\"=F*$\"31PoeUX^vUF*7$$\"3,z(>.\\:=i\"F*$\"3 3d`/Wh@qVF*7$$\"3@?Pw<_NE9F*$\"3#))>V4K2LX%F*7$$\"36HYYKE.77F*$\"3/*[j pi(eGXF*7$$\"3\"*yIvIo#p#**F2$\"3]Qy%o)zm*e%F*7$$\"3uAv5Lx@\"z(F2$\"3B )))=3?%[MYF*7$$\"3=(fT8)GZIcF2$\"3ODgn'[4dm%F*7$$\"3%3a^VByDH$F2$\"3qk L*\\wURo%F*7$$\"32Pyu " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }