Blog

I have been attempting to plot a “drainhole” wormhole with the metric $ ds^2 = dt^2-dr^2-(r^2+a^2)(d\theta^2+Sin[\theta]^2d\phi^2)$ , I set $ a=0$ and plotted in mathematica: RevolutionPlot3D[-1 – x^2 – y^2 – 1 – (1 + x^2 + y^2 + 1) (1 – 1/(x^2 + y^2 + 1)), {x, -1, 1}, {y, -\[Pi]/4, \[Pi]/4}, Boxed ->Read more