Bitte einstellen:    Wasserstoff-Atom bei dphi=0.0618034, dtheta=0.08 und exc=-0.0032

Torkado aus zwei sich kreuzenden Spiralen mit r-abhängigen Winkelschritten (Skizze)
KurveB:    k= 1.0 + (abstand-R)/(4Pi); winkeltheta = winkeltheta - dtheta*k; winkelphi = winkelphi + dphi/k;
KurveA:    k= 1.0 + (abstand-R)/(4Pi); winkeltheta = winkeltheta + dphi*k; winkelphi = winkelphi + dtheta/k;
radiusklein= r(1 + exc*(sin(theta)^2 + sin(theta)) );
Start bei (x,y,z)=(R+radiusklein,0,0)