Listing of file='15' on disk='vmedia/glbr_22.wvd.zip'
# Sector 484, program filename = '15' 0005 DIM A(7,9) 0010 PRINT "NO. OF UNKNOWNS?" 0020 INPUT N 0030 PRINT "INPUT 'AUGMENTED COEFFICIENT MATRIX'" 0100 FOR I=1 TO N 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 0160 PRINT 0210 FOR S=1 TO N 0220 FOR T=S TO N 0230 IF A(T,S)<>0 THEN 240 0235 NEXT T 0237 PRINT "NO UNIQUE SOLUTION" 0238 GOTO 999 0240 GOSUB 510 0250 C=1/A(S,S) 0260 GOSUB 610 0270 FOR T=1 TO N 0275 IF T=S THEN 300 0280 C=-A(T,S) 0290 GOSUB 710 0300 NEXT T 0305 NEXT S 0310 GOTO 800 0510 FOR J=1 TO N+1 0520 B=A(S,J) 0530 A(S,J)=A(T,J) 0540 A(T,J)=B 0550 NEXT J 0560 RETURN 0610 FOR J=1 TO N+1 0620 A(S,J)=C*A(S,J) 0630 NEXT J 0640 RETURN 0710 FOR J=1 TO N+1 0720 A(T,J)=A(T,J)+C*A(S,J) 0730 NEXT J 0740 RETURN 0800 FOR T=1 TO N 0810 PRINT "X(";T;")=";A(T,N+1) 0820 NEXT T 0999 END