{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 }{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple P lot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 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 20 "restart:with(plots): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "parab:=plot([t,t^2,t=-1 ..1],color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 690 "x:=t- >t:\ny:=t->t^2:\nn:=40:xp:=D(x):yp:=D(y):\nd:=12: \nalpha:=Pi/2:\nM:=N ULL:L:=NULL: \nfor i to n do\n t:=-1+2*i/n;\n# \{ \+ Les coefficients a1 et b1 dirigent la normale au rayon r\351fl\351chi. \}\n\nbeta:=arcsin(-1/sqrt(1+4*t^2)); a1:=sin(2*beta-alpha);b1 :=cos(2*beta-alpha);\n a2:=1*b1;b2:=1*(-a1);\n c1:=x(t)* a1+y(t)*b1;\n c2:=(xp(t)-y(t))*(-b2)+(x(t)+yp(t))*a2;\n # \{ P artie universelle pour les enveloppes de droites. \}\n delta:=a 1*b2-a2*b1;\n xa:=(c1*b2-c2*b1)/delta;\n ya:=(a1*c2-a2*c 1)/delta;\nif i=1 then x0:=xa:y0:=ya fi:\nL:=L,[xa,ya]: M:=M,pl ot([[xa,ya],[x(t),y(t)],[x(t)+d*cos(alpha),y(t)+d*sin(alpha)]],color=b lack);\n od:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "display([parab,M,plot([L],c olor=red,linestyle=16)],axes=none,scaling=constrained,view=[-2..2,-1.. 2]);" }}{PARA 13 "" 1 "" {GLPLOT2D 603 603 603 {PLOTDATA 2 "6P-%'CURVE SG6$7dw7$$!\"\"\"\"!$\"\"\"F*7$$!0\\(\\**y%[*)*!#:$\"0)*=a\\,3z*F07$$! 0[&4>cN.)*F0$\"04X%R\"y0h*F07$$!0_/4)HY+(*F0$\"0\"**Q/#)*)4%*F07$$!0f< NI))of*F0$\"0F>5^E+@*F07$$!0Y#\\)*e!Q\\*F0$\"0.DQ/NK,*F07$$!0%yc8`B)R* F0$\"0O>4q#oK))F07$$!0rU&3vF*H*F0$\"0%))3=ilZ')F07$$!08D]?Np>*F0$\"00V lrh$e%)F07$$!0'Gd96#\\4*F0$\"0LI!3!f 3)F07$$!0He;8hv*))F0$\"0kf\"4%fm\"zF07$$!0.05S6Nz)F0$\"0agfF%eKxF07$$! 0!3;KW.*o)F0$\"0gFj$>$*\\vF07$$!0%yc8:N)e)F0$\"0Ig?sF07$$!0Z%*)yH?)Q)F0$\"0T8:#\\>OqF07$$!0Rxa*Q5'H)F0$\" 0^bW)R`#)oF07$$!0,-\"*yF0$\"0.!z_)>oA'F07$$ !0'>Ryck(y(F0$\"0q<7_UZ1'F07$$!0yc8n:Fp(F0$\"0#Q.SuyQwK%4$y'F0$\"0ujd'o.,YF07$$!0\"=Os/$*ymF0$ \"0JkaA63Y%F07$$!0W)oPDa%e'F0$\"0'G1V+iNVF07$$!0&)pRf^8['F0$\"0bl%[=z+ UF07$$!0&*)ydpD%Q'F0$\"0m2.pte2%F07$$!0;Kk3lFG'F0$\"04HJr8t%RF07$$!0yb 6BQN='F0$\"0^;c]9O#QF07$$!0uZ&4plzgF0$\"0;\"y8GA'p$F07$$!0E^-&ogzfF0$ \"0.IF07$$!0E_/\\N#y`F0$\"0.w!*pTD*GF07$$!0&**)zR(p! G&F0$\"0y84]w&)y#F07$$!0.29)QRs^F0$\"0pTk%eOvEF07$$!0&)pR*4hy]F0$\"092 G'*G#zDF07$$!0X*)ydm@(\\F0$\"04Gy/WAZ#F07$$!0@T#[S:v[F0$\"0E3%*p7nP#F0 7$$!0nMpeP!pZF0$\"0df0&>PuAF07$$!0oNr-xun%F0$\"0?QR8zy=#F07$$!0$f=P-?t XF0$\"0uR4/;94#F07$$!0:Ig+uCZ%F0$\"0ahMP-.+#F07$$!0U%)od8=P%F0$\"05.^R v7\">F07$$!0['HfM_rUF0$\"0-KjE\"fC=F07$$!0LmK0w^<%F0$\"0'od2&4Ku\"F07$ $!0*)yd&>-rSF0$\"0QVk(>Kd;F07$$!0sV([bvrRF0$\"0l(*Q@%[x:F07$$!0C['HBGn QF0$\"0&4shse&\\\"F07$$!0rU&3*3Fx$F0$\"0wf3DLLU\"F07$$!0NpQd(=oOF0$\"0 &*3x+gbM\"F07$$!0sV([V2oNF0$\"0H;eX:JF\"F07$$!005?![?oMF0$\"0co[XWG?\" F07$$!0$oOt1*QO$F0$\"0WOi/w:8\"F07$$!0#Qw_N\"yE$F0$\"0pi:agy1\"F07$$!0 )f>RuTpJF0$\"0'zQ!p?X+\"F07$$!0&4>QkxgIF0$\"0!\\e/CNo$*!#;7$$!0w_0\"4T iHF0$\"01iHSyex)Faal7$$!0MoOt8='GF0$\"0t7i%y(**=)Faal7$$!0!*zf**3&fFF0 $\"0*R*))*)*)[h(Faal7$$!0&3$f?F0$\"0%=rj')zSUFaal7$$!0:Ig+zD'>F0$\"0H5\\N;<&QFaal7$ $!0Gb5T^&e=F0$\"0cNvM8UX$Faal7$$!03:I+.Tv\"F0$\"0]'=Xt(o2$Faal7$$!0V&3 hI@Faal7$$!0^-05**GN\"F0$\"0^Sh(fLI=Faal7$$!0Qw_&)>0E\"F0$\"0* fa0.\"*)e\"Faal7$$!0MoO$*=W:\"F0$\"0&>TuIoK8Faal7$$!0CZ%*[yY0\"F0$\"0q -hrYB6\"Faal7$$!0Hd9H9!f&*Faal$\"0ZGCUvu8*!#<7$$!0uZ&4zXq&)Faal$\"0$H$ z([FXtF[hl7$$!0Pu[(H>ivFaal$\"0$R#*ein=dF[hl7$$!0)eYXFaal$\"0kh* R\"*ym?F[hl7$$!0\\'Hfe97NFaal$\"0N(p`o^L7F[hl7$$!0=Pu[Z.[#Faal$\"0&fVe O7_h!#=7$$!0Rze7$$\"0Cf=P9tg%F[hl$\"029@dMF7#Fjjl7$$\"0/5?SsV`\"Faal$\"02]!o')HaB F_jl7$$\"0LnMpe!fDFaal$\"0s5mR\"y[lF_jl7$$\"0V([(\\\")RZ$Faal$\"0])[WZ &o?\"F[hl7$$\"0+(Rzy!H]%Faal$\"0cLq$zhF?F[hl7$$\"0LmKla'QbFaal$\"0([\" o`pw1$F[hl7$$\"0eQc=Q&*Faal$\"0Af o_)p(4*F[hl7$$\"0OrUlKe0\"F0$\"0qDQf#y96Faal7$$\"08Faom2;\"F0$\"0](*zH ztM\"Faal7$$\"0$f=PE>`7F0$\"0-(*ey\"\\q:Faal7$$\"0?RyOUsN\"F0$\"0vd]%o 5U=Faal7$$\"0U$oO$>MiO@Faal7$$\"0Qw_D-Cc\"F0$\"0t#H235TC Faal7$$\"0xa4*>$Ql\"F0$\"0V0VDg^t#Faal7$$\"0v\\**y]Dw\"F0$\"0[_rG&e1JF aal7$$\"0$oOt)\\Y&=F0$\"0hzF:E(RMFaal7$$\"005?+$yh>F0$\"0dvpa#f[QFaal7 $$\"0NpQ(Rhc?F0$\"0n9v.h'HUFaal7$$\"0]**)z&e1;#F0$\"0J$*))\\X%oYFaal7$ $\"0BY#\\OtfAF0$\"0pNb;'R1^Faal7$$\"0E_/43JO#F0$\"0$4;Z)zUe&Faal7$$\"0 W([(4Q!eCF0$\"0n*p)G^>/'Faal7$$\"0PtY$HVgDF0$\"02gH\"o\"eb'Faal7$$\"0$ ['HR#zmEF0$\"01vrm\"y6rFaal7$$\"0NqShy$fFF0$\"0$))yN.<9wFaal7$$\"0tY$p UPfGF0$\"0;-A@@g<)Faal7$$\"09HeczE'HF0$\"0d\"y4-Zx()Faal7$$\"06@UkVP1$ F0$\"0A0v6DlQ*Faal7$$\"0U$oO$G:;$F0$\"0@_OUh_***Faal7$$\"0:Hec,,F$F0$ \"0#Q3DkNp5F07$$\"0.17WfwO$F0$\"0T%>6I6M6F07$$\"0T#['HB=Z$F0$\"0!)*>+d N07F07$$\"0yb6B6ic$F0$\"0;AXD'yr7F07$$\"0Pu[<-%pOF0$\"0G(4K7XY8F07$$\" 0Gb5\"o\\mPF0$\"0'*oF#)\\'=9F07$$\"017Co))z'QF0$\"0yEZkLh\\\"F07$$\"0W )oPb@nRF0$\"0mZA\"*zQd\"F07$$\"0['Hfo4rSF0$\"0PxP'HQd;F07$$\"0(Hf=p9rT F0$\"0w[;mY)RF07$$\"0W([(*)p\"oWF0$\"0H\"GBUX'*>F07$$\"0)e4$4#F07$$\"0g>R=61n%F0$\"0[NJ)3Y\"=#F07$$\"0'>Ry#=Dx%F0$\"0ae<2$pxAF0 7$$\"0Fa3Pc+([F0$\"0$)Hb!\\urBF07$$\"0=Pu))f$y\\F0$\"0O%)or1%yCF07$$\" 0Pu[xU@2&F0$\"0.rGBjEd#F07$$\"0xa4>(ey^F0$\"03K%Hlx\"o#F07$$\"0,.1s*fv _F0$\"0m-7C&>$y#F07$$\"0b4>=;>S*ydF0$\"0%[Au\\hRLF07$$\"0uZ&4.BzeF0$\"0[qK!\\`cMF07$$ \"0*yd:xdvfF0$\"06\"\\.HvqNF07$$\"0LlI\"=tzgF0$\"0')z=*QJ'p$F07$$\"0]+ ,A)**yhF0$\"0_+/!>+=QF07$$\"0)f>R9Z$G'F0$\"0;>FL,#[RF07$$\"0^,.'[/yjF0 $\"0&=+Cc%z1%F07$$\"0([(\\>mD['F0$\"05BsWmB?%F07$$\"0]+,UzEe'F0$\"0Z\" yMo;LVF07$$\"01woF07$$\"0:He w]mR)F0$\"0#*H$3WP]qF07$$\"0ze*F0$\"0*e)[&4`a%) F07$$\"0X*)y(zq$H*F0$\"0gGyz+tj)F07$$\"0yc8ZMXR*F0$\"04^LzFd#))F07$$\" 0jE`')39]*F0$\"0v5E/xw-*F07$$\"0[&4>AS*f*F0$\"0_(R'H_[@*F07$$\"016ACMh p*F0$\"0y(HC>],%*F07$$\"0d9H=R&*z*F0$\"0!yu>o4.'*F07$$\"0]+,->F!**F0$ \"0-1\"*R%Q1)*F07$F+F+-%'COLOURG6&%$RGBG$F*F*F_jn$\"*++++\"!\")-F$6$7% 7$$!+6]Hu7&fF]eo7$$!+++++SF_[o$\"+++++;F_[o7$F_fo$\"++++;7FbjnFe[o-F$6$ 7%7$$!+;tf*G\"Fijn$!+2)=y>#F_[o7$$!+++++NF_[o$FddoF_[o7$F_go$\"+++D77F bjnFe[o-F$6$7%7$$!+THN#=\"Fijn$!+UB)e!QF_[o7$$!+++++IF_[o$\"+++++!*F]e o7$F^ho$\"++++47FbjnFe[o-F$6$7%7$$!+,++]5Fijn$!+&)***\\P&F_[o7$$!+++++ DF_[o$\"++++]iF]eo7$F^io$\"+++D17FbjnFe[o-F$6$7%7$$!+I![#F_[o$!+\">!)px*F_[o7$$FadoF]eo$F^do !#77$F]]p$\"+++D+7FbjnFe[o-F$6$7%7$F_jnF(7$F_jnF_jn7$F_jn$\"#7F*Fe[o-F $6$7%7$$!+fVx,9F_[o$!+]Hy)Q*F_[o7$$\"+++++]F]eoF^]p7$Fd^pFa]pFe[o-F$6$ 7%7$$!+pyVaAF_[o$!+))3l5xF_[o7$$F`\\pF_[oF_\\p7$F`_pFb\\pFe[o-F$6$7%7$ $!+q$el=#F_[o$!+4-Gm`F_[o7$$\"+++++:F_[oF_[p7$F[`pFb[pFe[o-F$6$7%7$$!+ lwb\"4\"F_[o$!+Rb8YGF_[o7$$\"+++++?F_[oF`jo7$Fg`pFcjoFe[o-F$6$7%7$$\"+ H,++!*F]eo$!+m)***\\dF]eo7$F]doF`io7$F]doFcioFe[o-F$6$7%7$$\"+_6.>NF_[ o$\"+:m\"o<\"F_[o7$$\"+++++IF_[oF`ho7$F]bpFchoFe[o-F$6$7%7$$\"+V/$QY'F _[o$\"+%4\"o/BF_[o7$$\"+++++NF_[oFago7$FibpFcgoFe[o-F$6$7%7$$\"+wF$HZ* F_[o$\"+u)49$GF_[o7$$FajoF_[oFafo7$FecpFdfoFe[o-F$6$7%7$$\"+,.pN7Fijn$ \"+i(RV&GF_[o7$$\"+++++XF_[oFaeo7$F`dpFdeoFe[o-F$6$7%7$$F\\`pFijnF]do7 $$Fe^pF_[oF]do7$FidpFcdoFe[o-F$6$7%7$$\"+G/mMFijn$\"+,&ej9\"F_[o7$$ \"+++++gF_[oFbbo7$F`fpFeboFe[o-F$6$7%7$$\"+i**Q7@Fijn$\"+I.USMF]eo7$$ \"+++++lF_[oFbao7$F\\gpFeaoFe[o-F$6$7%7$$\"+0D`fAFijn$!++fopWF]eo7$$\" +++++qF_[oFb`o7$FhgpFe`oFe[o-F$6$7%7$$\"+&4OJQ#Fijn$!+KPtz6F_[o7$$\"++ +++vF_[oFb_o7$FdhpFe_oFe[o-F$6$7%7$$\"+Edl'[#Fijn$!+emWA=F_[o7$$\"++++ +!)F_[oFb^o7$F`ipFe^oFe[o-F$6$7%7$$\"+3jNtDFijn$!+4O$[N#F_[o7$$\"+++++ &)F_[oFb]o7$F\\jpFe]oFe[o-F$6$7%7$$\"+ " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }