Post Reply 
Looking for HP-25 programs
05-22-2016, 09:41 PM (This post was last modified: 05-22-2016 10:29 PM by wojtek.)
Post: #12
RE: Looking for HP-25 programs
(05-22-2016 07:53 PM)Dieter Wrote:  Are you sure the jump targets (line 027 and 081) are correct? The former points to the "2" of a RCL 02 command, and instead of the latter line 078 (RCL 04) would make more sense. But maybe I'm wrong here.

Here is a listing with line numbers so that you can see why I'm asking:

Code:
000  LBL
001  A
002  STO
003  01
004  R/S
005  LBL B
006  STO
007  02
008  R/S
009  LBL C
010  STO
011  03
012  R/S
013  LBL E
014  STO
015  00
016  3
017  0
018  STO
019  04
020  RCL
021  01
022  STO
023  05
//    AA1   .............. 1st jump here?
024  Op
025  24
026  RCL
027  02
028  *
029  RCL
030  04
031  SIN        // Door x sin(a)
032  -
033  RCL
034  00
035  *
036  RCL
037  04
038  SIN
039  *
040  RCL
041  04
042  COS      // - CabinetLength x sin(a) x cos(a)
043  +
044  RCL
045  01
046  *
047  RCL
048  04
049  COS
050  =         // + Corridor x cos(a)
051  x<->t
052  RCL
053  05
054  INV
055  x>=t
056  0
057  81     ??? sure ????   //   jump to AA2 from here
058  x<->t
059  STO
060  05
061  RCL
062  00
063  *
064  RCL
065  04
066  SIN
067  =
068  x<->t
069  RCL
070  01
071  +
072  RCL
073  03
074  =
075  x>=t
076  0
077  27     ??? sure ????   // jump to AA1 from here
//   AA2 second jump here 
078  RCL
079  04
080  x<->t
081  RCL
082  05
083  R/S

Dieter

Yes, I saw this as well, my guesses are marked on the listing.
As the correct port is impossible without checking on both machines, TI 59, and my 41C and as I was ashamed to ask Tom for more, I just restored the math formulae from the code.
They are something like this:
Cw = Dw x sin(a) - Cl x sin(a) x cos(a) + CorridorW x cos(a)
where:
Cw - cabinet width, Dw - door width, Cl - cabinet length, a - angle
I do not understand the code with the wall thickness, but the formula above, if correct, would be enough for my needs even without that wall thickness.
Anyway the orignal author is very good in math, at least much better than me as I still do not understand how he came to this formula
Thank you all

PS. And yet the drawing to illustrate the problem


Attached File(s) Thumbnail(s)
   
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Looking for HP-25 programs - wojtek - 05-18-2016, 09:04 PM
RE: Looking for HP-25 programs - SlideRule - 05-19-2016, 02:20 PM
RE: Looking for HP-25 programs - TASP - 05-19-2016, 03:27 PM
RE: Looking for HP-25 programs - Dieter - 05-19-2016, 05:45 PM
RE: Looking for HP-25 programs - wojtek - 05-19-2016, 09:34 PM
RE: Looking for HP-25 programs - TASP - 05-20-2016, 03:47 AM
RE: Looking for HP-25 programs - wojtek - 05-21-2016, 03:04 AM
RE: Looking for HP-25 programs - Dieter - 05-22-2016, 07:53 PM
RE: Looking for HP-25 programs - wojtek - 05-22-2016 09:41 PM
RE: Looking for HP-25 programs - Dieter - 05-23-2016, 01:22 PM
RE: Looking for HP-25 programs - SlideRule - 06-14-2016, 09:46 PM
RE: Looking for HP-25 programs - wojtek - 06-15-2016, 06:22 AM



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