File:Kerr-surfaces.png

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Kerr-surfaces.png (800 × 588 pixels, file size: 60 KB, MIME type: image/png)

Captions

Captions

Horizon- and ergosurfaces of a rotating black hole

Summary

[edit]
Description
English: Event horizons and ergospheres of a rotating black hole (spin parameter a=Jc/G/M²=0.99); the ring-singularity is located at the equatorial kink of the inner ergosphere at R=a.
Deutsch: Ereignishorizonte und Ergosphären eines mit dem Spinparameter a=Jc/G/M²=0.99 rotierenden schwarzen Lochs. Die Ringsingularität liegt an der äquatorialen Ausbuchtung der inneren Ergosphäre bei R=a.
Date
Source Own work (source)
Author Yukterez (Simon Tyran, Vienna)
Other versions
Kerr-Newman-de-Sitter (KNdS) surfaces (cosmic and black hole horizons and ergospheres) in cartesian {x,y,z} projection
Kerr-Newman, Kerr & Reissner-Nordström surfaces in pseudospherical {r,θ,φ} and cartesian {x,y,z} projection
This png image could be re-created using vector graphics as an SVG file. This has several advantages; see Commons:Media for cleanup for more information. If an SVG form of this image is available, please upload it and afterwards replace this template with {{vector version available|new image name}}.


It is recommended to name the SVG file “Kerr-surfaces.svg”—then the template Vector version available (or Vva) does not need the new image name parameter.

Code

[edit]
rE=1+Sqrt[1-a^2 Cos[θ]^2]; RE[A_]:={Sqrt[rE^2+A^2] Sin[θ]Cos[φ],Sqrt[rE^2+A^2] Sin[θ]Sin[φ],rE Cos[θ]};  (* outer ergosphere *)
rG=1-Sqrt[1-a^2 Cos[θ]^2]; RG[A_]:={Sqrt[rG^2+A^2] Sin[θ]Cos[φ],Sqrt[rG^2+A^2] Sin[θ]Sin[φ],rG Cos[θ]};  (* inner ergosphere *)
rA=1+Sqrt[1-a^2]; RA[A_]:={Sqrt[rA^2+A^2] Sin[θ]Cos[φ],Sqrt[rA^2+A^2] Sin[θ]Sin[φ],rA Cos[θ]};              (* outer horizon *)
rI=1-Sqrt[1-a^2]; RI[A_]:={Sqrt[rI^2+A^2] Sin[θ]Cos[φ],Sqrt[rI^2+A^2] Sin[θ]Sin[φ],rI Cos[θ]};              (* inner horizon *)
p[f_, c_]:=ParametricPlot3D[f, {φ, 0, 2 π}, {θ, 0, π}, PlotStyle -> Directive[c, Opacity[0.15]]]             (* plotfunction *)
Do[Print[Show[p[RE[a], Blue], p[RA[a], Cyan], p[RI[a], Orange], p[RG[a], Red]], {a,0,1,0.1}]]            (* cartesian, x,y,z *)
Do[Print[Show[p[RE[0], Blue], p[RA[0], Cyan], p[RI[0], Orange], p[RG[0], Red]], {a,0,1,0.1}]]      (* pseudospherical, r,θ,Ф *)

Comparison

[edit]

Licensing

[edit]
I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current02:48, 29 August 2021Thumbnail for version as of 02:48, 29 August 2021800 × 588 (60 KB)Yukterez (talk | contribs)pointing the arrows to the outer edges of the surfaces to avoid 2D/3D confusions
05:21, 25 June 2017Thumbnail for version as of 05:21, 25 June 2017800 × 588 (60 KB)Yukterez (talk | contribs)User created page with UploadWizard

File usage on other wikis

The following other wikis use this file:

Metadata