Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.02 T !"LOESUNG DER MATRIZEN-GLEICHUNG A*X = B FUER X"!
 1.03 T "============================================="!!
 1.05 T "DIMENSION VON A : ";A L
 1.06 T !"KOEFFIZIENTEN A(J,K)...A(J,N) UND B(J) : "!
 1.10 S N=L-1; S I=-1
 1.11 F K=0,N; S R(K)=K+1
 1.12 F J=0,N; T !; F K=0,L; A A(J+L*K)
 1.13 T !!
 1.14 S M=1E-6
 1.16 F J=0,N; F K=0,N; D 4
 1.17 S R(P)=0
 1.18 F K=0,L;S A(P+L*K)=A(P+L*K)/M
 1.20 F J=0,N; D 5
 1.22 S I=I+1
 1.23 I (I-N)1.14,1.26,1.14
 1.26 F J=0,N; F K=0,N; D 7
 1.28 F K=0,N; T !%2,"X("K,") = ",%9.04,X(K)
 1.29 T !!; Q
 4.05 I (R(J))0,4.3,4.1
 4.10 I (FABS(A(J+L*K))-FABS(M))4.3
 4.20 S M=A(J+L*K)
 4.22 S P=J; S Q=K
 4.30 R
 5.10 I (J-P)5.2,5.4,5.2
 5.20 S D=A(J+L*Q)
 5.30 F K=0,L; S A(J+L*K)=A(J+L*K)-A(P+L*K)*D
 5.40 R
 7.10 I (1E-6-FABS(A(J+L*K)))7.2
 7.12 R
 7.20 S X(K)=A(J+L*L)