{VERSION 5 0 "IBM INTEL NT" "5.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 "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 0 "" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart:with(plots):" }} {PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r edefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A:=[a+r*cos(t ),r*sin(t)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG7$,&%\"aG\"\"\"* &%\"rGF(-%$cosG6#%\"tGF(F(*&F*F(-%$sinGF-F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "M:=expand(A+m*[-sin(t),cos(t)]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG7$,(*&-%$sinG6#%\"tG\"\"\"%\"mGF,!\"\"%\"aGF,* &%\"rGF,-%$cosGF*F,F,,&*&F2F,F-F,F,*&F1F,F(F,F," }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 27 "eqpolaire:=A[1]*x+A[2]*y=1;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%*eqpolaireG/,&*&,&%\"aG\"\"\"*&%\"rGF*-%$cosG6#%\"t GF*F*F*%\"xGF*F**(F,F*-%$sinGF/F*%\"yGF*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "S:=solve(\{subs(\{x=M[1],y=M[2]\},eqpolaire)\},m );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG<#/%\"mG*(,,*$)%\"aG\"\"# \"\"\"F.**F-F.F,F.%\"rGF.-%$cosG6#%\"tGF.F.*&)F0F-F.)F1F-F.F.*&F6F.)-% $sinGF3F-F.F.F.!\"\"F.F,F " 0 "" {MPLTEXT 1 0 56 "M1:=subs(m=subs(S,m),M);M1:=collect(combine(M1),cos(t));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#M1G7$,(*&,,*$)%\"aG\"\"#\"\"\"F-**F ,F-F+F-%\"rGF--%$cosG6#%\"tGF-F-*&)F/F,F-)F0F,F-F-*&F5F-)-%$sinGF2F,F- F-F-!\"\"F-F+F;F;F+F-*&F/F-F0F-F-,&**F0F-F(F-F+F;F9F;F-*&F/F-F9F-F-" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#M1G7$,&*&%\"rG\"\"\"-%$cosG6#%\"tG F)!\"\"*&,&*$)F(\"\"#F)F.F)F)F)%\"aGF.F),&*&#F)F3F)**,(*&F3F))F4F3F)F) *&F3F)F2F)F)F3F.F)F4F.-%$sinGF,F.F*F)F)F)*&F7F)*(,&*(F4F)F(F)-F+6#,$*& F3F)F-F)F)F)F)*(\"\"$F)F4F)F(F)F)F)F4F.F=F.F)F)" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 143 "a:=2:r:=2:plot([[op(A),t=0..2*Pi],[cos(t),sin (t),t=0..2*Pi],[op(M1),t=0..2*Pi]],view=[-5..5,-5..5],discont=true,sca ling=constrained,color=red);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6)-%'CURVESG6$7S7$$\"\"%\"\"!$F*F*7$$\"3e=AzuCF\")R!# <$\"3iG`6ljbIF!#=7$$\"3(Gik(>/wMRF/$\"3o\\)*=>zdm]F27$$\"3y1Ax&H<(\\QF /$\"3?nEr\\1A1wF27$$\"3Es$fP=91t$F/$\"3$Hq!*y=%[-5F/7$$\"3'3,vlS]3e$F/ $\"3b!f/S8<^A\"F/7$$\"37qysL[^;MF/$\"3cs%y,a3>T\"F/7$$\"3%e'QE\\6HBKF/ $\"3)HC/*4QE#e\"F/7$$\"3\"f[h7Ja@+$F/$\"3gQQvF_!3t\"F/7$$\"3skT$*Gz-kF F/$\"3]1?@-JJ[=F/7$$\"3D$HW_Dx]]#F/$\"39xi*oit^$>F/7$$\"3cCI_kt-pAF/$ \"3i>([FZB=)>F/7$$\"3a\">Xgy0))*>F/$\"3!fAjMk*****>F/7$$\"3Q+<:GN]FF/7$$\"3%)o&G*pNwq9F/$\"3Z%QO)4lqG>F/7$$\"35Cry8#y`C\" F/$\"3'ebkrIt@&=F/7$$\"390]v_%p`\"**F2$\"3bGdh9q8F%F2$\"3vTB'oZH^A\"F/7$$\"3[Q%z._'Q\"o#F2$\"3&)e')*=3G.+\"F/7$$\"3#R 4FPXF\"Q:F2$\"3gMt*)Re]\"p(F27$$\"3%='=#>\")Hvs'!#>$\"3P(QHKl(oV^F27$$ \"3kh/m6'*Rf=Fdr$\"36'3/,,]3s#F27$$\"3$4;*)zMV\"='*!#B$\"3^\\W)H()=E?' !#?7$$\"3f\\*QbiR7$=Fdr$!3T&=)R7PE+FF27$$\"3Fg*G\\l!p=lFdr$!3%32^l0mX1 &F27$$\"3w&pLRdvMZ\"F2$!3S>qjsqWMvF27$$\"37]M!etF;l#F2$!3E`q!Hx\"e^**F 27$$\"3\\`,WdW'y5%F2$!3#)[f!Q&)[U@\"F/7$$\"35\\t\"e7o)ydF2$!34WOTi&piS \"F/7$$\"3R7VwRr#G!zF2$!3=E:c_=F/7$$\"3]/:u$)oEy9F/$!3k)Q%>R(\\ 2$>F/7$$\"3jd<&\\k'oTF/7$$\"3?k79L_)Q*>F/$!3G@ZQ_1**** >F/7$$\"3GYks]YadAF/$!3M\\p,p$[L)>F/7$$\"3X'yS\"p#35^#F/$!3o'p$*e#fhL> F/7$$\"3'pd6rnfrw#F/$!3iSTVQa,Z=F/7$$\"3pA&>_6g1+$F/$!3&f?6@_p;t\"F/7$ $\"3%)\\w*)z+(=A$F/$!3!3zp$e9O$e\"F/7$$\"3#3_$Hx+')>MF/$!3?9x67Wa39F/7 $$\"3!>PW(yc.!e$F/$!3DheM5x;E7F/7$$\"3*z-UK]n[t$F/$!3;R'f^%R0^**F27$$ \"3ymJk!>+]%QF/$!3C\"R9M:P*>xF27$$\"3VtX%QxP4$RF/$!3p>,NzwO5_F27$$\"31 ;J>26R\")RF/$!31[RH7Y$>s#F27$F($\"3A\\E7Gu#3k\"!#E-%'COLOURG6&%$RGBG$ \"*++++\"!\")F+F+-F$6$7S7$$\"\"\"F*F+7$$\"3w\"4hRPij!**F2$\"3Ikwb#=y_O \"F27$$\"3E8J#))4-Qn*F2$\"3%[#\\ff*)GLDF27$$\"3-N5')yke[#*F2$\"3gLj&[K 5J!QF27$$\"3?goz=42`')F2$\"3j9NXR4U7]F27$$\"3Sb](G._U!zF2$\"3t_H-qceDh F27$$\"3_\\$R'oTd#3(F2$\"3!GO#*3qU&fqF27$$\"3?H$>jubk6'F2$\"3!\\@@&\\! >8\"zF27$$\"3VGuIc:x5]F2$\"3-$>p(Qh-a')F27$$\"37C3nW'R,#QF2$\"3aK+16bc T#*F27$$\"3$oY@iF'QDDF2$\"3s&Q\"[M\"oen*F27$$\"3OB^hAo8X8F2$\"33)fVPO< \"4**F27$$!3+qB/u(p5(f!#@$\"2%HhJ<#)******F/7$$!33)\\T#fB[i8F2$\"3ap%> wGZn!**F27$$!3)e:d.:#=YEF2$\"3PA>=\\D`V'*F27$$!3%*yV1J*3Jx$F2$\"3IzF#e `m3E*F27$$!3V(\\AOF:B/&F2$\"3vU'yI2&oN')F27$$!3[igNw%*[RgF2$\"3!G;)RQ+ BqzF27$$!3/XUwYjJ*3(F2$\"3AfvOg?x_qF27$$!3&=e_b?/U!zF2$\"3u3HvXQF27$ $!3!p!RS4Nij'*F2$\"3o$p9m#Q%=d#F27$$!3#p(pT>+.2**F2$\"31V?00]Ug8F27$$! 3/gKG4>&*****F2$\"3vCA\\O%485$Fbs7$$!3__Is=!Q%3**F2$!3q#4*>c=8]8F27$$! 3)>b`sYlSn*F2$!3UNbFGIGKDF27$$!37_J.8AEj#*F2$!3q4&=j`Bsw$F27$$!3%\\F)4 Kh=u')F2$!3kENX')3zv\\F27$$!3EB*z7xng%zF2$!37W(H!pUCrgF27$$!3XD84Pfc5r F2$!3Y?#o?\"yMJqF27$$!3!Q%y6Ike[gF2$!3)4j2yeGL'zF27$$!3g@UD=%)o!*\\F2$ !3I_Mh6Mil')F27$$!3o+1s\"[\"ysPF2$!3#\\IN,%***4E*F27$$!30yCH\"el'3EF2$ !3=V>(fp[Pl*F27$$!3g67Cvnc\"H\"F2$!3;$RoI*>C;**F27$$!3EzyOHMQdIFbs$!3W 1O#>E`*****F27$$\"3GIAj`Ks(G\"F2$!3lYZ3X=u;**F27$$\"3EKRqX8/bDF2$!3U$[ o%H'z!o'*F27$$\"3@%)yb&Q)zNQF2$!36.2<#>x]B*F27$$\"3O7w4w0I.]F2$!3wHgb5 wMe')F27$$\"3@\\#)[*R]$4hF2$!3/a*[=H2o\"zF27$$\"33/wY'Q+$*4(F2$!3)4d)e g?sUqF27$$\"3[f=s$Ry,!zF2$!3D1$H)zD(p_ v\\F27$$\"3!G$e@`4+D#*F2$!3i&>2ndo*fQF27$$\"31mGAp))oa'*F2$!3%)f]nRQ=0 EF27$$\"3@zb'f`bp!**F2$!3/up91t'4O\"F27$Fe[l$\"36YKhSr8/#)!#FFjz-F$6$7 ao7$$!3++++++++NF/$\"3CbL.t?m$>\"F`[l7$$!3u\"*=n?a***\\$F/$\"3)H3:(>4x /N!#97$$!3!yJiFo\")**\\$F/$\"35v$zx+!Q_Mjye**\\$F/$\"3S@w !R*\\Co6Fd[m7$$!3+fB\\Jn#**\\$F/$\"3_[)4w(fuh()!#:7$$!3msm>Z^$)*\\$F/$ \"3#ee%Q#4()4%eFd\\m7$$!33FGbJpq*\\$F/$\"3-pQsAOb!Q%Fd\\m7$$!3_%z&G;1M *\\$F/$\"3W(Qq#HG,?HFd\\m7$$!3/'fID\"y#))\\$F/$\"3]%=1&f`j*=#Fd\\m7$$! 3um^d+HO(\\$F/$\"3q,@sZS/f9Fd\\m7$$!31%p0]i7`\\$F/$\"3YSE.D[`$4\"Fd\\m 7$$!3#Gw>(**4N!\\$F/$\"33'=q!>re2w!#;7$$!3%)))GP_Ii$[$F/$\"30L\")zYwoC eFh^m7$$!33+W'Qkp?Y$F/$\"3#3oo*>rK'z$Fh^m7$$!3gkuX)yz9V$F/$\"3kpriH<$> z#Fh^m7$$!3/$R&=.NJ#R$F/$\"3#f:O&=*QR>#Fh^m7$$!3I;x.w;Q[LF/$\"3D9\\sR! [y\"=Fh^m7$$!3_b.@\\EN&H$F/$\"3kRZ1FigK:Fh^m7$$!3k#)>#yesEB$F/$\"3c7cE q0138Fh^m7$$!3]]@M!fOD;$F/$\"3f_-=i!==8\"Fh^m7$$!3+$*zE!eVF3$F/$\"3q'3 bU;E6&)*F/7$$!3kgav(4Hj+$F/$\"3on!zhWI@x)F/7$$!3Qf8Rw7z8HF/$\"32*)z5=6 WQxF/7$$!3vL6a!GXV\"GF/$\"3)=%\\1')p(4&oF/7$$!3XID26/v7FF/$\"3]k_Au_$* 3hF/7$$!3T?d#\\9lfh#F/$\"3\"[x$4(p$y8bF/7$$!39?*fyZfd\\#F/$\"3qzbn0P8( )[F/7$$!3y.![*y6+!R#F/$\"3_]+1*3iZT%F/7$$!3;g5D])yHE#F/$\"3!)[,PMC'H#R F/7$$!3yq97>]UZ@F/$\"3)f6Zd(\\zKNF/7$$!3?FGaf5#y,#F/$\"3G=3)*)p%eZJF/7 $$!3ab%e&y'*=#*=F/$\"3r5L+t*[z\"GF/7$$!3=_jQ?[PfopJD#F/7$$!3l$zpGJ,J]\"F/$\"3ZqMm/1&)*F2$\"3%\\QH*f=Su7F/7$$!3Y Pwh;wt!f)F2$\"3yU!=Yh6T9\"F/7$$!3kpe)[L8\")R(F2$\"3^*)>u.sRO5F/7$$!3') y:Ik`@5hF2$\"3MLD@LZ)3P*F27$$!3m%*>`#y#p!*\\F2$\"3[Dci:b)[l)F27$$!3'\\ DZt7b+%QF2$\"3/6>x'o#eq!)F27$$!3#*zH@G,gTGF2$\"31RyK4!Q/q(F27$$!3:BGH> Cq-=F2$\"333L%pGG/Z(F27$$!3+;g/H$**\\z)Fdr$\"39ZlNl;PDuF27$$\"37#)os*o uF^#Fbs$\"3uA%>J7nhc(F27$$\"3#>)pWbAhh%)Fdr$\"3G+j(G))\\q!zF27$$\"3B'f #QC=yM;F2$\"3V#QM$G5$3^)F27$$\"3q]1&)>NTABF2$\"3o,r\"e\\]7Q*F27$$\"3-% >@`Uo&\\HF2$\"3W![n;sv]1\"F/7$$\"3c#z+LmjG\\$F2$\"3qo*)Hw;zV7F/7$$\"3$ QRz;=#)4#RF2$\"3i\"*)o-W8yZ\"F/7$$\"3())Gn*p_!eK%F2$\"3?*>7VbYa)=F/7$$ \"3Oa^n;?n3YF2$\"3GIe2/]>%\\#F/7$$\"33x1vnEfE[F2$\"3%G!*3m#4PtPF/7$$\" 39./h2O/+\\F2$\"39`kQ\"QDG)\\F/7$$\"3;8>)f_BM&\\F2$\"3,O+\">G!p8tF/7$$ \"3]E&f1G'zt\\F2$\"3[CHng93e(*F/7$$\"3[[d(z[_$))\\F2$\"3gS?&oG:WY\"Fh^ m7$$\"3q%e:b*zW$*\\F2$\"3GMe1eO)G&>Fh^m7$$\"3SrL.4z3(*\\F2$\"3pp\\6-(z 'HHFh^m7$$\"3/+=3J>O)*\\F2$\"3S;k2l[S1RFh^m7$$\"3'Q\\IN'>F**\\F2$\"3%4 #3fbOyfeFh^m7$$\"3kX+Ay/f**\\F2$\"3zs:R&4EJ\"yFh^m7$$\"3#G&f\")*)z\")* *\\F2$\"3c!4i*)Gx><\"Fd\\m7$$\"3y\"*HG(\\a***\\F2$\"3[eSur@'RM#Fd\\m7$ $\"3W**************\\F2$\"34526[Z([%*)!#57ao7$$\"35,++++++]F2$!3UC,dKL ]GPFf`n7$$\"3M*G9k?a***\\F2$!3**)))3]<1lL#Fd\\m7$$\"3GIZ,Fo\")**\\F2$! 3Q+'R&)R^#o6Fd\\m7$$\"3=N/Viye**\\F2$!3co$G#f8H)y(Fh^m7$$\"3k)))4PJn#* *\\F2$!3.X&GhFh^m7$$\"3Y Q)G07y#))\\F2$!3s%*[u\"[e(f9Fh^m7$$\"3QzWm)**GO(\\F2$!37D=QEA-F(*F/7$$ \"3+zGrSi7`\\F2$!3!4ncuG\"Q!H(F/7$$\"3L'yaS)*4N!\\F2$!3[+DCYs;s]F/7$$ \"3OmJ&p]Ii$[F2$!3;?+7W\\5%)QF/7$$\"30')oJ9kp?YF2$!3C([%y*[[V`#F/7$$\" 3CbF``yz9VF2$!3!fN%o\"eI(p=F/7$$\"3zL1.&*\\8BRF2$!3+$)>\"3bV$z9F/7$$\" 3I$e1!>n\"Q[$F2$!3:\"fRA'p)*R7F/7$$\"3!ew^oWEN&HF2$!3c\\vSc,4m5F/7$$\" 3H3g$)HesEBF2$!3MFPzk,7)Q*F27$$\"3:$)yz_eOD;F2$!3iwJK*=::])F27$$\"3E[B `1vNu#)Fdr$!3kUiUVLW'*yF27$$\"3f7a%G]#4HjFbs$!37\"p_jWupd(F27$$!3tMiy$ )G(3i)Fdr$!3,@T)[k'>EuF27$$!3EVY$eCZl&=F2$!3'p7O#=!4!yuF27$$!3um^yQf\\ sGF2$!3Z/Gib:#)4xF27$$!3Keu4)f[.%QF2$!3oTW9[4rq!)F27$$!30_u_l_SU]F2$!3 %y.='y0M5F/7$$!3,:Z5T)\\d_)F2$!3D,NtIH&y8\"F/7$$!3-O1&=V*y@)*F2$!3?g*eX uH7F\"F/7$$!3-E%eOK5y5\"F/$!3A[4&)yq5=9F/7$$!3FGCF\"=D1C\"F/$!3w/;%zG' =$f\"F/7$$!3AFk0)>SOO\"F/$!3C'Hv3A(zuF/7$$!3\"Gy1CIB`j\"F/$!3%=)f[Q38^AF/7$$!3gPd;lsJb(*GYMuz#F/7$$!30DU3z&R\\,#F/$!3GI(yt3s&RJF/7 $$!3f*p[hBE49#F/$!3'y-7a_YA^$F/7$$!3K4\"fQm)=gAF/$!3,8Y!3I\\H\"RF/7$$! 3E\"3[/Yy*)Q#F/$!3-.?')pr\\5WF/7$$!3Tr$\\#=2$4]#F/$!3E*oOW/e>\"\\F/7$$ !3lm8U$[%*fh#F/$!3Y***=#f0&R^&F/7$$!3pSY2$)*Rer#F/$!3GF/$!3eJ5*GNNW*oF/7$$!3hoZ8CKKF/$!3>^C:Y=y18Fh^m7$$!3CI%y%Qo& \\H$F/$!3'QOOu&z)3`\"Fh^m7$$!3YV,hijG\\LF/$!3ybwL.l$R#=Fh^m7$$!3%H7J[@ )4#R$F/$!3G\\0#\\un:>#Fh^m7$$!3T!)*)=C0eKMF/$!3\"zbttA6e\"GFh^m7$$!37; PT*>n3Y$F/$!3[#QvR\"o%et$Fh^m7$$!3)p\\%>l#fE[$F/$!3Qy)\\>?a%ecFh^m7$$! 3mHA`fV+!\\$F/$!3_T:R\">PNZ(Fh^m7$$!3q/*RWEqj9Fd\\m7$$!3i6!e$[_$))\\$F/$!3at1WK(>m>#F d\\m7$$!3!4&*>#*zW$*\\$F/$!3(>)HPrNKHHFd\\m7$$!3s!)4o!z3(*\\$F/$!3)zW' =Fv^%R%Fd\\m7$$!3GK4%H>O)*\\$F/$!33TF9fTgfeFd\\m7$$!3QI7C'>F**\\$F/$!3 YBrc*oo'*y)Fd\\m7$$!39@!Qx/f**\\$F/$!3'z^A2rn><\"Fd[m7$$!33Fb#*)z\")** \\$F/$!3yAX9DK'zv\"Fd[m7$$!3![A+(\\a***\\$F/$!3%o)GF6C$f^$Fd[m7$$!3c** ***********\\$F/$!3E'o'pMX%y:'!\"*Fjz-%+AXESLABELSG6%Q!6\"Fefo-%%FONTG 6#%(DEFAULTG-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$;$!\"&F*$\"\"&F*Fbgo " 1 2 0 1 10 0 2 6 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "C urve 2" "Curve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "1 0 0" 20 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }