Even More Simultaneous Equation Solutions Message #1 Posted by Palmer O. Hanson, Jr. on 25 Mar 2006, 3:42 a.m.
In his submission "Calculator Precision: Sure" of December 21 which started all of this Valentin Albillo proposed an investigation of the set of linear equations
1.3 x1 + 7.2 x2 + 5.7 x3 + 9.4 x4 + 9.0 x5 + 9.2 x6 + 3.5 x7 = 45.3
4.0 x1 + 9.3 x2 + 9.0 x3 + 9.9 x4 + 0.1 x5 + 9.5 x6 + 6.6 x7 = 48.4
4.8 x1 + 9.1 x2 + 7.1 x3 + 4.8 x4 + 9.3 x5 + 3.2 x6 + 6.7 x7 = 45.0
0.7 x1 + 9.3 x2 + 2.9 x3 + 0.2 x4 + 2.4 x5 + 2.4 x6 + 0.7 x7 = 18.6
4.1 x1 + 8.4 x2 + 4.4 x3 + 4.0 x4 + 8.2 x5 + 2.7 x6 + 4.9 x7 = 36.7
0.3 x1 + 7.2 x2 + 0.6 x3 + 3.3 x4 + 9.7 x5 + 3.4 x6 + 0.4 x7 = 24.9
4.3 x1 + 8.2 x2 + 6.6 x3 + 4.3 x4 + 8.3 x5 + 2.9 x6 + 6.1 x7 = 40.7
which has the "unique" solution :
x1 = x2 = x3 = x4 = x5 = x6 = x7 = 1.0
Valentin closed with the challenge
"Now, get your preferred HP calc or computer software and try and solve it using limited accuracy, say just one decimal, then four decimals, then eight decimals. See what results you get and how do they compare with the actual, unique solution, and among themselves as the limited accuracy increases."
I solved the problem with a variety of linear equation solvers in my inventory with mantissas ranging from six to fourteen digits.
"Unique" answers as used here are the same as the "exact" answers which can be obtained with machines such as the HP49G and TI89. A "unique" or "exact" answer the one that a "calculated" answer from a sufficiently capable solver will approach but, in general, will not equal. Solvers sometimes get the "unique" solution for the kind of innocuous demonstration problems that typically accompany the user instructions. The "calculated" answer from a capable solver for more difficult problems such as the ones considered here will have characteristics such as (a) the signs of the elements of the "calculated" vector will agree with the signs of the corresponding elements of the "unique" vector, (b) the magnitudes of the elements of the "calculated" vector will agree with the magnitudes of the corresponding elements of the "unique" vector, and (c) at least some of the most significant digits of the elements of the "calculated" vector will agree with the corresponding most significant digits of the elements of the "unique" vector. An example of a solution which does not meet those criteria is the solution from the HP28S for Valentin's original problem where the elements of the solution vector are a helterskelter collection of numbers where three of the signs are not even in agreement with the signs of the elements of the "unique" solution vector. A second example which does not meet those criteria is the solution to Valentin's original problem from the ML02 program in the TI59 Master Library module where one of the signs is not in agreement and several of the magnitudes are in error by a factor of about 1.6 from the "unique" solution of all ones . An example that meets those criteria is the solution to Valentin's original problem from software by Maurice Swinnen operating on the Model 100 where the element of the solution which is furthest from the "unique" answer of one is 1.00339... . We can assign a single number to summarize those characteristics by calculating the RMS of the relative errors of the calculated vector where the relative error, calculated as the difference between the corresponding elements of the "unique" and "calculated" vectors divided by the corresponding element of the "unique" vector should be a small fraction.
I recently ran Valentin's original problem on the HP49G (actually on an emulator) with the following results:
INV A * B B/A RREF
1.076 0.6472 1.00148007239
0.999786 1.00110019 0.999999813411
0.407 0.7415 1.00131966086
0.144 0.6554 1.00132720057
0.999124 0.9996398 1.00000091517
0.553 1.1592 0.998672819845
0.61 3.5385 0.997223232158
where for the RREF solution the input is a 7x8 matrix with A augmented by B. One sign is incorrect for the INV A * B solution. Two of the signs are incorrect for the B/A solution. The RREF solution was much closer to the "unique" solution where I note that for the first time in all the calculations that I have reported in the series of threads since Valentin's original challenge a solver has performed better than my old Model 100 using the simultaneous equation program by Swinnen and Thomas..
In subsequent threads Rodger Rosenbaum proposed three modifications to Valentin's problem.:(1) with B(1) changed from 45.3 to 45.4; (2) with B(3) changed from 45.0 to 45.1; and (3) with A(3,7) changed from 6.7 to 6.8, A(7,7) changed from 6.1 to 6.0 and B(3) changed from 45.0 to 45.1 ."Unique" solutions for Rodger's modified problems were found using the exact mode of the HP49G.
The RMS relative errors for Valentin's original problem and for Rodger's three modifications for seventeen solvers which are available in my inventory are
Solver Valentin Rodger 1 Rodger 2 Rodger 3
Sharp PC1261 18.386 9.823E01 9.673E01 1.250E07
Model 100 Swinnen SP 11.506 1.014 9.996E01 2.832E04
HP28S B/A 3.927 13.417 13.220 1.253E10
HP41 "seq" 2.371 1.019 1.004 2.445E07
HP49G B/A 1.327 1.065E03 1.080E03 5.477E13
HP49G INV A * B 9.060E0 1.094E03 1.080E03 1.573E10
Sharp PC1261 Swinnen 7.664E01 1.117 1.101 2.647E09
TI59 ML02 7.367E01 2.464E02 2.428E02 9.433E11
TI95 Math Module 3.147E01 2.955E03 2.906E03 3.297E11
HP41 Math Pac 3.018E01 1.027 1.008 2.005E08
CC40 Math Module 2.260E01 1.025E01 1.010E01 3.202E10
Model 100 HCN DP 1.214E01 2.215E03 2.182E03 2.321E11
TI85 INV B * A 3.582E02 9.270E03 9.155E03 8.683E12
CC40 Swinnen 5.125E03 8.466E03 8.342E03 2.701E12
TI85 Simul Equations 4.274E03 9.292E03 9.155E03 4.399E12
Model 100 Swinnen DP 1.799E03 3.625E04 3.572E04 9.217E13
HP49G RREF 1.472E03 8.281E05 8.352E05 0
where the solvers are listed in the order of decreasing RMS relative errors for Valentin's original problem. Obviously missing in a forum dedicated to HP products are solutions from the HP15C and the Advantage module of the HP41. I don't have those capabilities in my inventory. Perhaps someone else will provide the missing material.
The RMS relative errors for all solvers are substantailly smaller for Rodger's third modification. That modification seems to have dumbed down Valentin's original problem so that almost any solver can succeed. For example, solvers such as the the B/A solution with the HP28S and the ML02 routine with the TI59 which couldn't even get all the signs correct with Valentin's original problem get rather good results with Rodger's third modification. Even the Model 100 solver operating in the single precision mode with a six digit mantissa gets four digits correct for Rodger's third modification.
On machines such as the TI85 and HP49G the results indicate that row reduction type software will outperform matrix inversion software. That observation agrees with my experience with linear equation solutions to other problems. I do not claim to know whether the apparently inferior performance is inherent in the matrix inversion methodology or whether matrix inversion software just tends to be less carefully written.
NOTES ON THE HARDWARE AND SOFTWARE OF THE SOLVERS
1. B/A software uses builtin matrix routines to divide the vector by the matrix. That idea is discussed on page 66 of the HP28S Advanced Scientific Calculator Reference Manual and is expected to yield somewhat better results than multiplying the inverse of the matrix by the vector. I do not know if the idea applies for other machines.
2. Swinnen software uses a solution adapted from the Simultaneous Equation routine on pages 113 ff of the Mathematics Library: Application Software for the Sharp EL5500 and PC1403 Scientific Computers by Swinnen and Thomas.
3, The Model 100 Swinnen DP solver uses the Swinnen routine and the default mode of the Radio Shack Model 100 which provides a fourteen digit mantissa.
4. The Model 100 Swinnen SP uses the Swinnen program and single precisiion mode of the Radio Shack Model 100 which provides a six digit mantissa.
5. The CC40 Swinnen solution uses the Swinnen program instead of the CC40 Math Module solver.
6. The Model 100 HCN DP solution uses an older program derived from a least squares solver which was on the old Honeywell Computer Network (HCN) of the 1960's. It does not allow zeroes in the diagonal elements.
7.. The Sharp PC1261 solution uses the program on page 264 of the Sharp Pocket Computer PC1260/PC1261 Instruction Manual.. The program will not work with A(1,1) = 0 and with certain other combinations of the matrix elements which yield a zero divisor..
8. The Sharp PC1261 Swinnen solution uses the Swinnen program.
9. The HP41 "seq" solution uses Valentin Albillo's program from pages 6364 of the V7N5 (June 1980) issue of the PPC Calculator Journal. The program shares the same deficiency as the Sharp PC1261 solution when A(1,1) = 0 and when other combinations of matrix elements yield a zero divisor. Valentin's program detects the zero divisor and allows a rearrangement of the problem without starting completely over.
A MESSY HP49G PROGRAM
In his submission "More on ill conditioning and calculator precision" on January 23 Rodger proposed "... let's create a 7x7 perturbation matrix consisting of 49 uniformly distributed random numbers varying from about .5 ULP to about +.5 ULP, and then add that perturbation matrix to the A (call the perturbed matrix A') matrix of Valentin's original system, and solve the perturbed system...". He explained
"The procedure can be done on the HP49 emulator (or a real HP48G or HP49) easily. Assume that the original A matrix and the original column matrix B are stored in variables of those names. Then this program will generate a perturbation matrix, add it to the A matrix, and solve the system.
<< B A RANM 247.487 / A + / 3 RND >>
This can be executed repeatedly to see results such as I gave above.
The constant 247.487 is to cause the perturbation matrix to have a Frobenius norm of about .1414, which is the same as the norm of perturbation matrix used to create the slightly perturbed matrix I suggested and you used in your previous post; the maximum perturbation of an individual element of the A matrix will be about + .0404, just slightly less than .5 ULP (.5 ULP would be .05)."
When I found that the RREF solver on the HP49G consistently yielded "calculated" solutions which were closer to the "unique" solutions than the B/A solver I decided to see if I could modify Rodger's program to replace the B/A solution with the RREF solution. My plan was to follow his program to generate the perturbed matrix, augment the perturbed matrix with the B vector and solve with the RREF routine. I had difficulty doing that because I couldn't get the AUGMENT command to attach the B vector at the right side of the perturbed matrix yielding the 7x8 matrix needed by the RREF routine. No matter what I tried the AUGMENT command would attach the B vector at the top or bottom of the perturbed matrix rather than at the right of the perturbed matrix. Eventually, I transposed the perturbed matrix, used the AUGMENT command to attach the B vector at the bottom yielding an 8x7 matrix, and transposed the 8x7 matrix back to yield the 7x8 matrix I wanted. My complete routine was.
<< B A RANM 247.487 / A + TRAN B AUGMENT TRN RREF >COL DROP 3 RND >>
There must be an easier way to do what I wanted to do but I couldn't find it. Maybe if I had a manual .... Maybe someone more familiar with the HP49G can help.
