tage(t,m,j)=367*j-int(7*(j+int((m+9)/12))/4)+int(275*m/9)+t-396
phys(tag)=sin(360/23*tag)
emot(tag)=sin(360/28*tag)
intl(tag)=sin(360/33*tag)
Erf(tag)=(phys(tag)+emot(tag)+intl(tag))/3
bio(t)=if(frac(t*1.4)>0.66,Phys(t),if(frac(t*1.4)>0.33,Emot(t),Intl(t)))
[HILFE]
- Tage und Biorythmus ------------------
Tage(t,m,j): Tage seit dem 1.1.1 n.Chr.
Phys[Emot,Intl,Erf](Tag): Bio-R-Wert f�r
 den tag'ten Tag seit der Geb. eines M.
Bio(t): zum Zeichnen der 3 Bio-R-Kurven
--> nun=Tage(jetzt)-Tage(Geburt)
    draw bio(nun,nun+30) [1 Mon. ab nun]
Phys-schnell, Emot-mittel, Intl-langsam