Biofeld eines Baumes
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 + exc1*(cos(theta)^2 + cos(theta)) + exc2*(sin(theta)^2 + sin(theta)));
Bitte beide exc einzeln Null setzen, um Wirkung zu verstehen. Kurvenstart bei (x,y,z)=(R+radiusklein,0,0)