The Museum of HP Calculators


Biorhythms for the HP-19C/HP-29C

This program is Copyright © 1977 by Hewlett-Packard and is used here by permission. This program was originally published in "HP-19C/HP-29C Applications Book", pages 55 through 57. This program was transcribed by Didi Limasalle

This program is supplied without representation or warranty of any kind. Hewlett-Packard Company and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Overview

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

The biorhythms 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 are postulated. The 23-day or physical cycle relates with physical vitality, 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 judgment.

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.

 

Biorhythmic Cycles Graph

Remarks:

Instructions

Step

Instructions

Input Data/Units

Keys

Output Data/Units

1

Key in the program.      

2

Key in birthdate   MM.DDYYYY

GSB 1

Day #*

3

Key in biodate and find bio values   MM.DDYYYY

GSB 2

P

        R/S

S

        R/S

C

4

To find bio values for succeeding days.     R/S  
        R/S

P

        R/S

S

        R/S

C

5

For a new birthdate, go to step 2;      

 

For a new biodate, go to step 3.      
         
   * See Calendar Functions for      
   explanation of this number.      

The Program

       19C        29C
LINE   CODE       CODE      KEYS           COMMENTS
 00
 01  25 14 01   15 13 01   g LBL 1
 02     25 23      15 33   g RAD           Birthdate store
 03     13 00      12 00   GSB 0
 04     45 09      23 09   STO 9           N1
 05     25 06      15 12   g RTN           ---------------------------
 06  25 14 02   15 13 02   g LBL 2
 07     13 00      12 00   GSB 0           Biodate
 08     55 09      24 09   RCL 9
 09        31         41   -
 10     45 08      23 08   STO 8           Store N2 - N1
 11  25 14 09   15 13 09   g LBL 9
 12        01         01   1
 13        08         08   8
 14     45 07      23 07   STO 7
 15     13 08      12 08   GSB 8           23 Day cycle
 16     13 08      12 08   GSB 8           28 Day cycle
 17  25 14 08   15 13 08   g LBL 8         ---------------------------
 18        05         05   5               # Days
 19  45 41 07   23 51 07   STO + 7
 20     55 08      24 08   RCL 8
 21     55 07      24 07   RCL 7
 22        61         71   ÷
 23     25 52      15 62   g FRAC
 24        02         02   2
 25        51         61   x
 26     25 63      15 73   g Pi
 27        51         61   x
 28     16 42      14 52   f sin
 29        21         31   ENTER
 30     25 54      15 64   g ABS
 31     25 51      15 61   g X<>0?
 32        61         71   ÷
 33     16 63      14 73   f LASTx
 34        23         33   EEX
 35        07         07   7
 36        41         51   +
 37        23         33   EEX
 38        07         07   7
 39        31         41   -
 40        51         61   x               ***
 41        64         74   R/S             Bio value
 42     25 13      15 12   g RTN           ---------------------------
 43  25 14 07   15 13 07   g LBL 7
 44        01         01   1               Next day
 45  45 31 08   23 51 08   STO + 8
 46  25 14 09      12 09   g GSB 9         ---------------------------
 47     14 07      13 07   GTO 7           Computer N(M,D,Y,)
 48  25 14 00   15 13 00   g LBL 0
 49        21         31   ENTER
 50     16 52      14 62   f INT
 51     45 06      23 06   STO 6           M
 52        31         41   -               ---------------------------
 53        23         33   EEX
 54        02         02   2
 55        51         61   x
 56        21         31   ENTER           D
 57     16 52      14 62   f INT
 58     45 05      23 05   STO 5
 59        31         41   -               ---------------------------
 60        23         33   EEX
 61        04         04   4
 62        51         61   x               Y
 63     45 04      23 04   STO 4
 64        02         02   2               ---------------------------
 65     55 06      24 06   RCL 6
 66     16 41      14 51   f x>y?
 67     14 06      13 06   GTO 6
 68        01         01   1
 69  45 31 04   23 41 04   STO - 4
 70        01         01   1
 71        02         02   2
 72  45 41 06   23 51 06   STO + 6
 73  25 14 06   15 13 06   g LBL 6
 74        01         01   1
 75  45 41 06   23 51 06   STO + 6
 76     55 06      24 06   RCL 6
 77        03         03   3
 78        00         00   0
 79        63         73   .
 80        06         06   6
 81        51         61   x
 82     16 52      14 62   f INT
 83     55 04      24 04   RCL 4
 84        03         03   3
 85        06         06   6
 86        05         05   5
 87        63         73   .
 88        02         02   2
 89        05         05   5
 90        51         61   x
 91     16 52      14 62   f INT
 92        41         51   +
 93	55 05	   24 05   RCL 5           N
 94	   41	      51   +
 95	25 13	   15 12   g RTN

Register Use

R4  Y
R5  D
R6  M
R7  23,28,33
R8  N2-N1
R9  N1

GTOGo back to the software library
GTOGo back to the main exhibit hall