{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 } {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 -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 "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 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 }{PSTYLE "R3 Fo nt 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 10 0 0 0 1 2 1 2 0 0 0 0 0 0 }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 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "COURBE DE WATT" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart:with(plots):" }}}{PARA 0 " " 0 "" {TEXT -1 74 "cas de watt : alpha=90\ncas d\351g\351n\351r\351 : alpha=gamma (=45 pour la lemniscate)" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 177 "a:=1:alpha:=90:Gamma:=45:beta:=180-alpha-Gamma:\nalp ha:=evalf(alpha*Pi/180):beta:=evalf(beta*Pi/180):Gamma:=evalf(Gamma*Pi /180):\nb:=sin(beta)/sin(alpha):c:=sin(Gamma)/sin(alpha):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a:=1:b:=2:c:=0.5:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "bernoulli" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 176 "a:=1:beta:=90:Gamma:=45:alpha:=180-beta-Gamma:\nalpha:=evalf( alpha*Pi/180):beta:=evalf(beta*Pi/180):Gamma:=evalf(Gamma*Pi/180):\nb: =sin(beta)/sin(alpha):c:=sin(Gamma)/sin(alpha):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 30 "d:=a^2+b^2-c^2:e:=b^2+c^2-a^2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "implicitplot((x^2+y^2)^3-2*d*(x^2+ y^2)^2+(d^2+4*a^2*y^2)*(x^2+y^2)-4*a^2*b^2*y^2=0,x=-a-b..a+b,y=-b..b,s caling=constrained,numpoints=2000);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6]t7$7$$!1qmmmmmm')!#;$!1c_[qEea;!#:7 $$!1Xz!\\S\"p1))F*$!1XWWWWWW;F-7$7$$!1Yz!\\S\"p1))F*F17$$!1O9rs'[c\"*) F*$!1h9/Wc%yi\"F-7$7$$!1P.y\\yH^*)F*$!1cbbbbbb:F-F77$F=7$$!1*[8T?(zZ)) F*$!1NCR'=![V:F-7$7$$!1rmmmmmm')F*$!1dj=KV\\P:F-FC7$7$FJ$\"1cj=KV\\P:F -7$$!1=.y\\yH^*)F*$\"1abbbbbb:F-7$7$$!1;.y\\yH^*)F*FU7$$!1%)****)ow!H) )F*$\"1vxP!*GQm:F-7$7$$!1jz!\\S\"p1))F*$\"1VWWWWWW;F-Fen7$F[o7$$!1\\[$ *G2nA()F*$\"1bcf[!y\"[;F-7$7$FJ$\"1b_[qEea;F-Fao7$7$$!1QLLLLLLtF*$!1?0 (z9')Gv\"F-7$$!1Z**R;5sMxF*$!1MLLLLLLg:R[\"F-F[q7 $FO7$$!1!HmvL8+1)F*$\"1&>#G+?6::F-7$7$F\\p$\"1Yc!>g:R[\"F-Fgq7$Fgo7$$! 1L)[xQt4-)F*$\"15)QZ6(G!p\"F-7$7$$!1x**R;5sMxF*$\"1KLLLLLLTZB=F-7$$!1PK)*y0#p.'F*$!1AAAAAAA=F-7$7 $$!1QK)*y0#p.'F*FbtF[p7$7$F\\p$!1Xc!>g:R[\"F-7$$!1o9Z0-#4<(F*$!1DT_3U \\x9F-7$7$$!1$)p[)>wo\"oF*$!1nmmmmmm9F-F\\u7$Fbu7$$!1(=+HffV@'F*$!1))* Rr-wBX\"F-7$7$F[t$!1&R1RScrW\"F-Fhu7$7$F[t$\"1'R1RScrW\"F-7$$!1&*o[)>w o\"oF*$\"1lmmmmmm9F-7$7$$!1'*o[)>wo\"oF*FhvF]r7$Ffs7$$!1$**o*Rr\"[m'F* $\"1Jz*fZawx\"F-7$7$$!1xK)*y0#p.'F*$\"1@AAAAAA=F-F_w7$Few7$$!1gE*pE94, 'F*$\"1J<-S)\\H#=F-7$7$F[t$\"1uiM>TZB=F-F[x7$Fjs7$$!1OuH=\"\\-'fF*$!1$ R-5Gs[#=F-7$7$$!1rmmmmmmYF*$!15&G.7YJ'=F-Fex7$F^v7$$!1c7:\">H>C&F*$!1G 5qJeJG9F-7$7$$!1smmmmmmYF*$!1Q!eZkc=T\"F-Fay7$Fbv7$$!1[#y%*f\"3-bF*$\" 1#)=j1@ZL9F-7$7$F\\y$\"1R!eZkc=T\"F-F]z7$7$F[t$\"1tiM>TZB=F-7$$!1M_U^# =`/&F*$\"1Dh?hcYZ=F-7$7$Fhy$\"15&G.7YJ'=F-Fjz7$F[y7$$!1IDI=!)euNF*$!1) \\YaYF]*=F-7$7$$!1RLLLLLLLF*$!1!4Yy@P3!>F-Fd[l7$Fgy7$$!1gyZ/qS*G%F*$!1 *pB>UGHS\"F-7$7$$!1%4O9^v'3MF*$!1yxxxxxx8F-F`\\l7$Ff\\l7$$!1y,: Z(=F-7$7$F[\\l$\"1\"4Yy@P3!>F-F`^l7$7$$!11++++++?F*$!1&ppS8f<#>F-7$$!1 oK`wJ/]GF*$!16666666>F-7$F__lFj[l7$Fb]l7$$!1>j\"44M`N#F*$!1dLQQ))3a8F- 7$7$F[_l$!1X0t%p%*QM\"F-Ff_l7$Ff]l7$$!1-94;>\")zKF*$\"1\")\\H$o4UP\"F- 7$7$F[_l$\"1Y0t%p%*QM\"F-F``l7$Ff^l7$$!1`A%\\qW&3KF*$\"1q$=#p=z->F-7$7 $$!1F-Fj`l7$F`al7$$!1_!G->Qr7#F*$\"1X'f/*pe>>F-7 $7$F[_l$\"1&ppS8f<#>F-Ffal7$Fj^l7$$!1nNDF!*\\<=F*$!1SviUyFB>F-7$7$$!1E nmmmmmm!#<$!1>Gm?8dI>F-F`bl7$F\\`l7$$!1_MAM%H(38F*$!1$*RF$ft\\L\"F-7$7 $Fgbl$!1)\\2AaCXK\"F-F]cl7$Ff`l7$$!1?A1$)=KO8F*$\"1D>)*pD`L8F-7$7$Fgbl $\"1*\\2AaCXK\"F-Fgcl7$F\\bl7$$!1kxLu#4?D*Fibl$\"1$e&\\GnMG>F-7$7$Fgbl $\"1>Gm?8dI>F-Fadl7$Ffbl7$$!1w/\"RBNwu$FiblFjbl7$7$$\"12mmmmmmmFiblFjb lF[el7$Fccl7$$!1Ca()o'=8K\"FiblFdcl7$7$F`elFdclFcel7$F]dl7$$\"1))\\()o '=8K\"FiblF^dl7$7$F`elF^dlFiel7$Fgdl7$$\"1Z,\"RBNwu$FiblFhdl7$7$F`elFh dlF_fl7$F_el7$$\"1RuLu#4?D*Fibl$!1$e&\\GnMG>F-7$7$$\"1%*************>F *F]_lFefl7$Fgel7$$\"1m@1$)=KO8F*$!1B>)*pD`L8F-7$7$F\\glF]`lF_gl7$F]fl7 $$\"13MAM%H(38F*$\"1%*RF$ft\\L\"F-7$7$F\\glFg`lFggl7$Fcfl7$$\"1:NDF!* \\<=F*$\"1TviUyFB>F-7$7$F\\glF]blF_hl7$F[gl7$$\"1=!G->Qr7#F*$!1Y'f/*pe >>F-7$7$$\"1xK`wJ/]GF*Fb_lFghl7$F]il7$$\"19A%\\qW&3KF*$!1q$=#p=z->F-7$ 7$$\"1FLLLLLLLF*$!1\"4Yy@P3!>F-Fail7$Fegl7$$\"1:84;>\")zKF*$!1x\\H$o4U P\"F-7$7$Fhil$!1$*yT\"*zjv8F-F]jl7$F]hl7$$\"1!G;44M`N#F*$\"1eLQQ))3a8F -7$7$FhilFg]lFgjl7$7$$\"1GLLLLLLLF*$\"1#4Yy@P3!>F-7$$\"1QM`wJ/]GF*Fcal 7$Fd[mFehl7$Fgil7$$\"1&*R'*y^s?TF*$!1L4$>,:Z(=F-7$7$$\"1gmmmmmmYF*$!16 &G.7YJ'=F-Fi[m7$7$F`\\mFjy7$$\"1/hV6bn3MF*Fi\\l7$Ff\\m7$$\"1ELLLLLLLF* Fdjl7$7$Fhil$\"1'*yT\"*zjv8F-7$$\"1VUGHS\"F-7$7$F`\\mFdzF [^m7$7$FhilFb[m7$$\"1QCI=!)euNF*$\"1-lWlu-&*=F-7$7$F`\\m$\"16&G.7YJ'=F -Fd^m7$F_\\m7$$\"1<_U^#=`/&F*$!1Eh?hcYZ=F-7$7$$\"1$*************fF*$!1 uiM>TZB=F-F^_m7$Fe\\m7$$\"1z\"y%*f\"3-bF*$!1z=j1@ZL9F-7$7$Fe_mF_vFj_m7 $Fa^m7$$\"1C7:\">H>C&F*$\"1G5qJeJG9F-7$7$Fe_m$\"1&R1RScrW\"F-Fb`m7$Fj^ m7$$\"1JtH=\"\\-'fF*$\"1*R-5Gs[#=F-7$7$Fe_m$\"1viM>TZB=F-F\\am7$Fd_m7$ $\"1XE*pE94,'F*$!1K<-S)\\H#=F-7$7$$\"1cK)*y0#p.'F*FbtFfam7$7$$\"1bK)*y 0#p.'F*Fbt7$$\"1t*o*Rr\"[m'F*$!1Kz*fZawx\"F-7$7$$\"1FLLLLLLtF*$!1@0(z9 ')Gv\"F-Fcbm7$7$$\"1ELLLLLLtF*$!1Wc!>g:R[\"F-7$$\"1#*p[)>wo\"oF*Feu7$7 $$\"1$*p[)>wo\"oF*FeuF``m7$Fh`m7$$\"1f,!HffV@'F*$\"1()*Rr-wBX\"F-7$7$$ \"1))o[)>wo\"oF*FhvF\\dm7$Fbdm7$$\"1E9Z0-#4<(F*$\"1DT_3U\\x9F-7$7$F`cm $\"1Zc!>g:R[\"F-Ffdm7$7$F`cmFgs7$$\"14L)*y0#p.'F*Fhw7$FaemFbam7$Fibm7$ $\"17)\\_%zVuuF*$!1+6Y2.uU " 0 "" {MPLTEXT 1 0 90 "T:=fsolve((d-b^2*cos(t)^2)/(2*a*b*sin(t))=1 ,t=0..Pi/2):if is(T,float)=FAIL then T:=0 fi:T;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+eeyqU!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "theta:=t->if sin(t)=0 then FAIL else arcsin((d-b^2*cos(t)^2)/(2*a* b*sin(t)))fi:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "n:=40:\nt1 :=k->T+2*k*(Pi-2*T)/n:\nt2:=k->2*Pi-t1(k):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 320 "fig:=#seq(\n#plot(\n#[[-a,0],[-a+b*cos(theta(t1(k) )-t1(k)),b*sin(theta(t1(k))-t1(k))],\n#[a+b*cos(theta(t1(k))+t1(k)),b* sin(theta(t1(k))+t1(k))],[a,0]]), k=0..n),\nseq(plot(\n[[-a,0],[-a+b*c os(theta(t2(k))-t2(k)),b*sin(theta(t2(k))-t2(k))],\n[a+b*cos(theta(t2( k))+t2(k)),b*sin(theta(t2(k))+t2(k))],[a,0]],color=blue), k=0..n):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 155 "fig:=seq(\nplot(\n[[-a,0], [-a+b*cos(theta(t1(k))-t1(k)),b*sin(theta(t1(k))-t1(k))],\n[a+b*cos(th eta(t1(k))+t1(k)),b*sin(theta(t1(k))+t1(k))],[a,0]]), k=0..n):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "display([display(plot([b*cos(t),theta(t),t=0..2*Pi], coords=polar,numpoints=1000,scaling=constrained)),display([fig],insequ ence=true,scaling=constrained,axes=none)]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "16" 0 }{VIEWOPTS 1 1 0 1 1 1803 }