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.
(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
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.
(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
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?)
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.
(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
(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.
(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
(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
(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
(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
(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
(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
Thank you SlideRule, it was a nice surprise!