SYS3EQ.81 (System of 3 Equations) freeware
by Daniel Bishop (danb2k@hotmail.com)
2000-10-14
This programs solves systems of 3 linear equations.
How to run it:
1. Type it in. (Hey, are you sure you don't need a link port?)
2. Run the program. Enter the coefficients when prompted. (X, Y, Z, and constant).
3. The program will give you the solution for X, Y, and Z. If you need to write them in fractional form, just remember that X=MX/M, Y=MY/M, and Z=MZ/M.
Prgm_:SYSEQ3
:Disp "AX+BY+CZ=D"
:Disp "A="
:Input A
:Disp "B="
:Input B
:Disp "C="
:Input C
:Disp "D="
:Input D
:Disp "EX+FY+GZ=H"
:Disp "E="
:Input E
:Disp "F="
:Input F
:Disp "G="
:Input G
:Disp "H="
:Input H
:Disp "IX+JY+KZ=L"
:Disp "I="
:Input I
:Disp "J="
:Input J
:Disp "K="
:Input K
:Disp "L="
:Input L
:A(FK-GJ)+B(GI-EK)+C(EJ-FI -> M
:If M=0
:Goto N
:(D(FK-GJ)+B(GL-HK)+C(HJ-FL))/M -> X
:(A(HK-GL)+D(GI-EK)+C(EK-HI))/M -> Y
:(A(FL-HJ)+B(HI-EL)+D(EJ-FI))/M -> Z
:Disp "X="
:Disp X
:Disp "Y="
:Disp Y
:Disp "Z="
:Disp Z
:Stop
:Lbl N
:Disp "NO SOLUTION"