Test, Drehimpulserhaltung L=r x m*v mit (dphi/k)*(dtheta*k)=const , (dphi/k) = Winkelgeschwindigkeit w
Torkado aus zwei sich kreuzenden Spiralen mit r-abhängigen Winkelschritten (Skizze), Torus für exc1=exc2=0
abstand=sqrt(x*x+y*y+z*z); Abstand räumlich ! R als Kugelradius ! Offenbar unrichtig, da nicht mehr unabhängig von R. ;
KurveB: k= 1 + Faktor*(abstand-R)/(4Pi); winkeltheta = winkeltheta - dtheta*k; winkelphi = winkelphi + dphi/k;
KurveA: k= 1 + Faktor*(abstand-R)/(4Pi); winkeltheta = winkeltheta + dphi*k; winkelphi = winkelphi + dtheta/k;
radiusklein= r(1 + exc1*(cos(theta)^2 + cos(theta)) + exc2*(sin(theta)^2 + sin(theta)));
Geschlossene Kurven für dphi/dtheta=M/N, M,N ganz, Faktor=0.618034 Beispiele:
R=8, r=5, exc1=0.097, exc2=-0.08 oder exc1=0.1075, exc2=-0.1074
R=8, r=4, exc1=0.08, exc2=-0.085
R=8, r=7, exc1=0.0345, exc2=-0.0345