★ APPLICATIONS ★ DIVERS ★ Biorhythmus ★ |
| Biorhythmus (CPC Amstrad International) | Applications Divers |
Dieses Programm errechnet den Verlauf und Stand der Biorhythmen. Nach dieser Theorie verläuft das Leben des Menschen in zyklischen Phasen. Diese unterscheiden sich nur in der Dauer einer Vollschwingung (23, 28, 33). Dabei kennzeichnen positive Werte aktive Phasen, negative Werte passive Phasen. Kritisch wird es immer nur, wenn eine oder mehrere Kurven die Nullinie durchqueren. Man berechnet diese Schwingungen, indem man das Geburtsdatum und das Datum des zu errechnenden Tages eingibt. Der Computer berechnet dann die Anzahl der Tage, die seit der Geburt vergangen sind. An dieser Stelle muß gesagt werden, daß bei der Geburt alle Werte 0 sind und alle 3 Werte danach + 1 ansteigen. Programmbeschreibung: Nach dem Starten des Programms, muß man zuerst das Geburtsdatum und danach das aktuelle Datum eingeben. Der Computer zeigt dann die einzelnen Werte der Schwingungen an. Um dem Anwender dies etwas zu veranschaulichen, werden hinter den Werten die Tendenzen angezeigt. Dies geschieht in Form von Pfeilen (t aufwärts.-t abwärts). Nach Tastendruck verzweigt das Programm in das Menue. Hier werde ich die einzelnen Möglichkeiten der Reihe nach beschreiben: Neue Eingabe [1] Hier wird das Programm einfach noch einmal gestartet. Graphisch darstellen [2] Hier zeichnet der Computer ein Gitternetz und plottet die Kurven hinein. Um diese Kurven auch auf einem Grünmo-nitor unterscheiden zu können, sind sie verschieden schraffiert. Außerdem wäre es bei Benutzung eines Grünmonitors zu empfehlen, in Zeile 90 die Ink-Befehle in ink 2,24 umzuwandeln. Zur besseren Übersicht sind noch drei Linien in der Grafik: die mittlere ist der Tag der zu berechnen ist. Rechts und links davon sind nocheinmal zwei Linien zu sehen; sie geben über den Stand »vor 5 Tagen« und »in 5 Tagen« Auskunft. Weitere Eingaben mit gleichem G-Datum [3]. Hier springt das Programm gleich in die Routine mit der Abfrage des »heutigen Standes«: Ende [4] Ende des Programmes.
|
