{VERSION 5 0 "IBM INTEL LINUX" "5.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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 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 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 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Digits := 20;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#?" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "K := 6.67*1
0^(-11);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "MJ := 2.1*10^(18);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "ME := 5.6*10^(17);" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 1 ":" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "MS := 5.7
*10^(26);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "R := 1.51*10^8;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "ro := 2*R*10^(-3);" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 8 "vo := 0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "vT
 := 1.590*10^4;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ":" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 19 "FS := -K*MS*ME/R^2;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "FAcc := ME*vT^2/(R+ro);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "F2 := -K*MJ*ME/ro^2;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 21 "FT := FS + F2 + FAcc;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Om :
= vT/R;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "evalf(ro);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"KG$\"5++++++++qm!#I" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#MJG$\"5+++++++++@!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%#MEG$\"4++++++++g&!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#
MSG$\"5+++++++++d\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RG$\",++
++^\"!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#roG$\"5++++++++?I!#9" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#voG\"\"!" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#vTG$\")++!f\"!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%#FSG$!5V&G#*elX!fP$*!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%FAcc
G$\"54u,LAd5-d$*!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#F2G$!5P_g+i
iAT+')!\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#FTG$\"3h#)e<S)=I3\"!
\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#OmG$\"5e7J.XK,)H0\"!#B" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"5++++++++?I!#9" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 23 "Omprime := Om*R/(R+ro);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%(OmprimeG$\"5$fK$*)pv$y30\"!#B" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 7 "One day" }}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "tots
ecs := 32000;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(totsecsG\"&+?$" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "for  i from 1 to totsecs do
 " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "FAcc := ME*vT^2/(R+ro);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "F2 := -K*MJ*ME/ro^2:" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 20 "FT:= FS + F2 + FAcc:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "vave := vo + FT/(2*ME):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "vo := vo + FT/ME:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "ro :=  ro + vave:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "end do:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "evalf(vo);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#$\"5LRat.e6Y27!#=" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "evalf(ro);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"5*R^
VG6+]W7$!#9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "evalf(vave);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"5gm]$fEhv6=%!#>" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "evalf(FT);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"3x**y50KY9Q!\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "FAcc := ME*Om^2*R;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%%FAccG$\"+)3NdP*\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "FT :=FS + F2 + FAcc;" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#FTG$!3w(>4H?KCF)!\"#" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "ACE := FT/ME;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$ACEG$!5VJ&yLi.?sZ\"!#@" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "A  :=  -K*MJ/ro^2;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
1 ":" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG$!5Kqnj\"oe?1&e!#A" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "evalf(B +A/ro^2);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$\"5L$)********RcpP!\"$" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 44 "r := t -> 10^5 + A*t^2/(2*10^10) + B*t^2/2; \+
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rGf*6#%\"tG6\"6$%)operatorG%&a
rrowGF(,(\"'++5\"\"\"*&#F.\",+++++#F.*&%\"AGF.)9$\"\"#F.F.F.*&#F.F6F.*
&%\"BGF.F4F.F.F.F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "p
lot(r(x), x =0..1);" }}{PARA 13 "" 1 "" {GLPLOT2D 387 387 387 
{PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)$\"'++5F)7$$\"5mmmmm;arz@!#@$\"
52QU:NB'**[&*)!\"(7$$\"5LLLL$e9ui2%F/$\"5\"Hh4sy$evJJ!\"'7$$\"5mmmmm\"
z_\"4iF/$\"52Wrabo!4lE(F87$$\"5lmmmmT&phN)F/$\"5r)H!)>YwfgJ\"!\"&7$$\"
5LLLLe*=)H\\5!#?$\"5)z#G43*G&>v?FC7$$\"5mmmm\"z/3uC\"FG$\"5*zi,$zw8xKH
FC7$$\"5++++DJ$RDX\"FG$\"5#\\qAq$efkwRFC7$$\"5mmmm\"zR'ok;FG$\"5A$=Q5!
)prIA&FC7$$\"5++++D1J:w=FG$\"5n4)H)*HIRVj'FC7$$\"5LLLLL3En$4#FG$\"5Ab$
y]M\"f(=E)FC7$$\"5mmmm;/RE&G#FG$\"5*f(*yZl:WJ%)*FC7$$\"5+++++D.&4]#FG$
\"5Vkb]/)\\%))y6!\"%7$$\"5+++++vB_<FFG$\"5t::O-5z*=R\"Fgo7$$\"5+++++v'
Hi#HFG$\"5daAp^@\\!Rh\"Fgo7$$\"5mmmm\"z*ev:JFG$\"5t@%RC)zStH=Fgo7$$\"5
LLLLL347TLFG$\"5)Q8rap!*)*R5#Fgo7$$\"5LLLLLLY.KNFG$\"5p*HPp*zhJ^BFgo7$
$\"5*******\\7o7Tv$FG$\"5X='zTi]\"HcEFgo7$$\"5LLLLL$Q*o]RFG$\"5BG$QR;o
d<%HFgo7$$\"5*******\\7=lj;%FG$\"5)[R\\\")3Y<<F$Fgo7$$\"5*******\\PaR<
P%FG$\"5x&)=8^da@-OFgo7$$\"5LLLL$e9Ege%FG$\"5f!Qlu1'[+kRFgo7$$\"5LLLLe
R\"3Gy%FG$\"50*G^J?k'[6VFgo7$$\"5mmmm;/T1&*\\FG$\"5<Y+mQ/ll-ZFgo7$$\"5
mmmm\"zRQb@&FG$\"5#Gk(z-()R&p7&Fgo7$$\"5*******\\(=>Y2aFG$\"5v1&*o'R-C
7^&Fgo7$$\"5mmmm;zXu9cFG$\"5OEIPD$[U=%fFgo7$$\"5**********\\y))GeFG$\"
5b#=:$H-Gs.kFgo7$$\"5********\\i_QQgFG$\"5U7#p=9L5B(oFgo7$$\"5*******
\\7y%3TiFG$\"5LWjoF81WTtFgo7$$\"5********\\P![hY'FG$\"5p!oTWsHv/)yFgo7
$$\"5KLLLL$Qx$omFG$\"597hRbW&36Q)Fgo7$$\"5*********\\P+V)oFG$\"5VI)*[V
Y)eE$*)Fgo7$$\"5mmmm\"zpe*zqFG$\"5w*[A#y:MiZ%*Fgo7$$\"5*********\\#\\'
QH(FG$\"5vy^A])z7F+\"!\"$7$$\"5KLLLe9S8&\\(FG$\"57EQj-BY\")e5F[w7$$\"5
*******\\i?=bq(FG$\"5w,CDd;&*3>6F[w7$$\"5KLLLL3s?6zFG$\"5XeZ;OqAjz6F[w
7$$\"5*******\\7`Wl7)FG$\"5i#y\"Rn;PsW7F[w7$$\"5lmmmmm*RRL)FG$\"5U6thw
dp148F[w7$$\"5lmmm;a<.Y&)FG$\"56%3tj<5WlP\"F[w7$$\"5KLLLe9tOc()FG$\"5
\"*RVl)y:P^W\"F[w7$$\"5**********\\Qk\\*)FG$\"5*>f9'\\Ztj4:F[w7$$\"5KL
LL$3dg6<*FG$\"58p*zv*\\OH&e\"F[w7$$\"5lmmmmmxGp$*FG$\"5S'oH82hGXl\"F[w
7$$\"5)******\\7oK0e*FG$\"5d#o$H\"pVx*H<F[w7$$\"5)******\\(=5s#y*FG$\"
5Gx1!ff5nP!=F[w7$$\"\"\"F)$\"5m\"****4++#y%)=F[w-%'COLOURG6&%$RGBG$\"#
5!\"\"F(F(-%+AXESLABELSG6$Q\"x6\"Q!Fh[l-%%VIEWG6$;F(Fiz%(DEFAULTG" 1 
2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "MEr := 6*10^24;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%$MErG\":++++++++++++'" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 15 "MSo := 2*10^30;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$MSoG\"@+++++++++++++++#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "OmE := 2.9*10^4/RE;" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%$OmEG$\"53Hl)G'3'>o$>!#E" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 24 "RE := 93*10^6*1.61*10^3;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ":
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#REG$\"/++++I(\\\"!\"#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "FES := -K*MSo*MEr/RE^2;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FESG$!5M!o#fy$Ru,d$\"\"$" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "FDO := MEr*OmE^2*RE;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$FDOG$\"5egDU,>h1qL\"\"$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 " " }}}}{MARK "8 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }