(HP-65) bioritmisch programma

[Dieter]

(11-25-2018 05:13 PM)SlideRule Wrote:  Dieter, thanks for the reply & the comments. My primary intent with the post is to add to the Museum archives, in toto (extant) with a secondary interest in translation / improvement to other calculators (predicated on interest). The source article is merely two pages (58 & 59) as an extract from Elektuur 163 1977-5.

Thank you very much for the link. Indeed the first page that explains the biothythm concept says that the program displays the remainder of the number of days, divided by 23, 28 or 33. The article also says that the number of days (since birth) is increased by 1 because without this the biorhythm for the day that has just passed would be determined. I'm not sure if this is correct (at least all other biorhythm programs I know of don't do so), but one day give or take should not matter much anyway.

Too bad it does not calculate the biorhythm itself. You said you have no intention to improve such programs – I do. ;-) As already mentioned I do not own an HP65. Maybe someone else can try the following program:

Code:

01  LBL    23
02  A      11
03  D      14
04  STO 1  33 01
05  CLx    44
06  RTN    24
07  LBL    23
08  B      12
09  D      14
10  RCL 1  34 01
11  -      51
12  STO 2  33 02
13  RTN    24
14  LBL    23
15  C      13
16  DSP    21
17  .      83
18  2      02
19  g      35
20  DEG    41
21  2      02
22  3      03
23  E      15
24  R/S    84
25  2      02
26  8      08
27  E      15
28  R/S    84
29  3      03
30  3      03
31  LBL    23
32  E      15
33  RCL 2  34 02
34  g x↔y  35 07
35  ÷      81
36  f-1    32
37  INT    83
38  3      03
39  6      06
40  0      00
41  x      71
42  f      31
43  SIN    04
44  EEX    43
45  2      02
46  x      71
47  RTN    24
48  0      00
49  ÷      81
50  LBL    23
51  D      14
52  g x↔y  35 07
53  3      03
54  g x≤y? 35 22
55  GTO    22
56  1      01
57  g R↓   35 08
58  1      01
59  2      02
60  +      61
61  g x↔y  35 07
62  1      01
63  -      51
64  g x↔y  35 07
65  ENTER  41
66  LBL    23
67  1      01
68  g R↓   35 08
69  1      01
70  +      61
71  3      03
72  0      00
73  .      83
74  6      06
75  x      71
76  f      31
77  INT    83
78  g x↔y  35 07
79  3      03
80  6      06
81  5      05
82  .      83
83  2      02
84  5      05
85  x      71
86  f      31
87  INT    83
88  +      61
89  +      61
90  RTN    24

The valid date range is 1 March 1900 until 28 February 2100.

Enter birthday:
day [ENTER] month [ENTER] year   [A]
=> 0

Enter target date:
day [ENTER] month [ENTER] year   [B]
=> elapsed days since birthday

Calculate biorhythm:
 [C]   => physical value [%]
[R/S] => emotional value [%]
[R/S] => intellectual value [%]

Like the original program, another [R/S] will return a flashing zero. ;-)

Does this work?

Dieter