{VERSION 5 0 "IBM INTEL NT" "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 }
{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 "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 "Text Output" -1 6 1 {CSTYLE "" -1 
-1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 3 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 }{PSTYLE "Map
le Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 
1 1 1 }3 1 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 "" {MPLTEXT 0 21 24 "Standard Worksheet SSSPF" }{TEXT -1 
0 "" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 9 "Tolman IV" }}}{EXCHG 
{PARA 0 "" 0 "" {MPLTEXT 0 21 57 "Physical quatities are defined in th
e initialization file" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "grt
s();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%=GRTensorII~Version~1.79~(R4)
G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%06~February~2001G" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%ZDeveloped~by~Peter~Musgrave,~Denis~Pollney~and
~Kayll~LakeG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%DCopyright~1994-2001~
by~the~authors.G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%inLatest~version~
available~from:~http://grtensor.phy.queensu.ca/G" }}{PARA 6 "" 1 "" 
{TEXT -1 32 "Created definition for G(up,dn) " }}{PARA 6 "" 1 "" 
{TEXT -1 26 "Created definition for rho" }}{PARA 6 "" 1 "" {TEXT -1 
26 "Created definition for Iso" }}{PARA 6 "" 1 "" {TEXT -1 24 "Created
 definition for p" }}{PARA 6 "" 1 "" {TEXT -1 34 "Created definition f
or gthetatheta" }}{PARA 6 "" 1 "" {TEXT -1 38 "Created definition for \+
R(dn,dn,up,up) " }}{PARA 6 "" 1 "" {TEXT -1 27 "Created definition for
 mass" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%FD:/Xitami/webpages/GRTensor
J/MetricssG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "qload(tiva);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%2Default~spacetimeG%%tivaG" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%8For~the~tiva~spacetime:G" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#%,CoordinatesG" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#-%\"xG6#%#upG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&/)%#x~G%\"1G%#x
iG/)F%%\"2G%&thetaG/)F%%\"3G%$phiG/)F%%\"4G%\"tG" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%-Line~elementG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/*$)
%$~dsG\"\"#\"\"\",**0%\"RGF'%&alphaGF(,(F,F(\"\"$!\"\"*&F'F()%#xiGF'F(
F(F(,(F,F(F.F/*$F1F(F(F/,&F,F(F4F/F/%#~dGF()F2%#2~GF(F(**)F+F'F(F1F(F6
F()%&thetaGF8F(F(*,F:F(F1F()-%$sinG6#F<F'F(F6F()%$phiGF8F(F(**F3F(,&F,
F(F.F/F/F6F()%\"tGF8F(F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%,Constra
intsG7\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%FR.~Tolman,~Phys.~Rev.,~5
5,~364~(1939)G" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 19 "Physical p
arameters" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "grcalc(Iso,rho
,p,mass):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%*CPU~Time~G$\"$+\"!\"$
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "gralter(_,6,7):" }}
{PARA 6 "" 1 "" {TEXT -1 48 "Component simplification of a GRTensorII \+
object:" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 
37 "Applying routine expand to object Iso" }}{PARA 6 "" 1 "" {TEXT -1 
37 "Applying routine expand to object rho" }}{PARA 6 "" 1 "" {TEXT -1 
35 "Applying routine expand to object p" }}{PARA 6 "" 1 "" {TEXT -1 
38 "Applying routine expand to object mass" }}{PARA 6 "" 1 "" {TEXT 
-1 37 "Applying routine factor to object Iso" }}{PARA 6 "" 1 "" {TEXT 
-1 37 "Applying routine factor to object rho" }}{PARA 6 "" 1 "" {TEXT 
-1 35 "Applying routine factor to object p" }}{PARA 6 "" 1 "" {TEXT 
-1 38 "Applying routine factor to object mass" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/%*CPU~Time~G$\"#?!\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "grdisplay(_);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%8Fo
r~the~tiva~spacetime:G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%$IsoG" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/%$IsoG%8All~components~are~zeroG" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%$rhoG" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#/%$rhoG,$*,,.*$)%&alphaG\"\"#\"\"\"F+*&\"\"*F,F*F,!\"\"*(\"\"$F,
F*F,)%#xiGF+F,F,F.F,*&\"\"(F,F2F,F/*&F+F,)F3\"\"%F,F,F,,(F*F,F1F/*&F+F
,F2F,F,!\"#F*F/%\"RGF;%#PiGF/#F1\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#%\"pG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"pG,$*.,&%#xiG\"\"\"F)!
\"\"F),&F(F)F)F)F)%\"RG!\"#%&alphaGF*,(F.F)\"\"$F**&\"\"#F))F(F2F)F)F*
%#PiGF*#!\"$\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%massG" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#/%%massG,$*,*&)%\"RG\"\"#\"\"\")%#xiGF*F+#\"
\"$F*F)!\"#,(%&alphaGF*F/!\"\"*$F,F+F+F+F2F3,(F2F+F/F3*&F*F+F,F+F+F3#F
+F*" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 14 "Perssure plots" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "pj:=subs(grcomponent(p,[])):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "p1:=subs(R=1,alpha=6,pj
): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "p2:=subs(R=1,alpha=5
,pj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "p3:=subs(R=1,alpha
=4,pj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "p4:=subs(R=1,alp
ha=3.5,pj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "plot([p1,p2,
p3,p4],xi=0..1,color=[red,green,blue,black],title=\"Pressure Tolman IV
\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVE
SG6$7S7$$\"\"!F)$\"3@0B;ifXJm!#?7$$\"3emmm;arz@!#>$\"3NkW(4W1ii'F,7$$
\"3[LL$e9ui2%F0$\"3L:yxe:68mF,7$$\"3nmmm\"z_\"4iF0$\"31a<VUT&*)e'F,7$$
\"3[mmmT&phN)F0$\"3)[(3K[$RYb'F,7$$\"3CLLe*=)H\\5!#=$\"3a8]49Dl5lF,7$$
\"3gmm\"z/3uC\"FE$\"3]o1yWHChkF,7$$\"3%)***\\7LRDX\"FE$\"3CE(zwg)\\,kF
,7$$\"3]mm\"zR'ok;FE$\"3b&)3<H!H2L'F,7$$\"3w***\\i5`h(=FE$\"3mrW2TgL^i
F,7$$\"3WLLL3En$4#FE$\"3#[HiTqK2;'F,7$$\"3qmm;/RE&G#FE$\"3#>Zt&o0ntgF,
7$$\"3\")*****\\K]4]#FE$\"3E238#HEy'fF,7$$\"3$******\\PAvr#FE$\"3O85#Q
>TN&eF,7$$\"3)******\\nHi#HFE$\"3b!Rgdnkht&F,7$$\"3jmm\"z*ev:JFE$\"3\\
I%H3?9Pi&F,7$$\"3?LLL347TLFE$\"3M'fvhMBJ[&F,7$$\"3,LLLLY.KNFE$\"3QMs$p
Q0&e`F,7$$\"3w***\\7o7Tv$FE$\"3[:;=,*yv?&F,7$$\"3'GLLLQ*o]RFE$\"3]0mO_
%z*o]F,7$$\"3A++D\"=lj;%FE$\"3\"\\py24.>\"\\F,7$$\"31++vV&R<P%FE$\"3?Y
/o*eIyv%F,7$$\"3WLL$e9Ege%FE$\"3+,](en#z#f%F,7$$\"3GLLeR\"3Gy%FE$\"3([
3\"fd>tPWF,7$$\"3cmm;/T1&*\\FE$\"3YGRq0g3nUF,7$$\"3&em;zRQb@&FE$\"35c^
Pkw]'3%F,7$$\"3\\***\\(=>Y2aFE$\"3a'\\c)=!zo#RF,7$$\"39mm;zXu9cFE$\"3C
\"[DDXdAv$F,7$$\"3l******\\y))GeFE$\"37^mB%fz(pNF,7$$\"3'*)***\\i_QQgF
E$\"3G5!\\))G`&*Q$F,7$$\"3@***\\7y%3TiFE$\"3IRpu.#pQ@$F,7$$\"35****\\P
![hY'FE$\"3v0fzqfj<IF,7$$\"3kKLL$Qx$omFE$\"3dVr!4G_0%GF,7$$\"3!)*****
\\P+V)oFE$\"3O@?UGd(4l#F,7$$\"3?mm\"zpe*zqFE$\"3gvJ;()*y*yCF,7$$\"3%)*
****\\#\\'QH(FE$\"3G(f0*Rs&4H#F,7$$\"3GKLe9S8&\\(FE$\"3;]fqedF9@F,7$$
\"3R***\\i?=bq(FE$\"3@Hvn,+0I>F,7$$\"3\"HLL$3s?6zFE$\"3%Reoc@&e]<F,7$$
\"3a***\\7`Wl7)FE$\"3-1Lr?,fj:F,7$$\"3#pmmm'*RRL)FE$\"35%Rn!>)GXQ\"F,7
$$\"3Qmm;a<.Y&)FE$\"3gWtm`Yj-7F,7$$\"3=LLe9tOc()FE$\"3l\\v;-9iB5F,7$$
\"3u******\\Qk\\*)FE$\"3$\\nNMEcXg)!#@7$$\"3CLL$3dg6<*FE$\"3]WH)fsu9v'
F`y7$$\"3ImmmmxGp$*FE$\"3;8WYM#)\\5^F`y7$$\"3A++D\"oK0e*FE$\"3=1v!GG=!
zLF`y7$$\"3A++v=5s#y*FE$\"3PR5yKn=S<F`y7$$\"\"\"F)F(-%'COLOURG6&%$RGBG
$\"*++++\"!\")F(F(-F$6$7S7$F($\"37:#*=t?m$>\"F07$F.$\"3i.[5c$GD>\"F07$
F4$\"3u5a0t=q*=\"F07$F9$\"3%e4<FV$\\%=\"F07$F>$\"3;P'3f.3r<\"F07$FC$\"
3mT_6^Kmn6F07$FI$\"3Gc'\\f$Q3d6F07$FN$\"3#47\"G'RLV9\"F07$FS$\"30v/q,*
)GH6F07$FX$\"3f!Hbdx'[76F07$Fgn$\"3;m!='3\"4M4\"F07$F\\o$\"3K!z(\\)ot^
2\"F07$Fao$\"3A6PtU28`5F07$Ffo$\"3$fAXhJ%[H5F07$F[p$\"3+yufrMO05F07$F`
p$\"3$\\3P3y.T#)*F,7$Fep$\"3hE9Im,DR&*F,7$Fjp$\"3E!zn'*R/()G*F,7$F_q$
\"3S+g$Q(Go()*)F,7$Fdq$\"3^Kuc!p_Nr)F,7$Fiq$\"33M`)**e6bS)F,7$F^r$\"30
%=`02Xg5)F,7$Fcr$\"3YM[\"[yt\")y(F,7$Fhr$\"3YZY$eNBA\\(F,7$F]s$\"33<o?
'=8&prF,7$Fbs$\"3OOIBd#z8$oF,7$Fgs$\"3_!QhSM4``'F,7$F\\t$\"3NC*f!4bV9i
F,7$Fat$\"310'*y79V#)eF,7$Fft$\"3;6@R:8zdbF,7$F[u$\"30%*>lQDTW_F,7$F`u
$\"3e=l]G$>z*[F,7$Feu$\"3/$fJ^8)R)e%F,7$Fju$\"3AhzZ)Q7.E%F,7$F_v$\"3m$
**H9ONb'RF,7$Fdv$\"3W8LA+xQYOF,7$Fiv$\"3C-U,9@R\\LF,7$F^w$\"3r\"Q2@,nE
/$F,7$Fcw$\"3S*Q\"e?bsYFF,7$Fhw$\"3/o'G8eA8W#F,7$F]x$\"3)[6fark;:#F,7$
Fbx$\"3-Y,ejn<g=F,7$Fgx$\"3M%y[!>j(fd\"F,7$F\\y$\"3&*3WM1A@>8F,7$Fby$
\"3IXhG#*>?I5F,7$Fgy$\"3oOA'G#z[lxF`y7$F\\z$\"3,PC%*f+%>6&F`y7$Faz$\"3
#Q4)=\"[Y<i#F`yFez-Fiz6&F[[lF(F\\[lF(-F$6$7S7$F($\"3cPI(H=bT)HF07$F.$
\"3QV`\">w0*zHF07$F4$\"312FwE!H$pHF07$F9$\"3;Z/QBV!*\\HF07$F>$\"3Ug#pQ
.0D#HF07$FC$\"3I#o&*Q#*4x)GF07$FI$\"3s]T0_n0\\GF07$FN$\"3\\b!\\G^<H!GF
07$FS$\"3y=G'36%4\\FF07$FX$\"3q\"))eE4e(*o#F07$Fgn$\"3@9&H-%yNBEF07$F
\\o$\"3)yK2p8M3c#F07$Fao$\"3e$*\\hT)fk[#F07$Ffo$\"3Y)e*e!*R53CF07$F[p$
\"3M9A#HUe'HBF07$F`p$\"3aQy\")pGOcAF07$Fep$\"3W(\\T&4B=n@F07$Fjp$\"3'
\\cG4>E.4#F07$F_q$\"3=4VN__))**>F07$Fdq$\"3`*3BC&>F>>F07$Fiq$\"3i/*3X'
3hI=F07$F^r$\"3a=B)>$yIY<F07$Fcr$\"3%RM<31&ze;F07$Fhr$\"3S\"*=wJM3z:F0
7$F]s$\"3C*>PZ%=/%\\\"F07$Fbs$\"3hx%HSxnpS\"F07$Fgs$\"3[r1]kuPK8F07$F
\\t$\"3_fE0`LA`7F07$Fat$\"3EJx0p-6t6F07$Fft$\"3)3)yWuWZ'4\"F07$F[u$\"3
oz3`k7/C5F07$F`u$\"3C*Gy.9PmX*F,7$Feu$\"3-YKwaV?r()F,7$Fju$\"3IDe_8PMf
!)F,7$F_v$\"38V8+VWEKuF,7$Fdv$\"3'=F:xa+jw'F,7$Fiv$\"3MaEWjZKehF,7$F^w
$\"3S\\y3d/+UbF,7$Fcw$\"3-3SteO=e\\F,7$Fhw$\"37R6;^$flO%F,7$F]x$\"3)=q
0*pmN:QF,7$Fbx$\"3W,WNfk;qKF,7$Fgx$\"3G05loaaZFF,7$F\\y$\"3OplpsKy#G#F
,7$Fby$\"3'=_)pjB'yw\"F,7$Fgy$\"30G#*f,j$HK\"F,7$F\\z$\"32>4vx\\GV')F`
y7$Faz$\"3;:.J(Q/=S%F`yFez-Fiz6&F[[lF(F(F\\[l-F$6$7S7$F($\"3\"3V\"yHh#
4#oF07$F.$\"3jYQ_7Kv/oF07$F4$\"3O,T)=*>jknF07$F9$\"3??A1vuV\"p'F07$F>$
\"3'plln6f#*e'F07$FC$\"3wKby2\\EhkF07$FI$\"3K;G1%[V8K'F07$FN$\"3u1^Z3Q
OdhF07$FS$\"3qJi>%>L,(fF07$FX$\"3s!z2JJA'odF07$Fgn$\"3g-M\"[T#)*[bF07$
F\\o$\"3;')*=>\\2wM&F07$Fao$\"3*3_([Aul9^F07$Ffo$\"3m'3Q$\\clw[F07$F[p
$\"3qPrQALmXYF07$F`p$\"3I_]\"\\,HhV%F07$Fep$\"3AM2<=*3!*=%F07$Fjp$\"3+
#4=>tCE)RF07$F_q$\"3QaX`z:?ZPF07$Fdq$\"3>_lCa\"QQa$F07$Fiq$\"3\"4j0ol(
*oK$F07$F^r$\"3)zdbzjko7$F07$Fcr$\"309HE#=l`#HF07$Fhr$\"3c;dDDl/ZFF07$
F]s$\"3)y^3&)zd?c#F07$Fbs$\"3S'*pT<L.yBF07$Fgs$\"33(**>a3^XA#F07$F\\t$
\"3G#o1eB7d1#F07$Fat$\"3SL6679-4>F07$Fft$\"3)R3<OjBGw\"F07$F[u$\"3f_M,
QM%yi\"F07$F`u$\"3a5(Rp+n^[\"F07$Feu$\"3m)QgWDxJO\"F07$Fju$\"3stl<)HW
\"R7F07$F_v$\"3(fN6?Oh?8\"F07$Fdv$\"3I+9*)of]?5F07$Fiv$\"3./X[8nf0#*F,
7$F^w$\"3^TUW.3P5#)F,7$Fcw$\"3%>[e0_#)QG(F,7$Fhw$\"3+@_j*\\;2O'F,7$F]x
$\"3YCAB8'4X^&F,7$Fbx$\"3yL'=LL(R!p%F,7$Fgx$\"3DTMXN/97RF,7$F\\y$\"3-5
s^TD\\HKF,7$Fby$\"3!)*Hru*QM$[#F,7$Fgy$\"3[$=0XJmq%=F,7$F\\z$\"3Ko(4[*
)e#*>\"F,7$Faz$\"3)\\#*3(4+fsgF`yFez-Fiz6&F[[lF)F)F)-%&TITLEG6#Q3Press
ure~Tolman~IV6\"-%+AXESLABELSG6$Q#xiFbgmQ!Fbgm-%%VIEWG6$;F(Ffz%(DEFAUL
TG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" 
"Curve 2" "Curve 3" "Curve 4" }}}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 
21 20 "Energy density plots" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
32 "rhoj:=subs(grcomponent(rho,[])):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 30 "rho1:=subs(R=1,alpha=6,rhoj): " }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 29 "rho2:=subs(R=1,alpha=5,rhoj):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "rho3:=subs(R=1,alpha=4,rhoj):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "rho4:=subs(R=1,alpha=3.5,rho
j):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "plot([rho1,rho2,rho3
,rho4],xi=0..1,color=[red,green,blue,black],title=\"Energy Density Tol
man IV\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%
'CURVESG6$7S7$$\"\"!F)$\"37vg%fO5$of!#>7$$\"3emmm;arz@F,$\"3GtwzPfolfF
,7$$\"3[LL$e9ui2%F,$\"3i64!RAU\"ffF,7$$\"3nmmm\"z_\"4iF,$\"3?lM.[73ZfF
,7$$\"3[mmmT&phN)F,$\"3jO\\]WK(*HfF,7$$\"3CLLe*=)H\\5!#=$\"3NrQU$p%33f
F,7$$\"3gmm\"z/3uC\"FD$\"3=!e9HP`N)eF,7$$\"3%)***\\7LRDX\"FD$\"3kR)QEi
pR&eF,7$$\"3]mm\"zR'ok;FD$\"3/)4a>!z.>eF,7$$\"3w***\\i5`h(=FD$\"3AtIi0
N**zdF,7$$\"3WLLL3En$4#FD$\"301Gu>=iNdF,7$$\"3qmm;/RE&G#FD$\"3Y'RTs)4<
$p&F,7$$\"3\")*****\\K]4]#FD$\"3!4'zqV%3=k&F,7$$\"3$******\\PAvr#FD$\"
3=Ac6cLl'e&F,7$$\"3)******\\nHi#HFD$\"3-0Fw^VLIbF,7$$\"3jmm\"z*ev:JFD$
\"3w2N#Hr!pwaF,7$$\"3?LLL347TLFD$\"3vIhZ\"4_+T&F,7$$\"3,LLLLY.KNFD$\"3
%Ho/;;$Q^`F,7$$\"3w***\\7o7Tv$FD$\"3#Hl9^7I3G&F,7$$\"3'GLLLQ*o]RFD$\"3
pYCicO_;_F,7$$\"3A++D\"=lj;%FD$\"3*\\i')Rn/U9&F,7$$\"31++vV&R<P%FD$\"3
ac.k;q%Q2&F,7$$\"3WLL$e9Ege%FD$\"31ZE*4J<\"**\\F,7$$\"3GLLeR\"3Gy%FD$
\"32H%>74/&H\\F,7$$\"3cmm;/T1&*\\FD$\"3EHF5=Xc`[F,7$$\"3&em;zRQb@&FD$
\"3a*>46.qRx%F,7$$\"3\\***\\(=>Y2aFD$\"37%z4ezkUq%F,7$$\"39mm;zXu9cFD$
\"3\\'zg*4nrGYF,7$$\"3l******\\y))GeFD$\"3)RZ)>\"zb0b%F,7$$\"3'*)***\\
i_QQgFD$\"3'HK'Gty9uWF,7$$\"3@***\\7y%3TiFD$\"3&yMf<(*>/S%F,7$$\"35***
*\\P![hY'FD$\"3;\"o*>=)[*=VF,7$$\"3kKLL$Qx$omFD$\"3eg-W!fDiC%F,7$$\"3!
)*****\\P+V)oFD$\"3+R`%4X5#pTF,7$$\"3?mm\"zpe*zqFD$\"3q[yG9t3+TF,7$$\"
3%)*****\\#\\'QH(FD$\"3U`%ycbS`-%F,7$$\"3GKLe9S8&\\(FD$\"3'fT0NQze&RF,
7$$\"3R***\\i?=bq(FD$\"3)31fdKaU)QF,7$$\"3\"HLL$3s?6zFD$\"3CYsYywE:QF,
7$$\"3a***\\7`Wl7)FD$\"3\"QgE\\/8Uu$F,7$$\"3#pmmm'*RRL)FD$\"3w]d+RQ'pn
$F,7$$\"3Qmm;a<.Y&)FD$\"3s$[s%fFW4OF,7$$\"3=LLe9tOc()FD$\"3$G\\G$40xVN
F,7$$\"3u******\\Qk\\*)FD$\"3qlvbbbe%[$F,7$$\"3CLL$3dg6<*FD$\"3V`:.Nz9
=MF,7$$\"3ImmmmxGp$*FD$\"37;&\\c]1+O$F,7$$\"3A++D\"oK0e*FD$\"39*))=,*G
O*H$F,7$$\"3A++v=5s#y*FD$\"3Ht&4-`IEC$F,7$$\"\"\"F)$\"3[2z$='))4$=$F,-
%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-F$6$7S7$F($\"3s0XK7Xjb$)F,7$F.$\"3
+[\\o.q'*\\$)F,7$F3$\"3&)3*p.lYeL)F,7$F8$\"3cW\"H_th)4$)F,7$F=$\"3#3.5
>!R4t#)F,7$FB$\"3#Q+x]n1iA)F,7$FH$\"3EOx5>U'Q<)F,7$FM$\"3$\\%4\")f'H56
)F,7$FR$\"3+p$*yW-CP!)F,7$FW$\"3IsC@s$y_&zF,7$Ffn$\"35\"33\"3(*yiyF,7$
F[o$\"3YNri!Ha\\x(F,7$F`o$\"3mk,a*yA&pwF,7$Feo$\"3+Y,vQpKdvF,7$Fjo$\"3
MQ\\(yNXQW(F,7$F_p$\"3hI8O)*GwOtF,7$Fdp$\"362*yZT)40sF,7$Fip$\"3?j7rBa
T!4(F,7$F^q$\"3#[d-q)*=S&pF,7$Fcq$\"39g4.,#G6$oF,7$Fhq$\"3-2pRWx`%p'F,
7$F]r$\"3e^P>:NFjlF,7$Fbr$\"3'3dUx%feDkF,7$Fgr$\"3o6N2*Q:*)H'F,7$F\\s$
\"3;E'*z()QYihF,7$Fas$\"3Qw\\`iFO@gF,7$Ffs$\"3i4^8HxQ**eF,7$F[t$\"3[`E
\\)R_)odF,7$F`t$\"3!4%>n_]gNcF,7$Fet$\"3aC!Hm1*42bF,7$Fjt$\"3'e>xR!es%
Q&F,7$F_u$\"3gOFHOpL^_F,7$Fdu$\"3p%p4,>#)Q8&F,7$Fiu$\"3\")pq^7_86]F,7$
F^v$\"3SFtGB#)Q-\\F,7$Fcv$\"39N`$*Q?H'y%F,7$Fhv$\"3],@]KryzYF,7$F]w$\"
3qw7+wWMrXF,7$Fbw$\"3m>_BS&3#oWF,7$Fgw$\"3A&H+>%QJjVF,7$F\\x$\"37()>!>
*4FlUF,7$Fax$\"3[@X&[$y-oTF,7$Ffx$\"3Q()R7BleuSF,7$F[y$\"3w%\\\"Hf&H8*
RF,7$F`y$\"3)=X(fy!Q*)*QF,7$Fey$\"3dks.tF+>QF,7$Fjy$\"33*z7\\kLlt$F,7$
F_z$\"3?tyc^W@gOF,7$Fdz$\"3AXwc>i)4e$F,-Fiz6&F[[lF(F\\[lF(-F$6$7S7$F($
\"3#*=l[\"fx?\\\"FD7$F.$\"3/g!yxo`**[\"FD7$F3$\"3#)4d![LuY[\"FD7$F8$\"
3I.nDxX+v9FD7$F=$\"3G-tmNBUh9FD7$FB$\"3K_mNl0FW9FD7$FH$\"3&)3%=Z'QMD9F
D7$FM$\"3w$\\H'yj#HS\"FD7$FR$\"3;`Ny9e,x8FD7$FW$\"3W$=;L[^([8FD7$Ffn$
\"3!)**Ha#=&\\<8FD7$F[o$\"3)4SRH$QU)G\"FD7$F`o$\"3w6<?#H(Ha7FD7$Feo$\"
3)>ETV_y)=7FD7$Fjo$\"3gMZW)yoR=\"FD7$F_p$\"3icSBQy%=:\"FD7$Fdp$\"3:T`7
pGT86FD7$Fip$\"3))*y;Ckf33\"FD7$F^q$\"3%\\>U!e%GK/\"FD7$Fcq$\"3*4'fOBD
I55FD7$Fhq$\"3/HxKD4gZ(*F,7$F]r$\"3MrWg3A;;%*F,7$Fbr$\"3;.c(p`A)y!*F,7
$Fgr$\"3-05#=35vx)F,7$F\\s$\"3E*)pdP.Ji%)F,7$Fas$\"3qX)G)GNFY\")F,7$Ff
s$\"3aDTQuX$4)yF,7$F[t$\"3`z;5k#)z/wF,7$F`t$\"3zSgURu,JtF,7$Fet$\"3Q.E
Rws[uqF,7$Fjt$\"3o!**[#3#\\o$oF,7$F_u$\"3;IO)*>.*\\e'F,7$Fdu$\"3[xy[`C
BpjF,7$Fiu$\"3MqH@%***f\\hF,7$F^v$\"3g\"3Nb%o()ffF,7$Fcv$\"3CO>XbmBidF
,7$Fhv$\"3'=M'=(Qm_e&F,7$F]w$\"3+yijauB4aF,7$Fbw$\"3'=\"Re5OiX_F,7$Fgw
$\"31C%Rs))GH3&F,7$F\\x$\"3(GJj#GX;M\\F,7$Fax$\"3)4B7yh$p*y%F,7$Ffx$\"
3-Pw)H!op`YF,7$F[y$\"39?U]Bk![`%F,7$F`y$\"38hduO*Q`S%F,7$Fey$\"3]h(>j]
y`H%F,7$Fjy$\"3gy.mR\"))Q=%F,7$F_z$\"3q#oX!p![C3%F,7$Fdz$\"3%HQ(HxN()y
RF,-Fiz6&F[[lF(F(F\\[l-F$6$7S7$F($\"3LsD\">Xq$GFFD7$F.$\"3D*)=$)G,H?FF
D7$F3$\"3$QC8'>xH+FFD7$F8$\"3o+)e\"R%>Sm#FD7$F=$\"3BI8T&)ez8EFD7$FB$\"
3%4)oHyTd^DFD7$FH$\"3C][X\\OV%[#FD7$FM$\"3Dj5Gey\"pS#FD7$FR$\"3i>0;kM&
*>BFD7$FW$\"3]])=_u$>GAFD7$Ffn$\"3l>0n]'[.8#FD7$F[o$\"3\"en3l(*GE/#FD7
$F`o$\"33'*\\ye$GN%>FD7$Feo$\"33+)Gd#z!\\%=FD7$Fjo$\"3c3_<-Kt^<FD7$F_p
$\"3_1e**o\"z$p;FD7$Fdp$\"3]`Y<o(**[d\"FD7$Fip$\"3uY;;*4!>)\\\"FD7$F^q
$\"3G\\rrSp789FD7$Fcq$\"3QW7ht2uT8FD7$Fhq$\"3q(yu=`FxE\"FD7$F]r$\"30][
z=\"R9?\"FD7$Fbr$\"3V@.vPEcO6FD7$Fgr$\"3UuGUq$Q23\"FD7$F\\s$\"3r#Hw_[-
W-\"FD7$Fas$\"3k)GX9pJ&*p*F,7$Ffs$\"3sjM'QLevD*F,7$F[t$\"3#HrcHo'z6))F
,7$F`t$\"3!o***)efgOQ)F,7$Fet$\"3of_H`De%*zF,7$Fjt$\"37#G3v$3EWwF,7$F_
u$\"3S!>z1CdKG(F,7$Fdu$\"35PJxW\"p@)pF,7$Fiu$\"3#*Gw1&3'>$o'F,7$F^v$\"
34=\"y3B&)3V'F,7$Fcv$\"35OXUsvvthF,7$Fhv$\"3]@8*[nY$[fF,7$F]w$\"3F/](*
>![&GdF,7$Fbw$\"3Uo)>'4n5GbF,7$Fgw$\"3\"4$y4l&*QK`F,7$F\\x$\"3-=9)*)R+
l:&F,7$Fax$\"3mc&QxoK%))\\F,7$Ffx$\"3mnKdq=kK[F,7$F[y$\"3!RNuYLH$)p%F,
7$F`y$\"3y>l#HkBSb%F,7$Fey$\"3kTJ,3/.LWF,7$Fjy$\"36].U[fz6VF,7$F_z$\"3
&R/v[JFF?%F,7$Fdz$\"3ye)oynbD4%F,-Fiz6&F[[lF)F)F)-%&TITLEG6#Q9Energy~D
ensity~Tolman~IV6\"-%+AXESLABELSG6$Q#xiF[hmQ!F[hm-%%VIEWG6$;F(Fdz%(DEF
AULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve \+
1" "Curve 2" "Curve 3" "Curve 4" }}}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 
0 21 10 "Mass plots" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "mj:=
subs(grcomponent(mass,[])):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
27 "mj1:=subs(R=1,alpha=6,mj): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 26 "mj2:=subs(R=1,alpha=5,mj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "mj3:=subs(R=1,alpha=4,mj):" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 28 "mj4:=subs(R=1,alpha=3.5,mj):" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 84 "plot([mj1,mj2,mj3,mj4],xi=0..1,color=[red,gre
en,blue,black],title=\"Mass Tolman IV\");" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3e
mmm;arz@!#>$\"33)4'y@1O)e#!#B7$$\"3[LL$e9ui2%F-$\"3gFK<ISs\"p\"!#A7$$
\"3nmmm\"z_\"4iF-$\"3UVO.p5%=(fF67$$\"3[mmmT&phN)F-$\"3;sk>GM0`9!#@7$$
\"3CLLe*=)H\\5!#=$\"3-8XvW]sqGFA7$$\"3gmm\"z/3uC\"FE$\"3V3g\"=y$)4\"[F
A7$$\"3%)***\\7LRDX\"FE$\"3iI-_zS6tvFA7$$\"3]mm\"zR'ok;FE$\"3w9**G_M&e
8\"!#?7$$\"3w***\\i5`h(=FE$\"3E:SpdhW>;FW7$$\"3WLLL3En$4#FE$\"3VpQB'R(
4SAFW7$$\"3qmm;/RE&G#FE$\"3.HlM\\W++HFW7$$\"3\")*****\\K]4]#FE$\"3E+q#
yIa-y$FW7$$\"3$******\\PAvr#FE$\"3m4#=4s$*4#[FW7$$\"3)******\\nHi#HFE$
\"3)R<#zO<H#)fFW7$$\"3jmm\"z*ev:JFE$\"3oQ]DUT%)yrFW7$$\"3?LLL347TLFE$
\"3#[F>X]%4'y)FW7$$\"3,LLLLY.KNFE$\"3&f/8X4#4J5F-7$$\"3w***\\7o7Tv$FE$
\"3/&=pY\\L!G7F-7$$\"3'GLLLQ*o]RFE$\"38;!=u>#[?9F-7$$\"3A++D\"=lj;%FE$
\"3'*oPQ/(y<l\"F-7$$\"31++vV&R<P%FE$\"3Y=8/ic5#*=F-7$$\"3WLL$e9Ege%FE$
\"3EXZ'4B&>k@F-7$$\"3GLLeR\"3Gy%FE$\"3vg\"Hk@#fLCF-7$$\"3cmm;/T1&*\\FE
$\"3U0`2x(eau#F-7$$\"3&em;zRQb@&FE$\"3KY$)Gby3$4$F-7$$\"3\\***\\(=>Y2a
FE$\"3AJ?XN<b:MF-7$$\"39mm;zXu9cFE$\"3!*pmi14u%y$F-7$$\"3l******\\y))G
eFE$\"3cd\"361)4*=%F-7$$\"3'*)***\\i_QQgFE$\"3?.o]%GYtg%F-7$$\"3@***\\
7y%3TiFE$\"3vr%=#Q?TL]F-7$$\"35****\\P![hY'FE$\"3'[]a)eZ:JbF-7$$\"3kKL
L$Qx$omFE$\"3vU.uH5`+gF-7$$\"3!)*****\\P+V)oFE$\"3e-QUycxClF-7$$\"3?mm
\"zpe*zqFE$\"32@XEdFN?qF-7$$\"3%)*****\\#\\'QH(FE$\"3-cH4HRS%e(F-7$$\"
3GKLe9S8&\\(FE$\"3sTTTaJEO\")F-7$$\"3R***\\i?=bq(FE$\"3&f()e)o&)*[t)F-
7$$\"3\"HLL$3s?6zFE$\"3kKw$H#HdT$*F-7$$\"3a***\\7`Wl7)FE$\"3e?P^?YA***
*F-7$$\"3#pmmm'*RRL)FE$\"3m%y>>fCa1\"FE7$$\"3Qmm;a<.Y&)FE$\"3YZwI&3)eM
6FE7$$\"3=LLe9tOc()FE$\"3\\dqo5uL07FE7$$\"3u******\\Qk\\*)FE$\"3k0est#
HAF\"FE7$$\"3CLL$3dg6<*FE$\"3udZi[C4^8FE7$$\"3ImmmmxGp$*FE$\"3crcF5;gB
9FE7$$\"3A++D\"oK0e*FE$\"3X'fVN@ZH]\"FE7$$\"3A++v=5s#y*FE$\"3]pT6SP%3e
\"FE7$$\"\"\"F)$\"3emmmmmmm;FE-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-F$6
$7SF'7$F+$\"3\\MBq%*e=BOF07$F2$\"3UTU&>()GsO#F67$F8$\"3+&)pMWf*3N)F67$
F=$\"3AsqlhB-I?FA7$FC$\"3i3o(*>N#e+%FA7$FI$\"3frqy9AG/nFA7$FN$\"3-nU&Q
6PO0\"FW7$FS$\"3;<^Z()RGx:FW7$FY$\"3LwV-YC-WAFW7$Fhn$\"3ar*\\r3>l4$FW7
$F]o$\"3y0C2u'=%**RFW7$Fbo$\"3APQEm9u)>&FW7$Fgo$\"3:*G()Q81+h'FW7$F\\p
$\"3+3Xm*Rrp<)FW7$Fap$\"3C-mz6Cn$y*FW7$Ffp$\"3/+/N([SI>\"F-7$F[q$\"3A'
Q+<E*e&R\"F-7$F`q$\"3i+#>ni=dl\"F-7$Feq$\"3'[*ftF&H%3>F-7$Fjq$\"3Qk)oI
&>O5AF-7$F_r$\"3f^U%oDl@_#F-7$Fdr$\"3)o8$*G'e*H(GF-7$Fir$\"3xBQ_VaB=KF
-7$F^s$\"3vOpJ9gX:OF-7$Fcs$\"33,2\")>jNbSF-7$Fhs$\"3i*G^=o'*3Y%F-7$F]t
$\"3\"3M=.9MC#\\F-7$Fbt$\"3oP^([+!yCaF-7$Fgt$\"3(y%>xXT:TfF-7$F\\u$\"3
i6s+Du.kkF-7$Fau$\"3wj>vg4:rqF-7$Ffu$\"32alC.XBSwF-7$F[v$\"3s%=^zP%=s#
)F-7$F`v$\"3C\\Z%=8pi'))F-7$Fev$\"3/&Q-i\"zzQ&*F-7$Fjv$\"3lOO3R$H$>5FE
7$F_w$\"3EVw)zoi**3\"FE7$Fdw$\"3A=r7r]=h6FE7$Fiw$\"3X4d!3T7!Q7FE7$F^x$
\"3zQezPy;98FE7$Fcx$\"3o4T7'z8UR\"FE7$Fhx$\"37XS3mStv9FE7$F]y$\"39Ag.y
y\\_:FE7$Fby$\"3\"z69$p\"REk\"FE7$Fgy$\"3/$G\"y$f)>D<FE7$F\\z$\"34!=*z
c#=_\"=FE7$Faz$\"3U>S%\\L*G.>FE7$Ffz$\"35+++++++?FE-F[[l6&F][lF(F^[lF(
-F$6$7SF'7$F+$\"3[ftE.$zqY'F07$F2$\"3;FcXuVf?UF67$F8$\"3ejHzpK&e[\"FA7
$F=$\"3*GB\\<^6:g$FA7$FC$\"39n#*3J!R13(FA7$FI$\"3o&*4nXH<!=\"FW7$FN$\"
3%yv%[P3iX=FW7$FS$\"3?Gc(\\v]pu#FW7$FY$\"3a4a2Z[;$)QFW7$Fhn$\"3))3$>h9
h)>`FW7$F]o$\"3;Bjgt*pU#oFW7$Fbo$\"3!)\\d%*)\\G%)z)FW7$Fgo$\"3mU\"3QN>
!46F-7$F\\p$\"3CS&)RTa'*f8F-7$Fap$\"3'3\"G1#*o$Qh\"F-7$Ffp$\"3EqO#H=p
\"[>F-7$F[q$\"3)fXR4#y,fAF-7$F`q$\"3OiDSX-N_EF-7$Feq$\"3AriTh)Q(GIF-7$
Fjq$\"3g0\\'\\en<Z$F-7$F_r$\"3-s*pz'>QARF-7$Fdr$\"3^!R^yGG=U%F-7$Fir$
\"3&Q6?vr=i!\\F-7$F^s$\"3#4(f&zQYcX&F-7$Fcs$\"3S(R;ZIv^0'F-7$Fhs$\"3%[
8Zk]H.g'F-7$F]t$\"3^1dalrv7sF-7$Fbt$\"3kEn^P'H0(yF-7$Fgt$\"3ituM*=#*z`
)F-7$F\\u$\"3mhDA/\"Gd?*F-7$Fau$\"3-r;P-Irr**F-7$Ffu$\"3#*Q?`7p9o5FE7$
F[v$\"3K6)oQ`;h9\"FE7$F`v$\"318)[fpv'=7FE7$Fev$\"3FJ&*=8?.+8FE7$Fjv$\"
3![[NEp![y8FE7$F_w$\"3U&RUni9CY\"FE7$Fdw$\"3Q3Q7EZNY:FE7$Fiw$\"3[dC)o$
[>O;FE7$F^x$\"3&)pHP-kfC<FE7$Fcx$\"3,.+PJH)o\"=FE7$Fhx$\"3H(*\\)Qkq-\"
>FE7$F]y$\"3kUNR0?r(*>FE7$Fby$\"3+\\*e;kQ)*4#FE7$Fgy$\"35T2V9\\!H>#FE7
$F\\z$\"3GG0;(RBRH#FE7$Faz$\"3c,3$[uUBR#FE7$Ffz$\"3++++++++DFE-F[[l6&F
][lF(F(F^[l-F$6$7SF'7$F+$\"3w.&[*R\"e9=\"F67$F2$\"3O`BMM\">Gp(F67$F8$
\"3!e=B&[k(op#FA7$F=$\"3;kD=UeT)\\'FA7$FC$\"3A^GbJL8o7FW7$FI$\"33AGS<8
V'4#FW7$FN$\"3/')G`N-$pC$FW7$FS$\"3/xPiT*e*yZFW7$FY$\"3y]-<h]5umFW7$Fh
n$\"3x]f8pdq@!*FW7$F]o$\"38Y^:#4(*H9\"F-7$Fbo$\"3%p9r\")=WBX\"F-7$Fgo$
\"3tq@oQ$RK!=F-7$F\\p$\"3#R\"H2'z+(y@F-7$Fap$\"3EH6=?tR]DF-7$Ffp$\"3N=
l&38&)*GIF-7$F[q$\"3#e.s*yi<kMF-7$F`q$\"3\\oH_pD..SF-7$Feq$\"3P8M2'[(y
2XF-7$Fjq$\"3IPZbC#H**3&F-7$F_r$\"3kim#)Q`JqcF-7$Fdr$\"3[nvI`3W,jF-7$F
ir$\"3!eGxj6[F!pF-7$F^s$\"3[.`R2iUtvF-7$Fcs$\"3_CH:*>'4$H)F-7$Fhs$\"3,
Lw]fMvP*)F-7$F]t$\"3/6?fL0<_'*F-7$Fbt$\"3v#R3l1E4/\"FE7$Fgt$\"3Y&)zL:`
z;6FE7$F\\u$\"3q?2J(*e%=>\"FE7$Fau$\"3il.'Q6=qF\"FE7$Ffu$\"3)>a1,vk^N
\"FE7$F[v$\"3#fg?KWg-W\"FE7$F`v$\"3X=&3w#*G)=:FE7$Fev$\"3#e`wD,)H1;FE7
$Fjv$\"3)o7\\#\\A4!p\"FE7$F_w$\"3+0>R&pD#z<FE7$Fdw$\"3Q_HVU#)*y'=FE7$F
iw$\"3Yp6_ujNi>FE7$F^x$\"3/s5%=J9\\0#FE7$Fcx$\"3#H$\\_/,>^@FE7$Fhx$\"3
S96.8mI[AFE7$F]y$\"3[lmv$o-!RBFE7$Fby$\"3:q\\$y!**oWCFE7$Fgy$\"32J,6'>
:3a#FE7$F\\z$\"3W#HDbR$*\\k#FE7$Faz$\"39bD$R_kju#FE7$Ffz$\"31+++cG9dGF
E-F[[l6&F][lF)F)F)-%&TITLEG6#Q/Mass~Tolman~IV6\"-%+AXESLABELSG6$Q#xiFd
gmQ!Fdgm-%%VIEWG6$;F(Ffz%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" }}}}
{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 8 "Trapping" }}}{EXCHG {PARA 0 "
" 0 "" {MPLTEXT 0 21 25 "Potential impac parameter" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 82 "B:=(sqrt(grcomponent(g(dn,dn),[theta,theta]
))/sqrt(-grcomponent(g(dn,dn),[t,t]))):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "Bj:=subs(R=1,B):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "B1:=subs(alpha=6,Bj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "B2:=subs(alpha=5,Bj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "B3:=subs(alpha=4,Bj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "B4:=subs(alpha=3.5,Bj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 86 "plot([B1,B2,B3,B4],xi=0.0..1,color=[red,green,blue,bl
ack],title=\"Trapping Tolman IV\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6)-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3emmm;arz@!#>$\"
3C\"4YU$Gaz@F-7$$\"3[LL$e9ui2%F-$\"3%QN;wvX^2%F-7$$\"3nmmm\"z_\"4iF-$
\"3Gi40#)o;0iF-7$$\"3[mmmT&phN)F-$\"3cYgz7>YY$)F-7$$\"3CLLe*=)H\\5!#=$
\"3]e;mkzPZ5FB7$$\"3gmm\"z/3uC\"FB$\"3BS6Zxb=W7FB7$$\"3%)***\\7LRDX\"F
B$\"39N_0L$euW\"FB7$$\"3]mm\"zR'ok;FB$\"3I^7'*y10d;FB7$$\"3w***\\i5`h(
=FB$\"3kYpg:CCl=FB7$$\"3WLLL3En$4#FB$\"3c\">:ZJU&y?FB7$$\"3qmm;/RE&G#F
B$\"3C.S#p$)GcE#FB7$$\"3\")*****\\K]4]#FB$\"3)*=v:o'z_Z#FB7$$\"3$*****
*\\PAvr#FB$\"3#psQXlzYo#FB7$$\"3)******\\nHi#HFB$\"3Ow'oxhT`)GFB7$$\"3
jmm\"z*ev:JFB$\"3-\"*>_DZ`mIFB7$$\"3?LLL347TLFB$\"3Q'=.4cT1G$FB7$$\"3,
LLLLY.KNFB$\"3+n1r*)*43Y$FB7$$\"3w***\\7o7Tv$FB$\"3alpr>E#*oOFB7$$\"3'
GLLLQ*o]RFB$\"3%4H@'=Hw^QFB7$$\"3A++D\"=lj;%FB$\"3y857!))=30%FB7$$\"31
++vV&R<P%FB$\"3(*)*Q$*HL!)QUFB7$$\"3WLL$e9Ege%FB$\"3XE(pEOgKV%FB7$$\"3
GLLeR\"3Gy%FB$\"3(Gb*3o$o-h%FB7$$\"3cmm;/T1&*\\FB$\"3GY]=\\mY*z%FB7$$
\"3&em;zRQb@&FB$\"3W#[S9sQS*\\FB7$$\"3\\***\\(=>Y2aFB$\"3'[t/='[vh^FB7
$$\"39mm;zXu9cFB$\"36\\L^F!>6M&FB7$$\"3l******\\y))GeFB$\"3%yi))y4YW_&
FB7$$\"3'*)***\\i_QQgFB$\"3706`'G==q&FB7$$\"3@***\\7y%3TiFB$\"3S^:!*[=
areFB7$$\"35****\\P![hY'FB$\"3cQ$QR(fxdgFB7$$\"3kKLL$Qx$omFB$\"3tcE(>j
+JA'FB7$$\"3!)*****\\P+V)oFB$\"3E(o!RU))[(R'FB7$$\"3?mm\"zpe*zqFB$\"3A
1^;e-f`lFB7$$\"3%)*****\\#\\'QH(FB$\"3t)=S&GC9AnFB7$$\"3GKLe9S8&\\(FB$
\"3a-knc6ryoFB7$$\"3R***\\i?=bq(FB$\"3]3C9[uDSqFB7$$\"3\"HLL$3s?6zFB$
\"3)fJ)R)Q*4'>(FB7$$\"3a***\\7`Wl7)FB$\"3!z'oY5%=qN(FB7$$\"3#pmmm'*RRL
)FB$\"3QOn*\\]O)4vFB7$$\"3Qmm;a<.Y&)FB$\"3c[@O'\\7Rm(FB7$$\"3=LLe9tOc(
)FB$\"3kelR\"y5X\"yFB7$$\"3u******\\Qk\\*)FB$\"3QfXwf;'4&zFB7$$\"3CLL$
3dg6<*FB$\"39(QUQ_u]5)FB7$$\"3ImmmmxGp$*FB$\"3OW6B]&f3C)FB7$$\"3A++D\"
oK0e*FB$\"3?'\\2+P-NQ)FB7$$\"3A++v=5s#y*FB$\"3O*R]JHvz^)FB7$$\"\"\"F)$
\"3'fQWy.a-m)FB-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-F$6$7SF'7$F+$\"3AJ
pSelXz@F-7$F1$\"3'p-)z9>euSF-7$F6$\"3oHuk.o<.iF-7$F;$\"3(R6e&o2iT$)F-7
$F@$\"35\"[gqz@k/\"FB7$FF$\"3p%\\5%zOeU7FB7$FK$\"3`bsuZx$\\W\"FB7$FP$
\"3K0&)*=,sKl\"FB7$FU$\"397)G7(z&)f=FB7$FZ$\"3CTy')[\"*4r?FB7$Fin$\"3A
;Q\"H@**fD#FB7$F^o$\"3coJBhstiCFB7$Fco$\"3ozjXA')poEFB7$Fho$\"3?O!f4-I
b'GFB7$F]p$\"3QcXBvIyUIFB7$Fbp$\"3+W-#e-3;D$FB7$Fgp$\"3k6x_CjxEMFB7$F
\\q$\"3%o`hgIY%GOFB7$Faq$\"3^1;6it+0QFB7$Ffq$\"3k*)[YOx`'*RFB7$F[r$\"3
GTRJ3qswTFB7$F`r$\"3EK&)e`\")QiVFB7$Fer$\"3]CU+0!=2`%FB7$Fjr$\"3!4_uw)
z!*4ZFB7$F_s$\"37Ovv\")=P$*[FB7$Fds$\"33MJ00*G30&FB7$Fis$\"3uiSS./]=_F
B7$F^t$\"3'3%\\4fe3*Q&FB7$Fct$\"3)es6R.]Lb&FB7$Fht$\"3C\"*)y(\\^z4dFB7
$F]u$\"3-LY'[M71)eFB7$Fbu$\"3?P0oeG\\JgFB7$Fgu$\"3YecFvl&)*='FB7$F\\v$
\"38K@!3s94L'FB7$Fav$\"3#o2aQBpC['FB7$Ffv$\"3oD$fbjNDi'FB7$F[w$\"3eZ([
())QKmnFB7$F`w$\"3u%H:>6@V!pFB7$Few$\"3!Gv]hSog/(FB7$Fjw$\"3uHt!y^p*zr
FB7$F_x$\"3p;4CSOE9tFB7$Fdx$\"3U;oz#eI[W(FB7$Fix$\"3[8G\"pcJDc(FB7$F^y
$\"3KOY'=UuZp(FB7$Fcy$\"3q8SY=an5yFB7$Fhy$\"37Z,5tS!=$zFB7$F]z$\"3%oCP
$oISX!)FB7$Fbz$\"3MgsF4e'\\;)FB-Fgz6&FizF(FjzF(-F$6$7SF'7$F+$\"3mF'\\B
z(>z@F-7$F1$\"3m]4c*y\"*G2%F-7$F6$\"3Yq!=s.=s>'F-7$F;$\"3T(z$fBx9F$)F-
7$F@$\"3^W7NI*oN/\"FB7$FF$\"3``#Rj&[\"yB\"FB7$FK$\"3H5*HGFauV\"FB7$FP$
\"3sfa/\\#*3U;FB7$FU$\"3\"f,=4=!)R%=FB7$FZ$\"3!*oT)[VS#\\?FB7$Fin$\"3^
<5D]2$yA#FB7$F^o$\"3V-d`RRAECFB7$Fco$\"3\"oPL=E:Ci#FB7$Fho$\"3)HQ!GtuX
3GFB7$F]p$\"3O%o::W3Z(HFB7$Fbp$\"3I\\.BxW#*oJFB7$Fgp$\"3![ypbF+/L$FB7$
F\\q$\"3i\\3Y&z4Y^$FB7$Faq$\"3qT#['puLuOFB7$Ffq$\"3[\\:!fr;f%QFB7$F[r$
\"3Ce0L#p!o0SFB7$F`r$\"3oXd:r(p&oTFB7$Fer$\"3,\\Lw-9q9VFB7$Fjr$\"3'['f
ZpIgoWFB7$F_s$\"3=D(ywloVi%FB7$Fds$\"3/0c`<-dcZFB7$Fis$\"37h#37&z\"e*[
FB7$F^t$\"39**yg4W%e.&FB7$Fct$\"31WM>\"R)4p^FB7$Fht$\"3'*Q\"eCm\\XH&FB
7$F]u$\"3Ei$*H)H%))HaFB7$Fbu$\"3obW\"zF()za&FB7$Fgu$\"3Cb>Vt*)[qcFB7$F
\\v$\"3)\\HobBR$ydFB7$Fav$\"3_$4)=P5)G*eFB7$Ffv$\"37RnXUx](*fFB7$F[w$
\"3P(>.\"G(zO5'FB7$F`w$\"3sO)yL2(R/iFB7$Few$\"3`R/-H#[mI'FB7$Fjw$\"3J^
+j<!>@S'FB7$F_x$\"3wl&4t(ox'\\'FB7$Fdx$\"35+Qq'yexe'FB7$Fix$\"3%zs>\\A
!*)omFB7$F^y$\"3%)o*)e*yX!fnFB7$Fcy$\"3=Dl43C>PoFB7$Fhy$\"3=)yJ'*Q**z
\"pFB7$F]z$\"3m!30Fe#)H*pFB7$Fbz$\"3sva'=\"y1rqFB-Fgz6&FizF(F(Fjz-F$6$
7SF'7$F+$\"3[pMiO0oy@F-7$F1$\"3oL!R!Ry^pSF-7$F6$\"3]?aXR=N&='F-7$F;$\"
3m#)>D2iU)H)F-7$F@$\"3q'owX]Kz.\"FB7$FF$\"332lYV'R%G7FB7$FK$\"31fcmZ'H
GU\"FB7$FP$\"3LyX&G.)Q?;FB7$FU$\"3$4WfHe2M\"=FB7$FZ$\"3Y')oh/@_2?FB7$F
in$\"3ge%H[(4_u@FB7$F^o$\"3))z$>d(*=yN#FB7$Fco$\"3WIh$e=Um`#FB7$Fho$\"
3dC\"G'>*[Qq#FB7$F]p$\"3UtOW\"*4B^GFB7$Fbp$\"3g$3H'\\J(3-$FB7$Fgp$\"3U
)eg5/t(fJFB7$F\\q$\"3(oKH$\\0y:LFB7$Faq$\"3-GbwaD*)[MFB7$Ffq$\"3OGw]()
zf*e$FB7$F[r$\"3ab$GcJ_%=PFB7$F`r$\"3g-fmP0lZQFB7$Fer$\"3!pkf9em;'RFB7
$Fjr$\"3GT#4o\"[zzSFB7$F_s$\"37MSY(*HI(>%FB7$Fds$\"3!f&Q#H]3aH%FB7$Fis
$\"39ghG\"RBrR%FB7$F^t$\"3)*=7Wm*Gx\\%FB7$Fct$\"3)R<#pva!>f%FB7$Fht$\"
3!>Pe2Uv\"zYFB7$F]u$\"3!*H'oou4=x%FB7$Fbu$\"3giRmb8P^[FB7$Fgu$\"334$HQ
HUE$\\FB7$F\\v$\"3JGtZS/9.]FB7$Fav$\"3u0>uc$Qp2&FB7$Ffv$\"3W**y-.fQV^F
B7$F[w$\"3s[9mR4))4_FB7$F`w$\"3s*[4nJ&4s_FB7$Few$\"3=zRsL:SM`FB7$Fjw$
\"3q(fnx%H!=R&FB7$F_x$\"3C(G1wK$)zW&FB7$Fdx$\"3:1DPX%*H,bFB7$Fix$\"3UJ
%o?h#G[bFB7$F^y$\"3icHr!3w)*f&FB7$Fcy$\"3^3r+zk2WcFB7$Fhy$\"3UWnQzmF*o
&FB7$F]z$\"3Ex&y#=KwIdFB7$Fbz$\"3Kdi*=p-Nx&FB-Fgz6&FizF)F)F)-%&TITLEG6
#Q3Trapping~Tolman~IV6\"-%+AXESLABELSG6$Q#xiF`gmQ!F`gm-%%VIEWG6$;F(Fbz
%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "C
urve 1" "Curve 2" "Curve 3" "Curve 4" }}}}{EXCHG {PARA 0 "" 0 "" 
{MPLTEXT 0 21 9 "w - modes" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 9 
"Potential" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "V:=1/((Bj^2)
)*(6+4*Pi*xi^2*R^2*(grcomponent(rho,[])-grcomponent(p,[]))-6*grcompone
nt(mass,[])/(xi*R)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Vj:
=subs(R=1,V):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "V1:=subs(a
lpha=6,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "V2:=subs(alp
ha=5,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "V3:=subs(alpha
=4,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "V4:=subs(alpha=3
.5,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "plot([V1,V2,V3,V
4],xi=0.3..1.0,color=[red,green,blue,black],title=\"w - modes Tolman I
V\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURV
ESG6$7U7$$\"3))**************H!#=$\"3AMj1$3+My'!#;7$$\"39LLeR+HwIF*$\"
3MMQIk&[oX'F-7$$\"3Qmm;z+e_JF*$\"3mPkj>or`hF-7$$\"3!**\\(oM'f*=KF*$\"3
'p%4;>'3t!fF-7$$\"3UL$3->R`G$F*$\"3W/XcIcovcF-7$$\"3RmmT&pSYV$F*$\"37
\"pmM8@H?&F-7$$\"3Smm\"z'=$\\e$F*$\"3c:'zT@Eay%F-7$$\"3<L$3Ft3Xt$F*$\"
3jH@Hx\\&*=WF-7$$\"3Wm;aLc=tQF*$\"3Bc9\\l5U;TF-7$$\"3')**\\(=`xn,%F*$
\"3)3Mps5-c$QF-7$$\"3Qm;ay/GlTF*$\"3E[2A^7>vNF-7$$\"3b**\\PurI8VF*$\"3
9#GEa%f#>M$F-7$$\"3?LL$e#3dlWF*$\"31p%=V+\"yDJF-7$$\"3ymm\"Ht%o*f%F*$
\"3#>?SkY7H&HF-7$$\"3U****\\F_m]ZF*$\"3%\\jiz2ebx#F-7$$\"3S****\\icE-
\\F*$\"3BOJ/pLr8EF-7$$\"3;++]s2O[]F*$\"3#fkDBsW8Z#F-7$$\"3_m;aG\"H5=&F
*$\"3+HIF^5O_BF-7$$\"3^LL$ej%yQ`F*$\"3#G;u-QnAA#F-7$$\"3mLLLVUUsaF*$\"
3%eV^Ppa27#F-7$$\"3x)*\\(o()yyi&F*$\"3'>C%>Dml6?F-7$$\"3GLLLoD[ldF*$\"
3]BntQNOA>F-7$$\"3/**\\(oibk\"fF*$\"3'p+!4>/[J=F-7$$\"3m**\\i!o<-1'F*$
\"3iR)=<)>=^<F-7$$\"3PKL3-$=-@'F*$\"3yu/jH*zKn\"F-7$$\"3=L$3xplzM'F*$
\"3H@qw!pdlg\"F-7$$\"3Qmm\"H([a'\\'F*$\"3**QgT&[+$R:F-7$$\"35m;ayo(3l'
F*$\"3-*3]y\"[;u9F-7$$\"3u**\\7VLA&y'F*$\"3(*pBT_80@9F-7$$\"3ImmT07KIp
F*$\"3sT!yyDGrO\"F-7$$\"3k)****\\\\@-3(F*$\"3O.#[5(H([J\"F-7$$\"30***
\\PopoA(F*$\"3-'zV!)4toE\"F-7$$\"37+](oMf(otF*$\"3]Y6(R*)QJA\"F-7$$\"3
Q***\\ii.j_(F*$\"31!e:W-cu<\"F-7$$\"3]JLLoT'ym(F*$\"3c7>05QzQ6F-7$$\"3
4****\\i-,>yF*$\"3'R$oLGr\")*4\"F-7$$\"3ol;a)3rf&zF*$\"3m%fH8W1k1\"F-7
$$\"36++]Zaq0\")F*$\"3^gkQ#Q2=.\"F-7$$\"3QJ$3-\"QfY#)F*$\"38x#f*\\]'4+
\"F-7$$\"3C+]PWF'QR)F*$\"3T7K^Jmy.(*!#<7$$\"3:KL$e/Xy`)F*$\"3\"Hnzkd))
*>%*F[x7$$\"3M)*\\(=<\"e)o)F*$\"3)QA)zVx$z8*F[x7$$\"3SnmmwzvL))F*$\"3)
o&oCcO*)z))F[x7$$\"3Elm\"zAAA)*)F*$\"3UhqPU\"4*G')F[x7$$\"3+L$3-7d%H\"
*F*$\"3]8p^$)e1#R)F[x7$$\"39*****\\p]ZE*F*$\"35\"zQXsqV=)F[x7$$\"3$QL$
e*R7)>%*F*$\"3/09^ZjJdzF[x7$$\"3_mmmO9]e&*F*$\"3in!4/=)ejxF[x7$$\"3<+]
(o(GP1(*F*$\"3WWJG5]<mvF[x7$$\"3s**\\78Z!z%)*F*$\"35lwl$H`bQ(F[x7$$\"
\"\"\"\"!$\"3;+++++++sF[x-%'COLOURG6&%$RGBG$\"*++++\"!\")$Fa[lFa[lF[\\
l-F$6$7U7$F($\"3AI]!\\>ro%oF-7$F/$\"3/wg)=vK._'F-7$F4$\"3&='eK%)[@<iF-
7$F9$\"3A;rIC%>3(fF-7$F>$\"3`!Hfx!)4#RdF-7$FC$\"3_>vk[xZm_F-7$FH$\"3)>
P15()=!\\[F-7$FM$\"39.GLqpe#[%F-7$FR$\"3i()z^zE4!=%F-7$FW$\"3O<\")*y)z
J**QF-7$Ffn$\"3fijG8k&*QOF-7$F[o$\"3T5Bt)yVdS$F-7$F`o$\"3kDi-Snl*=$F-7
$Feo$\"3N0_R(GUo,$F-7$Fjo$\"354%)f<AbRGF-7$F_p$\"3)[.$*Rpvxn#F-7$Fdp$
\"3w%y7S5wa`#F-7$Fip$\"3q3deAzb;CF-7$F^q$\"33*>[0ZXlG#F-7$Fcq$\"3gBe()
RV5&=#F-7$Fhq$\"3+`d,jD4w?F-7$F]r$\"3mgs+)[yo)>F-7$Fbr$\"3w\"Ga6w%3'*=
F-7$Fgr$\"3g9BCUR(e\"=F-7$F\\s$\"3Io%)4bd1Q<F-7$Fas$\"3!o\"35w<Vr;F-7$
Ffs$\"34TI;L=F/;F-7$F[t$\"3qknt)GR#R:F-7$F`t$\"315PY(=<i[\"F-7$Fet$\"3
WT.`(G%RK9F-7$Fjt$\"3!e^qq+W-Q\"F-7$F_u$\"3()zz1r\"[BL\"F-7$Fdu$\"39$4
^,r:()G\"F-7$Fiu$\"3%RRWA)o9V7F-7$F^v$\"3*40*R^ze/7F-7$Fcv$\"3s-m^PAsl
6F-7$Fhv$\"33+v\"*)e7C8\"F-7$F]w$\"3+\"eg$yV#z4\"F-7$Fbw$\"3sMrO(e'=n5
F-7$Fgw$\"3[QT$of4n.\"F-7$F]x$\"3riw1VnV35F-7$Fbx$\"3vx[f$)\\V.)*F[x7$
Fgx$\"3'49TKhlka*F[x7$F\\y$\"3=CA'4cwlH*F[x7$Fay$\"3ioObR]\"31*F[x7$Ff
y$\"33$*44M*3T&))F[x7$F[z$\"3(R`+wJ\"=G')F[x7$F`z$\"3FSi$o'RXN%)F[x7$F
ez$\"3'\\k`&4)*4R#)F[x7$Fjz$\"3O$p.[>$[f!)F[x7$F_[l$\"3+++++++vyF[x-Fe
[l6&Fg[lF[\\lFh[lF[\\l-F$6$7U7$F($\"3p3**ydb(H/(F-7$F/$\"3b2'oTCLlr'F-
7$F4$\"39!fJ<G;NT'F-7$F9$\"3G1ek.D@nhF-7$F>$\"3UCmAw\")pNfF-7$FC$\"3')
H'[)RN>jaF-7$FH$\"37u;5h;)f/&F-7$FM$\"3e,!od:8)zYF-7$FR$\"3KwmPL#yvP%F
-7$FW$\"3#)[bo%)o3(4%F-7$Ffn$\"3%)f))3FM.PQF-7$F[o$\"35F^4XB9/OF-7$F`o
$\"3_^n&Q2+%)Q$F-7$Feo$\"3[^YWO-!f@$F-7$Fjo$\"3@qg-)fv*QIF-7$F_p$\"3!=
;v$*)odxGF-7$Fdp$\"3y>pO:1lNFF-7$Fip$\"37N%p#z$yqh#F-7$F^q$\"39+#*)Gv%
[([#F-7$Fcq$\"3k?DtRQS'Q#F-7$Fhq$\"3!fBtnA;yF#F-7$F]r$\"3cYo5,8)*)=#F-
7$Fbr$\"39$4WNa1')4#F-7$Fgr$\"3`M?\"fm'z=?F-7$F\\s$\"3&RY#[VzST>F-7$Fa
s$\"3]+sG(Rf^(=F-7$Ffs$\"3UoMfZYT3=F-7$F[t$\"3k#>L!Q>\"Qu\"F-7$F`t$\"3
uik**y@;\"p\"F-7$Fet$\"3KMk@)))Qxj\"F-7$Fjt$\"3i4(=z1)*fe\"F-7$F_u$\"3
r#)*>u\"*)\\Q:F-7$Fdu$\"3%**>K*=hC&\\\"F-7$Fiu$\"3m*z,5a$4]9F-7$F^v$\"
3`EBHfM!>T\"F-7$Fcv$\"3OXzXwdUt8F-7$Fhv$\"3>ip\")yAYS8F-7$F]w$\"3)>cuH
FYjI\"F-7$Fbw$\"3qL3ICD&fF\"F-7$Fgw$\"3!e(y%*[&GeC\"F-7$F]x$\"35sx8IT*
y@\"F-7$Fbx$\"3e%psH%z9!>\"F-7$Fgx$\"3G.agL\"yZ;\"F-7$F\\y$\"3@7*euV;,
9\"F-7$Fay$\"3`FO:0u&o6\"F-7$Ffy$\"3)o)\\q\"ork4\"F-7$F[z$\"3/CcgVx>u5
F-7$F`z$\"3QPj*G@._0\"F-7$Fez$\"3`_*Rt?de.\"F-7$Fjz$\"3T(oc)4c;=5F-7$F
_[l$\"#5Fa[l-Fe[l6&Fg[lF[\\lF[\\lFh[l-F$6$7U7$F($\"35U8y_EgXuF-7$F/$\"
3>d\"z7*fh>rF-7$F4$\"3-c\\3\\\"oq\"oF-7$F9$\"3G^d?MH=rlF-7$F>$\"3gBXo1
j4SjF-7$FC$\"37#*GuoVeoeF-7$FH$\"3))HunW(4CX&F-7$FM$\"3!ejB]C0t3&F-7$F
R$\"3eq9\"Hpzgy%F-7$FW$\"3,#>\"=*[^m]%F-7$Ffn$\"35BRJ@9rZUF-7$F[o$\"3Q
Fhk2*Qf,%F-7$F`o$\"3(QQVf/^8!QF-7$Feo$\"3e'fI!Hs')HOF-7$Fjo$\"3qau-p83
aMF-7$F_p$\"3g,\"=kw;QH$F-7$Fdp$\"3#RutE0rH:$F-7$Fip$\"3sO37DqONIF-7$F
^q$\"3QU=rZd!p!HF-7$Fcq$\"3ef.Z&)fw1GF-7$Fhq$\"3_MI(=?]#*p#F-7$F]r$\"3
GLbC]>M6EF-7$Fbr$\"3E1rh&oe>_#F-7$Fgr$\"3*[,'\\&RnIW#F-7$F\\s$\"3UxVz:
(4mO#F-7$Fas$\"3o'GCy(4>,BF-7$Ffs$\"3u]S(**)QJNAF-7$F[t$\"37-6!e6#er@F
-7$F`t$\"35v%*)*>`m>@F-7$Fet$\"3c\\<Q6u+n?F-7$Fjt$\"3&eFZt\"*Gg,#F-7$F
_u$\"3!oZz:(zCp>F-7$Fdu$\"3L/2%e]km#>F-7$Fiu$\"39B(pD?EA)=F-7$F^v$\"3/
M8HRDlW=F-7$Fcv$\"3?:l7Lr!o!=F-7$Fhv$\"3))37dvSRu<F-7$F]w$\"3O#36W0c3u
\"F-7$Fbw$\"3X=js3T)4r\"F-7$Fgw$\"3#fuYKW$Q\"o\"F-7$F]x$\"3'>:Yz\\RRl
\"F-7$Fbx$\"3n>4wY^oE;F-7$Fgx$\"3P0SyV)o<g\"F-7$F\\y$\"37I!e%*=^vd\"F-
7$Fay$\"3Gi%pWb8Zb\"F-7$Ffy$\"3![r$pC!*pM:F-7$F[z$\"3\\:*yYPKG^\"F-7$F
`z$\"31aTO]j=%\\\"F-7$Fez$\"3owPo$='>v9F-7$Fjz$\"37aC)GcIyX\"F-7$F_[l$
\"3')**R'*******R9F--Fe[l6&Fg[lFa[lFa[lFa[l-%&TITLEG6#Q4w~-~modes~Tolm
an~IV6\"-%+AXESLABELSG6$Q#xiFjimQ!Fjim-%%VIEWG6$;$\"\"$!\"\"$Fe_mFfjm%
(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Cu
rve 1" "Curve 2" "Curve 3" "Curve 4" }}}}{EXCHG {PARA 0 "" 0 "" 
{MPLTEXT 0 21 22 "V:=sqrt(dp/dr/drho/dr)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 68 "vs:=sqrt(diff(grcomponent(p,[]),xi)/(diff(grcomponent
(rho,[]),xi))):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "vsj:=sub
s(R=1,vs):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "vs1:=subs(R=1
,alpha=6,vsj): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "vs2:=sub
s(R=1,alpha=5,vsj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "vs3:
=subs(R=1,alpha=4,vsj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "
vs4:=subs(R=1,alpha=3.5,vsj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 81 "plot([vs1,vs2,vs3,vs4],xi=0..1,color=[red,green,blue,black],titl
e=\"V Tolman IV\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6)-%'CURVESG6$7fn7$$\"3`*****\\n5;\"o!#@$\"3q.%G$3l8sW!#=
7$$\"3#******\\8ABO\"!#?$\"35tTJo\"Q@Z%F-7$$\"33+++-K[V?F1$\"3u0U&\\$4
9sWF-7$$\"3#)******pUkCFF1$\"3I'oW#3[9sWF-7$$\"3s*****\\Smp3%F1$\"3y%z
^Z(e:sWF-7$$\"3k******R&)G\\aF1$\"3;w'pxOr@Z%F-7$$\"3Y******4G$R<)F1$
\"3WPO%Hj:AZ%F-7$$\"3%******zqd)*3\"!#>$\"3qq]r-wFsWF-7$$\"3*)*****>c'
yM;FP$\"3'>4U(\\YXsWF-7$$\"3')*****fT:(z@FP$\"3#eCJ?\\-FZ%F-7$$\"3#***
****zZ*z7$FP$\"3EBNj-DItWF-7$$\"33+++XTFwSFP$\"3M!H!R_m6uWF-7$$\"3&***
***4z_\"4iFP$\"3)HZ9m,HnZ%F-7$$\"3o******R&phN)FP$\"35mRpqwW![%F-7$$\"
3++++*=)H\\5F-$\"3;SH@`!G_[%F-7$$\"3%******z/3uC\"F-$\"39gv[bgh!\\%F-7
$$\"35+++J$RDX\"F-$\"33y)p'[q:(\\%F-7$$\"37+++)R'ok;F-$\"3<?y=DA%\\]%F
-7$$\"3-+++1J:w=F-$\"3!ox&QYVs8XF-7$$\"33+++3En$4#F-$\"3>kMFN&4Q_%F-7$
$\"3-+++/RE&G#F-$\"3'>4hS^kN`%F-7$$\"3\")*****\\K]4]#F-$\"3;d=))*Q4ba%
F-7$$\"3$******\\PAvr#F-$\"3Q2*Q(\\M^eXF-7$$\"3)******\\nHi#HF-$\"3E(=
$)=8')>d%F-7$$\"3*)*****p*ev:JF-$\"374Vzxg+&e%F-7$$\"3$)*****z!47TLF-$
\"3z!fx#z<W,YF-7$$\"3?+++LY.KNF-$\"3`I-&=\"*ehh%F-7$$\"3u*****4o7Tv$F-
$\"3(Rd2*RN<MYF-7$$\"31+++$Q*o]RF-$\"3gapTUR!4l%F-7$$\"3?+++\"=lj;%F-$
\"3+&f#p>b3qYF-7$$\"3++++V&R<P%F-$\"3qheiHF8*o%F-7$$\"3/+++Xh-'e%F-$\"
3R]\\R=jz4ZF-7$$\"3!*******Q\"3Gy%F-$\"3C(4m[rh%HZF-7$$\"3!)*****H5k]*
\\F-$\"3gFF,45R^ZF-7$$\"3A+++(RQb@&F-$\"3#G*>%Q9K\\x%F-7$$\"3`+++=>Y2a
F-$\"3?Siprh.'z%F-7$$\"3\\+++yXu9cF-$\"3%=RLb$fW>[F-7$$\"3d******[y))G
eF-$\"36`]QP*yU%[F-7$$\"3.+++i_QQgF-$\"3]mn$z?'=p[F-7$$\"3A+++!y%3TiF-
$\"3YuPK#HRQ*[F-7$$\"35+++O![hY'F-$\"3,2jVhO#=#\\F-7$$\"3I+++#Qx$omF-$
\"3#**3kxh$\\Z\\F-7$$\"3s*****RP+V)oF-$\"3?QK\"plCa(\\F-7$$\"3Y*****pp
e*zqF-$\"31=5_#>z6+&F-7$$\"3u*****R#\\'QH(F-$\"3CeNRFgzH]F-7$$\"3#****
**H,M^\\(F-$\"3U&Q,))[Rr0&F-7$$\"3S+++0#=bq(F-$\"3#y'o!Q$38'3&F-7$$\"3
Y*****p?27\"zF-$\"3$4m.I$y&[6&F-7$$\"3a+++IXaE\")F-$\"3)3<'zkTJX^F-7$$
\"37+++l*RRL)F-$\"3!Hyf)\\T*\\<&F-7$$\"3i*****HvJga)F-$\"3Yi0c!yvc?&F-
7$$\"3s*****HJnjv)F-$\"3y<9)ff5kB&F-7$$\"3k******[Qk\\*)F-$\"3w4/KIS!
\\E&F-7$$\"3w******o0;r\"*F-$\"3S8[-y^$yH&F-7$$\"3[*****\\w(Gp$*F-$\"3
/BmT,)=vK&F-7$$\"37+++!oK0e*F-$\"3)zC!)p%pQf`F-7$$\"33+++<5s#y*F-$\"3U
$zrHy#3!R&F-7$$\"\"\"\"\"!$\"3*HSmaWhKU&F--%'COLOURG6&%$RGBG$\"*++++\"
!\")$Fe]lFe]lF_^l-F$6$7fn7$F($\"3eWF*\\yO@Z%F-7$F/$\"3g%fq\\FR@Z%F-7$F
5$\"3+Du#\\UV@Z%F-7$F:$\"3CkS&[B\\@Z%F-7$F?$\"3mR8cMe;sWF-7$FD$\"3cKW%
R2*=sWF-7$FI$\"3%)**4&3ZbAZ%F-7$FN$\"3+*43KU[BZ%F-7$FT$\"3yE:3!)RhsWF-
7$FY$\"3#fTFnq&)HZ%F-7$Fhn$\"3uU()H[b)QZ%F-7$F]o$\"3c4*yMM1^Z%F-7$Fbo$
\"3q^$fN,A!zWF-7$Fgo$\"39*4Uo'>f%[%F-7$F\\p$\"3K<*G8XX<\\%F-7$Fap$\"33
\"3dj4*z*\\%F-7$Ffp$\"3(3V8rDj&4XF-7$F[q$\"3VNb`Pj;@XF-7$F`q$\"37q]$[Y
JU`%F-7$Feq$\"3i#zb#GU?\\XF-7$Fjq$\"3w&fVl]bOc%F-7$F_r$\"3q()\\CE%48e%
F-7$Fdr$\"3PX)H=@x/g%F-7$Fir$\"3HkO)ecz-i%F-7$F^s$\"3&>p[\"fEORYF-7$Fc
s$\"3cs<.itPjYF-7$Fhs$\"35c`V!)3\"[o%F-7$F]t$\"3Ra(o([v&4r%F-7$Fbt$\"3
ajm^(G`^t%F-7$Fgt$\"3g%=y82#ziZF-7$F\\u$\"3Qp?m<38!z%F-7$Fau$\"3]cYqD6
n>[F-7$Ffu$\"3yA!GqNrw%[F-7$F[v$\"3u^kn#fm(y[F-7$F`v$\"3bFpe`')*>\"\\F
-7$Fev$\"3(>**37:h;%\\F-7$Fjv$\"3mSVZIMUu\\F-7$F_w$\"3COS;fv,4]F-7$Fdw
$\"3\"e,$f[>bV]F-7$Fiw$\"35%Q#[P^dx]F-7$F^x$\"3[VuD/q+;^F-7$Fcx$\"3%H#
3GVj3^^F-7$Fhx$\"3sP#G+,p!*=&F-7$F]y$\"3L&yrd\">#RA&F-7$Fby$\"3#>Wq6ff
CE&F-7$Fgy$\"3g(4<(=$*4*H&F-7$F\\z$\"3SRqG\\VvP`F-7$Faz$\"3'\\kPntjeP&
F-7$Ffz$\"3]w:ml+1;aF-7$F[[l$\"3)zI:(4$H]X&F-7$F`[l$\"3MoS-#R1^\\&F-7$
Fe[l$\"3J_/q$RW]`&F-7$Fj[l$\"3y#Q#>Td)=d&F-7$F_\\l$\"3PG3\\RqC9cF-7$Fd
\\l$\"3C7tskIB_cF-7$Fi\\l$\"37F)GZX3Gp&F-7$F^]l$\"34O<$3x\"pJdF-7$Fc]l
$\"3Uei*=p-Nx&F--Fi]l6&F[^lF_^lF\\^lF_^l-F$6$7fn7$F($\"3mwd)\\hP@Z%F-7
$F/$\"3]Nn$\\fU@Z%F-7$F5$\"3/4.$[*3:sWF-7$F:$\"3#*G(HY^i@Z%F-7$F?$\"3)
))zBPr&>sWF-7$FD$\"3A+ui\">UAZ%F-7$FI$\"3%Rq9.)\\PsWF-7$FN$\"3#4%)H7(3
csWF-7$FT$\"3#zp!*H!>4tWF-7$FY$\"3Wy%Rc8NQZ%F-7$Fhn$\"3K'4zNxLcZ%F-7$F
]o$\"31^'y1zs!yWF-7$Fbo$\"3ara:Bp)e[%F-7$Fgo$\"3mn>OG*yp\\%F-7$F\\p$\"
3IX+'[G%=6XF-7$Fap$\"3:W&zglBr_%F-7$Ffp$\"3]S5[)3tja%F-7$F[q$\"35'p*e1
<9pXF-7$F`q$\"3S+GP&3VYf%F-7$Feq$\"3I!QQ73$pBYF-7$Fjq$\"3O@x7Gpb^YF-7$
F_r$\"3mXhfHtO&o%F-7$Fdr$\"3q<0sovz@ZF-7$Fir$\"3eVM&*=U8fZF-7$F^s$\"3%
H#yjEA$[z%F-7$Fcs$\"3zZkXm(p$R[F-7$Fhs$\"3'elQrok(y[F-7$F]t$\"3jhZD(ey
j#\\F-7$Fbt$\"3Kivh(*[,q\\F-7$Fgt$\"3kRD6(ps$>]F-7$F\\u$\"3w</v]Zpn]F-
7$Fau$\"3fzLvyGO>^F-7$Ffu$\"3w_Njjp#y;&F-7$F[v$\"3)p(etL,3@_F-7$F`v$\"
3?05py%[tF&F-7$Fev$\"3F*\\+$pV-F`F-7$Fjv$\"3!*)pBa%[I\"Q&F-7$F_w$\"3)R
ld'e!ozV&F-7$Fdw$\"3u5ATJ;)Q\\&F-7$Fiw$\"3;TYN)>Y$[bF-7$F^x$\"3S\"e%H)
pW\"4cF-7$Fcx$\"3ac#GUo&)Rm&F-7$Fhx$\"3%oKYu-zEs&F-7$F]y$\"3oDY[$[Afx&
F-7$Fby$\"3H7V([BFT$eF-7$Fgy$\"39QPo8'H)))eF-7$F\\z$\"3W4I,!4%)e%fF-7$
Faz$\"3uw%fZg([,gF-7$Ffz$\"3k?&*G&zc%fgF-7$F[[l$\"3z#esJ)\\+:hF-7$F`[l
$\"3#*4WxUyZrhF-7$Fe[l$\"3UH4%RP3rA'F-7$Fj[l$\"37&3C\"H\\'yF'F-7$F_\\l
$\"3dAzNE[dNjF-7$Fd\\l$\"3MUw'Q*Hu'Q'F-7$Fi\\l$\"3eEW$*4S!3W'F-7$F^]l$
\"3i`,deX/#\\'F-7$Fc]l$\"3)>xzqqOla'F--Fi]l6&F[^lF_^lF_^lF\\^l-F$6$7gn
7$F_^l%%FAILG7$F($\"3[5N![FR@Z%F-7$F/$\"3aSroM#\\@Z%F-7$F5$\"3M\\VRMe;
sWF-7$F:$\"3Q8uxt!*=sWF-7$F?$\"3k+SoqaDsWF-7$FD$\"3so5/B%[BZ%F-7$FI$\"
3M>W\"*zRhsWF-7$FN$\"3W<-c1d)HZ%F-7$FT$\"3skpGUu/uWF-7$FY$\"3%3Vnd-LbZ
%F-7$Fhn$\"3-'QCz7E\"zWF-7$F]o$\"3#3g'=+R*R[%F-7$Fbo$\"3'=mo%zPb*\\%F-
7$Fgo$\"3D?=sR&[:_%F-7$F\\p$\"3kLd<84c\\XF-7$Fap$\"3A#)G@sty!e%F-7$Ffp
$\"3%QU/\"=V@=YF-7$F[q$\"3%[@1Tq!4iYF-7$F`q$\"3;inb;(R2r%F-7$Feq$\"3_L
@Ya*Rbw%F-7$Fjq$\"3rr'zf$3]<[F-7$F_r$\"3W+:qUIyz[F-7$Fdr$\"3KkhHs\"yf%
\\F-7$Fir$\"3I4`%z))pG,&F-7$F^s$\"3EA\\b*Rbf2&F-7$Fcs$\"3#y;OgF4N:&F-7
$Fhs$\"3\"=?-z)o2@_F-7$F]t$\"3(Qq$4;W\\,`F-7$Fbt$\"3!p#)4n7OSP&F-7$Fgt
$\"3C1Hoj8![X&F-7$F\\u$\"3g0,9tAfKbF-7$Fau$\"3Pl7$y\"yT9cF-7$Ffu$\"3ay
$4!)QT**o&F-7$F[v$\"3o$)*fQ'GgrdF-7$F`v$\"3=>_a%**Hk&eF-7$Fev$\"3ksLB'
[8,$fF-7$Fjv$\"3`3wt\")\\P4gF-7$F_w$\"3[pXnpKw!4'F-7$Fdw$\"3-9\"R$=<wp
hF-7$Fiw$\"3cednPe\\XiF-7$F^x$\"3CY*)3K-mGjF-7$Fcx$\"33?<sRWY-kF-7$Fhx
$\"3=wv**3j@!['F-7$F]y$\"3%oZi$G9n\\lF-7$Fby$\"3J+$e.\\cWi'F-7$Fgy$\"3
7$Ro'y5o$p'F-7$F\\z$\"3oFd1&[9[w'F-7$Faz$\"3utJ8Z[6LoF-7$Ffz$\"3v:5$)e
-F.pF-7$F[[l$\"3[*z`mO7&ppF-7$F`[l$\"3H\"4RJ(G*e.(F-7$Fe[l$\"36bmX.MN+
rF-7$Fj[l$\"3G[\"p*RzPerF-7$F_\\l$\"3-QuwojXBsF-7$Fd\\l$\"3!\\g\"=8oP!
G(F-7$Fi\\l$\"3#RX\"zvNtRtF-7$F^]l$\"3y(\\V*ffE&R(F-7$Fc]l$\"39p4_@*fN
X(F--Fi]l6&F[^lFe]lFe]lFe]l-%&TITLEG6#Q,V~Tolman~IV6\"-%+AXESLABELSG6$
Q#xiF_`nQ!F_`n-%%VIEWG6$;F_^lFc]l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve \+
4" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{MARK "58 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }