Listing of file='18' on disk='vmedia/glbr_22.wvd.zip'
# Sector 155, program filename = '18'
0005 DIM A(9,9),X(8)
0010 PRINT "INPUT NO. OF UNKNOWNS, MAX. NO. OF ITERATIONS, DELTA"
0015 INPUT N,M,D
0020 PRINT "INPUT COEFF. MATRIX A AND THEN COLUMN MATRIX B"
0100 FOR I=1 TO N+1
0120 INPUT A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7),
A(I,8),A(I,9)
0140 NEXT I
0170 FOR I=1 TO N
0210 X(I)=A(N+1,I)
0220 NEXT I
0230 FOR K=1 TO M
0310 T=0
0320 FOR I=1 TO N
0330 S=0
0340 FOR J=1 TO N
0350 S=S+A(I,J)*X(J)
0360 NEXT J
0370 B=X(I)
0380 X(I)=(-S+A(I,I)*X(I)+A(N+1,I))/A(I,I)
0390 IF ABS(X(I))<=ABS(B) THEN 420
0400 IF ABS(B/X(I))<D THEN 440
0410 GOTO 440
0420 IF ABS(X(I)/B)<D THEN 440
0430 T=T+1
0440 NEXT I
0450 IF T=N THEN 480
0460 NEXT K
0470 PRINT "CONVERGENCE TOO SLOW. LAST VALUES COMPUTED ARE:"
0480 PRINT
0485 FOR I=1 TO N
0490 PRINT "X(";I;") =";X(I)
0500 NEXT I
0999 END