RCL-57

[pauln]

(05-12-2022 04:37 PM)pauln Wrote:  [...] But a full biorhythm program seems beyond its capabilities. [...]

Actually it's possible! By the way, I forgot how much fun it can be to write programs within 50 steps.

The difficulty in this case is to find out the exact number of days between 2 dates in such limited space. The program works between 1901 and 2099 which should cover most of us...

Note though the following: this program expects the user to write dates for January and February using some special convention. In general dates are written as MM.DDYYYY but, for January, MM should be 13 and, for February, MM should be 14. Also for these 2 months, the year should be 1 less than the actual year.

Instructions:

1. Key in the program
2. 0.0001 STO 4
3. 3652500 STO 5
4. 30.6 STO 6
5. Enter birthdate: MM.DDYYYY STO 1
6. Enter today's date: MM.DDYYYY STO 2
7. RST R/S
8. 23 SBR 1 returns the physical score (scores are between -1 and 1)
9. 28 SBR 1 returns the emotional score
10. 33 SBR 1 returns the intellectual score
    

Code:


# Computes the number of days between Day 1 and Day 2.
# Result will be in register 3.
RCL 2 SBR 0                       # Numbers of days until Day 2
STO 3
RCL 1 STO 2 SBR 0.                # Numbers of days until Day 1
INV SUM 3
R/S

# Computes the biorhythm for a given period.
# Number of days since birth should be in register 3.
Lbl 1
/ RCL 3 / 360 = 1/x sin R/S

# Computes the number of days until some date.
# Input should be in Register 2 with format MM.DDYYYY.
Lbl 0
INT STO 7                    # R7 = MM
INV SUM 2
2 INV log Prd 2
RCL 2 Int
STO 0                        # R0 = DD
INV SUM 2                    # R2 = 0.YYYY
RCL 4 INV SUM 2
RCL 5 Prd 2
RCL 2 Int
SUM 0                        # Add the number of days in YYYY years
3 INV SUM 7
RCL 6 Prd 7
RCL 7 + .5 = INT
SUM 0                        # Add the number of days in MM months
RCL 0
INV SBR