Threaded Mode | Linear Mode

wojtek · (This post was last modified: 05-18-2016 09:07 PM by wojtek.)

Cleaninig my old papers (and throwing them away) I came a few days ago across my old notes about HP-25 programs I found years ago in "Electronics" magazine (published till 1990 according to Wikipedia, impossible to find any archives in the internet):
1. "HP-25 finds maneuverability constraints for large cabinets" by Robert P.Owen
Electronics, June 8, 1978, page 150.
2. "HP-25 analyzes spectrum of oscilloscope waveforms" by Alan D.Wilcox
Electronics, February 3, 1977, page 119.
Unfortunately that is all I know about these programs. I have no any listings either.
The 1st one would be useful as I am planning to move to a new location (moving cupboards, desks and etc).
Does anybody know where to find them?
Or maybe someone knows about other programs in these topics? A code for any HP calculator would do.

SlideRule · 05-19-2016, 02:20 PM

(05-18-2016 09:04 PM)wojtek Wrote: ... old notes about HP-25 programs I found years ago in "Electronics" magazine (published till 1990 according to Wikipedia, impossible to find any archives in the internet): ... Electronics, June 8, 1978, page 150. ... Electronics, February 3, 1977, page 119. ... Does anybody know where to find them?

One source for this publication follows:
Electronics magazine
Although these archives do NOT yet cover the time reference of your interest, it IS an archive for the desired publication. Maybe in the future?

BEST!
SlideRule

TASP · 05-19-2016, 03:27 PM

Gotta be a sparky hoarder reading posts here with just the issues you're looking for in an old roaster pan beneath a crate of phone books next to the stack of old bread makers under the stairs in the basement.

Smile

Dave Frederickson · (This post was last modified: 05-19-2016 03:35 PM by Dave Frederickson.)

There are lots of articles listed in the Periodical Guide for Computerists, including the one on moving cabinets in the '78 issue.

Dieter · (This post was last modified: 05-19-2016 05:45 PM by Dieter.)

(05-19-2016 03:34 PM)Dave Frederickson Wrote: There are lots of articles listed in the Periodical Guide for Computerists, including the one on moving cabinets in the '78 issue.

The other program is mentioned in the 1977 issue (p. 8, "Program Analyzes Spectrum of Oscilloscope Waveforms (HP-25)").
But in both cases it's just a pointer to the original magazine articles.

Dieter

wojtek · 05-19-2016, 09:34 PM

