{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 3 "D-F" }}}{EXCHG {PARA 
0 "" 0 "" {MPLTEXT 0 21 57 "Physical quatities are defined in the init
ialization file" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "grts();" 
}}{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~Kayl
l~LakeG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%DCopyright~1994-2001~by~th
e~authors.G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%inLatest~version~avail
able~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 for gthetath
eta" }}{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/GRTensorJ/Metrics
sG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "qload(df);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#/%2Default~spacetimeG%#dfG" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#%6For~the~df~spacetime:G" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%,CoordinatesG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%\"x
G6#%#upG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&/)%#x~G%\"1G%#xiG/)F%%\"2G
%&thetaG/)F%%\"3G%$phiG/)F%%\"4G%\"tG" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#%-Line~elementG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/*$)%$~dsG\"\"#
\"\"\",**,%\"RGF',(F'F(*&\"\"(F()%#xiGF'F(!\"\"*&F/F(-%%sqrtG6#\"#dF(F
(F',,\"#9F(*&\"#qF(F/F(F(*(\"#5F(F/F(F3F(F1*&\"#`F()F0\"\"%F(F1*(F.F(F
?F(F3F(F(F1%#~dGF()F0%#2~GF(#F.F'**)F+F'F(F/F(FBF()%&thetaGFDF(F(*,FGF
(F/F()-%$sinG6#FIF'F(FBF()%$phiGFDF(F(*&#F(\"#;F(*()F,F@F(FBF()%\"tGFD
F(F(F1" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%hnM.C~Durgapal~and~R.S~Fulo
ria,~Gen.~Rel.~Grav.,~17,~671~(1985)G" }}}{EXCHG {PARA 0 "" 0 "" 
{MPLTEXT 0 21 19 "Physical parameters" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "grcalc(Iso,rho,p,mass):" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#/%*CPU~Time~G$\"$S\"!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 13 "grdisplay(_);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%6For~the~df~
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,
$**,(\"\"#\"\"\"*&\"\"(F))%#xiGF(F)!\"\"*&F,F)-%%sqrtG6#\"#dF)F)!\"%,2
\"#jF)*(\"#xF)F,F)F0F)F)*(\"$`\"F))F-\"\"%F)F0F)F.*&\"%b6F)F;F)F)*&\"%
,GF))F-\"\"'F)F.*(\"$r$F)FAF)F0F)F)*&\"$$eF)F,F)F.*&\"\"*F)F0F)F.F)%\"
RG!\"#%#PiGF.#!\")F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"pG" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"pG,$**%\"RG!\"#,(\"\"#\"\"\"*&\"\"
(F+)%#xiGF*F+!\"\"*&F.F+-%%sqrtG6#\"#dF+F+!\"%,2!#9F+*&F*F+F2F+F+*(\"#
NF+F.F+F2F+F+*(\"$3%F+)F/\"\"%F+F2F+F0*&\"$l#F+F.F+F0*&\"%!3$F+F>F+F+*
&\"%,GF+)F/\"\"'F+F0*(\"$r$F+FFF+F2F+F+F+%#PiGF0#\"#;F-" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#%%massG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%%ma
ssG,$***&)%\"RG\"\"#\"\"\")%#xiGF*F+#\"\"$F*F)!\"#,*\"#@F+*&F/F+-%%sqr
tG6#\"#dF+!\"\"*&\"#`F+F,F+F8*(\"\"(F+F,F+F4F+F+F+,(F*F+*&F<F+F,F+F8*&
F,F+F4F+F+F0#!#;F<" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 24 "Perssu
re plots (gamma=1)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "pj:=s
ubs(grcomponent(p,[])):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "
p1:=subs(R=1,pj): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "plot(
p1,xi=0..1,title=\"Pressure D-F\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6&-%'CURVESG6$7S7$$\"\"!F)$\"3rLgXdn]+]!#>7$$\"3e
mmm;arz@F,$\"313%R:iii*\\F,7$$\"3[LL$e9ui2%F,$\"3_\"R(eWen&)\\F,7$$\"3
nmmm\"z_\"4iF,$\"3qzdg$3Yh'\\F,7$$\"3[mmmT&phN)F,$\"3/P[=/kSQ\\F,7$$\"
3CLLe*=)H\\5!#=$\"3BovUF6&G!\\F,7$$\"3gmm\"z/3uC\"FD$\"3#=VeoE<H'[F,7$
$\"3%)***\\7LRDX\"FD$\"3%Q+Um0QY\"[F,7$$\"3]mm\"zR'ok;FD$\"3m9_qE7YdZF
,7$$\"3w***\\i5`h(=FD$\"3aeL$\\fMLp%F,7$$\"3WLLL3En$4#FD$\"3dCGbL'y,i%
F,7$$\"3qmm;/RE&G#FD$\"3OpUQv2\"*\\XF,7$$\"3\")*****\\K]4]#FD$\"3#znp=
$o_kWF,7$$\"3$******\\PAvr#FD$\"3cC+39MRsVF,7$$\"3)******\\nHi#HFD$\"3
I%yuxYSyF%F,7$$\"3jmm\"z*ev:JFD$\"3?9N!*4HL(=%F,7$$\"3?LLL347TLFD$\"3O
8`VPZHuSF,7$$\"3,LLLLY.KNFD$\"3?Q(3wL@U(RF,7$$\"3w***\\7o7Tv$FD$\"3cGd
J5?>`QF,7$$\"3'GLLLQ*o]RFD$\"3IW0o9(HAu$F,7$$\"3A++D\"=lj;%FD$\"3hZB\\
irq;OF,7$$\"31++vV&R<P%FD$\"3o>UHW#[Q\\$F,7$$\"3WLL$e9Ege%FD$\"3o#)eCr
EciLF,7$$\"3GLLeR\"3Gy%FD$\"3x>-[U,aRKF,7$$\"3cmm;/T1&*\\FD$\"31A\"eEo
]X5$F,7$$\"3&em;zRQb@&FD$\"3u`nbA%)>iHF,7$$\"3\\***\\(=>Y2aFD$\"3>fU^b
*>o$GF,7$$\"39mm;zXu9cFD$\"3!o'RVG()>+FF,7$$\"3l******\\y))GeFD$\"3E/!
y9vs!eDF,7$$\"3'*)***\\i_QQgFD$\"3E[vQ%p%R=CF,7$$\"3@***\\7y%3TiFD$\"3
c@s%Q0^HG#F,7$$\"35****\\P![hY'FD$\"3R4VJs2cK@F,7$$\"3kKLL$Qx$omFD$\"3
+dHO/fr(*>F,7$$\"3!)*****\\P+V)oFD$\"3%)zZ9/tLa=F,7$$\"3?mm\"zpe*zqFD$
\"3'R([L7%)=D<F,7$$\"3%)*****\\#\\'QH(FD$\"3%>4r_w*3&e\"F,7$$\"3GKLe9S
8&\\(FD$\"3k(edN7OXX\"F,7$$\"3R***\\i?=bq(FD$\"3#*z\">%G!3'>8F,7$$\"3
\"HLL$3s?6zFD$\"3?\"G_LJ:%*=\"F,7$$\"3a***\\7`Wl7)FD$\"3w-**o2$[^0\"F,
7$$\"3#pmmm'*RRL)FD$\"3aCzUUe#)z#*!#?7$$\"3Qmm;a<.Y&)FD$\"3EDr\\dh\"H+
)F`x7$$\"3=LLe9tOc()FD$\"3)y3Rohe;w'F`x7$$\"3u******\\Qk\\*)FD$\"3`?4
\\L6JWcF`x7$$\"3CLL$3dg6<*FD$\"3%ed)GE+R#R%F`x7$$\"3ImmmmxGp$*FD$\"3/D
z>&f^'*H$F`x7$$\"3A++D\"oK0e*FD$\"3o8?\\l=ij@F`x7$$\"3A++v=5s#y*FD$\"3
$G>iN!4=06F`x7$$\"\"\"F)F(-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%&TITLEG6#Q
-Pressure~D-F6\"-%+AXESLABELSG6$Q#xiFb[lQ!Fb[l-%%VIEWG6$;F(Fez%(DEFAUL
TG" 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 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 22 "rho1:=subs(R=1,rhoj
): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "plot(rho1,xi=0..1,ti
tle=\"Energy Density D-F\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 
300 {PLOTDATA 2 "6&-%'CURVESG6$7S7$$\"\"!F)$\"3Z3wU?S6D6!#=7$$\"3emmm;
arz@!#>$\"3F1Aq.fqC6F,7$$\"3[LL$e9ui2%F0$\"3EC&=Wk(oB6F,7$$\"3nmmm\"z_
\"4iF0$\"3:odT`$3=7\"F,7$$\"3[mmmT&phN)F0$\"3x4a;&3P\">6F,7$$\"3CLLe*=
)H\\5F,$\"3!\\/'[1)4d6\"F,7$$\"3gmm\"z/3uC\"F,$\"3z*oFJ*e&=6\"F,7$$\"3
%)***\\7LRDX\"F,$\"3#G^Kn2!>26F,7$$\"3]mm\"zR'ok;F,$\"3*)G^M]]l,6F,7$$
\"3w***\\i5`h(=F,$\"3O9Qel]V&4\"F,7$$\"3WLLL3En$4#F,$\"39=d$=KB$)3\"F,
7$$\"3qmm;/RE&G#F,$\"3qkRXvgZ\"3\"F,7$$\"3\")*****\\K]4]#F,$\"3[q1?:S8
t5F,7$$\"3$******\\PAvr#F,$\"3-,wFW^5k5F,7$$\"3)******\\nHi#HF,$\"3_ZE
ks*3[0\"F,7$$\"3jmm\"z*ev:JF,$\"3=4]2V7)e/\"F,7$$\"3?LLL347TLF,$\"3DR$
o/')*oM5F,7$$\"3,LLLLY.KNF,$\"3&)RBQ()GuC5F,7$$\"3w***\\7o7Tv$F,$\"3qR
X_9Cm75F,7$$\"3'GLLLQ*o]RF,$\"3(oI80vO:+\"F,7$$\"3A++D\"=lj;%F,$\"3gL/
[\\o\"*)))*F07$$\"31++vV&R<P%F,$\"31&=_\"*z<Xw*F07$$\"3WLL$e9Ege%F,$\"
33yX(>Ur3j*F07$$\"3GLLeR\"3Gy%F,$\"3s.K(R>U\\]*F07$$\"3cmm;/T1&*\\F,$
\"3SB1u<3'fO*F07$$\"3&em;zRQb@&F,$\"3d&y/1y_%=#*F07$$\"3\\***\\(=>Y2aF
,$\"3sa[%H`&p(3*F07$$\"39mm;zXu9cF,$\"3!QW:Rg\"GW*)F07$$\"3l******\\y)
)GeF,$\"3'34eGl7Sz)F07$$\"3'*)***\\i_QQgF,$\"3a\"fgp#=@X')F07$$\"3@***
\\7y%3TiF,$\"3k$[rF?5)*\\)F07$$\"35****\\P![hY'F,$\"3s5cn\"z9qL)F07$$
\"3kKLL$Qx$omF,$\"3_(ys9[x(*=)F07$$\"3!)*****\\P+V)oF,$\"3[6hJgC$=.)F0
7$$\"3?mm\"zpe*zqF,$\"3[oZ)pqp#))yF07$$\"3%)*****\\#\\'QH(F,$\"3E56jn'
p5t(F07$$\"3GKLe9S8&\\(F,$\"31%\\\"y5w7$e(F07$$\"3R***\\i?=bq(F,$\"3(R
U/TSm'GuF07$$\"3\"HLL$3s?6zF,$\"3S*RJ2WF!ysF07$$\"3a***\\7`Wl7)F,$\"3z
XOO.@#47(F07$$\"3#pmmm'*RRL)F,$\"3Q'R%ee`PqpF07$$\"3Qmm;a<.Y&)F,$\"3LD
<3dOP<oF07$$\"3=LLe9tOc()F,$\"3[(*G,/yvmmF07$$\"3u******\\Qk\\*)F,$\"3
QnC+\"\\t%HlF07$$\"3CLL$3dg6<*F,$\"3S^s6=PftjF07$$\"3ImmmmxGp$*F,$\"3#
>!=H3-iNiF07$$\"3A++D\"oK0e*F,$\"3cGn4h'Q,4'F07$$\"3A++v=5s#y*F,$\"3]&
>\"3O=d_fF07$$\"\"\"F)$\"3J8Vm3Xn1eF0-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-
%&TITLEG6#Q3Energy~Density~D-F6\"-%+AXESLABELSG6$Q#xiFc[lQ!Fc[l-%%VIEW
G6$;F(Fdz%(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 0 21 10 "M
ass plots" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "mj:=subs(grcom
ponent(mass,[])):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "mj1:=s
ubs(R=1,mj): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "plot(mj1,x
i=0..1,title=\"Mass D-F\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6&-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3emmm;arz@!#>$\"3Qj[sX(H
$f(*!#B7$$\"3[LL$e9ui2%F-$\"3ka&fa5D$zj!#A7$$\"3nmmm\"z_\"4iF-$\"3Q#fS
so*R_A!#@7$$\"3[mmmT&phN)F-$\"3Apox&oC@[&F<7$$\"3CLLe*=)H\\5!#=$\"3INO
t3&*[$3\"!#?7$$\"3gmm\"z/3uC\"FE$\"3WGv'f%*ol\"=FH7$$\"3%)***\\7LRDX\"
FE$\"3SS(e^Qv4'GFH7$$\"3]mm\"zR'ok;FE$\"3=t%*p?6g$H%FH7$$\"3w***\\i5`h
(=FE$\"3f>dOu;nDhFH7$$\"3WLLL3En$4#FE$\"3C\\(QgWZ'z%)FH7$$\"3qmm;/RE&G
#FE$\"3I44,U'R&)4\"F-7$$\"3\")*****\\K]4]#FE$\"3VQg,U**=L9F-7$$\"3$***
***\\PAvr#FE$\"3$ehH-8)QH=F-7$$\"3)******\\nHi#HFE$\"3/^9$fz&3sAF-7$$
\"3jmm\"z*ev:JFE$\"34)H[AF;)GFF-7$$\"3?LLL347TLFE$\"3*RkqT&R:VLF-7$$\"
3,LLLLY.KNFE$\"3%)o$=2tzn#RF-7$$\"3w***\\7o7Tv$FE$\"3!)4tnKjd\"o%F-7$$
\"3'GLLLQ*o]RFE$\"3<7F2ux6?aF-7$$\"3A++D\"=lj;%FE$\"3.w8Ahj$)3jF-7$$\"
31++vV&R<P%FE$\"3Ej53i]MLsF-7$$\"3WLL$e9Ege%FE$\"33q-i4z<\"G)F-7$$\"3G
LLeR\"3Gy%FE$\"32@'H@@M'>$*F-7$$\"3cmm;/T1&*\\FE$\"331!4M*)zA0\"FE7$$
\"3&em;zRQb@&FE$\"3O5Z>97\\'=\"FE7$$\"3\\***\\(=>Y2aFE$\"3W.egnP068FE7
$$\"39mm;zXu9cFE$\"3a%pLSD;PX\"FE7$$\"3l******\\y))GeFE$\"3H^Z$G^(**4;
FE7$$\"3'*)***\\i_QQgFE$\"3)=-7r%Qkr<FE7$$\"3@***\\7y%3TiFE$\"3V!y+'R?
FO>FE7$$\"35****\\P![hY'FE$\"3&)>\"))*41]G@FE7$$\"3kKLL$Qx$omFE$\"3it[
R^&Q'4BFE7$$\"3!)*****\\P+V)oFE$\"3mufMc%[<^#FE7$$\"3?mm\"zpe*zqFE$\"3
#o8Wt6oDq#FE7$$\"3%)*****\\#\\'QH(FE$\"36j,'>PB%>HFE7$$\"3GKLe9S8&\\(F
E$\"3#*zO+[W?JJFE7$$\"3R***\\i?=bq(FE$\"3#pqJOA_/O$FE7$$\"3\"HLL$3s?6z
FE$\"3'3s%ytG@#f$FE7$$\"3a***\\7`Wl7)FE$\"3s&zX#*4ZF%QFE7$$\"3#pmmm'*R
RL)FE$\"3)4RJ*z\")\\\"4%FE7$$\"3Qmm;a<.Y&)FE$\"3'\\qkNm[KN%FE7$$\"3=LL
e9tOc()FE$\"3N>G([*)z*>YFE7$$\"3u******\\Qk\\*)FE$\"3E(f1mqn6([FE7$$\"
3CLL$3dg6<*FE$\"3)3WcRF**f;&FE7$$\"3ImmmmxGp$*FE$\"3<.^#oJrdV&FE7$$\"3
A++D\"oK0e*FE$\"3d&43:t)[HdFE7$$\"3A++v=5s#y*FE$\"3iY9n_ZF;gFE7$$\"\"
\"F)$\"3Okt)zq'QIjFE-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%&TITLEG6#Q)Mass~
D-F6\"-%+AXESLABELSG6$Q#xiFe[lQ!Fe[l-%%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" }}}}
{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 89 "B:=radsimp(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 38 "plot(Bj,xi=0..1,title=\"Trapping D-F\");" }}{PARA 13 
"" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7S7$$\"\"!F)F
(7$$\"3emmm;arz@!#>$\"3KO(Q+6Y\"z@F-7$$\"3[LL$e9ui2%F-$\"3=hOe*e_D2%F-
7$$\"3nmmm\"z_\"4iF-$\"3e)[(Ht9,'>'F-7$$\"3[mmmT&phN)F-$\"3*4\"3Cc-=C$
)F-7$$\"3CLLe*=)H\\5!#=$\"36KI!)[Y(H/\"FB7$$\"3gmm\"z/3uC\"FB$\"3BX\\X
^Q!oB\"FB7$$\"3%)***\\7LRDX\"FB$\"3D:lZ0U$eV\"FB7$$\"3]mm\"zR'ok;FB$\"
3W9S'*p'3'R;FB7$$\"3w***\\i5`h(=FB$\"34F8dvDOS=FB7$$\"3WLLL3En$4#FB$\"
3#*o3(o/4T/#FB7$$\"3qmm;/RE&G#FB$\"39)oQ_\")H5A#FB7$$\"3\")*****\\K]4]
#FB$\"3juA)oM4rT#FB7$$\"3$******\\PAvr#FB$\"3,c,B,%\\/h#FB7$$\"3)*****
*\\nHi#HFB$\"3G?5wy`<$z#FB7$$\"3jmm\"z*ev:JFB$\"3W:]bMJ(e&HFB7$$\"3?LL
L347TLFB$\"3G8Dy0i6XJFB7$$\"3,LLLLY.KNFB$\"3#=p!RPzn,LFB7$$\"3w***\\7o
7Tv$FB$\"3Gns#)=(z#zMFB7$$\"3'GLLLQ*o]RFB$\"3ge9g>mGKOFB7$$\"3A++D\"=l
j;%FB$\"3=:so+&oaz$FB7$$\"31++vV&R<P%FB$\"3mJ!o%4I;YRFB7$$\"3WLL$e9Ege
%FB$\"3ctTQ=.R)4%FB7$$\"3GLLeR\"3Gy%FB$\"33Fv4x;eLUFB7$$\"3cmm;/T1&*\\
FB$\"3%o0]fbtVP%FB7$$\"3&em;zRQb@&FB$\"3HAw'R\">+:XFB7$$\"3\\***\\(=>Y
2aFB$\"3So!)3n9qKYFB7$$\"39mm;zXu9cFB$\"3#R[vY=Q[v%FB7$$\"3l******\\y)
)GeFB$\"3SnW#3aVb([FB7$$\"3'*)***\\i_QQgFB$\"35P#=W&)=#))\\FB7$$\"3@**
*\\7y%3TiFB$\"3Ewo8%>H@4&FB7$$\"35****\\P![hY'FB$\"3>`f\"3$Qh,_FB7$$\"
3kKLL$Qx$omFB$\"3'*H.*eU7ZH&FB7$$\"3!)*****\\P+V)oFB$\"3w.#\\<#3i)Q&FB
7$$\"3?mm\"zpe*zqFB$\"3!HY&p5F%)oaFB7$$\"3%)*****\\#\\'QH(FB$\"3AC'*R6
^G^bFB7$$\"3GKLe9S8&\\(FB$\"3GT$zSz%)Qi&FB7$$\"3R***\\i?=bq(FB$\"3i/C2
1nn%p&FB7$$\"3\"HLL$3s?6zFB$\"3IEc&=\\<*edFB7$$\"3a***\\7`Wl7)FB$\"3Q8
<!\\\"H)4#eFB7$$\"3#pmmm'*RRL)FB$\"3KI2;6P#e(eFB7$$\"3Qmm;a<.Y&)FB$\"3
z6<5E())p#fFB7$$\"3=LLe9tOc()FB$\"3C)e')))Q:H(fFB7$$\"3u******\\Qk\\*)
FB$\"3(phD$yv(4,'FB7$$\"3CLL$3dg6<*FB$\"3O!>h6.N)\\gFB7$$\"3ImmmmxGp$*
FB$\"3OI)GYNy.3'FB7$$\"3A++D\"oK0e*FB$\"3[/vt$>w'3hFB7$$\"3A++v=5s#y*F
B$\"3[))f,oSuJhFB7$$\"\"\"F)$\"3%pjxi2zA:'FB-%'COLOURG6&%$RGBG$\"#5!\"
\"F(F(-%&TITLEG6#Q-Trapping~D-F6\"-%+AXESLABELSG6$Q#xiFa[lQ!Fa[l-%%VIE
WG6$;F(Fbz%(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 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*grcomponent(mass,[])/(xi
*R)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Vj:=subs(R=1,V):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "plot(Vj,xi=0.1..1.0,title
=\"w - modes D-F\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6&-%'CURVESG6$7Y7$$\"3/+++++++5!#=$\"3nc\\uA0G<g!#:7$$\"3
/+](ofV!\\5F*$\"3S/+!=3&QpaF-7$$\"3-++v$>(3)4\"F*$\"3q<1#pt[K*\\F-7$$
\"3-+]i!zIr9\"F*$\"3e'=*pih'od%F-7$$\"3)*****\\(Quh>\"F*$\"3n/5AS:k5UF
-7$$\"3')*\\7.`>:G\"F*$\"3c#fmUb52n$F-7$$\"3/+]7tY'oO\"F*$\"37Ifz1NsGK
F-7$$\"3;+v=7U%GY\"F*$\"3P$*o+CE8@GF-7$$\"3+++D^P#)e:F*$\"3u\"3:?+'['[
#F-7$$\"3#)*****\\]Ral\"F*$\"3#4-%*\\6ym?#F-7$$\"3!****\\(e_0_<F*$\"3%
3yG'H0(=(>F-7$$\"3z**\\iq$oV%>F*$\"3w39tROM/;F-7$$\"3))**\\7VsmA@F*$\"
35Kt4UD#*[8F-7$$\"3%***\\7)R&G2BF*$\"3#47n5&\\MW6F-7$$\"33+]7ex@)\\#F*
$\"3mDOK?@^'y*!#;7$$\"31+]i&zP&)o#F*$\"3S,t#[`#ft%)F^p7$$\"3A++]Z`I%)G
F*$\"3sCHFA0.&Q(F^p7$$\"3o***\\P^Pn0$F*$\"3qysIZKH%f'F^p7$$\"31++]#Hb3
D$F*$\"3EmaxtOI]eF^p7$$\"3%*****\\P,xXMF*$\"3p@LF@T;E_F^p7$$\"3.++]2ng
LOF*$\"38()GoD]@<ZF^p7$$\"3I+]73.=/QF*$\"3O%H_uAH)=VF^p7$$\"3g****\\<)
3q+%F*$\"3R/,`q1t4RF^p7$$\"3E+++q6$)yTF*$\"3HnRJ)\\_(3OF^p7$$\"3;+]789
qyVF*$\"3YM6,r'[AI$F^p7$$\"3I*****\\W?cb%F*$\"39,^&>\\9R1$F^p7$$\"3?+]
7j'G(\\ZF*$\"3mJG6yZXKGF^p7$$\"3n+]P*elX$\\F*$\"3P,42.Y&pj#F^p7$$\"3]+
+DJNUF^F*$\"3]@p*Ro\"4bCF^p7$$\"3H+]iDt_/`F*$\"3b&=!onpD0BF^p7$$\"3Y**
*\\Ppdb\\&F*$\"3kvTP?fgf@F^p7$$\"3E**\\7eX)Rp&F*$\"3A'*o$*)osN-#F^p7$$
\"3?**\\(os:n'eF*$\"3[;I!>p@i\">F^p7$$\"3_***\\77qK0'F*$\"3Jzq8x-X5=F^
p7$$\"3o*****\\1**fC'F*$\"3`(\\cnJ$)4r\"F^p7$$\"3t***\\itYXV'F*$\"3Xt8
`M+?A;F^p7$$\"3^**\\7.j(ph'F*$\"3`J\"RxnDMa\"F^p7$$\"3?***\\PBL&>oF*$
\"3k^0'*HjEj9F^p7$$\"3#*)****\\kR:+(F*$\"3)*Gs^O%*4(R\"F^p7$$\"3%*****
\\P.(e>(F*$\"3(e$H&ynF>L\"F^p7$$\"3Q**\\7GG'>P(F*$\"3)p%>z'zusF\"F^p7$
$\"3I++]K%yWc(F*$\"3`zkMrb%=A\"F^p7$$\"3Q**\\781iXxF*$\"338[KgvUt6F^p7
$$\"3n**\\i&Qm\\$zF*$\"3&>$\\2z\"Gj7\"F^p7$$\"3&*)***\\(['3?\")F*$\"3%
p*G&ylPM3\"F^p7$$\"39**\\7y+*QJ)F*$\"37^yxq*z:/\"F^p7$$\"3n******pfa+&
)F*$\"3G@gdUH&R+\"F^p7$$\"31++vy&G9p)F*$\"3#Q[h]%4lz'*!#<7$$\"3_+]7$eI
2)))F*$\"3U8QV@maX$*Fdz7$$\"3a*****\\YzY0*F*$\"3))Q8w7U%p0*Fdz7$$\"3O*
**\\P^WSD*F*$\"3Y>u4!>Bhu)Fdz7$$\"3L*******)*eBV*F*$\"3+(Hsb^*y%[)Fdz7
$$\"3@+]78%zCi*F*$\"3&\\!38=3:A#)Fdz7$$\"3J**\\(o\"*[W!)*F*$\"3IS3c`+5
&)zFdz7$$\"\"\"\"\"!$\"3&RGhC]?[u(Fdz-%'COLOURG6&%$RGBG$\"#5!\"\"$Ff\\
lFf\\lF`]l-%&TITLEG6#Q.w~-~modes~D-F6\"-%+AXESLABELSG6$Q#xiFe]lQ!Fe]l-
%%VIEWG6$;$Fe\\lF_]lF]]l%(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 
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:=subs(R=1,vs)
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot(vsj,xi=0..1,title
=\"V D-F\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&
-%'CURVESG6$7fn7$$\"3`*****\\n5;\"o!#@$\"3AosZPQ!)>5!#<7$$\"3#******\\
8ABO\"!#?$\"3X'Q`<k.)>5F-7$$\"33+++-K[V?F1$\"3\"p\"oa:L!)>5F-7$$\"3#)*
*****pUkCFF1$\"3;Eu&)eG!)>5F-7$$\"3s*****\\Smp3%F1$\"3\\8$HSb,)>5F-7$$
\"3k******R&)G\\aF1$\"3A&omss*z>5F-7$$\"3Y******4G$R<)F1$\"3!HLCz]%z>5
F-7$$\"3%******zqd)*3\"!#>$\"3v(f$z+sy>5F-7$$\"3*)*****>c'yM;FP$\"3\\W
m%HKm(>5F-7$$\"3')*****fT:(z@FP$\"3)z8QJ4P(>5F-7$$\"3#*******zZ*z7$FP$
\"3[d[@7jm>5F-7$$\"33+++XTFwSFP$\"3JYIuI-d>5F-7$$\"3&******4z_\"4iFP$
\"3L%\\*RF;E>5F-7$$\"3o******R&phN)FP$\"3:VoWG:#)=5F-7$$\"3++++*=)H\\5
!#=$\"3?aKYxVD=5F-7$$\"3%******z/3uC\"F^p$\"3P5N]YKh<5F-7$$\"35+++J$RD
X\"F^p$\"3k^$eP@Ko,\"F-7$$\"37+++)R'ok;F^p$\"3r'4>Ht)*e,\"F-7$$\"3-+++
1J:w=F^p$\"3gtuI:1%[,\"F-7$$\"33+++3En$4#F^p$\"3&H;qVy=O,\"F-7$$\"3-++
+/RE&G#F^p$\"3oax>\"3IC,\"F-7$$\"3\")*****\\K]4]#F^p$\"3lOe**R_'4,\"F-
7$$\"3$******\\PAvr#F^p$\"3xO4x!ye$45F-7$$\"3)******\\nHi#HF^p$\"3,y)R
*39o25F-7$$\"3*)*****p*ev:JF^p$\"38FD<$oZg+\"F-7$$\"3$)*****z!47TLF^p$
\"3!44%H*HnR+\"F-7$$\"3?+++LY.KNF^p$\"3lYUT^r3-5F-7$$\"3u*****4o7Tv$F^
p$\"3S@8V#3Kw***F^p7$$\"31+++$Q*o]RF^p$\"3/kR/)GCe(**F^p7$$\"3?+++\"=l
j;%F^p$\"3I]e?*)3b]**F^p7$$\"3++++V&R<P%F^p$\"3F%>P6Kk^#**F^p7$$\"3/++
+Xh-'e%F^p$\"3)GNM_8\"H(*)*F^p7$$\"3!*******Q\"3Gy%F^p$\"35a'4\"f!Q/()
*F^p7$$\"3!)*****H5k]*\\F^p$\"3%>'f@X=6S)*F^p7$$\"3A+++(RQb@&F^p$\"3yX
;%)[/52)*F^p7$$\"3`+++=>Y2aF^p$\"3Q\\n<rv4x(*F^p7$$\"3\\+++yXu9cF^p$\"
3&=Q4skbLu*F^p7$$\"3d******[y))GeF^p$\"3wxx7j<-2(*F^p7$$\"3.+++i_QQgF^
p$\"3aY3U:%3+n*F^p7$$\"3A+++!y%3TiF^p$\"3^[!*eswzK'*F^p7$$\"35+++O![hY
'F^p$\"37u#y4c\\)*e*F^p7$$\"3I+++#Qx$omF^p$\"3w]HZP[x\\&*F^p7$$\"3s***
**RP+V)oF^p$\"3`+]mvWT0&*F^p7$$\"3Y*****ppe*zqF^p$\"3k$zG</'zj%*F^p7$$
\"3u*****R#\\'QH(F^p$\"3Kw&\\vTFnT*F^p7$$\"3#******H,M^\\(F^p$\"3aL+U*
R@4P*F^p7$$\"3S+++0#=bq(F^p$\"3%pN5#RJW@$*F^p7$$\"3Y*****p?27\"zF^p$\"
3#3)zc__Yr#*F^p7$$\"3a+++IXaE\")F^p$\"3:ib7pbT<#*F^p7$$\"37+++l*RRL)F^
p$\"31g8!f1gO;*F^p7$$\"3i*****HvJga)F^p$\"3t(>R6&>$p5*F^p7$$\"3s*****H
Jnjv)F^p$\"3OKpee#)))[!*F^p7$$\"3k******[Qk\\*)F^p$\"3-ys^Ib&R**)F^p7$
$\"3w******o0;r\"*F^p$\"3`#)oJH\"z!H*)F^p7$$\"3[*****\\w(Gp$*F^p$\"3/`
e&op$Gp))F^p7$$\"37+++!oK0e*F^p$\"3%pH2$G/l.))F^p7$$\"33+++<5s#y*F^p$
\"3#f&e[*fw*Q()F^p7$$\"\"\"\"\"!$\"3=)oxdR3um)F^p-%'COLOURG6&%$RGBG$\"
#5!\"\"$Ff]lFf]lF`^l-%&TITLEG6#Q&V~D-F6\"-%+AXESLABELSG6$Q#xiFe^lQ!Fe^
l-%%VIEWG6$;F`^lFd]l%(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 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{MARK "35 0 0" 
0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }