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

()0H$BTC-PS/8 FOCAL, 1971?MB1BBT !"LOESUNG DER MATRIZEN-GLEICHUNG A*X = B FUER X"!?MCNBCT "============================================="!!?MC^BET "DIMENSION VON A : ";A L?MC9BFT !"KOEFFIZIENTEN A(J,K)...A(J,N) UND B(J) : "!?MDDBJS N=L-1; S I=-1?MDQBKF K=
,N; S R(K)=K+1?MD%BLF J=0,N; T !; F K=0,L; A A(J+L*K)?MD*BMT !!?MD1BNS M=1E-6?MD?BPF J=0,N; F K=0,N; D 4?MEFBQS R(P)=0?MEXBRF K=0,L;S A(P+L*K)=A(P+L*K)/M?ME!BTF J=0,N; D 5?ME(BVS I=I+1?ME6BWI (I-N)1.14,1.26,1.14?MFDBZF J=0,N; F K=0,N; D 7?MFZB\F K=0,N; T 
%2,"X("K,") = ",%9.04,X(K)?MF!B]T !!; Q?MF-HEI (R(J))0,4.3,4.1?MF?HJI (FABS(A(J+L*K))-FABS(M))4.3?MGHHTS M=A(J+L*K)?MGQHVS P=J; S Q=K?MGUH^R?MG!JJI (J-P)5.2,5.4,5.2?MG*JTS D=A(J+L*Q)?MHAJ^F K=0,L; S A(J+L*K)=A(J+L*K)-A(P+L*K)*D?MHEJ(R?MHUNJI (1E-6-FABS(A(
+L*K)))7.2?MHYNLR?MNTS X(K)=A(J+L*L)?M)?L S MG?M?M SPACE, COMMA, RETURN AND NON-DIGITS?MINFJT !;I (S(1)-217)3.2,3.15,3.2?MI FOD 4.3;D 4.4;D 4.5;D 4.6;G 4.95?MI-FTI (S(1)-200)3.22,5.1?MI:FVI (S(1)-141)3.3,3.15?MJIF^S V=V+1;

Note: Lines longer than 256 characters were wrapped