(11C) Biorhythm Calculator

[Gamo]

Last time I won't be able to go to the contest of the HHC 2018 conference.

So here is my version of the Biorhythm Calculator using the HP-11C

For more detail on this topic there are a lot of information on the web.

--------------------------------------------------

Brief information about these three solutions.

[A] Your (Total Day Alive) // Your Birth Date to Current Date or to Future Date.

[B] The "Physical" Biorhythm lasts for 23 days and is related to your physical energy, strength, health, stamina.

[C] The "Emotional" Biorhythm last for 28 days (just like the Moon's cycle) and relates to your emotional stability or stress.

[D] The "Intellectual" Biorhythm lasts for 33 days and relates to your mental capabilities, creativity, aptitude to solve problems.

[E] Average of All Three Type of Biorhythm // This give an overall result.

---------------------------------------------------

Procedure:

1. [A] Input your total day alive // User can use HP-12C to find Days between Dates or any other calculator that have this function. Windows 10 calculator have this functions.
2. [B] Result in Percent for Physical
3. [C] Result in Percent for Emotional
4. [D] Result in Percent for Intellectual
5. [E] Result Average of all Three Types in Percent
6. [R/S] Add one to previous Total day Alive for next result

Next result start in order from [B] --> [C]--> [D] --> [E]

---------------------------------------

Example:

Your Total Day Alive is 16,376

16,376 [A] display 0
[B] 0
[C] -78
[D] 100
[E] 7
[R/S] 16,377 // Add one more day alive from 16,376 to 16,377
[B] 27
[C] -62
[D] 99
[E] 21

-----------------------------------------
Program:

Code:


LBL A  // Input your Total Day Alive
STO 1
360
STO 2
23 
STO 3
28
STO 4
33
STO 5
FIX 0
CLx
RTN
------------------------------
LBL B  // Physical
RCL 1
RCL 2
x
STO 0
RCL 3
÷
SIN
STO 6
EEX 2
x
RTN
-----------------------------
LBL C  // Emotional
RCL 0
RCL 4
÷
SIN
STO+6
EEX 2
x
RTN
----------------------------
LBL D // Intellectual
RCL 0
RCL 5
÷
SIN
STO+6
EEX 2
x
RTN
--------------------------
LBL E // Average of all Three Type
RCL 6
3
÷
EEX 2
x
R/S
1
STO+1
RCL 1
RTN

Remark:
Procedure start from A B C D E if like to know result for next day press [R/S] then start at B C D E and so on.

Gamo

[Steve Simpkin]

Groovy!