Bei
Leo und
Teo werden die Startbedingungen für mögliche Photonenorbits über einen Ratio von

bestimmt, wobei die Gesamtgeschwindigkeit in E, die Gesamtgeschwindigkeit und die Axialgeschwindigkeit in Lz und die Gesamtgeschwindigkeit, die Axilageschwindigkeit und die Poloidialgeschwindigkeit in Q einfließt. Das ist ein bisschen umständlich, geht aber auch einfacher; man muss nur θ0=π/2 (Äquator), v0=1 (c), α0=0 (vertikaler Abschusswinkel) und
 \left(\mu \ \left(a^2+r^2\right)-k\right)+2 \ E^2 \ r \left(a^2+r^2\right)-2 \ a \ E \ L_z +\Delta \ \mu \ r}{\Delta \ \Sigma }-\frac{2 \ p_r ^2 \ (r-1)}{\Sigma } = 0})
(radiale Impulskomponentenableitung) setzen, die Terme (so wie sie
hier oder, was aufs Gleiche kommt,
hier stehen) in die Gleichung einsetzen und nach δ0 (orbitaler Inklinationswinkel) auflösen. Dann bekommt man den gesuchten Winkel in Abhängigkeit von r und a:

wobei damit sich die Formel in einer Zeile ausgeht zur Kürze die 4 Terme
+a^2 r (r (3 r-5)+6)+2 (r-3) r^4})
 r} \left(a^2+3 r^2\right) \cos (\delta )})
 \left(a^2+(r-2) r\right) \cos (2 \delta )})
 r\right) \left(a^2 (r+2)+r^3\right)})
definiert werden. Das Polynom hat 4 reale Lösungen, von denen 2 in Richtung Nordpol und 2 in Richtung Südpol geneigt sind, und beide möglichen Winkel sowohl im als auch gegen den Uhrzeigersinn beschriftet: 10°,-350°,-10°,-350°sind alles gültige Lösungen, wovon man aber nur die erste benötigt, weshalb man nur die Nullstelle zwischen 0 und 180° sucht:
- Code: Alles auswählen
(* Photonenorbit, Inklinationswinkel nach a und r *)
δp[r_,a_]:=δi/.Solve[(a^4 (-1+r)+2 (-3+r) r^4+a^2 r (6+r (-5+
3 r))+4 a Sqrt[a^2+(-2+r) r] (a^2+3 r^2) Cos[δi]-a^2 (3+r) (a^2+
(-2+r) r) Cos[2 δi])/(2 r (a^2+(-2+r) r) (r^3+a^2 (2+r)))==0
&&δi<=π&&δi>=0,δi][[1]]
Als Preview ein paar Photonenorbits aus der aktuell gerendert werdenden Kollektion:

Die Sequenz zeigt die Position des Photons und des zum jeweiligen r gehörigen ZAMO bei verschiedenen Startparametern nach t=150GM/c³ Koordinatenzeit. Abschussposition ist immer die Äquatorebene bei θ0=π/2, φ0=0.
Rendernd,
