Biorhythms for the HP-41

Overview
 

 1°)  7 Biorhythms
 2°)  Planetary Biorhythms
 
 

1°)  7 Biorhythms
 

-This program displays 7 biorhythms: physical, emotional, intellectual, intuitive, esthetic, self-awareness, spiritual.
-It uses 7 cycles: 23  28  33  38  43  48  53 days respectively.
 
 

Data Registers:     R00: temp             R08 = age expressed in days      R09 = day of birth     R10 = time of birth

                                R01: physical         R03: intellectual     R05: esthetic               R07: spiritual
                                R02: emotional      R04: intuitive          R06: self-awareness

Flag:  F22
Subroutines: /
 
 
 

 
      ( 144 bytes / SIZE 011 )
 
 

 
Example:    Assuming you were born on  07/07/1984  at  16h41m   and  lines 28-30  are executed on 01/01/2019  at  23h45m

    XEQ "BIO"    >>>>    "DOBIRTH^TIME"

      7.071984     ENTER^
         16.41            R/S           >>>>      -86-74-96+12-39+47-86

-So   physical       = -86%
        emotional     = -74%
        intellectual    = -96%
          intuitive      = +12%
          esthetic      = -39%
    self-awareness = +47%
         spiritual       = -86%

-Press the backarrow key:       X = -46.1091 % = average biorhythm        X<>Y      your age = 12596.2944  days
 

Notes:

-The date must be expressed in the current format  ( DMY or MDY )
-Press R/S without any digit entry if the day & time of birth are already stored in R09 & R10.
-If you always use the same day & time of birth, replace lines 28 & 30 by these values and delete lines 02 to 10

-If you don't have a TIME module, you can use a subroutine like "J0" ( cf "Julian & Gregorian Calendars for the HP41" )
-In this case, the time of birth is not taken into account.

-The results are still in the alpha "register" when the program stops.
-And with a better precision in R01 thru R07
 

2°)  Planetary Biorhythms
 

-"BIOPL" calculates the cosines of the differences between the heliocentric longitudes of the planets ( and the Moon ) and the heliocentric longitude of the Earth.
-The precision is very low...
 
 
 

Data Registers:   R00 = Time in century since 2000/01/01 0h TT            R10 & R11: temp

                              R01 = Mercury longitude           R04 = Mars longitude             R07 = Uranus longitude
                              R02 = Venus longitude              R05 = Jupiter longitude            R08 = Neptune longitude
                              R03 = Earth longitude                R06 = Saturn longitude            R09 = Moon longitude

Flag:  F10 is cleared
Subroutines: /
 
 
 
 

 
         ( 466 bytes / SIZE 012 )
 
 

   where Date must be expressed in the current format ( MDY or DMY )
     and     L_E = heliocentric longitude of the Earth in decimal degree.

Example:    On  01/01/2019  at  23h45m

     1.012019  ENTER^
         23.45    XEQ "BIOPL"   >>>>   -24.1129 ( % )

  and the HP41 displays the alpha "register"    -61+76-69+51-82-E2+35-43    meaning:

    Mercury   -61%          Mars     +51%           Uranus   +35%
    Venus      +76%          Jupiter   -82%           Neptune  -43%
    Moon       -69%          Saturn  -100%

-And we find the heliocentric longitudes in R01 thru R09:

    Mercury     228°63           Mars       42°21          Uranus      31°68
    Venus        141°97           Jupiter    246°85          Neptune  345°67
    Earth          101°31           Saturn    281°66          Moon      234°61
 

Notes:

-During the execution of the program, R03 = longitude of the Moon
-Lines 260 to 262 exchanges R03 & R09

-Since the alpha register can only contain 24 characters, 100 is displayed E2

-The heiocentric longitudes are referred to the mean ecliptic of the date
-In the example above, the correct values are:

    Mercury     228°58           Mars       42°24          Uranus      31°32
    Venus        141°91           Jupiter    246°83          Neptune  345°78
    Earth          101°27           Saturn    281°53          Moon      235°11

-Of course, this program was just written for the fun...