Equation Solver Library
Lin Liang
solver libraries, such as eql49, eqslv. I would say they are pretty
good. But none of them could call up the HP built-in equation solver
directly. For example, when you press the soft key SLV while using
eql49, the equation will be stored in variable EQ, then you need to
mannually start the builtin equation solver to solve the equation. I
thought, based on the document provided by the author, that the
equation solver screen should pop up when I press SLV. Any comments
would be appreciated. Does anyone know or have an equation library
with which you can add your own equation categories and equations, and
solve them with a friendly interface? Thanks a bunch!
Lin
Peter Karp
>Does anyone know or have an equation library
>with which you can add your own equation categories and equations, and
>solve them with a friendly interface?
John H. Meyers has written a nice UserRPL EQ-library which is of
course fully customizable. On the HP49 with the improved speed of some
commands it'll be even more fun then on the HP48.
In addition the tiny "UI" (just added a CLEAR softmenu) for the built
in SOLVR is something I use all day long. Search hpcalc for
"CleanSolver" and for John's name.
Greetings from Cologne
Peter
--
Great HP48/49 links:
http://www.hpcalc.org
http://move.to/hpkb
to find *old* postings search:
http://groups.google.com/advanced_group_search
Lin Liang
Also want to apologize for posting the same message twice. I didn't
see my post immediately, so I thought I didn't submit it.
Regards,
Lin
20...@karpfenteich.net (Peter Karp) wrote in message news:<3bdae6e...@News.CIS.DFN.DE>...
John H Meyers
> Does anyone know or have an equation library
> with which you can add your own equation categories and equations,
> and solve them with a friendly interface?
I was prompted by Peter Karp's kind recommendation to supply
a downloadable version of this old offering,
now updated for HP49G rom 1.19-6
This creates an 'EQlib' directory in your calc,
similar in operation to the original HP48S/G Equation Library,
but whereas the original HP Equation library was in ROM,
containing a fixed set of equations, this 'EQlib' directory
is made for you to create your own sets of equations in user memory.
We provide a few programs for navigating through your own
heierarchy of subjects and equations; to create your own
subjects, you may create subdirectories (samples are shown)
whose names will be the subject titles
in your library navigation menus ("choose" lists);
you may create any number of levels, if you like!
Within any level where you want to store equations, just store
the individually named equations or equation lists, as shown
(note that programs may also be used as equations!)
If you want to initialize the variables for any particular equation,
(necessary if you want to use units), create an optional extra list
with INIT appended to the equation name, as shown.
If you want a "help" screen, identifying what your variable names
mean, create a list appending VARS to your equation name, as shown.
If you have a picture to associate with your equation,
store it into an optional variable with PICT appended to the name;
if you have also installed any file-compressing library, then
self-extracting compressed picture files may also be used.
For single equations, you may customize any equation menu
by using a list for the equation itself, as described in
the HP48/49 manuals (SOLVR menu); for multiple equation sets,
you may customize equation menus using a separate list with MITM
appended to the eq. name (see the MES chapter of your Users Guide).
Use the provided CUSTOM menu [left-shift MODE] to navigate
and select equations and other functions; note that it stops
listing items in any of your personal directories wherever
it encounters a 'Stop' variable, so place all your subjects
and equations before 'Stop' and all your auxiliary files
(initializers, help lists, pictures, custom menus) after 'Stop'
(use the built-in ORDER command to re-order variables as desired).
The HP48G made the CST (Custom) menu available with one keystroke;
to regain the same "friendliness" out of your HP49G, you could
optionally swap the MODES and CUSTOM functions on your 49G:
\<< -22.2 KEYEVAL \>> 22.1 ASN @ CUSTOM -> unshifted
\<< -22.1 KEYEVAL \>> 22.2 ASN @ MODE -> left-shifted
-62. SF @ USER key assignments active
Note that a custom menu function is provided
to purge all numeric variables that have been created
within the current directory, during cumulative equation solving,
to "clean up" any temporary variables which you don't want to keep.
Alternatively, values used in solving may be kept as long as you like,
and then purged at any later time.
Somewhat nicer documentation came with the original HP48G version
(although you can not use the HP48G version in the HP49G):
http://groups.google.com/groups?selm=6klpm1%24jmo%245%40news.iastate.edu
http://groups.google.com/groups?selm=6l2sl2%24rj2%241%40news.iastate.edu
http://www.hpcalc.org/hp48/utils/misc/usreqlib.zip
To install the 'EQlib' directory, download the following
to any variable name, and then *run* it once;
finally, *discard* the original downloaded file:
%%HP: T(3)F(.); @ Start of downloadable file, using Kermit
@ User Equation Library in UserRPL (for HP49G)
DIR @ Equation library directory
@ One sample subject (you may purge it later):
Samples
DIR
@ Equations (or equation sets):
Trip 'Dist=Rate*Time'
Lamp { 'V=I*R' 'W=V^2./R' }
Prog \<< P Q * 1. - \>>
@ Stop anything else from being listed by the browser:
Stop { }
@ Optional units, help screens, custom menus, pictures, etc.:
TripINIT { '0_mi' Dist '0_mph' Rate '0_h' Time }
LampINIT { '0_V' V '0_W' W '0_A' I '0_\GW' R }
LampVARS { "V: Volts" "W: Watts" "I: Amps" "R: Ohms" }
LampMITM { "Lamp" { V W "" I R } } @ Custom menu, with title bar
@ LampPICT GROB ................ [you can add your own pictures]
END
MySubject DIR END @ Add your own addtional subjects!
@ Programs and other variables:
Stop { } @ Hide everything below from top-level browser
Solv \<< RCEQ DROP IFERR MINIT Mitm THEN 30. MENU
ELSE MSOLVR END Init \>>
Vars \<< RCEQ DROP 'EQ' RCL DUP "" + "'" ROT + "VARS" +
OBJ\-> DUP VTYPE 5. ==
{ RCL 1. CHOOSE { DROP } IFT }
{ DROP2 "No Info" DOERR } IFTE \>>
Pic \<< RCEQ DROP "'" 'EQ' RCL + PICT +
OBJ\-> { 8. 11. } OVER VTYPE POS { EVAL \->LCD 3. FREEZE }
{ DROP "No Pic" DOERR } IFTE \>>
Menu \<< DEPTH { DUP TYPE 6. \=/ } 1. IFTE { IFERR RCEQ DROP
:: EQ RCL THEN 0. END } IFT PATH DUP SIZE GET "" +
{ 5. 8. 9. 15. } TVARS 'Stop' DUP2 + SWAP POS 1. -
1. SWAP SUB IF DUP SIZE THEN ROT OVER SWAP POS 1. MAX CHOOSE
{ DUP VTYPE 15. == { EVAL Menu }
{ STEQ Solv } IFTE } IFT ELSE DROP2 DROP
"No Items" DOERR END \>>
Purg \<< { 0. 13. } TVARS { EQ Mpar } + PURGE \>>
Init \<< RCEQ DROP "'" 'EQ' RCL + "INIT" +
OBJ\-> DUP VTYPE 5. == { RCL 2. :: \<< DUP TYPE 6. ==
{ DUP Here VTYPE 0. < { DUP2 STO }
{ { 0. 13. } OVER VTYPE POS { OVER UBASE 0. * OVER RCL UBASE 0. *
SAME NOT { DUP2 RCL UVAL SWAP DUP TYPE { \->UNIT } { DROP }
IFTE OVER STO } IFT } IFT } IFTE } IFT DROP2 \>> DOSUBS }
{ DROP } IFTE \>>
Mitm \<< RCEQ DROP "'" 'EQ' RCL + "MITM" +
OBJ\-> DUP VTYPE 5. == { RCL OBJ\-> DROP MITM }
{ DROP } IFTE \>>
CST CSTM @ Use the CUSTOM menu provided below!
CSTM { { Solv \<< Solv \>> } @ Start new solver and show eq. menu
{ EQN RCEQ } @ Recall the equation (or set)
{ Vars \<< Vars \>> } @ Show optional help screen
{ Pic \<< Pic \>> } @ Display optional picture
{ Menu \<< Menu \>> } @ Choose subjects or equations
{ \|^ \<< PATH SIZE 2. > @ Go to higher level menu
@ use 2 if top-level EQLIB directory is just below HOME
@ inrease by 1 for every "deeper" level of topmost EQLIB dir.
{ PATH DUP SIZE GET UPDIR } IFT Menu \>> }
@ Press NXT to see next six custom menu items:
MSOLVR @ Directly resume the Multiple Equation Solver
{ MSopt @ Toggle MES menu modes -- see your MES manual!
\<< 63. DUP IF FS? THEN CF ELSE SF END MSOLVR \>> }
{ } { Purg \<< Purg 1. MENU \>> } @ Purge numeric variables
{ } { HCST \<< { HOME CSTM } RCL TMENU \>> } } @ Home 'CST'
END HOME 'EQlib' STO
@ SysRPL function used above :: COLA DoHere: ;
"D9D201DF604CE52B2130" #100001h LIBEVAL 'Here' STO @ HP49G only!
@ End of downloadable file
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
Roman Hartmann
thanks a lot for your work. I have already add my own equations to the
directory. Great to add unit-support (although I have still troubles to get
some equations work with some (exotic) units. I'll try to figure out but may
as well ask a question concernig this problem later.
Greetings and thanks again
Roman
"John H Meyers" <jhme...@miu.edu> schrieb im Newsbeitrag
news:3BE29606...@miu.edu...