1 REM THIS PROGRAM APPEARS AT PAGE 173 OF THE ITALIAN VERSION OF
2 REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
10 REM SOLUTION OF SIMULTANEOUS LINEAR ALGEBRAIC EQUATIONS
20 DIM C(4,4),D(4),E(4,4),F(4),G(4),X(4)
30 MAT READ C,D
40 PRINT "COEFFICIENT MATRIX:"
50 MAT PRINT C
60 PRINT "RIGHT HAND SIDE:"
70 MAT PRINT D,
80 MAT E=INV(C)
84 PRINT "INVERTED MATRIX:"
86 MAT PRINT E,
90 MAT X=E*D
100 PRINT "SOLUTION VECTOR:"
110 MAT PRINT X,
120 MAT F=C*X
130 MAT G=D-F
140 PRINT "ERROR VECTOR:"
150 MAT PRINT G,
160 DATA 11,3,0,1,2,0,4,2,0,1,3,2,7,1,0
170 DATA 4,0,4,10,1,2,5,1,3,13,51,15,15,20,92
180 END
