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

Kerr-Flächen.png(800 × 533 pixels, file size: 50 KB, MIME type: image/png)


Deutsch: Ergosphären, Ereignishorizonte und Ringsingularität eines rotierenden schwarzen Lochs - Animation einschalten
Source Own work
Author Yukterez (Simon Tyran, Vienna)
Other versions
Kerr-Newman, Kerr & Reissner-Nordström Flächen


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 alter, transform, or build upon this work, you may distribute the resulting work only under the same or similar license to this one.


rE=1+Sqrt[1-a^2 Cos[θ]^2-Q^2]; RE[A_]:={Sqrt[rE^2+A^2] Sin[θ]Cos[φ],Sqrt[rE^2+A^2] Sin[θ]Sin[φ],rE Cos[θ]}; (* äußere Ergosphäre *)
rG=1-Sqrt[1-a^2 Cos[θ]^2-Q^2]; RG[A_]:={Sqrt[rG^2+A^2] Sin[θ]Cos[φ],Sqrt[rG^2+A^2] Sin[θ]Sin[φ],rG Cos[θ]}; (* innere Ergosphäre *)
rA=1+Sqrt[1-a^2-Q^2]; RA[A_]:={Sqrt[rA^2+A^2] Sin[θ]Cos[φ],Sqrt[rA^2+A^2] Sin[θ]Sin[φ],rA Cos[θ]};           (* äußerer Horizont *)
rI=1-Sqrt[1-a^2-Q^2]; RI[A_]:={Sqrt[rI^2+A^2] Sin[θ]Cos[φ],Sqrt[rI^2+A^2] Sin[θ]Sin[φ],rI Cos[θ]};           (* innerer Horizont *)
p[f_, c_]:=ParametricPlot3D[f, {φ, 0, 2 π}, {θ, 0, π}, PlotStyle -> Directive[c, Opacity[0.15]]]                 (* Plotfunktion *)
Q=0;                                                                                                 (* elektrische Ladung auf 0 *)
Do[Print[Show[p[RE[a], Blue], p[RA[a], Cyan], p[RI[a], Orange], p[RG[a], Red]], {a,0,1,0.1}]]               (* kartesisch, 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}]]          (* pseudosphärisch, r,θ,Ф *)


File history

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

current20:11, 28 June 2017Thumbnail for version as of 20:11, 28 June 2017800 × 533 (50 KB)Yukterez (talk | contribs)Bild dezenter gestaltet
02:32, 20 June 2017Thumbnail for version as of 02:32, 20 June 2017888 × 808 (61 KB)Yukterez (talk | contribs)mehr Luft nach oben und unten
02:06, 20 June 2017Thumbnail for version as of 02:06, 20 June 2017888 × 710 (60 KB)Yukterez (talk | contribs)User created page with UploadWizard
  • You cannot overwrite this file.

The following page uses this file:

File usage on other wikis

The following other wikis use this file: