Post Reply 
(HP-65) bioritmisch programma
11-23-2018, 03:35 PM (This post was last modified: 11-23-2018 03:36 PM by SlideRule.)
Post: #1
(HP-65) bioritmisch programma
A little late for the 2018 HHC … took a little while to retrieve …
[attachment=6621]
ELEKTUUR 163 (mei 1977) pg-59

BEST!
SlideRule
Find all posts by this user
Quote this message in a reply
11-24-2018, 08:59 PM
Post: #2
RE: (HP-65) bioritmisch programma
I see a few downloads … any comments … more … stop ?

SlideRule
Find all posts by this user
Quote this message in a reply
11-25-2018, 04:42 PM (This post was last modified: 11-25-2018 08:51 PM by Dieter.)
Post: #3
RE: (HP-65) bioritmisch programma
(11-24-2018 08:59 PM)SlideRule Wrote:  I see a few downloads … any comments … more … stop ?

I see only one page (the listing) of an obviously several page article in a Dutch magazine. May I ask if you also have the rest of it?

The program uses a somewhat cumbersome method for calculating the number of days from a date. And I assume the "usual formula" would also be significantly shorter, at least in the simplified version for the period from March 1900 to February 2100. Maybe the author was not aware of this method.

Finally, it looks like the program does not calculate the biorhythm. Instead it seems to return the day within a 23-, 28- and 33-days period. Maybe this was not possible dues to the 100-step limit. I think it could be done if the usual date-to-day-formula was used.

Edit: I do not have a HP65 to check it but I tried a biorhythm program based on the standard day-to-date formula. It required less than 90 steps.

Dieter
Find all posts by this user
Quote this message in a reply
11-25-2018, 05:13 PM (This post was last modified: 11-25-2018 05:42 PM by SlideRule.)
Post: #4
RE: (HP-65) bioritmisch programma
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.

In this article, a program is given for the programmable calculator HP-65 that the 'state' of a person can be declared on any given day, and even predicted.

BEST!
SlideRule
Find all posts by this user
Quote this message in a reply
11-25-2018, 07:28 PM (This post was last modified: 11-25-2018 07:33 PM by Dieter.)
Post: #5
RE: (HP-65) bioritmisch programma
(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
Find all posts by this user
Quote this message in a reply
11-25-2018, 08:04 PM
Post: #6
RE: (HP-65) bioritmisch programma
(11-25-2018 07:28 PM)Dieter Wrote:  As already mentioned I do not own an HP65. Maybe someone else can try the following program:

Here's a microcode emulator for the first ever pocket programmable calculator: HP-65

Kind regards
Thomas
Find all posts by this user
Quote this message in a reply
11-25-2018, 08:21 PM
Post: #7
RE: (HP-65) bioritmisch programma
(11-25-2018 08:04 PM)Thomas Klemm Wrote:  Here's a microcode emulator for the first ever pocket programmable calculator: HP-65

Thank you. It's a bit cumbersome to use – looks like "mouse only" – but it seems to work. I usually do such things on the Panamatik emulators which I really like, especially the HP67. But the HP65 version seems to have several bugs, so I could not test the program that way.

Dieter
Find all posts by this user
Quote this message in a reply
11-25-2018, 08:50 PM
Post: #8
RE: (HP-65) bioritmisch programma
(11-25-2018 07:28 PM)Dieter Wrote:  Thank you very much for the link … You said you have no intention to improve such programs – I do. ;-) … Dieter
I appreciate the revision(s) of others & do NOT disdain the same. I also improve programs, but as a secondary interest to this archive. At the present, I'm investigating the interest of the members to other-than-english programs for RPN / HP calculators.

Thanks Daniel-Pedro for the feedback on the HP-25 collection in French.

Thanks Dieter for the current feedback.

Any interest in particular, drop a hint, I'll endeavor to accommodate.

BEST!
SlideRule
Find all posts by this user
Quote this message in a reply
11-25-2018, 10:07 PM
Post: #9
RE: (HP-65) bioritmisch programma
(11-25-2018 08:21 PM)Dieter Wrote:  It's a bit cumbersome to use – looks like "mouse only" – but it seems to work.
You can paste a program if you press the display to get a menu of options.
But you have to use the correct key codes. The written commands are only comments.
So all I had to do was to rearrange your columns:
Code:
PROG
100
001: 23    : LBL
002: 11    : A
003: 14    : D
004: 33 01 : STO 1
005: 44    : CLx
006: 24    : RTN
007: 23    : LBL
008: 12    : B
009: 14    : D
010: 34 01 : RCL 1
011: 51    : -
012: 33 02 : STO 2
013: 24    : RTN
014: 23    : LBL
015: 13    : C
016: 21    : DSP
017: 83    : .
018: 02    : 2
019: 35    : g
020: 41    : DEG
021: 02    : 2
022: 03    : 3
023: 15    : E
024: 84    : R/S
025: 02    : 2
026: 08    : 8
027: 15    : E
028: 84    : R/S
029: 03    : 3
030: 03    : 3
031: 23    : LBL
032: 15    : E
033: 34 02 : RCL 2
034: 35 07 : g x<>y
035: 81    : /
036: 32    : f-1
037: 83    : INT
038: 03    : 3
039: 06    : 6
040: 00    : 0
041: 71    : x
042: 31    : f
043: 04    : SIN
044: 43    : EEX
045: 02    : 2
046: 71    : x
047: 24    : RTN
048: 00    : 0
049: 81    : /
050: 23    : LBL
051: 14    : D
052: 35 07 : g x<>y
053: 03    : 3
054: 35 22 : g x<=y
055: 22    : GTO
056: 01    : 1
057: 35 08 : g Rv
058: 01    : 1
059: 02    : 2
060: 61    : +
061: 35 07 : g x<>y
062: 01    : 1
063: 51    : -
064: 35 07 : g x<>y
065: 41    : ENTER
066: 23    : LBL
067: 01    : 1
068: 35 08 : g Rv
069: 01    : 1
070: 61    : +
071: 03    : 3
072: 00    : 0
073: 83    : .
074: 06    : 6
075: 71    : x
076: 31    : f
077: 83    : INT
078: 35 07 : g x<>y
079: 03    : 3
080: 06    : 6
081: 05    : 5
082: 83    : .
083: 02    : 2
084: 05    : 5
085: 71    : x
086: 31    : f
087: 83    : INT
088: 61    : +
089: 61    : +
090: 24    : RTN
091: 35 01 : g NOP
092: 35 01 : g NOP
093: 35 01 : g NOP
094: 35 01 : g NOP
095: 35 01 : g NOP
096: 35 01 : g NOP
097: 35 01 : g NOP
098: 35 01 : g NOP
099: 35 01 : g NOP
100: 35 01 : g NOP
CARD
6
Title: 
A: 
B: 
C: 
D: 
E: 
HELP
1

END

You should be able to run your program now.

Kind regards
Thomas
Find all posts by this user
Quote this message in a reply
11-25-2018, 10:43 PM
Post: #10
RE: (HP-65) bioritmisch programma
(11-25-2018 10:07 PM)Thomas Klemm Wrote:  You can paste a program if you press the display to get a menu of options.
But you have to use the correct key codes. The written commands are only comments.
So all I had to do was to rearrange your columns:
(...)
You should be able to run your program now.

Great - thank you very much. Indeed it worked, and the program seems to run as intended. Looks like a very nice emulator.
Maybe Bernhard ("Panamatik") can adopt the card labelling feature for his emulators. ;-)

Dieter
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)