{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 }{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 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{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 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 89 "Esculier 16 8 02 9h48 zip 250 maple 20020724_exoRMS.mws=01_328.mws version 16 08 02 15h40" }}}{EXCHG {PARA 18 "" 0 "" {TEXT -1 56 "Exercice propos\351 par Vidia ni le 24/07/2002 sur UPS-math" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 468 "L'exercice 328 de la rms a pour \351nonc\351 :\nSoit (P) la parabole \+ y^2=2px p>0 ; Si M(x,0) avec x\\geq 0, montrer qu'il\nexiste un uniqu e point M'(x',0) avec x'>x tel que le carr\351 de diagonale MM'\nait s es deux autres sommets sur la parabole.\nExpliciter f : x---> x' ;\nSo it alors x_0\\geq 0 et la r\351currence x(n+1)=f(x_n) ; montrer que x_ n tend\nvers plus l'infini et donner un d\351veloppement asymtpotique \+ \340 deux termes de\n(x_n) ;\n\nOn trouve f(x)=x+2p+2*\\sqrt\{2px+p^2 \} ..... etc" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 143 "Si l'on veu t des carr\351s, supprimer les unconstrained, et mettre constrained da ns le display, mais l'\351chelle cause un \351crasement de la parabole ." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1687 "restart:\n eq:=y^2-2 *p*x:\n y3:=(-x+x1)/2; x3:=(x+x1)/2 ;\n y4:=(x-x1)/2 : x4:=(x+x1)/2 \+ :\n eq3:=simplify(x3*2*p-y3^2);eq4:=simplify(x4*2*p-y4^2):\n sol3:=sol ve(\{eq3\},\{x1\}) :\n res:=[allvalues(sol3[1])];\n assign(res[1]); x1 ;\n f:=proc(x) 2*p+x+2*sqrt(p^2+2*p*x) end;\n\n# ********** ordonn \351es en progression arith. *********************************\n ordon nee:=(f(x)-x)/2;\n difference:=subs(x=f(x),ordonnee)-ordonnee;\n # *** ** Maple ne simplifie pas (il faut l'aider un peu !)\n assume(X>0,p>0 ):\n simplify(subs(x=(X^2-p^2)/2/p,difference));\n# ********* \347a fa it bien 2p, c'est \351vident dixit Douillet ! ********************\n a ssume(p>0):\nseq(simplify((f@@n)(p*(2*a-1/2))/p+1/2-2*a-4*n*sqrt(a)),n =1..10);\n p:='p':\n u:=proc(n,u0,p)\n 2*p*n^2+u0+2*n*sqrt(2*u0*p+p^2) \n end;\n\n p:=1/2: u00:=1:\n printf(\"suite des u_n par applications \+ successives de f :\\n%a\\n\\n\",\n [seq((f@@n)(u00),n=1..12)]);\n prin tf(\"suite des u_n par la formule de r\351currence propos\351e /\n:\\n %a\\n\\n\",[seq(u(n,u00,p),n=1..12)]);\n printf(\"suite des diff\351re nces des ordonn\351es :\\n%a\\n\\n\",\n[seq(simplify(subs(x=u(n,u00,p) ,difference)),n=1..12)]);\n\n with(plots):\n nb:=10; p:=1: u0:=10: \n # ***** valeurs \340 changer selon r\351sultats d\351sir\351s*******\n dep:=(f(u0)-u0)/2:\n\nquad:=plot([seq(evalf([[0,dep+i*2*p],[(u(i,u0,p )+u(i+1,u0,p))/2,dep+i*2*p]])\n,i=1..nb)],\n color=green,linesty le=6):\n carre:=display([seq(display(polygonplot([\n seq(evalf([[ u(n,u0,p),0],subs(x=u(n,u0,p),x1=u(n+1,u0,p),[x3,y3]),\n[u(n+1,u0,p),0 ],subs(x=u(n,u0,p),x1=u(n+1,u0,p),[x4,y4])]),n=1..i)],color=blue,style =line))\n ,i=1..nb)],insequence=true):\n yf:=subs(x=u(nb,u0,p) ,x1=u(n+1,u0,p),y3):\n para:=plot([t^2/2/p,t,t=-yf..yf],color=red,scal ing=constrained):" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{MPLTEXT 1 0 142 "display([quad,carre,para],scaling=unc onstrained,title=\"Animation des\ncarr\351s\");\n # ******* avec const rained c'est evidemment tr\350s aplati ******" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y3G,&%\"xG#!\"\"\"\"#%#x1G#\"\"\"F)" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x3G,&%\"xG#\"\"\"\"\"#%#x1GF'" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq3G,,*&%\"pG\"\"\"%\"xGF(F(*&F'\" \"\"%#x1GF(F(*$)F)\"\"#F+#!\"\"\"\"%*&F)F+F,F+#F(F/*$)F,F/F+F0" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$resG7#<#/%#x1G,(%\"pG\"\"#%\"xG\"\" \"*$-%%sqrtG6#,&*$)F*F+\"\"\"F-*&F*F-F,F-F+F5F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(%\"pG\"\"#%\"xG\"\"\"*$-%%sqrtG6#,&*$)F$F%\"\"\"F'*&F $F'F&F'F%F/F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"xG6\"F(F( ,(%\"pG\"\"#9$\"\"\"-%%sqrtG6#,&*$)F*F+\"\"\"F-*&F*F-F,F-F+F+F(F(F(" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ordonneeG,&%\"pG\"\"\"*$-%%sqrtG6# ,&*$)F&\"\"#\"\"\"F'*&F&F'%\"xGF'F/F0F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+differenceG,&*$-%%sqrtG6#,&*$)%\"pG\"\"#\"\"\"\"\"\"*&F-F/,(F -F.%\"xGF0*$-F(6#,&F+F0*&F-F0F3F0F.F/F.F0F.F/F0F4!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$%#p|irG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6, \"\"#\"\")\"#=\"#K\"#]\"#s\"#)*\"$G\"\"$i\"\"$+#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uGR6%%\"nG%#u0G%\"pG6\"F*F*,(*&9&\"\"\")9$\"\"#\"\" \"F19%F.*&F0F.-%%sqrtG6#,&*&F3F.F-F2F1*$)F-F1F2F.F.F1F*F*F*" }}{PARA 6 "" 1 "" {TEXT -1 49 "suite des u_n par applications successives de f :" }}{PARA 6 "" 1 "" {TEXT -1 170 "[2+5^(1/2), 5+2*5^(1/2), 10+3*5^(1 /2), 17+4*5^(1/2), 26+5*5^(1/2), 37+6*5^(1/2), 50+7*5^(1/2), 65+8*5^(1 /2), 82+9*5^(1/2), 101+10*5^(1/2), 122+11*5^(1/2), 145+12*5^(1/2)]" }} {PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 53 "suite des u_n par la formule de r\351currence propos\351e /" }}{PARA 6 "" 1 "" {TEXT -1 1 ":" }}{PARA 6 "" 1 "" {TEXT -1 170 "[2+5^(1/2), 5+2*5^(1/2) , 10+3*5^(1/2), 17+4*5^(1/2), 26+5*5^(1/2), 37+6*5^(1/2), 50+7*5^(1/2) , 65+8*5^(1/2), 82+9*5^(1/2), 101+10*5^(1/2), 122+11*5^(1/2), 145+12*5 ^(1/2)]" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 37 "suite des diff\351rences des ordonn\351es :" }}{PARA 6 "" 1 "" {TEXT -1 36 "[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#nbG\"#5" }}{PARA 13 "" 1 "" {GLPLOT2D 221 166 166 {PLOTDATA 2 "6'-%(ANIMATEG6,7.-%)POLY GONSG6%7&7$$\"+R^^;@!\")\"\"!7$$\"+4FxuGF.$\"+&pvDe(!\"*7$$\"+y-.LOF.F /7$F1$!+&pvDe(F5-%'COLOURG6&%$RGBGF/F/$\"*++++\"F.-%&STYLEG6#%%LINEG-% 'CURVESG6%7$7$F/$\"1+++&pvDe(!#:7$$\"1+++4FxuG!#9FK-F=6&F?F/F@F/-%*LIN ESTYLEG6#\"\"'-FG6%7$7$F/$\"1*****\\pvDe*FM7$$\"1+++[yG\"f%FQFfnFRFT-F G6%7$7$F/$\"1+++qvDe6FQ7$$\"1*****p)H!yq'FQF_oFRFT-FG6%7$7$F/$\"1+++qv De8FQ7$$\"1+++E\"=VA*FQFhoFRFT-FG6%7$7$F/$\"1+++qvDe:FQ7$$\"1+++FL397! #8FapFRFT-FG6%7$7$F/$\"1+++qvDeFQ7$$\"1+++ajQ<>FfpFdqFRFT-FG6%7$7$F/$\"1+++qvDe@FQ7$$\"1++ +oy.HBFfpF]rFRFT-FG6%7$7$F/$\"1+++qvDeBFQ7$$\"1+++#Q*o!y#FfpFfrFRFT-FG 6%7$7$F/$\"1+++qvDeDFQ7$$\"1+++'*3MsKFfpF_sFRFT-FG6$7S7$$\"1_6B(*3MsKF fp$!1+++qvDeDFQ7$$\"1*R\"H')*[K*HFfp$!1Otp+@tYCFQ7$$\"1`TAa=`gFFfp$!1K 0='Q%p\\BFQ7$$\"1k%eI\\m+^#Ffp$!1U'[tKl0C#FQ7$$\"1Q`R5(o*pAFfp$!1clF!* GrI@FQ7$$\"1fuJKP*H/#Ffp$!1GAmiDQ@?FQ7$$\"1xfIfrBV=Ffp$!1`wq`$>+#>FQ7$ $\"1.F*f(zAZ;Ffp$!1!R@?ij]\"=FQ7$$\"1g*3fF-hX\"Ffp$!1J2oFQ$!1uB]KJ$y;\"FQ7$$\"1fPG*Q6\"HcFQ$!1AXZEx/h5FQ7$$\"1)H#y>g@ ZYFQ$!1z]wvMwS'*FM7$$\"14b))yb.-OFQ$!1X>%z)*zw[)FM7$$\"1v#pA$!1;82w&ea_#!#<7$$\"1.]f\"f**33'F][l$\"1r>>wa!G5\"FM7$$\" 1wO42W;t@FM$\"1FyDw]y%3#FM7$$\"18q4VJhY\\FM$\"1\"=Rl%*\\`9$FM7$$\"1![j !*e8J**)FM$\"1]q)QB<5C%FM7$$\"1d8L9FN69FQ$\"1DTt;R\"HJ&FM7$$\"194ehM9; ?FQ$\"19#*Gt!H+N'FM7$$\"1XFa'fwO\"GFQ$\"1S+NJ'o:](FM7$$\"1Fd2DASVOFQ$ \"1\"ee59yi`)FM7$$\"1O^(>g$\\ZYFQ$\"1\"=&*pR^5k*FM7$$\"1WJEotvicFQ$\"1 Jl%o,9U1\"FQ7$$\"1A&>7m#Q()oFQ$\"1Zxyh%fO<\"FQ7$$\"1T5m4p.\\\")FQ$\"1g W>'4RmF\"FQ7$$\"1\")[_5+>\"e*FQ$\"1xBQ'[#G%Q\"FQ7$$\"1K,IT-M46Ffp$\"1j 9rvN_*[\"FQ7$$\"1X=VL?_z7Ffp$\"1$[-IC,(*f\"FQ7$$\"1GJAVJ!\\X\"Ffp$\"15 ,`Ja\"eq\"FQ7$$\"1@RyQ7!fk\"Ffp$\"1^9r:DL9=FQ7$$\"1c#['oy%p%=Ffp$\"1xm kB5&>#>FQ7$$\"1[V>!p**=/#Ffp$\"1*G8cDT3-#FQ7$$\"1.8'>YjtF#Ffp$\"1!)R?@ 1=M@FQ7$$\"1IzGRz%))\\#Ffp$\"1zm\"4q_bB#FQ7$$\"1)47#yfJYFFfp$\"1U!)G\" [OOM#FQ7$$\"1u%zv/;T*HFfp$\"1gIG]k3ZCFQ7$FhsF_s-F=6&F?F@F/F/7.-F(6&F*7 &F67$$\"+[yG\"f%F.$\"+&pvDe*F57$$\"+Fgel$\"+q vDe>F.7$$\"+6@@8@FgelF/7$F^hl$!+qvDe>F.F " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 762 "# **** *** autre possibilit\351***********************************\ncarre:= d isplay([seq(display(\{\n polygonplot([ seq(evalf([ [0,dep+n*2* p], [(u(n,u0,p)+u(n+1,u0,p))/2,dep+n*2*p] ]),\n \+ n=1..i)],linestyle=2, color=green),\n polygonplot( [seq(evalf( [[u(n,u0,p),0],subs(x=u(n,u0,p),x1=u(n+1,u0,p),[x3,y3]),\n[u(n+1,u0,p) ,0],subs(x=u(n,u0,p),x1=u(n+1,u0,p),[x4,y4])]),n=1..i)], color=blue,st yle=patch,linestyle=0)\}) ,i=1..nb)],insequence=true):\n# ****** on pe ut tracer avec style =line\n yf:=subs(x=u(nb,u0,p),x1=u(n+1,u0,p),y3): \n para:=plot([t^2/2/p,t,t=-yf..yf],color=red):\n display([carre,para] ,scaling=unconstrained,title=\"Animation des\ncarr\351s : biele parabo lique !\");\n # ******* avec constrained c'est evidemment tr\350s apla ti ******\n" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%(ANIMATEG6,7%-%)POLYGONSG6%7$7$ \"\"!$\"+&pvDe(!\"*7$$\"+4FxuG!\")F--%'COLOURG6&%$RGBGF,$\"*++++\"F3F, -%*LINESTYLEG6#\"\"#-F(6&7&7$$\"+R^^;@F3F,F07$$\"+y-.LOF3F,7$F1$!+&pvD e(F/-F56&F7F,F,F8-%&STYLEG6#%&PATCHG-F;6#F,-%'CURVESG6$7S7$$\"1_6B(*3M sK!#8$!1+++qvDeD!#97$$\"1*R\"H')*[K*HFY$!1Otp+@tYCFfn7$$\"1`TAa=`gFFY$ !1K0='Q%p\\BFfn7$$\"1k%eI\\m+^#FY$!1U'[tKl0C#Ffn7$$\"1Q`R5(o*pAFY$!1cl F!*GrI@Ffn7$$\"1fuJKP*H/#FY$!1GAmiDQ@?Ffn7$$\"1xfIfrBV=FY$!1`wq`$>+#>F fn7$$\"1.F*f(zAZ;FY$!1!R@?ij]\"=Ffn7$$\"1g*3fF-hX\"FY$!1J2oFfn$!1uB]KJ$y;\"Ffn7$$\"1fPG*Q6\"HcFfn$!1AXZEx/h5Ffn7 $$\"1)H#y>g@ZYFfn$!1z]wvMwS'*!#:7$$\"14b))yb.-OFfn$!1X>%z)*zw[)Fbs7$$ \"1v#pA$!1;82w&ea_#!#<7$$\"1.]f\"f **33'Fiu$\"1r>>wa!G5\"Fbs7$$\"1wO42W;t@Fbs$\"1FyDw]y%3#Fbs7$$\"18q4VJh Y\\Fbs$\"1\"=Rl%*\\`9$Fbs7$$\"1![j!*e8J**)Fbs$\"1]q)QB<5C%Fbs7$$\"1d8L 9FN69Ffn$\"1DTt;R\"HJ&Fbs7$$\"194ehM9;?Ffn$\"19#*Gt!H+N'Fbs7$$\"1XFa'f wO\"GFfn$\"1S+NJ'o:](Fbs7$$\"1Fd2DASVOFfn$\"1\"ee59yi`)Fbs7$$\"1O^(>g$ \\ZYFfn$\"1\"=&*pR^5k*Fbs7$$\"1WJEotvicFfn$\"1Jl%o,9U1\"Ffn7$$\"1A&>7m #Q()oFfn$\"1Zxyh%fO<\"Ffn7$$\"1T5m4p.\\\")Ffn$\"1gW>'4RmF\"Ffn7$$\"1\" )[_5+>\"e*Ffn$\"1xBQ'[#G%Q\"Ffn7$$\"1K,IT-M46FY$\"1j9rvN_*[\"Ffn7$$\"1 X=VL?_z7FY$\"1$[-IC,(*f\"Ffn7$$\"1GJAVJ!\\X\"FY$\"15,`Ja\"eq\"Ffn7$$\" 1@RyQ7!fk\"FY$\"1^9r:DL9=Ffn7$$\"1c#['oy%p%=FY$\"1xmkB5&>#>Ffn7$$\"1[V >!p**=/#FY$\"1*G8cDT3-#Ffn7$$\"1.8'>YjtF#FY$\"1!)R?@1=M@Ffn7$$\"1IzGRz %))\\#FY$\"1zm\"4q_bB#Ffn7$$\"1)47#yfJYFFY$\"1U!)G\"[OOM#Ffn7$$\"1u%zv /;T*HFY$\"1gIG]k3ZCFfn7$FW$\"1+++qvDeDFfn-F56&F7F8F,F,7%-F(6&F*7$7$F,$ \"+&pvDe*F/7$$\"+[yG\"f%F3F`^lF4F:-F(6'F@7&FDFb^l7$$\"+