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.

Remarks:

• The birthdate and biodate must be between January 1, 1901, and December 31, 2099.
• The format for input of dates is MM.DDYYYY. For example, June 3, 1976, is keyed in as 6.031976. The program does not check input data. Thus, if an improper format or an invalid date (e.g., February 30) is keyed in, erroneous answers may result.
• This program sets the angular mode to radians (RAD).

Instructions

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   ×
 26     25 63      15 73   g π
 27        51         61   ×
 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   ×               ***
 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   ×
 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   ×               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   ×
 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   ×
 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

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