{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "l:=3.1: g:=l^2: v1:=
0: v2:=0:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "x1:=-l*.96: x2:=0: h:=
.1/4.:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "k:=4.: y1:=sqrt(g-x1^2): \+
y2:=sqrt(g-x2^2):\nn:=1:\nxx1[n]:=x1-g:\nxx2[n]:=x2:\nyy1[n]:=y1:\nyy2
[n]:=y2:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 243 "for n from 2 to 100 do
\n for i from 1 to 4 do \n  ad:=k*(x1-x2):\n  v1:=v1+h*(-x1*y1-ad):\n \+
 v2:=v2+h*(-x2*y2+ad):\n  x1:=x1+h*v1:\n  x2:=x2+h*v2:\n  y2:=sqrt(g-x
2^2):\n  y1:=sqrt(g-x1^2):\n od:\n xx1[n]:=x1-g:\n xx2[n]:=x2:\n yy1[n
]:=y1:\n yy2[n]:=y2:\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
65 "with(plots): plotcond:=frames=50, axes=NONE, scaling=constrained:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 316 "asp:=animate([x*xx1[round(t)]+
(1-x)*xx2[round(t)], piecewise(abs(.5-x)<.4,sin(20*Pi*x)/2,0) -x*yy1[r
ound(t)]-(1-x)*yy2[round(t)], x=0..1], t=1..100, numpoints=60, plotcon
d, color=black, thickness=2):\nas1:=animate([x*(-g)+(1-x)*xx1[round(t)
], -(1-x)*yy1[round(t)],x=0..1], t=1..100, plotcond, color=red, thickn
ess=2):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "as2:=animate([(1-x)*xx2
[round(t)], -(1-x)*yy2[round(t)],x=0..1], t=1..100, plotcond,  color=r
ed, thickness=2):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "display([asp,a
s1,as2]); #,as3,as4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" 
}}}}{MARK "3" 0 }{VIEWOPTS 1 1 0 3 2 1804 }