Thank you all for your responses (tasp as well, although I do not understand what is so funny in my post).
I'm afraid that "periodical guide" contains an index only, do not understand the purpose of such an index without links to the articles. I tried to find this magazine at our technical university library but they do not have it either.
Interesting, it happens to me regularly, if I throw away something what seems to be of no value at the moment I will certainly look for it in the future :-) (another Murphies' law?)

TASP · 05-20-2016, 03:47 AM

I was poking gentle fun at possibly some of the other posters here.

Including me.

I have Sci Am back to the early 80's, Science News back a few years before that. I think I have almost all the Astronomy magazines going back to their first one in 73 and I had quite a pile of Popular Electronics, but they were lost a couple of moves ago.

But I don't have the ones you want, sorry.

toml_12953 · 05-20-2016, 05:39 PM

(05-18-2016 09:04 PM)wojtek Wrote: Cleaninig my old papers (and throwing them away) I came a few days ago across my old notes about HP-25 programs I found years ago in "Electronics" magazine (published till 1990 according to Wikipedia, impossible to find any archives in the internet):
1. "HP-25 finds maneuverability constraints for large cabinets" by Robert P.Owen
Electronics, June 8, 1978, page 150.
2. "HP-25 analyzes spectrum of oscilloscope waveforms" by Alan D.Wilcox
Electronics, February 3, 1977, page 119.
Unfortunately that is all I know about these programs. I have no any listings either.
The 1st one would be useful as I am planning to move to a new location (moving cupboards, desks and etc).
Does anybody know where to find them?
Or maybe someone knows about other programs in these topics? A code for any HP calculator would do.

I remember the first article you mentioned (maneuverability). At the time those were published, I had an SR-52 and a TI-59 so I converted the programs for use with the 59. I kept the usage instructions the same. If it would be any use to you, I could post a copy. AOS is very simple to understand and the program didn't use any tricks so the port was straightforward. It should be just as easy to port it back.

Tom L

wojtek · 05-21-2016, 03:04 AM

(05-20-2016 05:39 PM)toml_12953 Wrote: I remember the first article you mentioned (maneuverability). At the time those were published, I had an SR-52 and a TI-59 so I converted the programs for use with the 59. I kept the usage instructions the same. If it would be any use to you, I could post a copy. AOS is very simple to understand and the program didn't use any tricks so the port was straightforward. It should be just as easy to port it back.

Tom L

Yes, sure, please post. Have you maybe math formulae which were at the background of this program? I tried to restore it from scratch but it turned out to be too complicated although the problem looks simple on paper.
I have 2 big lab tables in my "home lab" which I assembled myself in the room, quite heavy and difficult to disassemble so I would prefere to move them as a whole without disassembling if possible. Thank you.

toml_12953 · (This post was last modified: 05-22-2016 10:29 PM by toml_12953.)

(05-21-2016 03:04 AM)wojtek Wrote:
(05-20-2016 05:39 PM)toml_12953 Wrote: I remember the first article you mentioned (maneuverability). At the time those were published, I had an SR-52 and a TI-59 so I converted the programs for use with the 59. I kept the usage instructions the same. If it would be any use to you, I could post a copy. AOS is very simple to understand and the program didn't use any tricks so the port was straightforward. It should be just as easy to port it back.

Tom L

Yes, sure, please post. Have you maybe math formulae which were at the background of this program? I tried to restore it from scratch but it turned out to be too complicated although the problem looks simple on paper.
I have 2 big lab tables in my "home lab" which I assembled myself in the room, quite heavy and difficult to disassemble so I would prefere to move them as a whole without disassembling if possible. Thank you.

Maximum Cabinet Width by Robert P. Owen - Electronics Magazine June 6, 1978
Instructions:
Enter Corridor Width, Press A
Enter Door Passage, Press B
Enter Wall Thickness, Press C
Enter Cabinet Length (max cabinet width will display), Press E
Display angle necessary x<->t
Notes:
x<->t means swap display register with test register, t
A test such as x>=t is followed by a two step address to branch to if the test is true.
Op 24 means increment register 4 (Op 2x increments register x)

Code:

000 LBL 

001 A

002 STO 

003 01

004 R/S

005 LBL 

006 B

007 STO 

008 02

009 R/S

010 LBL 

011 C

012 STO 

013 03

014 R/S

015 LBL 

016 E

017 STO 

018 00

019 3

020 0

021 STO 

022 04

023 RCL 

024 01

025 STO 

026 05

027 Op 

028 24

029 RCL

030 02

031 *

032 RCL

033 04

034 SIN

035 -

036 RCL

037 00

038 *

039 RCL

040 04

041 SIN

042 *

043 RCL

044 04

045 COS

046 +

047 RCL

048 01

049 *

050 RCL

051 04

052 COS

053 =

054 x<->t

055 RCL

056 05

057 INV

058 x>=t

059 00

060 81

061 x<->t

062 STO

063 05

064 RCL

065 00

066 *

067 RCL

068 04

069 SIN

070 =

071 x<->t

072 RCL

073 01

074 +

075 RCL

076 03

077 =

078 x>=t

079 00

080 27

081 RCL

082 04

083 x<->t

084 RCL

085 05

086 R/S

Tom L

Dieter · (This post was last modified: 05-22-2016 08:43 PM by Dieter.)

(05-21-2016 04:12 PM)toml_12953 Wrote: Instructions:
Enter Corridor Width, Press A
Enter Door Passage, Press B
Enter Wall Thickness, Press C
Enter Cabinet Length (max cabinet width will display), Press D
Display angle necessary x<->t

Could you provide an example here?
And is "Press D" supposed to mean "Press E"? There is no label D, but a label E exists.

(05-21-2016 04:12 PM)toml_12953 Wrote: A test such as x>=t is followed by a two step address to branch to if the test is true.

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

024  Op

025  24

026  RCL

027  02

028  *

029  RCL

030  04

031  SIN

032  -

033  RCL

034  00

035  *

036  RCL

037  04

038  SIN

039  *

040  RCL

041  04

042  COS

043  +

044  RCL

045  01

046  *

047  RCL

048  04

049  COS

050  =

051  x<->t

052  RCL

053  05

054  INV

055  x>=t

056  0

057  81     ??? sure ????

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 ????

078  RCL

079  04

080  x<->t

081  RCL

082  05

083  R/S

Dieter

wojtek · (This post was last modified: 05-22-2016 10:29 PM by wojtek.)

(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

toml_12953 · (This post was last modified: 05-22-2016 10:26 PM by toml_12953.)

(05-22-2016 07:53 PM)Dieter Wrote:
(05-21-2016 04:12 PM)toml_12953 Wrote: Instructions:
Enter Corridor Width, Press A
Enter Door Passage, Press B
Enter Wall Thickness, Press C
Enter Cabinet Length (max cabinet width will display), Press D
Display angle necessary x<->t

Could you provide an example here?
And is "Press D" supposed to mean "Press E"? There is no label D, but a label E exists.

(05-21-2016 04:12 PM)toml_12953 Wrote: A test such as x>=t is followed by a two step address to branch to if the test is true.

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.

You're right. It should be E instead of D and the jump is to 81 (RCL 04....) I've updated the original listing. It now matches what I have in the written copy I made. Sorry, folks!

Tom L

Dieter · (This post was last modified: 05-23-2016 01:25 PM by Dieter.)

(05-22-2016 10:12 PM)toml_12953 Wrote: You're right. It should be E instead of D and the jump is to 81 (RCL 04....) I've updated the original listing. It now matches what I have in the written copy I made. Sorry, folks!

Fine, thank you (the problem obviously were the two-step labels on a single line in the listing).

Finally, could you provide an example that shows which input should yield which output?

Dieter

SlideRule · (This post was last modified: 06-14-2016 10:56 PM by SlideRule.)

(05-18-2016 09:04 PM)wojtek Wrote: ... HP-25 programs ... in "Electronics" magazine ... HP-25 finds maneuverability constraints for large cabinets ... HP-25 analyzes spectrum of oscilloscope waveforms ... I have no any listings ... Does anybody know where to find them? ...

My archives are more extensive than my motivation, but for the patient, see [attachment=3674] & [attachment=3675]
the two attachments above.

BEST!
SlideRule

wojtek · 06-15-2016, 06:22 AM

Thank you SlideRule, it was a nice surprise!