Zur Biorythmus-Formelsammlung:                             M.Mhlhaus 
------------------------------

Ob am Biorythmus "was dran" ist oder nicht, soll hier nicht diskutiert
werden - ich wollte nur zeigen, was MMCalc kann.

Der Biorythmus gehorcht der Sinusfunktion, wobei 3 Frequenzen unter-
schieden werden:

   Pysische Verfassung:      Wellenl„nge 23 Tage
   Emotionale Verfassung:    Wellenl„nge 28 Tage
   Intelektuelle Verfassung: wellenl„nge 33 Tage

Alle drei Kurven beginnen bei der Geburt eines Menschen bei 0, und zwar
ansteigend.
Den Durchschnittswert der 3 Kurven kann man als Erfolgs-Kurve bezeichnen.

Zur Berechnung der Werte wird nur die Anzahl der Tage ben”tigt, die seit
der Geburt eines Menschen verstrichen sind. Hierbei hilft die Funktion
"Tage(t,m,j)", die die Anzahl der seit Beginn unserer Zeitrechnung ver-
strichenen Tage angibt. Diese Formel ist nicht von mir, und ich weiá auch
nicht, ob sie die alle "paarhundert" Jahre erforderlichen Schalttage be-
rcksichtigt, aber fr die letzten und die kommenden 100 Jahre arbeitet
sie einwandfrei.
Wenn man von den bis heute verstrichenen Tagen die bis zu irgendeinem
Geburtstag verstrichenen abzieht, erh„lt man das Lebensalter in Tagen.

In der Funktion "Bio" wirf von "if" Gebrauch gemacht, um mit einem Trick
die 3 Biorythmusfunktionen Phys, Emot und Intl gleichzeitig darstellen zu
k”nnen: Durch die Aufeinanderfolge von jeweils einem kurzen Stckchen der
3 Funktionen erscheinen alle zusammen punktiert auf dem Bildschirm.
Die schnell„ufigste ist die Phys-, die langsamste die Intl-Funktion.

Die folgenden Formeln und der Hilfetext befinden sich in bio.clc

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