{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 }{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 "Text Ou tput" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 "M aple Plot" 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 }} {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 17 "with(plots):with(" }{TEXT -1 0 "" }{MPLTEXT 1 0 12 "plottools):\n" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, the name arrow has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "polarplot(cos(t)**2/sin(t),t=0.1..Pi-0.1,view =[-4..4,0..1.1],thickness=2);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 174 "#0b cisso\357de de Diocl \350s\ndisplay([polarplot(sin(t)**2/cos(t),t=-Pi/2+0.1..Pi/2-0.1),plot ([[1,-2],[1,2]],linestyle=3)],view=[0..1.1,-2..2],scaling=constrained, tickmarks=[0,0]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 440 "#1 cisso\357dale\na:=k*Pi/2/n:\nn:=20:\ndi splay([circle([0.5,0],0.5,color=blue),polarplot(sin(t)**2/cos(t),t=-Pi /2+0.1..Pi/2-0.1),plot([[1,-2],[1,2]],color=blue),display(seq(plot([[[ 0,0],[cos(a)**2,sin(a)*cos(a)]],[[cos(a)**2,sin(a)*cos(a)],[sin(a)**2, sin(a)**3/cos(a)]],[[sin(a)**2,sin(a)**3/cos(a)],[1,tan(a)]]],color=bl ack,thickness=[2,0,2],color=[black,black,black]),k=13),insequence=true )],view=[0.1..1,-2..2],scaling=constrained,axes=none);" }}{PARA 13 "" 1 "" {GLPLOT2D 547 507 507 {PLOTDATA 2 "6'-%(ANIMATEG6#7*-%'CURVESG6%7 $7$\"\"!F,7$$\"1mAI,v/IF!#;$\"1R=%4iK]X%F0-%'COLOURG6&%$RGBGF,F,F,-%*T HICKNESSG6#\"\"#-F(6%7$F-7$$\"1Mxp)\\_*psF0$\"11Y.D%[j=\"!#:F3-F86#F,- F(6%7$F>7$$\"\"\"F,$\"1*yGro^=j\"FCF3F7-%+AXESLABELSG6$%!GFQ-%%VIEWG6$ %(DEFAULTGFU-F(6$7U7$$\"#5!\"\"F,7$$\"+2Ndg**!#5$\"+!ohmE'!#67$$\"+1e \"H%)*Fjn$\"+P%\\MC\"Fjn7$$\"+IC))['*Fjn$\"+kFiS=Fjn7$$\"++M`\"Q*Fjn$ \"+r$o(3CFjn7$$\"+s\\3X!*Fjn$\"+ii#*QHFjn7$$\"+PJ%[k)Fjn$\"+IbtAMFjn7$ $\"+[*>r=)Fjn$\"+:ic_QFjn7$$\"+wR8zwFjn$\"+F'R;A%Fjn7$$\"+fk*)GrFjn$\" +i_8CXFjn7$$\"+p\\3XlFjn$\"+$e#GbZFjn7$$\"+rl!p$fFjn$\"+aiV6\\Fjn7$$\" +'f_RJ&Fjn$\"+UO8!*\\Fjn7$$\"+-u/'o%FjnFcr7$$\"+FM4jSFjnF^r7$$\"+H]\" \\X$Fjn$\"+#e#GbZFjn7$$\"+VN5rGFjn$\"+j_8CXFjn7$$\"+Fg'3K#Fjn$\"+H'R;A %Fjn7$$\"+`+)G\"=Fjn$\"+;ic_QFjn7$$\"+eo:b8Fjn$\"+DbtAMFjn7$$\"*D]\"\\ &*Fjn$\"+di#*QHFjn7$$\"*(fm%='Fjn$\"+m$o(3CFjn7$$\"*pv6^$Fjn$\"+gFiS=F jn7$$\"*$>%3d\"Fjn$\"+L%\\MC\"Fjn7$$\")$\\E%RFjn$\"+];mmiF]o7$F,$!+3Q. ^?!#>7$Fiu$!+!phmE'F]o7$$\"*%>%3d\"Fjn$!+P%\\MC\"Fjn7$$\"*qv6^$Fjn$!+k FiS=Fjn7$$\"**fm%='Fjn$!+q$o(3CFjn7$$\"*F]\"\\&*Fjn$!+gi#*QHFjn7$$\"+h o:b8Fjn$!+GbtAMFjn7$$\"+c+)G\"=Fjn$!+>ic_QFjn7$$\"+Ig'3K#Fjn$!+J'R;A%F jn7$$\"+ZN5rGFjn$!+l_8CXFjn7$$\"+L]\"\\X$Fjn$!+$e#GbZFjn7$$\"+JM4jSFjn $!+biV6\\Fjn7$$\"+1u/'o%Fjn$!+VO8!*\\Fjn7$$\"++E&RJ&Fjn$!+UO8!*\\Fjn7$ $\"+vl!p$fFjn$!+aiV6\\Fjn7$$\"+t\\3XlFjn$!+\"e#GbZFjn7$Fbq$!+i_8CXFjn7 $$\"+vR8zwFjn$!+G'R;A%Fjn7$Fhp$!+:ic_QFjn7$$\"+VJ%[k)Fjn$!+CbtAMFjn7$$ \"+x\\3X!*Fjn$!+bi#*QHFjn7$$\"+/M`\"Q*Fjn$!+l$o(3CFjn7$$\"+KC))['*Fjn$ !+eFiS=Fjn7$$\"+2e\"H%)*Fjn$!+J%\\MC\"Fjn7$Fhn$!+I;mmiF]o7$FZ$\"+:w1-T F`v-F46&F6F,F,$\"*++++\"!\")-F(6$7en7$$\"1(o8'*)GL+**F0$!1i:ky(4t')*FC 7$$\"141aGW(f')*F0$!1\\=2W\"*yk%)FC7$$\"1u?v#>:m#)*F0$!1hA/QGw(R(FC7$$ \"1)=Q=j&H#y*F0$!1\"p%f3&Qtb'FC7$$\"1\\#GJHhIt*F0$!1t9iT@ej*F0$!1aJN@U\\c\\FC7$$\"1YD&4u_T_*F0$!1-))4mJ%4E%FC7$$\"1hH7(\\]@ A*F0$!10&[Z>:a<$FC7$$\"1PXTSV5^))F0$!1j&Q&G8scCFC7$$\"1!\\:zS&)3U)F0$! 1f)p>!zfW>FC7$$\"10-ExIitzF0$!1=8=Nvp\"e\"FC7$$\"1#4q[Vq!ouF0$!1!HHX*o e#G\"FC7$$\"1M;(zSbv!pF0$!1q(['Q0PK5FC7$$\"1WDg:WH>jF0$!1(\\sHgL,G)F07 $$\"1;Yu29,$p&F0$!1VQf8(\\_a'F07$$\"1t/a14lJ^F0$!1iOeB[fo_F07$$\"1r(4E \\^!)\\%F0$!1(GN;MRq1%F07$$\"1&yB\\`&)*pQF0$!1MF,Zg\"\\2$F07$$\"1Mhc,u %>G$F0$!1'HCzc1RH#F07$$\"1Q](=/P,x#F0$!1\"Q6I([p9#F0 $!1%=(f,Fsm6F07$$\"1pO1JOf^3X,%F_fl$\"1FsS`$>([DF`v7$$\"1Q8wFWuH9F jdl$\"1Ej3pn#>s\"F_fl7$$\"1,r?*fhXB$Fjdl$\"1fY`+1v8fF_fl7$$\"1e<>>B=Ge Fjdl$\"1HJe'*Q!*\\9Fjdl7$$\"1$eLQzJM/*Fjdl$\"1cp-DBc^GFjdl7$$\"1R*36xQ YF\"F0$\"1OEr,Zzr[Fjdl7$$\"1K:WV:`Z?&GqFF0$\"1=O+6+&[r\"F07$$\"1^xsTS0*H$F 0$\"1h;mGR\"[J#F07$$\"1+I2s2k-RF0$\"1UTbs\\CAJF07$$\"1ui\"[u#f'[%F0$\" 1v$Q7s&HZSF07$$\"1mb2GKa/^F0$\"1?4&oz6C@&F07$$\"1\")=)zTCsq&F0$\"1\\1k DIk!e'F07$$\"1`)pH)o%pK'F0$\"1&=RBD:QI)F07$$\"1;#>\"H(>Q!pF0$\"1\"*pZ$ p54.\"FC7$$\"1P=>YSTkuF0$\"1fVRa1s!G\"FC7$$\"1Yw8PQa#)zF0$\"1m[Q9;&ye \"FC7$$\"19fl\\]h=%)F0$\"14Q<&o:C%>FC7$$\"1'p3v())yj))F0$\"1a54]*3dZ#F C7$$\"11JU)GVm?*F0$\"1q'pq\"4IOJFC7$$\"1<,@[U@4&*F0$\"1&)QCLxs&=%FC7$$ \"1kgJr=lH'*F0$\"1fm#=RJ.\"\\FC7$$\"1S2<^wrL(*F0$\"1_N*4B1])eFC7$$\"1l Lxd8u#y*F0$\"1?AG*=5Xc'FC7$$\"1oUc55)o#)*F0$\"1i5#3cSPS(FC7$$\"1*o$)[` \"4m)*F0$\"1pGu\\/ko%)FC7$F]^l$\"1i:ky(4t')*FC-F46&F6FZF,F,-F(6$7$7$FJ $!\"#F,7$FJ$F:F,Fd]lFN-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINED G-FS6$;$FKFfnFJ;Fa`mFd`m" 1 2 0 1 10 0 2 9 1 1 1 1.000000 45.000000 46.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 497 "#2 podaire\nx1:=-t* *2/4:y1:=t:\na:=0:b:=0:\nx2:=x1+((a-x1)*diff(x1,t)+(b-y1)*diff(y1,t))* diff(x1,t)/(diff(x1,t)**2+diff(y1,t)**2):\ny2:=y1+((a-x1)*diff(x1,t)+( b-y1)*diff(y1,t))*diff(y1,t)/(diff(x1,t)**2+diff(y1,t)**2):\nn:=10:\nL :=seq(plot([[0,0],eval([x2,y2],t=k/n),eval([x1,y1],t=k/n)],color=black ),k=-3*n..3*n):\nanim:=display([L],insequence=true):\ndisplay([anim,pl ot([-t**2/4,t,t=-2..2],color=blue),polarplot(sin(t)**2/cos(t),t=-Pi/2+ 0.1..Pi/2-0.1)],scaling=constrained,axes=none,view=[-1..1,-2..2]);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 237 "#3 inverse\ndisplay([plot( [t**2,t,t=-2..2],color=blue),circle([0,0],1,linestyle=2,color=blue),ci rcle([0.5,0],0.5,color=blue,linestyle=2),polarplot(sin(t)**2/cos(t),t= -Pi/2+0.1..Pi/2-0.1)],scaling=constrained,axes=none,view=[-1..2,-2..2] );" }}{PARA 8 "" 1 "" {TEXT -1 59 "Error, (in plots/object2plot) bad o bject to display symbol\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 357 "#4 roulement sans glissement d'une parabole sur une parabole isom \351trique\n# en travaux\nx:=t->-t**2/4:y:=t->t:\nn:=10:L0:=seq([x(k/n ),y(k/n)],k=-2*n..2*n):\nL1:=NULL:\nfor j from -n/2 to n/2 do \nod:\nd isplay([plot([L0]),plot([[0,0]],style=point,symbol=circle),polarplot(2 *sin(t)**2/cos(t),t=-Pi/2+0.1..Pi/2-0.1)],scaling=constrained,axes=non e,view=[-4..2,-2..2]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "#5 antipodaire d'une cardio \357de" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#6 Newton" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "#7 Duplicatrice" }}}}{MARK " 2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }