{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 Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 
1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple 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 "Kuch2 III" }}}{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(kuch);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%2Default~spacetimeG%%kuchG" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%8For~the~kuch~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 12 "" 1 "" {XPPMATH 20 "6#/*$)
%$~dsG\"\"#\"\"\",**0%\"RGF',.*&%&alphaGF(-%$expG6#F(F(!\"#*&F/F()F.F'
F(F(*(\"\"%F(-F06#*&,(!\"\"F(*$)%#xiGF'F(F;F.F(F(,&F2F(F.F(F;F(F=F(F(*
*F'F(F7F(F=F(F.F(F;**-F06#*&,&F'F(F.F;F;F>F'F(F=F(F.F(-%#EiG6#*&,&F;F(
F.F(F(F?F;F(F(**F=F(FBF(-FG6#*&,(F2F(F.F(F<F(F(F?F;F(F.F(F;F;F.F(F?F(F
/F(%#~dGF()F>%#2~GF(F(**)F+F'F(F=F(FPF()%&thetaGFRF(F(*,FTF(F=F()-%$si
nG6#FVF'F(FPF()%$phiGFRF(F(*(-F06#*&F?F;F>F'F(FPF()%\"tGFRF(F;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/%,ConstraintsG7\"" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#%do~B.~Kuchowicz,~Report-Nuclear~Energy~Information~C
entre~NEIC-RR-28~(1967)G" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 19 "
Physical parameters" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "grca
lc(Iso,rho,p,mass):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%*CPU~Time~G$
\"$5#!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "gralter(_,1,5,
6,7):" }}{PARA 6 "" 1 "" {TEXT -1 48 "Component simplification of a GR
TensorII object:" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" 
{TEXT -1 39 "Applying routine simplify to object Iso" }}{PARA 6 "" 1 "
" {TEXT -1 39 "Applying routine simplify to object rho" }}{PARA 6 "" 
1 "" {TEXT -1 37 "Applying routine simplify to object p" }}{PARA 6 "" 
1 "" {TEXT -1 40 "Applying routine simplify to object mass" }}{PARA 6 
"" 1 "" {TEXT -1 50 "Applying routine `simplify[radical]` to object Is
o" }}{PARA 6 "" 1 "" {TEXT -1 50 "Applying routine `simplify[radical]`
 to object rho" }}{PARA 6 "" 1 "" {TEXT -1 48 "Applying routine `simpl
ify[radical]` to object p" }}{PARA 6 "" 1 "" {TEXT -1 51 "Applying rou
tine `simplify[radical]` to object mass" }}{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$\"$6$!\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "grdisplay(_);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%8Fo
r~the~kuch~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 12 "" 1 "" {XPPMATH 
20 "6#/%$rhoG,$*4-%$expG6#!\"\"\"\"\",P*,)%&alphaG\"\"#F+-F(6#,$*&,&!
\"#F+F/F+F*%#xiGF0F*F+-%#EiG6#*&,(F6F+F/F+*$)F7F0F+F+F+F5F*F+-F(6#*&F+
F+F5F*F+-F(6#F4F+\"#7*.\"\"$F+)F/FFF+F1F+-F96#*&,&F*F+F/F+F+F5F*F+F?F+
FBF+F+**\"\"%F+-F(6#*&F5F*F/F+F+)F7FMF+F/F+F+*.FDF+F1F+F8F+F/F+F?F+FBF
+F**.FDF+F1F+FHF+F/F+F?F+FBF+F+*.FDF+F.F+F1F+FHF+F?F+FBF+F**0F0F+F1F+F
>F+FHF+F/F+F?F+FBF+F**(\"\")F+FNF+F>F+F**.FFF+FGF+F1F+F8F+F?F+FBF+F***
F0F+F.F+FNF+F>F+F**.F0F+F.F+-F(6#F+F+F>F+F?F+FBF+F**(\"#OF+F.F+FNF+F+*
(FWF+FNF+FQF+F**(\"\"'F+FGF+FNF+F**(\"#sF+F/F+FNF+F**0F0F+F1F+FQF+FHF+
F/F+F?F+FBF+F**0F0F+FQF+F1F+F8F+F/F+F?F+FBF+F+*0F0F+F>F+F1F+F8F+F/F+F?
F+FBF+F+*&\"#[F+FNF+F+*.FMF+FenF+F>F+F/F+F?F+FBF+F+*.F.F+F1F+F>F+FHF+F
?F+FBF+F+**FWF+F/F+FNF+F>F+F+*.F.F+F1F+F8F+F>F+F?F+FBF+F*F+F/F*F<F*F5F
6%\"RGF6%#PiGF*F?F*FBF*#F*FW" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"pG
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/%\"pG,$*2-%$expG6#!\"\"\"\"\",<*&
)%&alphaG\"\"#F+-F(6#*&,&!\"#F+F/F+F*F/F+F+F5*,F.F+-F(6#,$*&F4F*%#xiGF
0F*F+-%#EiG6#*&,(F5F+F/F+*$)F;F0F+F+F+F4F*F+-F(6#*&F+F+F4F*F+-F(6#F:F+
F**,F.F+F7F+-F=6#*&,&F*F+F/F+F+F4F*F+FCF+FFF+F+*,F0F+F.F+-F(6#F+F+FCF+
FFF+F+*,\"\"%F+FNF+F/F+FCF+FFF+F**.F0F+F7F+FIF+F/F+FCF+FFF+F**(\"\")F+
F/F+F1F+F+*0F0F+F7F+FBF+FIF+F/F+FCF+FFF+F+**FQF+F/F+F1F+FBF+F**.F0F+F7
F+F<F+F/F+FCF+FFF+F+*0F0F+FBF+F7F+F<F+F/F+FCF+FFF+F**&FTF+F1F+F**(FTF+
F1F+FBF+F+F+%\"RGF5F/F*F4F5%#PiGF*FCF*FFF*#F+FT" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%%massG" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/%%massG,$*2
%#xiG\"\"#*&)%\"RGF(\"\"\")F'F(F,#F,F(-%$expG6#!\"\"F,,*-F06#*&,&!\"#F
,%&alphaGF,F2F9F,\"\"%*(F(F,F9F,F4F,F2*,-F06#,$*&F7F2F'F(F2F,-%#EiG6#*
&,&F2F,F9F,F,F7F2F,F9F,-F06#*&F,F,F7F2F,-F06#F@F,F,*,F=F,-FB6#*&,(F8F,
F9F,*$F-F,F,F,F7F2F,F9F,FFF,FIF,F2F,F9F2F7F2FFF2FIF2#F2F(" }}}{EXCHG 
{PARA 0 "" 0 "" {MPLTEXT 0 21 24 "Perssure plots (gamma=1)" }}}{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 25 "p4:=subs(R=1,alpha=3,
pj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "plot([p1,p2,p3,p4],
xi=0..1,color=[red,green,blue,black],title=\"Pressure Kuch2 III\");" }
}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7S7
$$\"\"!F)$\"+D._u`!#77$$\"+;arz@!#6$\"+FVhr`F,7$$\"+XTFwSF0$\"+j(eVO&F
,7$$\"+\"z_\"4iF0$\"+D!\\4N&F,7$$\"+S&phN)F0$\"+)yX=L&F,7$$\"+*=)H\\5!
#5$\"+iGE2`F,7$$\"+[!3uC\"FE$\"+f5_z_F,7$$\"+J$RDX\"FE$\"+MSzX_F,7$$\"
+)R'ok;FE$\"+%>#e0_F,7$$\"+1J:w=FE$\"+Y08g^F,7$$\"+3En$4#FE$\"+oo\"y5&
F,7$$\"+/RE&G#FE$\"+6j4d]F,7$$\"+D.&4]#FE$\"+O'H[*\\F,7$$\"+vB_<FFE$\"
+j@%o#\\F,7$$\"+v'Hi#HFE$\"+yh=c[F,7$$\"+(*ev:JFE$\"+JTp(y%F,7$$\"+347
TLFE$\"+7$R4q%F,7$$\"+LY.KNFE$\"+B(yHi%F,7$$\"+\"o7Tv$FE$\"+rf>FXF,7$$
\"+$Q*o]RFE$\"+$*Q*yV%F,7$$\"+\"=lj;%FE$\"+M!*4NVF,7$$\"+V&R<P%FE$\"+c
ZfKUF,7$$\"+Xh-'e%FE$\"+A9\"47%F,7$$\"+R\"3Gy%FE$\"+%eiT,%F,7$$\"+.T1&
*\\FE$\"+Y'*f%*QF,7$$\"+(RQb@&FE$\"+m#Qcw$F,7$$\"+=>Y2aFE$\"++g\\\\OF,
7$$\"+yXu9cFE$\"+WG3?NF,7$$\"+\\y))GeFE$\"+T49#Q$F,7$$\"+i_QQgFE$\"+7?
6VKF,7$$\"+!y%3TiFE$\"+5f%[5$F,7$$\"+O![hY'FE$\"+kw6ZHF,7$$\"+#Qx$omFE
$\"+2zr,GF,7$$\"+u.I%)oFE$\"+3kuUEF,7$$\"+(pe*zqFE$\"+l'pa\\#F,7$$\"+C
\\'QH(FE$\"+H51JBF,7$$\"+8S8&\\(FE$\"+0JBt@F,7$$\"+0#=bq(FE$\"+@w70?F,
7$$\"+2s?6zFE$\"+UrzP=F,7$$\"+IXaE\")FE$\"+&*Hff;F,7$$\"+l*RRL)FE$\"+1
F;&[\"F,7$$\"+`<.Y&)FE$\"+%yuSI\"F,7$$\"+8tOc()FE$\"+hb\">7\"F,7$$\"+
\\Qk\\*)FE$\"+LT*Q_*!#87$$\"+p0;r\"*FE$\"++H8dvF`y7$$\"+lxGp$*FE$\"+J[
xxdF`y7$$\"+!oK0e*FE$\"+/F\"4'QF`y7$$\"+<5s#y*FE$\"+-T]3?F`y7$$\"\"\"F
)$\"+Ik)zC*!#@-%'COLOURG6&%$RGBG$\"*++++\"!\")F(F(-F$6$7S7$F($\"+4lQ1)
)F,7$F.$\"+F,[,))F,7$F4$\"+10B*y)F,7$F9$\"+3Dfm()F,7$F>$\"+'oYVt)F,7$F
C$\"+b!eGp)F,7$FI$\"+xs/Y')F,7$FN$\"+V.:*e)F,7$FS$\"+1FL@&)F,7$FX$\"+w
JqW%)F,7$Fgn$\"+Q\"QlN)F,7$F\\o$\"++F4r#)F,7$Fao$\"+ZOCm\")F,7$Ffo$\"+
F?#=0)F,7$F[p$\"+nu(H$zF,7$F`p$\"+3+%y\"yF,7$Fep$\"+:#*4swF,7$Fjp$\"+B
hATvF,7$F_q$\"+1$f0Q(F,7$Fdq$\"+M$*)3B(F,7$Fiq$\"+g%f(eqF,7$F^r$\"+ROG
()oF,7$Fcr$\"+\"HZ1q'F,7$Fhr$\"+v6XAlF,7$F]s$\"+8[4BjF,7$Fbs$\"+9sM3hF
,7$Fgs$\"+C+?:fF,7$F\\t$\"+%et-q&F,7$Fat$\"+Rx_raF,7$Fft$\"+@%[8C&F,7$
F[u$\"+W)3G,&F,7$F`u$\"+&pqDv%F,7$Feu$\"+;(GJ^%F,7$Fju$\"+,)\\=D%F,7$F
_v$\"+X<G5SF,7$Fdv$\"+dS=TPF,7$Fiv$\"+LzV$[$F,7$F^w$\"+'3\\&4KF,7$Fcw$
\"+SmfPHF,7$Fhw$\"+)>I([EF,7$F]x$\"+[$enO#F,7$Fbx$\"+C\"f[2#F,7$Fgx$\"
+HO6#y\"F,7$F\\y$\"+CX[5:F,7$Fby$\"+jBO'>\"F,7$Fgy$\"+7FHJ\"*F`y7$F\\z
$\"+I?a!4'F`y7$Faz$\"+6`giJF`y7$Ffz$!+!*p-q;!#?-F\\[l6&F^[lF(F_[lF(-F$
6$7S7$F($\"+-G)zs\"F07$F.$\"+cb(ps\"F07$F4$\"+$*3YC<F07$F9$\"+rR\")><F
07$F>$\"+wb>8<F07$FC$\"+&R\"o/<F07$FI$\"+'zw]p\"F07$FN$\"+L`S$o\"F07$F
S$\"+=v\\p;F07$FX$\"+/yy`;F07$Fgn$\"+-.sN;F07$F\\o$\"+dw@=;F07$Fao$\"+
H4v'f\"F07$Ffo$\"+z\"QLd\"F07$F[p$\"+9k.\\:F07$F`p$\"+h*3b_\"F07$Fep$
\"+j>v&\\\"F07$Fjp$\"+NX0p9F07$F_q$\"+n<JO9F07$Fdq$\"+HP%eS\"F07$Fiq$
\"+)eX3P\"F07$F^r$\"+As-O8F07$Fcr$\"+Zg=)H\"F07$Fhr$\"+ME6i7F07$F]s$\"
+XR#=A\"F07$Fbs$\"+M\"4&y6F07$Fgs$\"+d\"H'R6F07$F\\t$\"+-cX'4\"F07$Fat
$\"+(=:10\"F07$Fft$\"+Zeg/5F07$F[u$\"+O`Y!f*F,7$F`u$\"+__At!*F,7$Feu$
\"+4\"H))f)F,7$Fju$\"+Ka)G3)F,7$F_v$\"+3$=vg(F,7$Fdv$\"+O&=*zqF,7$Fiv$
\"+T?cwlF,7$F^w$\"+.&))Q/'F,7$Fcw$\"+@>J<bF,7$Fhw$\"+\"o>1'\\F,7$F]x$
\"+/S#*>WF,7$Fbx$\"+d36jQF,7$Fgx$\"+$>oxI$F,7$F\\y$\"+s(Q`z#F,7$Fby$\"
+>#)G1AF,7$Fgy$\"+Jb_y;F,7$F\\z$\"+Flf:6F,7$Faz$\"+i=gsdF`y7$FfzF(-F\\
[l6&F^[lF(F(F_[l-F$6$7S7$F($\"+4'\\]A&F07$F.$\"+d3'=A&F07$F4$\"+)*z*Q@
&F07$F9$\"+`g<*>&F07$F>$\"+fD>y^F07$FC$\"+#)><^^F07$FI$\"+'4c17&F07$FN
$\"+<b_$3&F07$FS$\"+9\\@R]F07$FX$\"+*H#3*)\\F07$Fgn$\"+ifKJ\\F07$F\\o$
\"+85Gv[F07$Fao$\"+0nU1[F07$Ffo$\"+&=*>JZF07$F[p$\"+Au)Hl%F07$F`p$\"+#
Qgrd%F07$Fep$\"++*H6[%F07$Fjp$\"+yq([R%F07$F_q$\"+\"e-!*G%F07$Fdq$\"+Y
gU!>%F07$Fiq$\"+p^;xSF07$F^r$\"+W%*\\kRF07$Fcr$\"+zx6UQF07$Fhr$\"+$4kb
s$F07$F]s$\"+*\\ubf$F07$Fbs$\"+%)Q5cMF07$Fgs$\"+/1AJLF07$F\\t$\"+^2&H>
$F07$Fat$\"+(>ym/$F07$Fft$\"+/2]+HF07$F[u$\"+%Q`kv#F07$F`u$\"+A.&Qf#F0
7$Feu$\"+rNnXCF07$Fju$\"+!z]cG#F07$F_v$\"+keLR@F07$Fdv$\"+`\\Hy>F07$Fi
v$\"+gT1E=F07$F^w$\"+C!flm\"F07$Fcw$\"+$**z0^\"F07$Fhw$\"+@!>wM\"F07$F
]x$\"+*)fM\">\"F07$Fbx$\"+x5eK5F07$Fgx$\"+*3j_w)F,7$F\\y$\"+#)fZYtF,7$
Fby$\"+%e3<u&F,7$Fgy$\"+'>D'GVF,7$F\\z$\"+1Q:[GF,7$Faz$\"+<j<f9F,F^^m-
F\\[l6&F^[lF)F)F)-%&TITLEG6#Q3Pressure~Kuch2~III6\"-%+AXESLABELSG6$Q#x
iFjgmQ!Fjgm-%%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 20 "Energy density plots" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "rhoj:=subs(grcomponent(rh
o,[])):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "rho1:=subs(R=1,a
lpha=6,rhoj): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "rho2:=sub
s(R=1,alpha=5,rhoj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "rho
3:=subs(R=1,alpha=4,rhoj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
29 "rho4:=subs(R=1,alpha=3,rhoj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 98 "plot([rho1,rho2,rho3,rho4],xi=0..1,color=[red,green,b
lue,black],title=\"Energy Density Kuch2 III\");" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7S7$$\"\"!F)$\"+nU&fN
%!#67$$\"+;arz@F,$\"+vEobVF,7$$\"+XTFwSF,$\"+)>/]N%F,7$$\"+\"z_\"4iF,$
\"+l)[PN%F,7$$\"+S&phN)F,$\"+Xu&>N%F,7$$\"+*=)H\\5!#5$\"+9ok\\VF,7$$\"
+[!3uC\"FD$\"+U?.ZVF,7$$\"+J$RDX\"FD$\"+DG%QM%F,7$$\"+)R'ok;FD$\"+Uc-S
VF,7$$\"+1J:w=FD$\"+?<pNVF,7$$\"+3En$4#FD$\"+^\"y1L%F,7$$\"+/RE&G#FD$
\"+89zDVF,7$$\"+D.&4]#FD$\"+%[d(>VF,7$$\"+vB_<FFD$\"+1b78VF,7$$\"+v'Hi
#HFD$\"+-]=1VF,7$$\"+(*ev:JFD$\"+C-T*H%F,7$$\"+347TLFD$\"+tHw!H%F,7$$
\"+LY.KNFD$\"+J%HHG%F,7$$\"+\"o7Tv$FD$\"+:QAtUF,7$$\"+$Q*o]RFD$\"+EV4k
UF,7$$\"+\"=lj;%FD$\"+,%*[`UF,7$$\"+V&R<P%FD$\"+&H7GC%F,7$$\"+Xh-'e%FD
$\"+,K1JUF,7$$\"+R\"3Gy%FD$\"+z/s>UF,7$$\"+.T1&*\\FD$\"+2c)o?%F,7$$\"+
(RQb@&FD$\"+cu)G>%F,7$$\"+=>Y2aFD$\"+kQ9!=%F,7$$\"+yXu9cFD$\"+k:zlTF,7
$$\"+\\y))GeFD$\"+nlJ]TF,7$$\"+i_QQgFD$\"+&>NX8%F,7$$\"+!y%3TiFD$\"+')
pl=TF,7$$\"+O![hY'FD$\"+m0K+TF,7$$\"+#Qx$omFD$\"+Zn?$3%F,7$$\"+u.I%)oF
D$\"+BVEkSF,7$$\"+(pe*zqFD$\"+`)*\\YSF,7$$\"+C\\'QH(FD$\"+KRUESF,7$$\"
+8S8&\\(FD$\"+\">3p+%F,7$$\"+0#=bq(FD$\"+i!fe)RF,7$$\"+2s?6zFD$\"+`vjk
RF,7$$\"+IXaE\")FD$\"+n2uTRF,7$$\"+l*RRL)FD$\"+T@.>RF,7$$\"+`<.Y&)FD$
\"+#=X^*QF,7$$\"+8tOc()FD$\"+7azqQF,7$$\"+\\Qk\\*)FD$\"+?M%y%QF,7$$\"+
p0;r\"*FD$\"+pB'3#QF,7$$\"+lxGp$*FD$\"+pM7'z$F,7$$\"+!oK0e*FD$\"+B67pP
F,7$$\"+<5s#y*FD$\"+@xnUPF,7$$\"\"\"F)$\"+O`h8PF,-%'COLOURG6&%$RGBG$\"
*++++\"!\")F(F(-F$6$7S7$F($\"++7$eJ&F,7$F.$\"+E#yaJ&F,7$F3$\"+)4'f9`F,
7$F8$\"+MD'HJ&F,7$F=$\"+Y#G1J&F,7$FB$\"+A?h2`F,7$FH$\"+d:>/`F,7$FM$\"+
D%4+I&F,7$FR$\"+u#*)\\H&F,7$FW$\"+a2F*G&F,7$Ffn$\"+$3JEG&F,7$F[o$\"+6[
8w_F,7$F`o$\"+053o_F,7$Feo$\"+h()=f_F,7$Fjo$\"+k#R)\\_F,7$F_p$\"+.:nS_
F,7$Fdp$\"+%[7*G_F,7$Fip$\"+%f1#=_F,7$F^q$\"+eZ([?&F,7$Fcq$\"+A\"pA>&F
,7$Fhq$\"+v1bx^F,7$F]r$\"+RRli^F,7$Fbr$\"+uc<Y^F,7$Fgr$\"+rk=I^F,7$F\\
s$\"+kL+7^F,7$Fas$\"+y!p?4&F,7$Ffs$\"+NM$Q2&F,7$F[t$\"+w;?`]F,7$F`t$\"
+%\\^3.&F,7$Fet$\"+*zaz+&F,7$Fjt$\"+v!>[)\\F,7$F_u$\"+Xy)z&\\F,7$Fdu$
\"+[T%G$\\F,7$Fiu$\"+L!4\\!\\F,7$F^v$\"+\\#>'y[F,7$Fcv$\"+J6\")[[F,7$F
hv$\"+=Wu>[F,7$F]w$\"+DPI)y%F,7$Fbw$\"+N/_cZF,7$Fgw$\"+#yU@s%F,7$F\\x$
\"+?/(zo%F,7$Fax$\"+]C&>l%F,7$Ffx$\"+P2<:YF,7$F[y$\"+k&[/e%F,7$F`y$\"+
DwdRXF,7$Fey$\"+*zh?]%F,7$Fjy$\"+M'y5Y%F,7$F_z$\"+\"*z\"4U%F,7$Fdz$\"+
N4wwVF,-Fiz6&F[[lF(F\\[lF(-F$6$7S7$F($\"+CBn_nF,7$F.$\"+N9O_nF,7$F3$\"
+u?e^nF,7$F8$\"+;*H,v'F,7$F=$\"+C\\.[nF,7$FB$\"+^PHXnF,7$FH$\"+3&R@u'F
,7$FM$\"+f$=#QnF,7$FR$\"+t-ULnF,7$FW$\"+Vs$ys'F,7$Ffn$\"+<N?@nF,7$F[o$
\"+r;c9nF,7$F`o$\"+/#Ghq'F,7$Feo$\"+6Bd'p'F,7$Fjo$\"+4AE'o'F,7$F_p$\"+
ZU!fn'F,7$Fdp$\"+D'yAm'F,7$Fip$\"+(of&\\mF,7$F^q$\"+2#HLj'F,7$Fcq$\"+9
zg<mF,7$Fhq$\"+2:#))f'F,7$F]r$\"+rzOzlF,7$Fbr$\"+\"[rtb'F,7$Fgr$\"+xKe
NlF,7$F\\s$\"+DSJ5lF,7$Fas$\"+0!e?['F,7$Ffs$\"+bUubkF,7$F[t$\"+08[DkF,
7$F`t$\"+_(e@R'F,7$Fet$\"+$H#\\djF,7$Fjt$\"+Y*p>K'F,7$F_u$\"+4;@!G'F,7
$Fdu$\"+7deSiF,7$Fiu$\"+k#eg>'F,7$F^v$\"+!4?P:'F,7$Fcv$\"+;FE0hF,7$Fhv
$\"+[\")fdgF,7$F]w$\"+9jj0gF,7$Fbw$\"+)\\LF&fF,7$Fgw$\"+[V9&*eF,7$F\\x
$\"+!=tv$eF,7$Fax$\"+$\\%fwdF,7$Ffx$\"+9*eSr&F,7$F[y$\"+%zB[l&F,7$F`y$
\"+R&**[e&F,7$Fey$\"+N$p0_&F,7$Fjy$\"+?$z,X&F,7$F_z$\"+%oF6Q&F,7$Fdz$
\"+sZ;0`F,-Fiz6&F[[lF(F(F\\[l-F$6$7S7$F($\"+IE4)>)F,7$F.$\"+0*[5?)F,7$
F3$\"+![&R3#)F,7$F8$\"+AU%=A)F,7$F=$\"+y^rS#)F,7$FB$\"++b]k#)F,7$FH$\"
+jCp!H)F,7$FM$\"+4xf@$)F,7$FR$\"+7(GrN)F,7$FW$\"+3^f&R)F,7$Ffn$\"+3ooP
%)F,7$F[o$\"+&=9jZ)F,7$F`o$\"+[c'3_)F,7$Feo$\"+S9*fc)F,7$Fjo$\"+tk54')
F,7$F_p$\"+6$Htk)F,7$Fdp$\"+]q&3p)F,7$Fip$\"+,iYD()F,7$F^q$\"+z6Oi()F,
7$Fcq$\"+:)y8z)F,7$Fhq$\"+p?h=))F,7$F]r$\"+)pm%R))F,7$Fbr$\"+m]Mb))F,7
$Fgr$\"+AH:k))F,7$F\\s$\"+//)p'))F,7$Fas$\"+$39@'))F,7$Ffs$\"+pe1^))F,
7$F[t$\"+4QrJ))F,7$F`t$\"+PlO.))F,7$Fet$\"+69@n()F,7$Fjt$\"+yK;C()F,7$
F_u$\"+Aw(pm)F,7$Fdu$\"+*eTrg)F,7$Fiu$\"+cXXM&)F,7$F^v$\"+Rs\"3Y)F,7$F
cv$\"+(>#*>P)F,7$Fhv$\"+[)\\1G)F,7$F]w$\"+K)[t<)F,7$Fbw$\"+]Y))o!)F,7$
Fgw$\"+XSuZzF,7$F\\x$\"+b)zS#yF,7$Fax$\"+o\"44p(F,7$Ffx$\"+8yb_vF,7$F[
y$\"+GnG?uF,7$F`y$\"+&R0JE(F,7$Fey$\"+16!z6(F,7$Fjy$\"+wZvepF,7$F_z$\"
+cFq-oF,7$Fdz$\"+hfXJmF,-Fiz6&F[[lF)F)F)-%&TITLEG6#Q9Energy~Density~Ku
ch2~III6\"-%+AXESLABELSG6$Q#xiF[hmQ!F[hm-%%VIEWG6$;F(Fdz%(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 10 "M
ass plots" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "mj:=subs(grcom
ponent(mass,[])):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "mj1:=s
ubs(R=1,alpha=6,mj): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "mj
2:=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 
26 "mj4:=subs(R=1,alpha=3,mj):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 84 "plot([mj1,mj2,mj3,mj4],xi=0..1,color=[red,green,blue,black],ti
tle=\"Mass Kuch2 III\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6)-%'CURVESG6$7S7$$\"\"!F)F(7$$\"+;arz@!#6$\"+Cb`*)=!#:7$
$\"+XTFwSF-$\"+$zxcB\"!#97$$\"+\"z_\"4iF-$\"+sf`mVF67$$\"+S&phN)F-$\"+
^<.k5!#87$$\"+*=)H\\5!#5$\"+T/;1@FA7$$\"+[!3uC\"FE$\"+5aBPNFA7$$\"+J$R
DX\"FE$\"+wS`#e&FA7$$\"+)R'ok;FE$\"+@=z)R)FA7$$\"+1J:w=FE$\"+h]h,7!#77
$$\"+3En$4#FE$\"+<Zto;Ffn7$$\"+/RE&G#FE$\"+GNfo@Ffn7$$\"+D.&4]#FE$\"+s
j.SGFfn7$$\"+vB_<FFE$\"+#>d-k$Ffn7$$\"+v'Hi#HFE$\"+3vqSXFfn7$$\"+(*ev:
JFE$\"+63EwaFfn7$$\"+347TLFE$\"+b#pXu'Ffn7$$\"+LY.KNFE$\"+GL[fzFfn7$$
\"+\"o7Tv$FE$\"+Ja[W&*Ffn7$$\"+$Q*o]RFE$\"+FZ(46\"F-7$$\"+\"=lj;%FE$\"
+p09,8F-7$$\"+V&R<P%FE$\"+;\"))4]\"F-7$$\"+Xh-'e%FE$\"+![.*H<F-7$$\"+R
\"3Gy%FE$\"+u!>#f>F-7$$\"+.T1&*\\FE$\"+j!oyA#F-7$$\"+(RQb@&FE$\"+v]>JD
F-7$$\"+=>Y2aFE$\"+#ozg\"GF-7$$\"+yXu9cFE$\"+1JDYJF-7$$\"+\\y))GeFE$\"
+0?i7NF-7$$\"+i_QQgFE$\"+tuh'*QF-7$$\"+!y%3TiFE$\"+nd)GH%F-7$$\"+O![hY
'FE$\"+$p9@w%F-7$$\"+#Qx$omFE$\"+'*fh5_F-7$$\"+u.I%)oFE$\"+&y=#=dF-7$$
\"+(pe*zqFE$\"+O`L/iF-7$$\"+C\\'QH(FE$\"+^uzknF-7$$\"+8S8&\\(FE$\"+@)3
.K(F-7$$\"+0#=bq(FE$\"+zrlIzF-7$$\"+2s?6zFE$\"+-T;d&)F-7$$\"+IXaE\")FE
$\"+KN1X#*F-7$$\"+l*RRL)FE$\"+*>\\*Q**F-7$$\"+`<.Y&)FE$\"+$=v!o5FE7$$
\"+8tOc()FE$\"+->*[9\"FE7$$\"+\\Qk\\*)FE$\"+E#f$=7FE7$$\"+p0;r\"*FE$\"
+\"[#)fI\"FE7$$\"+lxGp$*FE$\"+u:Z(Q\"FE7$$\"+!oK0e*FE$\"+4(=wZ\"FE7$$
\"+<5s#y*FE$\"+`,2n:FE7$$\"\"\"F)$\"+mmmm;FE-%'COLOURG6&%$RGBG$\"*++++
\"!\")F(F(-F$6$7SF'7$F+$\"+tu!fI#F07$F2$\"+q&ez]\"F67$F8$\"+L&Q'G`F67$
F=$\"+'>a%)H\"FA7$FC$\"+nQ7qDFA7$FI$\"+w(RjJ%FA7$FN$\"+_n\">\"oFA7$FS$
\"+ppzC5Ffn7$FX$\"+H(4hY\"Ffn7$Fhn$\"+0y$f.#Ffn7$F]o$\"+FDkXEFfn7$Fbo$
\"+2?akMFfn7$Fgo$\"+N<OSWFfn7$F\\p$\"+V&G#QbFfn7$Fap$\"+J$*pymFfn7$Ffp
$\"+yc\\C#)Ffn7$F[q$\"+f)y[q*Ffn7$F`q$\"+`Bdj6F-7$Feq$\"+7s>a8F-7$Fjq$
\"+Ulr&e\"F-7$F_r$\"+<e$*G=F-7$Fdr$\"+i5U2@F-7$Fir$\"+&[uiQ#F-7$F^s$\"
+[h!Gr#F-7$Fcs$\"+#y)G\"3$F-7$Fhs$\"+QT<FMF-7$F]t$\"+l&4y#QF-7$Fbt$\"+
#zl?F%F-7$Fgt$\"+!Rbtt%F-7$F\\u$\"+Qx9<_F-7$Fau$\"+O9z%y&F-7$Ffu$\"+1?
'oK'F-7$F[v$\"+FAxRpF-7$F`v$\"+W^9EvF-7$Fev$\"+X2Z,#)F-7$Fjv$\"+/'e+()
)F-7$F_w$\"+cKv.'*F-7$Fdw$\"+#R*eN5FE7$Fiw$\"+&)*e!=6FE7$F^x$\"+eP7,7F
E7$Fcx$\"+Cyy*G\"FE7$Fhx$\"+-LX\"Q\"FE7$F]y$\"+@'y*o9FE7$Fby$\"+3X=t:F
E7$Fgy$\"+.[\"*p;FE7$F\\z$\"+**)=nx\"FE7$Faz$\"+@l[#)=FE7$Ffz$\"+-+++?
FE-F[[l6&F][lF(F^[lF(-F$6$7SF'7$F+$\"++z@HHF07$F2$\"+[Mj:>F67$F8$\"+Wp
gpnF67$F=$\"+f3r\\;FA7$FC$\"+>YrlKFA7$FI$\"+JS8&[&FA7$FN$\"+#H#fd')FA7
$FS$\"+w\"eEI\"Ffn7$FX$\"+!3IR'=Ffn7$Fhn$\"+T(R))e#Ffn7$F]o$\"+1knkLFf
n7$Fbo$\"+;t(pS%Ffn7$Fgo$\"+u%R$\\cFfn7$F\\p$\"+FhVZqFfn7$Fap$\"+(>.,]
)Ffn7$Ffp$\"+)*[%p/\"F-7$F[q$\"+&zxbB\"F-7$F`q$\"+j2k\"[\"F-7$Feq$\"+!
=*eC<F-7$Fjq$\"+IVm>?F-7$F_r$\"+e%R'HBF-7$Fdr$\"+g0_%o#F-7$Fir$\"+4^!)
RIF-7$F^s$\"+(=CdX$F-7$Fcs$\"+-))*[#RF-7$Fhs$\"+,u4lVF-7$F]t$\"+sQpu[F
-7$Fbt$\"+\"4#QRaF-7$Fgt$\"+G(>..'F-7$F\\u$\"+HJ6RmF-7$Fau$\"+[keetF-7
$Ffu$\"+SdzW!)F-7$F[v$\"+@Yi>))F-7$F`v$\"+uq!)f&*F-7$Fev$\"+'y)3T5FE7$
Fjv$\"+fg>D6FE7$F_w$\"+7TJ<7FE7$Fdw$\"+Ysa68FE7$Fiw$\"+&QIYT\"FE7$F^x$
\"+3s>=:FE7$Fcx$\"+Z1XG;FE7$Fhx$\"+_*4@u\"FE7$F]y$\"+G0K]=FE7$Fby$\"+l
duy>FE7$Fgy$\"+e^b(4#FE7$F\\z$\"+Z6GGAFE7$Faz$\"+x1EdBFE7$Ffz$\"+++++D
FE-F[[l6&F][lF(F(F^[l-F$6$7SF'7$F+$\"+Y'*3dNF07$F2$\"+'>fwK#F67$F8$\"+
S3%[B)F67$F=$\"+:K%*4?FA7$FC$\"+JIz')RFA7$FI$\"+%z'=6nFA7$FN$\"+Rh4i5F
fn7$FS$\"+#zTIg\"Ffn7$FX$\"+#o,;I#Ffn7$Fhn$\"+/B**3KFfn7$F]o$\"+9^t&=%
Ffn7$Fbo$\"+/7!f]&Ffn7$Fgo$\"+62*)*3(Ffn7$F\\p$\"+XdH%)))Ffn7$Fap$\"+z
V/w5F-7$Ffp$\"+\"Rg?L\"F-7$F[q$\"+f2()y:F-7$F`q$\"+Bs&G!>F-7$Feq$\"+:n
rCAF-7$Fjq$\"+re\"zh#F-7$F_r$\"+^iHLIF-7$Fdr$\"+N\"[8^$F-7$Fir$\"+av?#
*RF-7$F^s$\"+?$Rvb%F-7$Fcs$\"+`R\"y>&F-7$Fhs$\"+ia_+eF-7$F]t$\"+9A7+lF
-7$Fbt$\"+&*o4xsF-7$Fgt$\"+n0`\"4)F-7$F\\u$\"+C\"49$*)F-7$Fau$\"+%3_V#
**F-7$Ffu$\"+t96(3\"FE7$F[v$\"+dD\"R>\"FE7$F`v$\"+vtx&H\"FE7$Fev$\"+)4
WET\"FE7$Fjv$\"+sB!y_\"FE7$F_w$\"+`R[`;FE7$Fdw$\"+l\"4:y\"FE7$Fiw$\"+!
*f'3#>FE7$F^x$\"+p!*3g?FE7$Fcx$\"+#*[P2AFE7$Fhx$\"+lg:eBFE7$F]y$\"+**)
p1]#FE7$Fby$\"+i>WoEFE7$Fgy$\"+*z#HAGFE7$F\\z$\"+7g-!*HFE7$Faz$\"+?\\*
Q:$FE7$Ffz$\"+LLLLLFE-F[[l6&F][lF)F)F)-%&TITLEG6#Q/Mass~Kuch2~III6\"-%
+AXESLABELSG6$Q#xiFdgmQ!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 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 23 "B1:=subs(alpha=2.7,Bj):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "B2:=subs(alpha=2.8,Bj):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "B3:=subs(alpha=2.9,Bj):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "B4:=subs(alpha=3,Bj):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "plot([B1,B2,B3,B4],xi=0.1..1,color=
[red,green,blue,black],title=\"Trapping Kuch2 III\");" }}{PARA 13 "" 
1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7S7$$\"3/+++++++
5!#=$\"3OF#)GCf#)G**!#>7$$\"3)*****\\(Quh>\"F*$\"3sd2vh9,%=\"F*7$$\"3/
+]7tY'oO\"F*$\"351W'G&[u[8F*7$$\"3+++D^P#)e:F*$\"3#\\LpaB,?`\"F*7$$\"3
!****\\(e_0_<F*$\"3-k!Q\"yq09<F*7$$\"3z**\\iq$oV%>F*$\"3/,$)*y7lD*=F*7
$$\"3))**\\7VsmA@F*$\"3E!\\OOgRa0#F*7$$\"3%***\\7)R&G2BF*$\"3)3g_Z$p>@
AF*7$$\"33+]7ex@)\\#F*$\"3!ysn>-&H*Q#F*7$$\"31+]i&zP&)o#F*$\"3eiB0?/D`
DF*7$$\"3A++]Z`I%)GF*$\"3x\"f].J/zr#F*7$$\"3o***\\P^Pn0$F*$\"3MwM)ep)Q
fGF*7$$\"31++]#Hb3D$F*$\"30\"p\"p))R\\9IF*7$$\"3%*****\\P,xXMF*$\"3C5H
OX^elJF*7$$\"3.++]2ngLOF*$\"3I4Y@!\\\"f1LF*7$$\"3I+]73.=/QF*$\"3nMdS:W
eIMF*7$$\"3g****\\<)3q+%F*$\"3;o^we;$Gd$F*7$$\"3E+++q6$)yTF*$\"3Oi+Ex+
z)o$F*7$$\"3;+]789qyVF*$\"3>d[&*fuG=QF*7$$\"3I*****\\W?cb%F*$\"3h\\*zh
\"Q'z#RF*7$$\"3?+]7j'G(\\ZF*$\"3(eQlS+JG/%F*7$$\"3n+]P*elX$\\F*$\"3=4G
e%>)zYTF*7$$\"3]++DJNUF^F*$\"3mZk;VZb\\UF*7$$\"3H+]iDt_/`F*$\"3Dm'y$40
qQVF*7$$\"3Y***\\Ppdb\\&F*$\"3'zA#pHO>HWF*7$$\"3E**\\7eX)Rp&F*$\"3'Q$[
\"eH6p^%F*7$$\"3?**\\(os:n'eF*$\"3e5R;_Z-)e%F*7$$\"3_***\\77qK0'F*$\"3
-/2`a*>$fYF*7$$\"3o*****\\1**fC'F*$\"3%3X#y'*3&ps%F*7$$\"3t***\\itYXV'
F*$\"3iEs[%f'=(y%F*7$$\"3^**\\7.j(ph'F*$\"3k8Qm_Z*)R[F*7$$\"3?***\\PBL
&>oF*$\"3i>4jo)=?*[F*7$$\"3#*)****\\kR:+(F*$\"3h+:EE>9L\\F*7$$\"3%****
*\\P.(e>(F*$\"3ySPym_7r\\F*7$$\"3Q**\\7GG'>P(F*$\"3q0u/AxI+]F*7$$\"3I+
+]K%yWc(F*$\"3il#H8wyl-&F*7$$\"3Q**\\781iXxF*$\"3#fV$zCI*f/&F*7$$\"3n*
*\\i&Qm\\$zF*$\"39hb$fHq31&F*7$$\"3&*)***\\(['3?\")F*$\"3)QT:Q(=:q]F*7
$$\"39**\\7y+*QJ)F*$\"3I/.GTxRu]F*7$$\"3n******pfa+&)F*$\"3YP5n[fIt]F*
7$$\"31++vy&G9p)F*$\"317v[qA0n]F*7$$\"3_+]7$eI2)))F*$\"35s!)*z;Ze0&F*7
$$\"3a*****\\YzY0*F*$\"3HSMQ1LFT]F*7$$\"3O***\\P^WSD*F*$\"3)*)>Y/8w'>]
F*7$$\"3L*******)*eBV*F*$\"3Y1d[qY1'*\\F*7$$\"3@+]78%zCi*F*$\"3'\\qJWW
rl'\\F*7$$\"3J**\\(o\"*[W!)*F*$\"30\"=ZU17V$\\F*7$$\"\"\"\"\"!$\"3e80_
%f;a*[F*-%'COLOURG6&%$RGBG$\"*++++\"!\")$FfzFfzF`[l-F$6$7S7$F($\"3IZRB
1\\pP**F-7$F/$\"3o:52Q]_&=\"F*7$F4$\"3G9#=%Gm*4N\"F*7$F9$\"3$>KQbkG``
\"F*7$F>$\"3,+6;79w=<F*7$FC$\"3y!)Rw*Gk*)*=F*7$FH$\"3AN+,7_sj?F*7$FM$
\"3e%*=XB)z<B#F*7$FR$\"32sr&GIYES#F*7$FW$\"3ad9aG=ypDF*7$Ffn$\"3=i(o7s
n\"QFF*7$F[o$\"3oK?:SIM$)GF*7$F`o$\"3b(\\#[tE2VIF*7$Feo$\"37G_0DEK*>$F
*7$Fjo$\"3sdsRR=!eM$F*7$F_p$\"3#R,=qV*>vMF*7$Fdp$\"3b6%)zJ+UCOF*7$Fip$
\"3y**f\"=0bnu$F*7$F^q$\"3Cu?#Ga9U)QF*7$Fcq$\"3&o))yC!yU,SF*7$Fhq$\"3!
okW(y04DTF*7$F]r$\"3'=*[mx4%zB%F*7$Fbr$\"3g%p+aB([]VF*7$Fgr$\"3))[b8LM
3\\WF*7$F\\s$\"3O*3Rd5`-b%F*7$Fas$\"3QJ$e,bw&\\YF*7$Ffs$\"3fV-&*3m?JZF
*7$F[t$\"3M!G,x)eF9[F*7$F`t$\"39lL^pS]%*[F*7$Fet$\"3'*Q(y(\\xYn\\F*7$F
jt$\"3Hb%[#4([G.&F*7$F_u$\"3oc6G2xU*4&F*7$Fdu$\"3;]!))f'o&Q:&F*7$Fiu$
\"3,9JE$4\\j?&F*7$F^v$\"3ke$*z`4#*[_F*7$Fcv$\"3oz\"y?^i+H&F*7$Fhv$\"3]
DcX)QgOK&F*7$F]w$\"35Ev)oSHNN&F*7$Fbw$\"3I+iu'=*fx`F*7$Fgw$\"3c,s#*z%H
uR&F*7$F\\x$\"3(4bkL069T&F*7$Fax$\"3=P+ga**f?aF*7$Ffx$\"3%423cq+ZU&F*7
$F[y$\"3*4H4e&>:CaF*7$F`y$\"3N\"3!\\&)\\a=aF*7$Fey$\"3qfc]Se74aF*7$Fjy
$\"3m_<>V_h%R&F*7$F_z$\"3u\\%yY**=lP&F*7$Fdz$\"3!G!**=&G9EN&F*-Fjz6&F
\\[lF`[lF][lF`[l-F$6$7S7$F($\"3r$\\a+[)fW**F-7$F/$\"3M4-m,Oq'=\"F*7$F4
$\"3YSH=31v_8F*7$F9$\"3y[DtE;#z`\"F*7$F>$\"3i$zcJEHCs\"F*7$FC$\"37XUwq
j&R!>F*7$FH$\"3_?GTeE>q?F*7$FM$\"3m\">pl!e/SAF*7$FR$\"36]6%3>#38CF*7$F
W$\"3]tz%[b8Fe#F*7$Ffn$\"3!eV?4aKSv#F*7$F[o$\"3btY%)\\G6-HF*7$F`o$\"3?
c)\\Ms([lIF*7$Feo$\"3)f@@gF6eA$F*7$Fjo$\"3MZ=*R&*>mP$F*7$F_p$\"3->VZl2
I5NF*7$Fdp$\"35<#Hzve]m$F*7$Fip$\"3mL8_:zY#z$F*7$F^q$\"3B!)HhQrFORF*7$
Fcq$\"3k&*QLk]^fSF*7$Fhq$\"31a)[jmD->%F*7$F]r$\"3(ou#)3_7-J%F*7$Fbr$\"
3Tfc#ywW1V%F*7$Fgr$\"31Ci!3tuo`%F*7$F\\s$\"3az\"p1Y$pYYF*7$Fas$\"3+q$
\\Gp[av%F*7$Ffs$\"3ODcB_ClX[F*7$F[t$\"3'4C/WK^$Q\\F*7$F`t$\"3Wvxx:'=*G
]F*7$Fet$\"3P\"[5oEnB6&F*7$Fjt$\"3)yM\\3\"oA)=&F*7$F_u$\"3e0Z'RO1oE&F*
7$Fdu$\"3SG)R:#*GBL&F*7$Fiu$\"3%p$\\D4%ppR&F*7$F^v$\"3%=WOWj,3X&F*7$Fc
v$\"3R/Oj*Q1X]&F*7$Fhv$\"3O1BY)*\\9]bF*7$F]w$\"3/x)GdL/Gf&F*7$Fbw$\"3I
H(3$\\rbHcF*7$Fgw$\"3=:K#ekFGm&F*7$F\\x$\"3y&*3QTW))*o&F*7$Fax$\"34*)y
'\\%)\\Dr&F*7$Ffx$\"3k!p&GwG4IdF*7$F[y$\"3(>L'H<+%>u&F*7$F`y$\"3mu)4gk
i0v&F*7$Fey$\"3AW!)Q')\\'Qv&F*7$Fjy$\"3%HK08N%)Gv&F*7$F_z$\"3O'QP)p\"z
wu&F*7$Fdz$\"34zIp2U`PdF*-Fjz6&F\\[lF`[lF`[lF][l-F$6$7S7$F($\"3?Bo#>zC
,&**F-7$F/$\"3=Yp0'HZw=\"F*7$F4$\"37>1TJa:a8F*7$F9$\"3\\XAPk\"***R:F*7
$F>$\"3:J#[(y\"p`s\"F*7$FC$\"3kzBv#[fz!>F*7$FH$\"3)*Gv`07Qv?F*7$FM$\"3
3ZxeI1oYAF*7$FR$\"3TQo6GNY@CF*7$FW$\"3)e^dWx0Jf#F*7$Ffn$\"3W[A``0zmFF*
7$F[o$\"3B))oyLm@<HF*7$F`o$\"3g\\[i#eQN3$F*7$Feo$\"3Ah0=9+;ZKF*7$Fjo$
\"35aaH.(y9S$F*7$F_p$\"3[X'po#pjQNF*7$Fdp$\"3k!Q@,d(*yp$F*7$Fip$\"39U/
KW%R%HQF*7$F^q$\"3!f;*>/#H%yRF*7$Fcq$\"3EDoR:9f1TF*7$Fhq$\"3!HuGsYtIC%
F*7$F]r$\"3c!pYp8;*oVF*7$Fbr$\"3g=G)='G$e\\%F*7$Fgr$\"3YsHI?MN3YF*7$F
\\s$\"3-o)R?O:`s%F*7$Fas$\"39C86@&z=%[F*7$Ffs$\"3Ggq9!=*>R\\F*7$F[t$\"
3LK]b2,\"*R]F*7$F`t$\"3j@&p)*=.\"R^F*7$Fet$\"3Y\\[9>UKJ_F*7$Fjt$\"34Xq
ocg(fJ&F*7$F_u$\"3u+N$pIcYS&F*7$Fdu$\"3#)y)H\"*>Y&zaF*7$Fiu$\"3)=Uykay
Wb&F*7$F^v$\"3R-\\&Q_#)yh&F*7$Fcv$\"3_sn1$p.Bo&F*7$Fhv$\"3)3m\\:q]#QdF
*7$F]w$\"3Y=Hfl:!>z&F*7$Fbw$\"3uwL&*ppfReF*7$Fgw$\"3wV1R'y6X)eF*7$F\\x
$\"3u$['=Uh%H#fF*7$Fax$\"39[V<!>\"RdfF*7$Ffx$\"3uh4#yaRn)fF*7$F[y$\"3$
)ywv\"GC&4gF*7$F`y$\"3N*3x@!ewIgF*7$Fey$\"3ennL:'4a/'F*7$Fjy$\"3#>7IQd
cl0'F*7$F_z$\"3Cdee:B(H1'F*7$Fdz$\"3CMj7(f1`1'F*-Fjz6&F\\[lFfzFfzFfz-%
&TITLEG6#Q3Trapping~Kuch2~III6\"-%+AXESLABELSG6$Q#xiF]hmQ!F]hm-%%VIEWG
6$;$Fez!\"\"Fdz%(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 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 23 "V1:=subs(alpha=2.7,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "V2:=subs(alpha=2.8,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "V3:=subs(alpha=2.9,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 21 "V4:=subs(alpha=3,Vj):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 89 "plot([V1,V2,V3,V4],xi=0.1..1.0,color=[red,green,blue,
black],title=\"w - modes Kuch2 III\");" }}{PARA 13 "" 1 "" {GLPLOT2D 
400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7Y7$$\"\"\"!\"\"$\"+%=aj1'!\"(7
$$\"+(fV!\\5!#5$\"+o+]=bF-7$$\"+%>(3)4\"F1$\"+iqSU]F-7$$\"+\"zIr9\"F1$
\"+V)pgi%F-7$$\"+)Quh>\"F1$\"+%f#*)fUF-7$$\"+I&>:G\"F1$\"+'))[+s$F-7$$
\"+tY'oO\"F1$\"+x_:yKF-7$$\"+7U%GY\"F1$\"+\")onqGF-7$$\"+^P#)e:F1$\"+D
1:ODF-7$$\"+0&Ral\"F1$\"+=>ZcAF-7$$\"+f_0_<F1$\"+8;!=-#F-7$$\"+r$oV%>F
1$\"+NBda;F-7$$\"+VsmA@F1$\"+ClX*R\"F-7$$\"+)R&G2BF1$\"+]`A&>\"F-7$$\"
+ex@)\\#F1$\"+eH#*H5F-7$$\"+'zP&)o#F1$\"+qJb!**)!\")7$$\"+[`I%)GF1$\"+
n6s1zFdp7$$\"+9vtcIF1$\"+$*\\Y?rFdp7$$\"+#Hb3D$F1$\"+gH)=Q'Fdp7$$\"+Q,
xXMF1$\"+^:djdFdp7$$\"+3ngLOF1$\"+m\"H1E&Fdp7$$\"+3.=/QF1$\"+o4/o[Fdp7
$$\"+=)3q+%F1$\"+\"QwiY%Fdp7$$\"+q6$)yTF1$\"+X()*=<%Fdp7$$\"+89qyVF1$
\"+Q$QN(QFdp7$$\"+X/ibXF1$\"+<o%Gk$Fdp7$$\"+j'G(\\ZF1$\"+!)=E?MFdp7$$
\"+*elX$\\F1$\"+x%4PB$Fdp7$$\"+JNUF^F1$\"+.LshIFdp7$$\"+Et_/`F1$\"+ltY
@HFdp7$$\"+%pdb\\&F1$\"+F2s'y#Fdp7$$\"+eX)Rp&F1$\"+dWniEFdp7$$\"+Fdrme
F1$\"+fOLmDFdp7$$\"+@,F`gF1$\"+wg3tCFdp7$$\"+l!**fC'F1$\"+-IG(Q#Fdp7$$
\"+OnaMkF1$\"+I%>EJ#Fdp7$$\"+.j(ph'F1$\"+^OD[AFdp7$$\"+MK`>oF1$\"+cA+&
=#Fdp7$$\"+X'R:+(F1$\"+!*4*[8#Fdp7$$\"+Q.(e>(F1$\"+=s\"y3#Fdp7$$\"+GG'
>P(F1$\"+)\\k/0#Fdp7$$\"+K%yWc(F1$\"+$y')\\,#Fdp7$$\"+81iXxF1$\"+v%*Q'
)>Fdp7$$\"+'Qm\\$zF1$\"+)[g6'>Fdp7$$\"+)['3?\")F1$\"+M)f3%>Fdp7$$\"+y+
*QJ)F1$\"+/9,C>Fdp7$$\"+qfa+&)F1$\"+B&p=\">Fdp7$$\"+z&G9p)F1$\"+[[X.>F
dp7$$\"+$eI2)))F1$\"+rj**)*=Fdp7$$\"+l%zY0*F1$\"+G;C)*=Fdp7$$\"+9X/a#*
F1$\"+BsD,>Fdp7$$\"+!**eBV*F1$\"+u\"Ru!>Fdp7$$\"+8%zCi*F1$\"+7*\\w\">F
dp7$$\"+<*[W!)*F1$\"+b$Q4$>Fdp7$$\"#5F*$\"+)*R4\\>Fdp-%'COLOURG6&%$RGB
G$\"*++++\"Fdp$\"\"!F_]lF^]l-F$6$7Y7$F($\"+[a[cgF-7$F/$\"+8;i3bF-7$F5$
\"+:%=D.&F-7$F:$\"+D0<;YF-7$F?$\"+A@)*\\UF-7$FD$\"+ny65PF-7$FI$\"+QA?o
KF-7$FN$\"+4tpgGF-7$FS$\"+VE9EDF-7$FX$\"+8MVYAF-7$Fgn$\"+M1t6?F-7$F\\o
$\"+P3VW;F-7$Fao$\"+2DC*Q\"F-7$Ffo$\"+E)G\\=\"F-7$F[p$\"+OH`>5F-7$F`p$
\"+(pNc)))Fdp7$Ffp$\"+u`m+yFdp7$F[q$\"+/lK8qFdp7$F`q$\"+dBVtiFdp7$Feq$
\"+!))*p`cFdp7$Fjq$\"+i`G\\^Fdp7$F_r$\"+L!p_v%Fdp7$Fdr$\"+Ywo^VFdp7$Fi
r$\"+o^mbSFdp7$F^s$\"++GEbPFdp7$Fcs$\"+lAkANFdp7$Fhs$\"+H@!yH$Fdp7$F]t
$\"+R'f*3JFdp7$Fbt$\"+1oUMHFdp7$Fgt$\"+rCo\"z#Fdp7$F\\u$\"+v63aEFdp7$F
au$\"+r/(o_#Fdp7$Ffu$\"+W#*fFCFdp7$F[v$\"+77*4L#Fdp7$F`v$\"+k&*[TAFdp7
$Fev$\"+#fpH;#Fdp7$Fjv$\"+kLj%4#Fdp7$F_w$\"+k(ym-#Fdp7$Fdw$\"+K'e?(>Fd
p7$Fiw$\"+MS&)>>Fdp7$F^x$\"+U,bx=Fdp7$Fcx$\"+pxIO=Fdp7$Fhx$\"+@u#>!=Fd
p7$F]y$\"+YXDq<Fdp7$Fby$\"+b6BV<Fdp7$Fgy$\"+BN')=<Fdp7$F\\z$\"+v'z*)p
\"Fdp7$Faz$\"+&[,@o\"Fdp7$Ffz$\"+aBmo;Fdp7$F[[l$\"+B45f;Fdp7$F`[l$\"+k
&>8l\"Fdp7$Fe[l$\"+(Qfrk\"Fdp7$Fj[l$\"+gRdX;Fdp7$F_\\l$\"+G1xY;Fdp7$Fd
\\l$\"+@w)4l\"Fdp-Fi\\l6&F[]lF^]lF\\]lF^]l-F$6$7Y7$F($\"+\"*Q3\\gF-7$F
/$\"+0M@,bF-7$F5$\"+DK5D]F-7$F:$\"+G![(3YF-7$F?$\"++?bUUF-7$FD$\"+!otE
q$F-7$FI$\"+()HugKF-7$FN$\"+=*>K&GF-7$FS$\"+Gek=DF-7$FX$\"+Rd\"*QAF-7$
Fgn$\"+#y!>/?F-7$F\\o$\"+_G%oj\"F-7$Fao$\"+$30;Q\"F-7$Ffo$\"+1_Bx6F-7$
F[p$\"+Cdx65F-7$F`p$\"+)ost!))Fdp7$Ffp$\"+A0j@xFdp7$F[q$\"+\"yeN$pFdp7
$F`q$\"+i!yF>'Fdp7$Feq$\"+;u3sbFdp7$Fjq$\"+%\\#om]Fdp7$F_r$\"+iuqrYFdp
7$Fdr$\"+S%4pE%Fdp7$Fir$\"+;$)ypRFdp7$F^s$\"+Bd-oOFdp7$Fcs$\"+rQ7MMFdp
7$Fhs$\"+q,z2KFdp7$F]t$\"+WdV<IFdp7$Fbt$\"+_qATGFdp7$Fgt$\"+!e]op#Fdp7
$F\\u$\"+jKQdDFdp7$Fau$\"+$p6\"GCFdp7$Ffu$\"+>*QpK#Fdp7$F[v$\"+%=e\"GA
Fdp7$F`v$\"+$eui8#Fdp7$Fev$\"+S5Gb?Fdp7$Fjv$\"+Q$3W)>Fdp7$F_w$\"+??Y8>
Fdp7$Fdw$\"+>j)f&=Fdp7$Fiw$\"+zka+=Fdp7$F^x$\"+aV8b<Fdp7$Fcx$\"+Y#*G5<
Fdp7$Fhx$\"+!Q6Bn\"Fdp7$F]y$\"+V'[mj\"Fdp7$Fby$\"+/G[0;Fdp7$Fgy$\"+;]]
w:Fdp7$F\\z$\"++')*=b\"Fdp7$Faz$\"+<V))H:Fdp7$Ffz$\"+%4C5^\"Fdp7$F[[l$
\"+NR<'\\\"Fdp7$F`[l$\"+JO%>[\"Fdp7$Fe[l$\"+I/kr9Fdp7$Fj[l$\"+5q3j9Fdp
7$F_\\l$\"+k:=d9Fdp7$Fd\\l$\"+.(fKX\"Fdp-Fi\\l6&F[]lF^]lF^]lF\\]l-F$6$
7Y7$F($\"+'[KL/'F-7$F/$\"+\\sX&\\&F-7$F5$\"+#3U$>]F-7$F:$\"+l;)Hg%F-7$
F?$\"+&=!yOUF-7$FD$\"+A=*op$F-7$FI$\"+s.&\\D$F-7$FN$\"+_VTZGF-7$FS$\"+
,k#G^#F-7$FX$\"+J93LAF-7$Fgn$\"+d1M)*>F-7$F\\o$\"+=%e4j\"F-7$Fao$\"+Na
ov8F-7$Ffo$\"+sbFr6F-7$F[p$\"+$)3x05F-7$F`p$\"+$pLou)Fdp7$Ffp$\"+bTagw
Fdp7$F[q$\"+WL&>(oFdp7$F`q$\"+8caIhFdp7$Feq$\"+)Qy\"4bFdp7$Fjq$\"+K`2.
]Fdp7$F_r$\"+tcU2YFdp7$Fdr$\"+RJx,UFdp7$Fir$\"+:>)Q!RFdp7$F^s$\"+#)y;,
OFdp7$Fcs$\"+\"yrjO$Fdp7$Fhs$\"+5\")**QJFdp7$F]t$\"+:NfZHFdp7$Fbt$\"+i
PAqFFdp7$Fgt$\"+_%>Zi#Fdp7$F\\u$\"+Lh'R[#Fdp7$Fau$\"+O%yKN#Fdp7$Ffu$\"
+iF!3D#Fdp7$F[v$\"+,w`]@Fdp7$F`v$\"+r;.d?Fdp7$Fev$\"++)eV(>Fdp7$Fjv$\"
+u&p<!>Fdp7$F_w$\"+Zb!)G=Fdp7$Fdw$\"+_1Tp<Fdp7$Fiw$\"+AS!=r\"Fdp7$F^x$
\"+[uJk;Fdp7$Fcx$\"+Fk2<;Fdp7$Fhx$\"+0\\rw:Fdp7$F]y$\"+#R=%Q:Fdp7$Fby$
\"+C&GX]\"Fdp7$Fgy$\"+V6`s9Fdp7$F\\z$\"+8S%[W\"Fdp7$Faz$\"+oH\\>9Fdp7$
Ffz$\"++c7(R\"Fdp7$F[[l$\"+zy')y8Fdp7$F`[l$\"+[-]g8Fdp7$Fe[l$\"+'GtiM
\"Fdp7$Fj[l$\"+2')GL8Fdp7$F_\\l$\"+io)GK\"Fdp7$Fd\\l$\"+<i$QJ\"Fdp-Fi
\\l6&F[]lF_]lF_]lF_]l-%&TITLEG6#Q4w~-~modes~Kuch2~III6\"-%+AXESLABELSG
6$Q#xiFb]nQ!Fb]n-%%VIEWG6$;F(Fd\\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 0 21 22 "V:=sqrt(dp/dr/drho/dr)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "vs:=sqrt(diff(grcompone
nt(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 30 "vs1:=subs(R=1,alpha=3.7,vsj): " }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 29 "vs2:=subs(R=1,alpha=3.8,vsj):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "vs3:=subs(R=1,alpha=3.9,vsj):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "vs4:=subs(R=1,alpha=4,vsj):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "plot([vs1,vs2,vs3,vs4],
xi=0..1,color=[red,green,blue,black],title=\"V Kuch2 III\");" }}{PARA 
13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6)-%'CURVESG6$7gn7$$\"\"
!F)%%FAILG7$$\"+v1h6o!#8$\"+)QYHB$!\"*7$$\"+N@Ki8!#7$\"+f,!HB$F17$$\"+
-K[V?F5$\"+cG#GB$F17$$\"+qUkCFF5$\"+`YrKKF17$$\"+0k'p3%F5$\"+fdSKKF17$
$\"+S&)G\\aF5$\"+[L(>B$F17$$\"+5G$R<)F5$\"+8)Q2B$F17$$\"+3x&)*3\"!#6$
\"+kI,HKF17$$\"+ilyM;FT$\"+H%)4CKF17$$\"+;arz@FT$\"+uvD<KF17$$\"+!y%*z
7$FT$\"+Z5)3?$F17$$\"+XTFwSFT$\"+4%o!zJF17$$\"+\"z_\"4iFT$\"+r\"z?6$F1
7$$\"+S&phN)FT$\"+\\p(Q-$F17$$\"+*=)H\\5!#5$\"+%fl6#HF17$$\"+[!3uC\"Fb
p$\"+<N_<GF17$$\"+J$RDX\"Fbp$\"+2D&fq#F17$$\"+)R'ok;Fbp$\"+2oo*e#F17$$
\"+1J:w=Fbp$\"+$[[dZ#F17$$\"+3En$4#Fbp$\"+K!pEO#F17$$\"+/RE&G#Fbp$\"+m
!3wE#F17$$\"+D.&4]#Fbp$\"+(>hj;#F17$$\"+vB_<FFbp$\"+Uo:r?F17$$\"+v'Hi#
HFbp$\"+Y!eb)>F17$$\"+(*ev:JFbp$\"+lY#H\">F17$$\"+347TLFbp$\"+,BfK=F17
$$\"+LY.KNFbp$\"+(*\\Qp<F17$$\"+\"o7Tv$Fbp$\"+:?2,<F17$$\"+$Q*o]RFbp$
\"+xy%\\k\"F17$$\"+\"=lj;%Fbp$\"+\\mp(e\"F17$$\"+V&R<P%Fbp$\"+hI0P:F17
$$\"+Xh-'e%Fbp$\"+gD!z[\"F17$$\"+R\"3Gy%Fbp$\"+=F\"eW\"F17$$\"+.T1&*\\
Fbp$\"+InS.9F17$$\"+(RQb@&Fbp$\"+ByOi8F17$$\"+=>Y2aFbp$\"+Cx#*G8F17$$
\"+yXu9cFbp$\"+U!**\\H\"F17$$\"+\\y))GeFbp$\"+xa8i7F17$$\"+i_QQgFbp$\"
+.V&>B\"F17$$\"+!y%3TiFbp$\"+M6X/7F17$$\"+O![hY'Fbp$\"+?_qv6F17$$\"+#Q
x$omFbp$\"+F*\\8:\"F17$$\"+u.I%)oFbp$\"+zbvE6F17$$\"+(pe*zqFbp$\"+nfi0
6F17$$\"+C\\'QH(Fbp$\"+a7o$3\"F17$$\"+8S8&\\(Fbp$\"+)\\ZS1\"F17$$\"+0#
=bq(Fbp$\"+!e!\\W5F17$$\"+2s?6zFbp$\"+L\"[i-\"F17$$\"+IXaE\")Fbp$\"+QP
+35F17$$\"+l*RRL)Fbp$\"+q0!>\"**Fbp7$$\"+`<.Y&)Fbp$\"+Ub+Z(*Fbp7$$\"+8
tOc()Fbp$\"+dx#**e*Fbp7$$\"+\\Qk\\*)Fbp$\"+Yby]%*Fbp7$$\"+p0;r\"*Fbp$
\"+X<\"pH*Fbp7$$\"+lxGp$*Fbp$\"+1*>R;*Fbp7$$\"+!oK0e*Fbp$\"+G7^E!*Fbp7
$$\"+<5s#y*Fbp$\"+#ob))*))Fbp7$$\"\"\"F)$\"+#e\"[l()Fbp-%'COLOURG6&%$R
GBG$\"*++++\"!\")F(F(-F$6$7gnF'7$F,$\"+0\\P&R#F17$F3$\"+5xN&R#F17$F9$
\"+v!H`R#F17$F>$\"+P*)G&R#F17$FC$\"+$Gu^R#F17$FH$\"+KQ,&R#F17$FM$\"+5c
b%R#F17$FR$\"+TX\"RR#F17$FX$\"+#)f3#R#F17$Fgn$\"+:P`*Q#F17$F\\o$\"+`1R
$Q#F17$Fao$\"+_]8vBF17$Ffo$\"+$\\[#\\BF17$F[p$\"+1_!RJ#F17$F`p$\"+KA(3
F#F17$Ffp$\"+yEJDAF17$F[q$\"+Hvvt@F17$F`q$\"+g_8<@F17$Feq$\"+\\kke?F17
$Fjq$\"+Oh`(*>F17$F_r$\"+]WrV>F17$Fdr$\"+T*[Q)=F17$Fir$\"+Ap4D=F17$F^s
$\"+wv=q<F17$Fcs$\"+Vn,A<F17$Fhs$\"+yb-n;F17$F]t$\"+liZA;F17$Fbt$\"+%e
ZId\"F17$Fgt$\"+-hVJ:F17$F\\u$\"+TL0)[\"F17$Fau$\"+b!)))[9F17$Ffu$\"+
\"Go,T\"F17$F[v$\"+'*fXw8F17$F`v$\"+PS(>M\"F17$Fev$\"+j=638F17$Fjv$\"+
,O;!G\"F17$F_w$\"+)4#[^7F17$Fdw$\"+d5RB7F17$Fiw$\"+IjK(>\"F17$F^x$\"+P
TNt6F17$Fcx$\"+Wm2[6F17$Fhx$\"+JW[E6F17$F]y$\"+f!>X5\"F17$Fby$\"+c0_&3
\"F17$Fgy$\"+$[mc1\"F17$F\\z$\"+-#*zZ5F17$Faz$\"+gi!*H5F17$Ffz$\"+x>88
5F17$F[[l$\"+u/xi**Fbp7$F`[l$\"+5>w1)*Fbp7$Fe[l$\"+'z_Jl*Fbp7$Fj[l$\"+
#y(G1&*Fbp7$F_\\l$\"+!ysdP*Fbp7$Fd\\l$\"+DR+J#*Fbp7$Fi\\l$\"+EN`0\"*Fb
p7$F^]l$\"+-&zb(*)Fbp7$Fc]l$\"+1Aea))Fbp7$Fh]l$\"+5L\"zs)Fbp-F]^l6&F_^
lF(F`^lF(-F$6$7gnF'7$F,$\"+-\"H9-#F17$F3$\"+$f>9-#F17$F9$\"+yPS@?F17$F
>$\"+7;Q@?F17$FC$\"+9$=8-#F17$FH$\"+@(H7-#F17$FM$\"+\\m(4-#F17$FR$\"+N
Di??F17$FX$\"+0>h>?F17$Fgn$\"+C**>=?F17$F\\o$\"+n[z9?F17$Fao$\"+)H/-,#
F17$Ffo$\"+15q&*>F17$F[p$\"+z4jv>F17$F`p$\"+x7x]>F17$Ffp$\"+F&RR#>F17$
F[q$\"+_D$H*=F17$F`q$\"+[*y!e=F17$Feq$\"+!e&=@=F17$Fjq$\"+p\"e;y\"F17$
F_r$\"+E]+Y<F17$Fdr$\"+:MT0<F17$Fir$\"+Z,hk;F17$F^s$\"+YDgD;F17$Fcs$\"
+UFo!f\"F17$Fhs$\"+\"z:+b\"F17$F]t$\"+N3W;:F17$Fbt$\"+pq_y9F17$Fgt$\"+
i%pgW\"F17$F\\u$\"+&y/<T\"F17$Fau$\"+!z?-Q\"F17$Ffu$\"+#zm'[8F17$F[v$
\"+E![3K\"F17$F`v$\"+6G1#H\"F17$Fev$\"+w0Zj7F17$Fjv$\"+t6jR7F17$F_w$\"
+a:%\\@\"F17$Fdw$\"+&>T0>\"F17$Fiw$\"+y(3x;\"F17$F^x$\"+7xaY6F17$Fcx$
\"+s%oS7\"F17$Fhx$\"+3Lt/6F17$F]y$\"+$yR\\3\"F17$Fby$\"+i-sn5F17$Fgy$
\"+A$G'\\5F17$F\\z$\"+/PEL5F17$Faz$\"+O$)z;5F17$Ffz$\"+IQH,5F17$F[[l$
\"+_y\\c)*Fbp7$F`[l$\"+]T86(*Fbp7$Fe[l$\"+(o&\\n&*Fbp7$Fj[l$\"+a\"3(H%
*Fbp7$F_\\l$\"+mC!pI*Fbp7$Fd\\l$\"+)R5.<*Fbp7$Fi\\l$\"+#RD;0*Fbp7$F^]l
$\"+QGUG*)Fbp7$Fc]l$\"+(QwM\"))Fbp7$Fh]l$\"+;(=Hp)Fbp-F]^l6&F_^lF(F(F`
^l-F$6$7fn7$F,$\"+Q=,,=F17$F3$\"+Ic+,=F17$F9$\"+&G&*4!=F17$F>$\"+&z!)4
!=F17$FC$\"+3%R4!=F17$FH$\"+n9)3!=F17$FM$\"+rfr+=F17$FR$\"+cV[+=F17$FX
$\"+xJ#)*z\"F17$Fgn$\"+k*)*))z\"F17$F\\o$\"+szm'z\"F17$Fao$\"+-`l$z\"F
17$Ffo$\"+h**4%y\"F17$F[p$\"+ANyq<F17$F`p$\"+.\"QTv\"F17$Ffp$\"+eQ)ft
\"F17$F[q$\"+.+w9<F17$F`q$\"+R%)e!p\"F17$Feq$\"+$ePYm\"F17$Fjq$\"+sdTO
;F17$F_r$\"+:ve5;F17$Fdr$\"+\"*)\\2e\"F17$Fir$\"+c>H]:F17$F^s$\"+#yP2_
\"F17$Fcs$\"+(>=R\\\"F17$Fhs$\"+YEDi9F17$F]t$\"+.\"fdV\"F17$Fbt$\"+\\9
Y09F17$Fgt$\"+'*Q?z8F17$F\\u$\"+kE3^8F17$Fau$\"+g*H]K\"F17$Ffu$\"+'QV'
)H\"F17$F[v$\"+sA:v7F17$F`v$\"+u7i]7F17$Fev$\"+:3.E7F17$Fjv$\"+Q&e`?\"
F17$F_w$\"+%z(y$=\"F17$Fdw$\"+a*4B;\"F17$Fiw$\"+@(p?9\"F17$F^x$\"+6$*=
B6F17$Fcx$\"+kf+.6F17$Fhx$\"+yBa&3\"F17$F]y$\"+otcn5F17$Fby$\"+G4&=0\"
F17$Fgy$\"+b/EN5F17$F\\z$\"+.m=?5F17$Faz$\"+rn&\\+\"F17$Ffz$\"+k8f0**F
bp7$F[[l$\"+!=y(f(*Fbp7$F`[l$\"+#z;Qi*Fbp7$Fe[l$\"+bs.*[*Fbp7$Fj[l$\"+
1(f$f$*Fbp7$F_\\l$\"+<_ZV#*Fbp7$Fd\\l$\"+DwD9\"*Fbp7$Fi\\l$\"+`zr,!*Fb
p7$F^]l$\"+3Al%)))Fbp7$Fc]l$\"+#[B_x)Fbp7$Fh]l$\"+QSDg')Fbp-F]^l6&F_^l
F)F)F)-%&TITLEG6#Q,V~Kuch2~III6\"-%+AXESLABELSG6$Q#xiF``nQ!F``n-%%VIEW
G6$;F(Fh]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 "57 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 
1 2 33 1 1 }