Post Reply 
HP41: how to use "Solve" from Math module in another programm?
08-25-2021, 02:59 PM
Post: #1
HP41: how to use "Solve" from Math module in another programm?
Hello,
the program below prompt 3 times in "SOLVE". How to make it working automatic = no prompt but it would take the data from ALPHA and X automatically?
Any advice is welcome.

LBL "IGAM00"
XEQ "SOLVE"
"ZWFF"
0.000000001
1.461632144
RTN
LBL "ZWFF"
XEQ "GAMMA"
2.5
-
RTN
END

HP71 4TH/ASM & Multimod, HP41CV/X & Nov64d, PILBOX, HP-IL 821.62A & 64A & 66A, Deb11 64b-PC & PI2 3 4 w/ ILPER, VIDEO80, V41 & EMU71, DM41X, HP75D
Find all posts by this user
Quote this message in a reply
08-25-2021, 03:50 PM
Post: #2
RE: HP41: how to use "Solve" from Math module in another programm?
Hey Floppy,

Did you check out Appendix B for calling "SOL" as a sub? Page 59.

-B
Find all posts by this user
Quote this message in a reply
08-25-2021, 04:06 PM (This post was last modified: 08-26-2021 08:27 AM by floppy.)
Post: #3
RE: HP41: how to use "Solve" from Math module in another programm?
(08-25-2021 03:50 PM)BillBee Wrote:  Did you check out Appendix B for calling "SOL" as a sub? Page 59.
Ah. Obviously not. Understood now. Thanks a lot. See the result below.
The reverse gamma "IGAM00" works "a bit": takes much of time. I will have to find a better one.
(reverse gamma "IGAM00" is for the area positive x between 0.0001 and the minimum at approx 1.461)
Quote:LBL "IGAM00"
STO 07
0.0001
STO 01
1.461
STO 02
"ZWFF"
ASTO 06
XEQ "SOL"
RTN
LBL "ZWFF"
XEQ "GAMMA"
RCL 07
-
RTN
END

in other area for example for x> 1.461 (see from page 27) there are more precise approximations
https://ir.lib.uwo.ca/cgi/viewcontent.cg...ontext=etd

HP71 4TH/ASM & Multimod, HP41CV/X & Nov64d, PILBOX, HP-IL 821.62A & 64A & 66A, Deb11 64b-PC & PI2 3 4 w/ ILPER, VIDEO80, V41 & EMU71, DM41X, HP75D
Find all posts by this user
Quote this message in a reply
08-26-2021, 05:20 AM (This post was last modified: 08-26-2021 09:53 AM by Ángel Martin.)
Post: #4
RE: HP41: how to use "Solve" from Math module in another programm?
There's an inverse Gamma function in the SandMath module; it may be interesting to check as well.

Look for "SM44" in here.
Page #106 in the manual describes the implementation.
Find all posts by this user
Quote this message in a reply
08-26-2021, 08:31 AM (This post was last modified: 08-26-2021 09:47 AM by floppy.)
Post: #5
RE: HP41: how to use "Solve" from Math module in another programm?
(08-26-2021 05:20 AM)Ángel Martin Wrote:  There's an inverse Gamma function in the SandMath module; it may be interesting to check as well.

Look for "SM44" in here.
Page #66 in the manual describes the implementation.

Could not find. Page 66 is about statistic. Where is it?
I updated my previous post which was indicating inverse instead of reverse. And added a link explaining some research in reverse gamma.

The program in this threads needs 4.40min on V41R9F for finding 0.5 when we make 1.77245 XEQ "IGAM00".
Online calculator (for gamma) is there https://keisan.casio.com/exec/system/1180573444

