Creating my own version of EQ library [Resolved]

[wmundstock]

Hi all.

I know how to do basic RPL programming, but have not yet tried ASM or SystemRPL.

I wanted to create my own equation library, but I wanted to use same functionality as the original EQ lib which is very good.

Would like to be able to do the following:
1. Reproduce the menu with filled vs not filled icons (see screenshot).
2. Reproduce that square box that shows the value has been input (see screenshot).
3. Reproduce the shortcut LeftShift+Menu Item to perform the calculation.

   

Is that something I can do with UserRPL? Or do I need to do it by hand in ASM/SystemRPL?

Are there any examples of others that have done it that I could base on?

Can someone please point me toward the right direction?

Thank you!

[matalog]

Have a look at these https://www.hpmuseum.org/forum/thread-18275.html

[wmundstock]

(07-21-2022 11:24 AM)matalog Wrote:  Have a look at these https://www.hpmuseum.org/forum/thread-18275.html

Thanks for the response, the thread you posted is for the HP prime. I wanted to replicate the EQ library on HP 48/50g.

[wmundstock]

I did end up finding a good source and working example.

http://edspi31415.blogspot.com/2021/07/h...r-and.html

This worked very well using the MSOLVR. The only thing I am still missing is that the MSOLVR is for multiple equations. I wanted to be able to do the same with only one.

[wmundstock]

I think I can close my own thread.
In case someone ever come here looking for the same thing, here is a sample code that has 2 SOLVE solutions, one for single equation and another for multiple equation. Just created a simple Ohm's law example to illustrate.

«
{
{"Mult"
«
{ V I R P} PURGE @clear older variables
0_V V STO @set units
0_A I STO
0_R R STO
0_W P STO
'V=I*R'
'P=V*I'
2 ->LIST STEQ MINIT @Convert to list and store equations - replace -> with actual arrow
"Ohm Law" @Show the name of the equation in the top of the screen
{V I R P} MITM @Order Variables
MSOLVR »} @Start solver

{"Singl" «
{ V I R } PURGE @clear previous vars
0_V V STO @set units
0_A I STO
0_R R STO
'V=I*R' STEQ @store equation
30 MENU @start solver
»}
} TMENU»