Biorythms

Description

Origin: HP-19C/HP-29C Applications Book, pages 55 through 57. This enhanced version was published in the MoHPC - Software Library

From ancient days philosophers and sages have taught that human happiness lies in the harmonious integration of body, mind, and bean. Now a twentieth-century theory claims to be able to quantitatively gauge the functioning of these three aspects of our selves: the physical, sensitive, and cognitive.

The biorhythm theory is based on the assumption that the human body has inner clocks or metabolic rhythms with constant cycle times. Currently. three cycles starting at birth in a positive direction ar postulated. The 23-day or physical cycle relates with physical vitality,e endurance and energy. The 28-day cycle or sensitivity cycle relates with sensitivity, intuition and cheerfulness. The 33.day or cognitive cycle relates with mental alertness and judgement.

For each cycle, a day is considered either high, low, or critical. x is the output value for a given cycle. The high (0 < x ≤ 1) times are regarded as energetic times, you are your most dynamic in the cycle. The low (-1 ≤ x < 0) times are regarded as the recuperative periods. The critical days (x = 0) are regarded as your accident prone days, especially for the physical and sensitivity cycles.

Remarks:
Instructions:
  1. Key in birthdate as MM.DDYYYY, press GSB 1
  2. Key in biodate as MM.DDYYYY and find bio values by pressing
    GSB 2 → Physical
    R/S → Sensitivity
    R/S → Cognitive
  3. To find bio values for succeeding days press
    R/S → Physical
    R/S → Sensitivity
    R/S → Cognitive
  4. For a new birthdate, go to step 1
  5. For a new biodate, go to step 2

Program Resources

Labels

Name Description
 A Store Birthday
 B Store Biodate and start Biorythms calculation
 0 # Calculate Day number
 6 #
 7 #
 8 # Calculate rythms value
 9 #

Storage Registers

Name Description
 4 Biodate year
 5 Biodate day
 6
 7 cycle length
 8 Biodate - Birthday
 9 Birthday

Program

Line Display Key Sequence Line Display Key Sequence Line Display Key Sequence
000 032 10 ÷ 064 2 2
001 42,21,11 f LBL A 033 43 36 g LSTΧ 065 45 6 RCL 6
002 43 8 g RAD 034 26 EEX 066 43,30, 7 g TEST x>y
003 32 0 GSB 0 035 7 7 067 22 6 GTO 6
004 44 9 STO 9 036 40 + 068 1 1
005 43 32 g RTN 037 26 EEX 069 44,30, 4 STO 4
006 42,21,12 f LBL B 038 7 7 070 1 1
007 32 0 GSB 0 039 30 071 2 2
008 45 9 RCL 9 040 20 × 072 44,40, 6 STO + 6
009 30 041 31 R/S 073 42,21, 6 f LBL 6
010 44 8 STO 8 042 43 32 g RTN 074 1 1
011 42,21, 9 f LBL 9 043 42,21, 7 f LBL 7 075 44,40, 6 STO + 6
012 1 1 044 1 1 076 45 6 RCL 6
013 8 8 045 44,40, 8 STO + 8 077 3 3
014 44 7 STO 7 046 32 9 GSB 9 078 0 0
015 32 8 GSB 8 047 22 7 GTO 7 079 48 .
016 32 8 GSB 8 048 42,21, 0 f LBL 0 080 6 6
017 42,21, 8 f LBL 8 049 36 ENTER 081 20 ×
018 5 5 050 43 44 g INT 082 43 44 g INT
019 44,40, 7 STO + 7 051 44 6 STO 6 083 45 4 RCL 4
020 45 8 RCL 8 052 30 084 3 3
021 45 7 RCL 7 053 26 EEX 085 6 6
022 10 ÷ 054 2 2 086 5 5
023 42 44 f FRAC 055 20 × 087 48 .
024 2 2 056 36 ENTER 088 2 2
025 20 × 057 43 44 g INT 089 5 5
026 43 26 g π 058 44 5 STO 5 090 20 ×
027 20 × 059 30 091 43 44 g INT
028 23 SIN 060 26 EEX 092 40 +
029 36 ENTER 061 4 4 093 45 5 RCL 5
030 43 16 g ABS 062 20 × 094 40 +
031 43,30, 0 g TEST x≠0 063 44 4 STO 4 095 43 32 g RTN