LINEAR EQ SOLVER

FILE INFORMATION

FILENAME(S): LINEAR EQ SOLVER

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 21:15:11

APPEARS ON: 1 disk(s)

FILE HASH

7f383c114232b23a4ebb40f5e069eedd848d5e3dde27dbe0c2c45890d68057cb

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR DISK	LINEAR EQ SOLVER	PRG	DuncanTwain	25	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 1B 04 64 00 99 22  4A 41 43 4F 42 49 20 49  |....d.."JACOBI I|
00000010: 54 45 52 41 54 49 4F 4E  22 3A 99 00 45 04 6E 00  |TERATION":..E.n.|
00000020: 99 22 54 48 49 53 20 50  52 4F 47 52 41 4D 20 46  |."THIS PROGRAM F|
00000030: 49 4E 44 53 20 54 48 45  20 53 4F 4C 55 54 49 4F  |INDS THE SOLUTIO|
00000040: 4E 20 54 4F 22 00 6E 04  78 00 99 22 41 20 53 59  |N TO".n.x.."A SY|
00000050: 53 54 45 4D 20 4F 46 20  45 51 55 41 54 49 4F 4E  |STEM OF EQUATION|
00000060: 53 20 48 41 56 49 4E 47  20 55 50 20 54 4F 00 95  |S HAVING UP TO..|
00000070: 04 82 00 99 22 32 30 20  56 41 52 49 41 42 4C 45  |...."20 VARIABLE|
00000080: 53 20 57 49 54 48 20 32  30 20 45 51 55 41 54 49  |S WITH 20 EQUATI|
00000090: 4F 4E 53 2E 22 00 B0 04  8C 00 99 3A 99 22 48 4F  |ONS."......:."HO|
000000A0: 57 20 4D 41 4E 59 20 56  41 52 49 41 42 4C 45 53  |W MANY VARIABLES|
000000B0: 00 D2 04 96 00 99 22 59  4F 55 20 57 49 53 48 20  |......"YOU WISH |
000000C0: 54 4F 20 53 4F 4C 56 45  20 46 4F 52 22 3B 3A 85  |TO SOLVE FOR";:.|
000000D0: 20 56 00 F3 04 A0 00 8B  20 56 B2 30 20 B0 20 56  | V...... V.0 . V|
000000E0: B2 31 20 A7 20 99 20 22  92 54 4F 4F 20 46 45 57  |.1 . . ".TOO FEW|
000000F0: 22 3A 80 00 10 05 AA 00  8B 20 56 B1 32 30 20 A7  |":....... V.20 .|
00000100: 20 99 20 22 12 54 4F 4F  20 4D 41 4E 59 22 3A 80  | . ".TOO MANY":.|
00000110: 00 39 05 B4 00 99 20 22  54 48 45 4E 20 54 48 45  |.9.... "THEN THE|
00000120: 52 45 20 4D 55 53 54 20  42 45 22 3B 56 3B 22 45  |RE MUST BE";V;"E|
00000130: 51 55 41 54 49 4F 4E 53  22 00 48 05 BE 00 86 20  |QUATIONS".H.... |
00000140: 4D 28 56 2C 56 AA 31 29  00 4E 05 C8 00 99 00 69  |M(V,V.1).N.....i|
00000150: 05 D2 00 81 20 52 B2 31  20 A4 20 56 3A 20 81 20  |.... R.1 . V: . |
00000160: 43 B2 31 20 A4 20 56 AA  31 00 8A 05 DC 00 99 22  |C.1 . V.1......"|
00000170: 45 4E 54 45 52 20 4D 41  54 52 49 58 20 CD 20 56  |ENTER MATRIX . V|
00000180: 41 4C 55 45 22 3B 52 3B  43 3B 00 9B 05 E6 00 85  |ALUE";R;C;......|
00000190: 20 22 20 22 3B 4D 28 52  2C 43 29 00 A5 05 F0 00  | " ";M(R,C).....|
000001A0: 82 20 43 2C 52 00 B3 05  FA 00 81 20 4B B2 31 20  |. C,R...... K.1 |
000001B0: A4 20 56 00 C8 05 04 01  8B 20 4D 28 4B 2C 4B 29  |. V...... M(K,K)|
000001C0: B2 30 20 A7 20 32 39 30  00 D0 05 0E 01 82 20 4B  |.0 . 290...... K|
000001D0: 00 DA 05 18 01 89 20 33  37 30 00 E8 05 22 01 81  |...... 370..."..|
000001E0: 20 4A B2 31 20 A4 20 56  00 0A 06 2C 01 8B 20 4D  | J.1 . V...,.. M|
000001F0: 28 4A 2C 4B 29 B3 B1 30  20 AF 20 4D 28 4B 2C 4A  |(J,K)..0 . M(K,J|
00000200: 29 B3 B1 30 20 A7 20 33  33 30 00 12 06 36 01 82  |)..0 . 330...6..|
00000210: 20 4A 00 52 06 40 01 99  3A 99 22 12 53 4F 52 52  | J.R.@..:.".SORR|
00000220: 59 2C 20 4A 41 43 4F 42  49 20 49 54 45 52 41 54  |Y, JACOBI ITERAT|
00000230: 49 4F 4E 20 57 49 4C 4C  20 4E 4F 54 20 57 4F 52  |ION WILL NOT WOR|
00000240: 4B 20 4F 4E 20 54 48 45  20 53 59 53 54 45 4D 22  |K ON THE SYSTEM"|
00000250: 3A 80 00 62 06 4A 01 81  20 54 B2 31 20 A4 20 56  |:..b.J.. T.1 . V|
00000260: AA 31 00 7B 06 54 01 53  53 B2 4D 28 4A 2C 54 29  |.1.{.T.SS.M(J,T)|
00000270: 3A 20 4D 28 4B 2C 54 29  B2 53 53 00 83 06 5E 01  |: M(K,T).SS...^.|
00000280: 82 20 54 00 8E 06 68 01  82 20 4B 3A 20 99 00 B2  |. T...h.. K: ...|
00000290: 06 72 01 99 22 54 4F 20  57 48 41 54 20 54 4F 4C  |.r.."TO WHAT TOL|
000002A0: 45 52 41 4E 43 45 20 44  4F 20 59 4F 55 20 57 49  |ERANCE DO YOU WI|
000002B0: 53 48 00 EB 06 7C 01 99  22 54 48 45 20 53 59 53  |SH...|.."THE SYS|
000002C0: 54 45 4D 20 54 4F 20 42  45 20 45 56 41 4C 55 41  |TEM TO BE EVALUA|
000002D0: 54 45 44 20 54 4F 22 3B  3A 85 22 20 20 2E 30 30  |TED TO";:."  .00|
000002E0: 31 9D 9D 9D 9D 9D 9D 22  3B 4F 54 00 1B 07 86 01  |1......";OT.....|
000002F0: 99 20 22 48 4F 57 20 4D  41 4E 59 20 49 54 45 52  |. "HOW MANY ITER|
00000300: 41 54 49 4F 4E 53 22 3B  3A 85 22 20 20 31 30 30  |ATIONS";:."  100|
00000310: 30 9D 9D 9D 9D 9D 9D 22  3B 52 49 00 30 07 90 01  |0......";RI.0...|
00000320: 81 20 4A B2 31 20 A4 20  56 3A 20 4C 4F 43 B2 4A  |. J.1 . V: LOC.J|
00000330: 00 3E 07 9A 01 81 20 49  B2 4A 20 A4 20 56 00 5C  |.>.... I.J . V.\|
00000340: 07 A4 01 8B 20 4D 28 49  2C 4A 29 B1 4D 28 4C 4F  |.... M(I,J).M(LO|
00000350: 43 2C 4A 29 20 A7 20 4C  4F 43 B2 49 00 64 07 AE  |C,J) . LOC.I.d..|
00000360: 01 82 20 49 00 74 07 B8  01 81 20 5A B2 31 20 A4  |.. I.t.... Z.1 .|
00000370: 20 56 AA 31 00 9E 07 C2  01 53 B2 4D 28 4C 4F 43  | V.1.....S.M(LOC|
00000380: 2C 5A 29 3A 20 4D 28 4C  4F 43 2C 5A 29 B2 4D 28  |,Z): M(LOC,Z).M(|
00000390: 4A 2C 5A 29 3A 20 4D 28  4A 2C 5A 29 B2 53 00 A6  |J,Z): M(J,Z).S..|
000003A0: 07 CC 01 82 20 5A 00 AE  07 D6 01 82 20 4A 00 BC  |.... Z...... J..|
000003B0: 07 E0 01 81 20 4B B2 31  20 A4 20 56 00 D4 07 EA  |.... K.1 . V....|
000003C0: 01 53 B2 AB 4D 28 4B 2C  4B 29 3A 20 4D 28 4B 2C  |.S..M(K,K): M(K,|
000003D0: 4B 29 B2 30 00 E4 07 F4  01 81 20 43 B2 31 20 A4  |K).0...... C.1 .|
000003E0: 20 56 AA 31 00 F8 07 FE  01 4D 28 4B 2C 43 29 B2  | V.1.....M(K,C).|
000003F0: 4D 28 4B 2C 43 29 AD 53  00 00 08 08 02 82 20 43  |M(K,C).S...... C|
00000400: 00 17 08 12 02 4D 28 4B  2C 56 AA 31 29 B2 AB 4D  |.....M(K,V.1)..M|
00000410: 28 4B 2C 56 AA 31 29 00  1F 08 1C 02 82 20 4B 00  |(K,V.1)...... K.|
00000420: 32 08 26 02 86 20 58 4F  28 56 29 2C 20 4E 58 28  |2.&.. XO(V), NX(|
00000430: 56 29 00 3B 08 30 02 49  54 B2 31 00 49 08 3A 02  |V).;.0.IT.1.I.:.|
00000440: 81 20 4C B2 31 20 A4 20  56 00 57 08 44 02 81 20  |. L.1 . V.W.D.. |
00000450: 54 B2 31 20 A4 20 56 00  6E 08 4E 02 58 53 B2 4D  |T.1 . V.n.N.XS.M|
00000460: 28 4C 2C 54 29 AC 58 4F  28 54 29 AA 58 53 00 76  |(L,T).XO(T).XS.v|
00000470: 08 58 02 82 20 54 00 91  08 62 02 4E 58 28 4C 29  |.X.. T...b.NX(L)|
00000480: B2 58 53 AA 4D 28 4C 2C  56 AA 31 29 3A 58 53 B2  |.XS.M(L,V.1):XS.|
00000490: 30 00 99 08 6C 02 82 20  4C 00 AD 08 76 02 43 53  |0...l.. L...v.CS|
000004A0: B2 30 3A 20 81 20 4A B2  31 20 A4 20 56 00 CA 08  |.0: . J.1 . V...|
000004B0: 80 02 41 B2 B6 28 58 4F  28 4A 29 AB 4E 58 28 4A  |..A..(XO(J).NX(J|
000004C0: 29 29 3A 43 53 B2 43 53  AA 41 00 D2 08 8A 02 82  |)):CS.CS.A......|
000004D0: 20 4A 00 E8 08 94 02 8B  20 43 53 AD 56 20 B3 20  | J...... CS.V . |
000004E0: 4F 54 20 A7 20 37 33 30  00 F6 08 9E 02 81 20 4A  |OT . 730...... J|
000004F0: B2 31 20 A4 20 56 00 10  09 A8 02 58 4F 28 4A 29  |.1 . V.....XO(J)|
00000500: B2 28 4E 58 28 4A 29 AA  58 4F 28 4A 29 29 AD 32  |.(NX(J).XO(J)).2|
00000510: 00 18 09 B2 02 82 20 4A  00 34 09 BC 02 49 54 B2  |...... J.4...IT.|
00000520: 49 54 AA 31 3A 20 8B 20  49 54 B3 B2 52 49 20 A7  |IT.1: . IT..RI .|
00000530: 20 35 37 30 00 51 09 C6  02 99 22 12 4E 4F 20 53  | 570.Q....".NO S|
00000540: 4F 4C 55 54 49 4F 4E 20  41 56 41 49 4C 41 42 4C  |OLUTION AVAILABL|
00000550: 45 00 79 09 D0 02 99 22  12 45 51 55 41 54 49 4F  |E.y....".EQUATIO|
00000560: 4E 53 20 4D 55 53 54 20  4E 4F 54 20 49 4E 54 45  |NS MUST NOT INTE|
00000570: 52 53 45 43 54 2E 22 3A  80 00 7F 09 DA 02 99 00  |RSECT.":........|
00000580: 8D 09 E4 02 81 20 54 B2  31 20 A4 20 56 00 A2 09  |..... T.1 . V...|
00000590: EE 02 99 22 58 22 3B 54  3B 22 3D 22 3B 4E 58 28  |..."X";T;"=";NX(|
000005A0: 54 29 00 AB 09 F8 02 82  3A 20 80 00 00 00        |T)......: ....  |

....D.."JACOBI ITERATION":..E.N.."THIS P
ROGRAM FINDS THE SOLUTION TO".N.X.."A SY
STEM OF EQUATIONS HAVING UP TO......"20 
VARIABLES WITH 20 EQUATIONS."......:."HO
W MANY VARIABLES.R...."YOU WISH TO SOLVE
 FOR";:. V... .. V.0 . V.1 . . ".TOO FEW
":....... V.20 . . ".TOO MANY":..9.... "
THEN THERE MUST BE";V;"EQUATIONS".H.... 
M(V,V.1).N.H...I.R.. R.1 . V: . C.1 . V.
1......"ENTER MATRIX M VALUE";R;C;......
 " ";M(R,C)...... C,R...... K.1 . V.H...
. M(K,K).0 . 290.P.... K.Z.... 370..."..
 J.1 . V...,.. M(J,K)..0 . M(K,J)..0 . 3
30...6.. J.R.@..:.".SORRY, JACOBI ITERAT
ION WILL NOT WORK ON THE SYSTEM":..B.J..
 T.1 . V.1.{.T.SS.M(J,T): M(K,T).SS...^.
. T...H.. K: ....R.."TO WHAT TOLERANCE D
O YOU WISH...|.."THE SYSTEM TO BE EVALUA
TED TO";:."  .001......";OT...... "HOW M
ANY ITERATIONS";:."  1000......";RI.0...
. J.1 . V: LOC.J.>.... I.J . V.\.... M(I
,J).M(LOC,J) . LOC.I.D.... I.T.... Z.1 .
 V.1...B.S.M(LOC,Z): M(LOC,Z).M(J,Z): M(
J,Z).S...L.. Z...V.. J...... K.1 . V.T..
.S..M(K,K): M(K,K).0...... C.1 . V.1....
.M(K,C).M(K,C).S...... C.....M(K,V.1)..M
(K,V.1)...... K.2.&.. XO(V), NX(V).;.0.I
T.1.I.:.. L.1 . V.W.D.. T.1 . V.N.N.XS.M
(L,T).XO(T).XS.V.X.. T...B.NX(L).XS.M(L,
V.1):XS.0...L.. L...V.CS.0: . J.1 . V.J.
..A..(XO(J).NX(J)):CS.CS.A.R.... J......
 CS.V . OT . 730...... J.1 . V.....XO(J)
.(NX(J).XO(J)).2...... J.4...IT.IT.1: . 
IT..RI . 570.Q.F..".NO SOLUTION AVAILABL
E.Y.P..".EQUATIONS MUST NOT INTERSECT.":
...Z........ T.1 . V......"X";T;"=";NX(
T)......: ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL