The radiation-ball is a structure which can be identified as a black hole with quantum properties. The structure consists from radiation trapped into the ball by the deep gravitational potential and of a singularity. The Hawking radiation is regarded as a leaking-out of the radiation from the ball and the Bekenstein entropy is carried by the radiation. The radiation-ball is derived by the analysis of the backreaction of the Hawking radiation into space-time by the Einstein equation. In this page you can download the Mathematica codes for solving the Einstein equation numerically and for plotting the result.
You can download the following Mathematica codes:
On the Mathematica console, put the follwing.
In[1]:= << RBall100.math
Then resultant graphics (g1 and g2) for the neutral radiation ball appear after several minutes.
For the charged radiation ball, put the follwing.
In[1]:= << CRBall100.math
Then resultant graphics (g3 and g4) appear.