{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 
0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 319 "The following are the cal
culations for Humphreys' model using the modified Schwarzschild metric
 with cosmology constant. We us the mass of the earth 5.98 x 10^27 g, \+
radius of earth of 6.37 x 10^8 cm, the G = 6.67 X 10^(-8), and c = 3 x
 10^10 cm, to calculate the lambda when event horizon is at this radiu
s. This gives." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 62 "evalf(solve(\{1 - 0.889*10^(-8)/6.37 -x*(6.37*10^8)^2
/3\},\{x\}));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<#/%\"xG$\"+D\"pLR(!#
F" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 104 "The next result is the calc
ulation of any event horizon that might occur for this x = lambda, whe
re the " }}{PARA 0 "" 0 "" {TEXT -1 77 "mass is that as stated in Hump
hreys' for the entire universe of 3 x 10^54 gm." }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 87 "evalf(solve(\{1-2*6.67*10^(-8)*3*10^(54)/(9*10
^(20)*x)-(7.393369*10^(-18)*x^2)/3\},\{x\}));" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6%<#/%\"xG$!+O!H2l&\"\"&<#/F%,&$\"+=XODGF(\"\"\"%\"IG$!+&
*[n$*[F(<#/F%,&F,F.F/$\"+&*[n$*[F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 526 "This shows that application of this particular cosmological co
nstant with respect to the exterior modified Schwarzschild metric will
 eliminate the event horizon since this expression has no positive rea
l valued solution. Thus assuming that there is an event horizon at the
 earths surface yields a specific value for the lambda, but this value
 also shows that there does not exist such a event horizon at the mome
nt this value is assigned to the entire universe as modeled by the Hum
phreys' estimate as to the universes mass.  " }}}}{MARK "3 0 0" 509 }
{VIEWOPTS 1 1 0 1 1 1803 }