12 - BIO - Biorhythm

Post Reply
Peet
Posts: 91
Joined: Tue Sep 29, 2020 12:01 am
Location: Germany

12 - BIO - Biorhythm

Post by Peet »

Biorhythm is the pseudoscientific idea that that our daily lives are significantly affected by rhythmic cycles with periods of exactly 23, 28 and 33 days. Biorhythm-programs are common finger exercises for many novice programmers. In the late 1970s it was also the only way a teenager could impress a girl with a calculator.

Input: Age (in days) R/S
Output: Biorhythm physical, emotional, psychological and average

Code: Select all

LBL "BIO"
"AGE IN DAYS?"
CLS
FIX 2
PROMPT
STO 04
RCL 04
33
/
360
*
SIN
STO 01
S+
RCL 04
28
/
360
*
SIN
STO 02
S+
RCL 04
23
/
360
*
SIN
STO 03
S+
"PHY:"
ARCL 03
PROMPT
"EMO:"
ARCL 02
PROMPT
"PSI:"
ARCL 01
PROMPT
MEAN
"BIO:" 
ARCL X
FIX 4
PROMPT
END
Attachments
12_Biorhythmus.raw
(96 Bytes) Downloaded 10 times
My programmable calculators - former: CBM PR100, HP41CV, HP28S, HP11C - current: HP48G(+), HP35S, DM41X, DM42
Post Reply