{VERSION 6 0 "IBM INTEL LINUX" "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 }{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 12 "Party trick:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "eq1 := (m+M)*g*H = 1/2*(m+M)
*v0^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "eq2 := -M*v0 + m*
v0 = M*V + m*v;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "eq3 := 1
/2*M*v0^2 + 1/2*m*v0^2 = 1/2*M*V^2 + 1/2*m*v^2;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 25 "eq4 := 1/2*m*v^2 = m*g*h;" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 36 "solve(\{eq1,eq2,eq3,eq4\},\{v0,v,V,h\});" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "solve(eq1, v0);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "v0 := %[2];" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 13 "solve(eq2,V);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "V := simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "solve(eq3,v);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 10 "v := %[2];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "solve
(eq4,h);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "h := %;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "limit(h, m = 0);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "solve(\{eq1,eq2,eq3,eq4\}, \{v0,V,v
,h\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "h := subs( %[2], \+
h);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "h;" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "limit(h, m = 0);" }}}}{MARK "0 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }