(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
 SlideRule Senior Member Posts: 911 Joined: Dec 2013
(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
11-24-2018, 08:59 PM
Post: #2
 SlideRule Senior Member Posts: 911 Joined: Dec 2013
RE: (HP-65) bioritmisch programma

SlideRule
11-25-2018, 04:42 PM (This post was last modified: 11-25-2018 08:51 PM by Dieter.)
Post: #3
 Dieter Senior Member Posts: 2,398 Joined: Dec 2013
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
11-25-2018, 05:13 PM (This post was last modified: 11-25-2018 05:42 PM by SlideRule.)
Post: #4
 SlideRule Senior Member Posts: 911 Joined: Dec 2013
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
11-25-2018, 07:28 PM (This post was last modified: 11-25-2018 07:33 PM by Dieter.)
Post: #5
 Dieter Senior Member Posts: 2,398 Joined: Dec 2013
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
11-25-2018, 08:04 PM
Post: #6
 Thomas Klemm Senior Member Posts: 1,448 Joined: Dec 2013
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
11-25-2018, 08:21 PM
Post: #7
 Dieter Senior Member Posts: 2,398 Joined: Dec 2013
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
11-25-2018, 08:50 PM
Post: #8
 SlideRule Senior Member Posts: 911 Joined: Dec 2013
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
11-25-2018, 10:07 PM
Post: #9
 Thomas Klemm Senior Member Posts: 1,448 Joined: Dec 2013
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.
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
11-25-2018, 10:43 PM
Post: #10
 Dieter Senior Member Posts: 2,398 Joined: Dec 2013
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.
(...)
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
 « Next Oldest | Next Newest »

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