Kerr-Flächen.png (800 × 533 Pixel, Dateigröße: 50 KB, MIME-Typ: image/png)
Diese Datei stammt aus Wikimedia Commons und kann von anderen Projekten verwendet werden. Die Beschreibung von deren Dateibeschreibungsseite wird unten angezeigt.
BeschreibungKerr-Flächen.png |
Deutsch: Ergosphären, Ereignishorizonte und Ringsingularität eines rotierenden schwarzen Lochs - Animation einschalten |
Datum | |
Quelle | Eigenes Werk |
Urheber | Yukterez (Simon Tyran, Vienna) |
Andere Versionen |
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,θ,Ф *)
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 20:11, 28. Jun. 2017 | 800 × 533 (50 KB) | wikimediacommons>Yukterez | Bild dezenter gestaltet |
Die folgenden 2 Seiten verwenden diese Datei:
Diese Datei enthält weitere Informationen, die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.
Software |
|
---|