HP71 4TH/ASM & Multimod, HP41CV/X & Nov64d, PILBOX, HP-IL 821.62A & 64A & 66A, Deb11 64b-PC & PI2 3 4 w/ ILPER, VIDEO80, V41 & EMU71, DM41X, HP75D
Find all posts by this user
Quote this message in a reply
08-26-2021, 08:56 AM
Post: #6
RE: HP41: how to use "Solve" from Math module in another programm?
(08-26-2021 08:31 AM)floppy Wrote:  
(08-26-2021 05:20 AM)Ángel Martin Wrote:  There's an inverse Gamma function in the SandMath module; it may be interesting to check as well.

Look for "SM44" in here.
Page #66 in the manual describes the implementation.

Could not find. Page 66 is about statistic. Where is it?
I updated my previous post which was indicating inverse instead of reverse. And added a link explaining some research in reverse gamma.

Short search ("gamma") inside the manual ... page 99ff
Find all posts by this user
Quote this message in a reply
08-26-2021, 09:54 AM
Post: #7
RE: HP41: how to use "Solve" from Math module in another programm?
(08-26-2021 08:31 AM)floppy Wrote:  
(08-26-2021 05:20 AM)Ángel Martin Wrote:  There's an inverse Gamma function in the SandMath module; it may be interesting to check as well.

Look for "SM44" in here.
Page #66 in the manual describes the implementation.

Could not find. Page 66 is about statistic. Where is it?

Pg. 106
Find all posts by this user
Quote this message in a reply
08-26-2021, 10:03 AM (This post was last modified: 08-26-2021 11:00 AM by floppy.)
Post: #8
RE: HP41: how to use "Solve" from Math module in another programm?
Thanks.
Issue: "V41 R9F" says "Nonexistent" (module SandMath uploaded). Looks like IGMMA is not in.
SandMath44 is probably in the ZIP of the CL data internet page. Will look now at this.
ROM files are in a Zip. No *SM44.mod for "V41R9F". I have to further search where it could be (advices welcome).
Remark: I am not so expert to program now my Nov64d with SMAT44.ROM from the CL homepage ZIP. Will come the next days/weeks. For now, I would preferably test all on the "V41 R9F".

HP71 4TH/ASM & Multimod, HP41CV/X & Nov64d, PILBOX, HP-IL 821.62A & 64A & 66A, Deb11 64b-PC & PI2 3 4 w/ ILPER, VIDEO80, V41 & EMU71, DM41X, HP75D
Find all posts by this user
Quote this message in a reply
08-26-2021, 05:12 PM (This post was last modified: 08-26-2021 05:13 PM by Ángel Martin.)
Post: #9
RE: HP41: how to use "Solve" from Math module in another programm?
Attached is a ZIP file with the SandMath44 and Library#4 MODS - you can plug them on V41.


Attached File(s)
.zip  LIBRARY4.zip (Size: 39.8 KB / Downloads: 10)
Find all posts by this user
Quote this message in a reply
08-27-2021, 08:35 AM (This post was last modified: 08-29-2021 06:20 PM by floppy.)
Post: #10
RE: HP41: how to use "Solve" from Math module in another programm?
Thanks.

By uploading both MOD files from the ZIP attachment (see previous post), the first try in "V41 R9F" was positive. Further tries not. We have to stay in touch.

By using "IGMMA" from Sandmath44 the calculation time is coming down to few seconds (not several minutes like "RGAM00" with "SOL" Math module; however the "SOLVE" from Advantage" is much better and my recommendation is to use it instead of "SOL" from math module).

Quote:LBL "RGAM00"
STO 07
0.0001
STO 01
1.461
STO 02
"ZWFF"
ASTO 06
XEQ "SOL" -> from Math module; use preferably "SOLVE" from Advantage
RTN
LBL "ZWFF"
XEQ "GAMMA"
RCL 07
-
RTN
END

HP71 4TH/ASM & Multimod, HP41CV/X & Nov64d, PILBOX, HP-IL 821.62A & 64A & 66A, Deb11 64b-PC & PI2 3 4 w/ ILPER, VIDEO80, V41 & EMU71, DM41X, HP75D
Find all posts by this user
Quote this message in a reply
Post Reply 




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