Interchangable Solutions using Formula EVAL Module

[gjmcclure]

After posting LIBSV$ above I took another look at it and realized I didn't like having to have a different equation for each variable to be solved. Going back to the original SLV+ from the Interchangable Solutions, I realized that FROOT still needs to be called. But a couple things can be done to make equation entry easier... so here is the revised routines.

FROOT can either be from SIROM or from SMATH modules. In fact you can still use the SLV+ from interchangeable solutions, but I added a couple labels to allow entry of a different equation (LBL F), and easy exit with restore of user key assignments (LBL J). However, the user equations need to be written differently to take advantage of EVAL$. Here are the revised routines:

Quote:01 LBL "SLVEQ$"
02 SF 27 ' SET USER MODE
03 CLX ' CLEAR KEY ASSIGNMENTS FOR TOP TWO ROWS
04 LKAX

05 LBL F ' NEW EQUATION RESTART
06 "EQ NAME: " ' GET EQUATION (6 CHARS OR LESS)
07 PMTA
08 ASTO 06 ' STORE IN 6

09 LBL 01
10 CF 04
11 CF 05
12 SF 06
13 XEQ IND 06 ' GET EQUATION PARAMS PROMPT
14 ALENG ' DETERMINE NUMBER OF PARAMS
15 E1
16 X<Y?
17 SF 05
18 CLX
19 9
20 X<=Y?
21 SF 04
22 CF 22
23 PROMPT
24 GTO 01 ' NOTHING ENTERED, ASK FOR PARAMS AGAIN

25 LBL A ' 1ST PARAM ENTERED / TO BE SOLVED
26 E
27 GTO 02

28 LBL B ' 2ND PARAM ENTERED / TO BE SOLVED
29 2
30 GTO 02

31 LBL C ' 3RD PARAM ENTERED / TO BE SOLVED
32 3
33 GTO 02

34 LBL D ' 4TH PARAM ENTERED / TO BE SOLVED IF VALID
35 FS? 05
36 SF 04
37 FC? 04
38 GTO 01
39 4
40 GTO 02

41 LBL E ' 5TH PARAM ENTERED / TO BE SOLVED IF VALID
42 FC? 05
43 GTO 01
44 5

45 LBL 02 ' COMMON PARAM HANDLING
46 FC? 22 ' WAS IT ENTERED?
47 GTO 00 ' NO MUST NEED TO BE SOLVED
48 X<>Y
49 STO IND Y ' SAVE IN PROPER REGISTER
50 GTO 01

51 LBL 00
52 STO 00 ' SAVE LOCATION TO SOLVE
53 E-99 ' ASSUME VIRTUAL 0 AND 1 FOR GUESSES
54 E
55 "a^b=?"
56 PROMPT ' GET BETTER GUESSES IF SUPPLIED
57 CLA
58 ARCL 06
59 CF 06
60 FROOT
61 STOP
62 GTO 01 ' GET NEXT PARAMS

63 LBL J ' EXIT ROUTINE, RESTORE USER KEY ASSIGNMENTS FOR TOP TWO ROWS
64 E
65 LKAX
66 END

========REQUIRED ROUTINE=========

01 LBL "2B7" ' COPIES REGS 01 THRU 05 INTO BUFFER 7 VARIABLES a THRU e
02 RCL 01
03 STO L
04 RCL 02
05 RCL 03
06 RCL 04
07 RCL 05
08 "XYZTL" ' CAN USE ST>B7 FUNCTION (SF# 4) BUT DISPLAY IS WIERD
09 SHFL
10 END

=====THIS IS SAMPLE EQUATION=====

01 LBL "OHMS" ' EXAMPLE, OHM'S LAW, V=I*R
02 FS? 06 ' GOTO LBL 6 TO DISPLAY ENTRY PROMPT
03 GTO 00
04 STO IND 00 ' STORE FROOT SUPPLIED X IN PROPER PLACE
05 XEQ "2B7" ' SETUP FOR EVAL$
06 "b*c-a" ' OHMS LAW EQUATION (RIGHT SIDE - LEFT SIDE)
07 EVAL$
08 RTN

09 LBL 00 ' DISPLAY
10 "V I R"
11 END

I have included a ZIP file with the above TXT file and RAW files. As you can see, setting up the user equation is easier (just one line for EVAL$ to use). Use a thru e for the 5 parameters, use right_side - left_side for the equation to evaluate with EVAL$. Be sure to add XEQ "2B7" before doing EVAL$ to insure a thru e are filled in.

Greg