{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
{USTYLETAB {CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 0 0 0 2 2 
1 0 0 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 
0 255 1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE 
"_pstyle2" -1 203 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 0 1 0 2 
1 2 0 0 0 1 }1 0 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle4" -1 204 
1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }1 0 
0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle6" -1 206 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }3 3 0 -1 -1 -1 2 0 2 0 
2 2 -1 1 }{PSTYLE "_pstyle7" -1 207 1 {CSTYLE "" -1 -1 "Courier" 1 12 
255 0 0 1 0 1 0 2 1 2 0 0 0 1 }0 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }
{PSTYLE "_pstyle8" -1 208 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 255 
1 0 0 0 2 2 1 0 0 0 1 }1 0 0 -1 -1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_psty
le9" -1 209 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 
0 1 }1 0 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle10" -1 210 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 0 0 0 2 2 1 0 0 0 1 }1 3 0 -1 
-1 -1 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle11" -1 211 1 {CSTYLE "" -1 -1 
"" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }1 0 0 0 0 0 2 0 2 0 2 2 -1 1 }}
{SECT 0 {EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 -1 12 "# 2010-05-15" }}}
{EXCHG {PARA 204 "> " 0 "" {MPLTEXT 1 -1 12 "# pendule.mw" }}}{EXCHG 
{PARA 204 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 203 "> " 0 "" 
{MPLTEXT 1 -1 8 "restart:" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 
-1 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name \+
changecoords has been redefined\n" }}}{EXCHG {PARA 203 "> " 0 "" 
{MPLTEXT 1 -1 21 "with(plottools,line):" }}}{EXCHG {PARA 204 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 -1 69 "# mouvem
ent du rayon d'une roue de bicyclette (GSZ page 92, en mieux)" }}}
{EXCHG {PARA 204 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 203 "> " 0 "" 
{MPLTEXT 1 -1 25 "# equation de la cycloide" }}}{EXCHG {PARA 203 "> " 
0 "" {MPLTEXT 1 -1 41 "x := t -> t-sin(t); y := t -> 1 - cos(t);" }}
{PARA 206 "" 1 "" {XPPMATH 20 "6#>%\"xGf*6#%\"tG6\"6$%)operatorG%&arro
wGF(,&9$\"\"\"-%$sinG6#F-!\"\"F(F(F(" }}{PARA 206 "" 1 "" {XPPMATH 20 
"6#>%\"yGf*6#%\"tG6\"6$%)operatorG%&arrowGF(,&\"\"\"F--%$cosG6#9$!\"\"
F(F(F(" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 -1 25 "# representati
on du rayon" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 -1 50 "Line1 := \+
u -> line([x(u),y(u)],[u,1],color=black);" }}{PARA 206 "" 1 "" 
{XPPMATH 20 "6#>%&Line1Gf*6#%\"uG6\"6$%)operatorG%&arrowGF(-%%lineG6%7
$-%\"xG6#9$-%\"yGF27$F3\"\"\"/%&colorG%&blackGF(F(F(" }}}{EXCHG {PARA 
203 "> " 0 "" {MPLTEXT 1 -1 37 "# trace de la cycloide (arriere-plan)
" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 -1 50 "myplotoptions := `sc
aling=constrained,color=blue`;" }}{PARA 206 "" 1 "" {XPPMATH 20 "6#>%.
myplotoptionsG%?scaling=constrained,color=blueG" }}}{EXCHG {PARA 203 "
> " 0 "" {MPLTEXT 1 -1 66 "bg := plot(\{[x(t),y(t),t=0..2*Pi],[t,1,t=0
..2*Pi]\},myplotoptions):" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 
-1 42 "F := proc(u) plots[display](Line1(u)) end;" }}{PARA 206 "" 1 "
" {XPPMATH 20 "6#>%\"FGf*6#%\"uG6\"F(F(-&%&plotsG6#%(displayG6#-%&Line
1G6#9$F(F(F(" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 -1 38 "animate(
F,[u],u=0..2*Pi,background=bg," }}{PARA 207 "> " 0 "" {MPLTEXT 1 -1 
33 " frames=100,scaling=CONSTRAINED);" }}{PARA 208 "" 1 "" {TEXT -1 
101 "Error, (in animate) first argument must be a plot structure or li
st, set or array of plot structures\n" }}}{EXCHG {PARA 204 "> " 0 "" 
{MPLTEXT 1 -1 182 "F := proc(t)\n  plots[display](\n     line([-2,0],[
cos(t)-2,sin(t)],color=blue),\n     line([cos(t)-2,sin(t)],[t,sin(t)],
color=blue),\n     plot(sin(x),x=0..t,view=[-3..7,-5..5]) );\nend;" }}
{PARA 209 "" 1 "" {XPPMATH 20 "6#>%\"FGf*6#%\"tG6\"F(F(-&%&plotsG6#%(d
isplayG6%-%%lineG6%7$!\"#\"\"!7$,&-%$cosG6#9$\"\"\"\"\"#!\"\"-%$sinGF9
/%&colorG%%blueG-F06%F57$F:F>F@-%%plotG6%-F?6#%\"xG/FK;F4F:/%%viewG7$;
!\"$\"\"(;!\"&\"\"&F(F(F(" }}{PARA 210 "" 1 "" {XPPMATH 20 "6#>%\"FGf*
6#%\"tG6\"F(F(-&%&plotsG6#%(displayG6%-%%lineG6%7$!\"#\"\"!7$,&-%$cosG
6#9$\"\"\"\"\"#!\"\"-%$sinGF9/%&colorG%%blueG-F06%F57$F:F>F@-%%plotG6%
-F?6#%\"xG/FK;F4F:/%%viewG7$;!\"$\"\"(;!\"&\"\"&F(F(F(" }}{PARA 208 "
" 1 "" {TEXT -1 101 "Error, (in animate) first argument must be a plot
 structure or list, set or array of plot structures\n" }}}{EXCHG 
{PARA 204 "> " 0 "" {MPLTEXT 1 -1 126 "animate(F,[theta],theta=0..2*Pi
,\n        background=plot([cos(t)-2,sin(t),t=0..2*Pi]),\n        scal
ing=constrained,axes=none);" }}{PARA 208 "" 1 "" {TEXT -1 101 "Error, \+
(in animate) first argument must be a plot structure or list, set or a
rray of plot structures\n" }}}{EXCHG {PARA 204 "" 0 "" {TEXT -1 0 "" }
}}{EXCHG {PARA 203 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 203 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 203 "" 0 "" {TEXT -1 0 "" }}}{PARA 211 "
" 0 "" {TEXT -1 0 "" }}{PARA 211 "" 0 "" {TEXT -1 0 "" }}{PARA 211 "" 
0 "" {TEXT -1 0 "" }}{PARA 211 "" 0 "" {TEXT -1 0 "" }}{PARA 211 "" 0 
"" {TEXT -1 0 "" }}{PARA 211 "" 0 "" {TEXT -1 0 "" }}{PARA 211 "" 0 "
" {TEXT -1 0 "" }}{PARA 211 "" 0 "" {TEXT -1 0 "" }}}{MARK "7 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }