start,image< slip< _b a50 a0: zq hs ra3 qq a2 pi 0,zq hs ra1 qq 30 qq a2 hv ra0 _b b50,c50,d50,e50 ; ; _p_r_o_c_e_d_u_r_e leq0(N, A); ; a1: pp (s1) , pi 0 ; p := N; in:=0; it p1 , pt rd1 ; it (s2) , pa rd2 ; A[k,k] pt rd2 , pt rd5 ; reset counter pt rd8 ; reset counter b1: ; _f_o_r k:=1 _s_t_e_p 1 _u_n_t_i_l N-1 _d_o d2: arnf _0 t _0 IQC ; RF:=A[k,k]; hv rb4 LQC ; exit if A[N,N]; grf re2 ; Akk := RF; it (rd2) , pa rd1 ; A[i,k] b2: ; _f_o_r i:=k+1 _s_t_e_p 1 _u_n_t_i_l N _d_o it (rd2) , pa rd3 ; d1: arnf _0 t _0 ; RF:=A[i,k] dkf re2 , grf re1 ; RF:=A[i,k]/Akk; factor:=RF; pa rc1 t 1 it (rd1) , pa rd4 ; A[i,j] b3: ; _f_o_r j:=k+1 _s_t_e_p 1 _u_n_t_i_l N _d_o d3: srnf _0 t 1 ; RF:=-A[k,j]; mkf re1 ; RF:=-A[k,j]*factor; d4: arf _0 t 1 IPC ; RF:=A[i,j]-A[k,j]*factor; grf (rd4) ; A[i,j]:=RF; hv rb3 NPA ; _e_n_d j; c1: bt _1 t -1 ; Repeat for RHS hv rb3 hv rb2 NPB ; _e_n_d i; it p2 , pt rd2 ; Set counter on A[k,k] hv rb1 b4: ; _e_n_d k; it (rd2) , pa rd5 ; A[N,N] it (rd2) , pa rd9 ; A[N,N] nt p2 , pt rd9 qq (rd5) t 1 ; A[N,N1] it (rd2) , pa rd8 ; A[i,i] it p1 , pt rd6 ; it p-1 , pa rb7 ; b5: ; _f_o_r i:=N _s_t_e_p -1 _u_n_t_i_l 1 _d_o d5: arnf _0 t _0 ; RF:=A[i,N1]; grf re1 ; factor:=A[i,N1]; hv rb8 NRA ; skip inner loop first time d9: qq _0 t _0 it (rd9) , pa rd7 ; init A[i,j] it (rd5) , pa rd6 ; init A[j,N1] b6: ; _f_o_r j:=i+1 _s_t_e_p 1 _u_n_t_i_l N _d_o d7: srnf _0 t 1 IPC ; RF:=-A[i,j] d6: mkf _0 t _0 ; RF:=-A[i,j]*A[j,N1] arf re1 , grf re1 ; factor:=factor-A[i,j]*A[j,N1]; hv rb6 NPA ; _e_n_d j; b8: arnf re1 ; RF:=factor; d8: dkf _0 t _0 ; RF:=factor/A[i,i]; grf (rd5) ; A[i,N1]:=RF; nt p1 , pt rd5 ; Set counter on A[i,N1] nt p2 , pt rd8 ; Set counter on A[i,i] pi 2 t 1021 ; RA:=_t_r_u_e; b7: bt _0 t -1 hv rb5 ; _e_n_d i; hr s3 ; _e_n_d leq0; e1: qq ; factor e2: qq ; Akk _e _b b50,c50,d50,e50 ; _p_r_o_c_e_d_u_r_e RANDOM(A) ; ; a3: pp (s1) , grn re4 ; p:=A; sum:=0; it p-1 , pa rd1 ; Address of A[0] b1: pm re3 , mln re2 ; M:=oldrand; RM:=oldrand*16807; dl re1 , gm re3 ; M:=(oldrand*16807)_m_o_d mod; oldrand:=M; xr , nkf 39 ; R:=M; RF:=float(oldrand); mkf re5 , arf re6 ; RF:=RF/e5; RF:=RF-e6; d1: grf _0 t 1 ; A[++n]:=RF arf re4 , grf re4 arn (rd1) IPC ; hv rb1 NPA arnf re4 grf (rd1) t 1 grn re4 ; sum:=0; hv rb1 NPB hr s2 ; _e_n_d RANDOM; e1: qq 2147483647.39 ; mod e2: qq 16807.39 ; e3: qq 100001.39 ; oldrand e4: qq ; sum e5: qq t 256 ; 1.0 e6: qq ; 0.0 _e ; Matrix: [a2: qq qq qq, qq, qq qq qq, qq, qqf qqf qqf, qqf,] a2: qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq qq, qq, qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf qqf, qqf, _e10