HP41: how to use "Solve" from Math module in another programm?

[floppy]

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

[BillBee]

Hey Floppy,

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

-B

[floppy]

(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

[Ángel Martin]

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.

[floppy]

(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

[AndiGer]

(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

[Ángel Martin]

(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

[floppy]

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".

[Ángel Martin]

Attached is a ZIP file with the SandMath44 and Library#4 MODS - you can plug them on V41.

[floppy]

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