File:Kerr-Flächen.png: Difference between revisions

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search
Content deleted Content added
Yukterez (talk | contribs)
Yukterez (talk | contribs)
Line 25: Line 25:
Do[Print[Show[p[RE[a], Blue], p[RA[a], Cyan], p[RI[a], Orange], p[RG[a], Red]], {a,0,1,0.1}]] (* Kerr-Schild x,y,z *)
Do[Print[Show[p[RE[a], Blue], p[RA[a], Cyan], p[RI[a], Orange], p[RG[a], Red]], {a,0,1,0.1}]] (* Kerr-Schild 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}]] (* Boyer-Lindquist r,θ,Ф *)
Do[Print[Show[p[RE[0], Blue], p[RA[0], Cyan], p[RI[0], Orange], p[RG[0], Red]], {a,0,1,0.1}]] (* Boyer-Lindquist r,θ,Ф *)

== Comparison ==

* Boyer-Lindquist: [http://www.nrcresearchpress.com.sci-hub.cc/doi/abs/10.1139/p81-086 Nigel Sharp: On embeddings of the Kerr geometry; page 3, figure 3]
* Kerr-Schild: [https://arxiv.org/pdf/0706.0622v3.pdf#35 Matt Visser: The Kerr spacetime, A brief introduction; page 35, figure 3]


==File usage on Wikipedia==
==File usage on Wikipedia==

Revision as of 03:08, 9 July 2017

Captions

Captions

Add a one-line explanation of what this file represents

Summary

Description
Deutsch: Ergosphären, Ereignishorizonte und Ringsingularität eines rotierenden schwarzen Lochs - Animation einschalten
Date
Source Own work
Author Yukterez (Simon Tyran, Vienna)
Other versions
animation
animation
english version

Licensing

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.

Code

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

Comparison

File usage on Wikipedia

File history

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

Date/TimeThumbnailDimensionsUserComment
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

The following page uses this file:

File usage on other wikis

The following other wikis use this file:

Metadata