+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: General Forum (/forum-4.html)
+--- Thread: [VA] New update available in my HP-related site (#003) (/thread-13851.html)
[VA] New update available in my HP-related site (#003) - Valentin Albillo - 10-24-2019 12:15 AM
Hi, all:
I've uploaded a new update (#003) to my brand-new HP-related site, namely the following 8 files (which you can download for free in PDF, JPG formats):
HP Program VA712 - HP-71B Multiprecision E and its roots
- 3-page paper featuring a 5-line BASIC program I wrote in 1990 for the HP-71B which can quickly compute up to 35,500 digits of Euler’s constant e and its roots (square root, cubic root, etc.). Five worked examples are included.
SHARP Article VA001 - Know Thy Foe A New Contender
- 12-page article which describes and compares the two greatest contemporary, ground-breaking machines of the early 80's: The RPN flagship HP-41C versus the very first pocket computer, the BASIC-programmable SHARP PC-1211. Same as HP Article VA022 - Know Thy Foe A New Contender, cross-listed in category HP Articles for completeness.
HP Picture VA284 - HP28S
- This is my HP28S, a Saturn-based model, the one and only RPL model I own, 31 years old as of 2019.
SHARP Picture VA476 - SHARP PC-1475
- This is one of my SHARP PC-1475, a powerful pocket computer capable of working with double-precision values (20-digit to the user, 24-digit internally).
Other Picture VA002 - CASIO PB-2000C
- The CASIO PB-2000C is one of the rarest pocket computers, a multi-language one that included a buit-in standard (K&R) C interpreter..
And also 3 new nice fractal images produced with FractVal:
Misc Picture VA045 - Sample Mandel Type
Misc Picture VA163 - Seaside Landing Strip
Misc Picture VA232 - Derelict
That's all, next update within a week or so. Hope you enjoy them all.
V.
RE: [VA] New update available in my HP-related site (#003) - cdmackay - 10-24-2019 03:00 PM
thank you!
RE: [VA] New update available in my HP-related site (#003) - Valentin Albillo - 10-28-2019 09:04 PM
.
Hi, cdmackay:
(10-24-2019 03:00 PM)cdmackay Wrote: thank you!
You're welcome, thanks for your appreciation.
New update (#004) coming next Wednesday Oct, 30th.
Regards.
V.
RE: [VA] New update available in my HP-related site (#003) - Ángel Martin - 10-29-2019 05:27 AM
(10-28-2019 09:04 PM)Valentin Albillo Wrote: New update (#004) coming next Wednesday Oct, 30th.
Will it be by any chance some material from the Australian Technical Notes?
ÁM
RE: [VA] New update available in my HP-related site (#003) - Valentin Albillo - 10-29-2019 06:54 AM
.
Hi, Ángel:
(10-29-2019 05:27 AM)Ángel Martin Wrote:(10-28-2019 09:04 PM)Valentin Albillo Wrote: New update (#004) coming next Wednesday Oct, 30th.
Will it be by any chance some material from the Australian Technical Notes?
Well, I intend to upload to my site all my materials so eventually all my many contributions submitted to (and duly published in) the superb Australian Technical Notes magazine will get there. Eventually.
In the meantime, I think all ATN issues are collected in some CD or other, behind a paywall.
Did you have some specific materials in mind ? I'd be happy to oblige (se aceptan peticiones del oyente).
Best regards.
V.
RE: [VA] New update available in my HP-related site (#003) - Ángel Martin - 10-29-2019 10:57 AM
(10-29-2019 06:54 AM)Valentin Albillo Wrote: Did you have some specific materials in mind ? I'd be happy to oblige (se aceptan peticiones del oyente).
Well yes, I thought your seminal Polynomial Root Finder program could be next - as the excellent example of the approach to the subject that it was. I believe it has been adapted to several other "platforms" (41Z, 34WP, ... but it's always good to have access to the original. I don't recall by heart in which ATN issue it was first published, but it was a relatively short description that could benefit from more details and space on your new web site.
Saludos del oyente ;-)
ÁM
RE: [VA] New update available in my HP-related site (#003) - Valentin Albillo - 10-29-2019 07:28 PM
.
G'night, Ángel:
(10-29-2019 10:57 AM)Ángel Martin Wrote:(10-29-2019 06:54 AM)Valentin Albillo Wrote: Did you have some specific materials in mind ? I'd be happy to oblige (se aceptan peticiones del oyente).
Well yes, I thought your seminal Polynomial Root Finder program could be next - as the excellent example of the approach to the subject that it was. I believe it has been adapted to several other "platforms" (41Z, 34WP, ... but it's always good to have access to the original. I don't recall by heart in which ATN issue it was first published, but it was a relatively short description that could benefit from more details and space on your new web site.
Saludos del oyente ;-)
Well, Ok, I'll look for the original in my files and I'm certain to re-create it in formal paper-style form as every other program I've already uploaded, for uniformity.
The recreation process will surely involve enhancements to the description and extra details as well as new examples, and it might be possible that I find another different program (different approach) that I never submitted for publication.
The caveat is, the way I proceed to create these papers I must first type the original program listing (quite faded by now) into Word, which is very cumbersome and time-consuming when the listing is long, as in this case, and then I must type the program straight from Word into some HP-41C emulator to run the examples and make sure it's correctly loaded.
This takes a lot of time and I must first get some good HP-41CV/CX emulator which I don't presently have because all the ones I had in my two pc's got lost when both machines unexpectedly died. The only one I have right now is a freeware go41-or -whatever emulator for Android, which just emulates a barebones, 64 reg. HP-41C at its original speed or even slower, and I can't load any of the two Polynomial Root Finders into that.
Of course I do have a physical HP-41CX but it's mint, currently stored in a thermo-sealed PVC bag, and I hesitate to bring it out of it and subject it to lots of wear'n'tear, plus I'd need to get some N-size batteries for it, which is not that easy where I live.
Anyway, I'll have to deal with this problem sooner rather than later so I'll see what I can do. Ideally, I would have a not-so-mint, even cosmetically battered but working HP-41C model with full normal memory (319 registers), to use it to try and check this program and all others that I intend to "refurbish" and upload. That failing, a decent emulator will have to do.
Thanks for your interest and kind words.
Best regards.
V.
RE: [VA] New update available in my HP-related site (#003) - Ángel Martin - 10-30-2019 05:52 AM
(10-29-2019 07:28 PM)Valentin Albillo Wrote: The caveat is, the way I proceed to create these papers I must first type the original program listing (quite faded by now) into Word, which is very cumbersome and time-consuming when the listing is long, as in this case, and then I must type the program straight from Word into some HP-41C emulator to run the examples and make sure it's correctly loaded.
Here's the 41Z version (only slight modification of the original), I trust it should help with that:
Code:
LBL "ZPROOT"
"DEGREE=?"
PROMPT
STO Z(1)
ST+ X(3)
11
+
X>Y?
PSIZE
RCL Z(1)
STO 00
STO 03
9,008
+
STO 01
STO 05
X<>Y
E
-
STO 02
STO 06
FIX 0
CF 29
LBL 05
"IM^RE("
ARCL 03
>")=?"
PROMPT
STO IND 05
X<>Y
STO IND 06
DSE 03
X<>Y
DSE 06
DSE 05
GTO 05
RCL 03
LBL 06
CF 00
CHS
STO 04
FIX 3
RND
FIX 6
X#0?
GTO 01
SIGN
STO 04
LBL 01
RCL 00
STO 08
SF 01
XEQ 11
R-P
1/X
STO 07
X<>Y
CHS
STO 08
CF 01
XEQ 11
ZENTER^
RCL 08
RCL 07
P-R
Z*
ST- 03
X<>Y
ST- 04
ZRND
Z#0?
GTO 01
FIX 0
"FOUND ROOT#"
ARCL 00
AVIEW
SF 00
XEQ 11
E
ST+ 05
ST+ 06
E-3
ST+ 01
RCL 03
STO IND 05
RCL 04
STO IND 06
DSE 00
GTO 06
TONE 5
RCL 01
INT
E1
-
E3
/
ST- 05
FIX 3
SF 21
LBL 10
ISG 00
Text-0
RCL IND 06
RCL IND 05
ZAVIEW
DSE 06
DSE 05
GTO 10
CF 21
SF 29
RTN
LBL 11
RCL 01
STO 05
RCL 02
STO 06
FC? 01
GTO 13
E-9
ST+ 05
LBL 13
RCL IND 06
RCL IND 05
FC? 01
GTO 02
RCL 08
ST* Z(1)
*
DSE 08
GTO 02
RTN
LBL 00
ZENTER^
RCL 04
RCL 03
Z*
RCL IND 05
FS? 01
RCL 08
FS? 01
*
+
FS? 00
STO IND 05
X<>Y
RCL IND 06
FS? 01
RCL 08
FS? 01
*
+
FS? 00
STO IND 06
X<>Y
FS? 01
DSE 08
LBL 02
DSE 06
DSE 05
GTO 00
END