{VERSION 6 0 "IBM INTEL NT" "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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 
11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 
0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 27 "   # Distance to the Moon :" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "s[0]:=3.84*10^(8);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>&%\"sG6#\"\"!$\"++++SQ!\"\"" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 19 "   # Focal length :" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "f:=50*10^(-3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"fG#\"\"\"\"#?" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 22 "   # Moon's di
ameter :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "y[0]:=0.273*1.2
7*10^(7);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"yG6#\"\"!$\"+++5nM!
\"$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 48 "    # Use Gaussian Lens Eq
uation (24.6) to find " }{XPPEDIT 18 0 "s[i];" "6#&%\"sG6#%\"iG" }
{TEXT -1 2 " :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "s[i]:=(1/
f-1/s[0])^(-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"sG6#%\"iG$\"++
+++]!#6" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 50 "   # Find the magnific
ation using Equation (24.9) " }{XPPEDIT 18 0 "M[T];" "6#&%\"MG6#%\"TG
" }{TEXT -1 2 " :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "M[T]:=
-s[i]/s[0];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"MG6#%\"TG$!+LL3-8!
#>" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 33 "   # Use Equation (24.8) to
 find " }{XPPEDIT 18 0 "y[i];" "6#&%\"yG6#%\"iG" }{TEXT -1 2 " :" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "y[i]:=M[T]*y[0];" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"yG6#%\"iG$!+CJX9X!#8" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "12 0 0" 0 }{VIEWOPTS 1 1 0 1 
1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }