Listing of file='BENCH13' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 339, program filename = 'BENCH13' 0000 %SCRATCHT "BENCH13":SAVE T ()"BENCH13" 0020 PRINT AT(13,00);"MATRIX......... <-- TESTING", : S$=TIME 0090 DIM A(5,5),B(10,10),C(10,10) 0095 FOR K=1 TO 10 0096 MAT REDIM A(5,5),B(10,10),C(10,10) 0100 A(1,2)=2 : A(2,5)=8 : A(3,4)=5 : A(4,3)=4 : A(5,1)=1 : MAT B=INV(A),D : IF D=-320THEN 110 0110 MAT C=A*B : MAT A=IDN : MAT C=C-A : FOR I=1TO 5 : FOR J=1TO 5 : IF C(I,J)=0THEN 120 0120 NEXT J : NEXT I : I=RND(0) : FOR M=1TO 10 : MAT REDIM A(M,1),B(M,M) : FOR I=1TO M : FOR J=1TO M : B(I,J)=10*RND(1)-5 : NEXT J : NEXT I : MAT C=INV(B) : FOR S=1TO M : FOR T=STO M : IF B(T,S)<>0THEN 130 : NEXT T 0130 GOSUB 180 : GOSUB 190 : B(S,S)=1/B(S,S) : FOR T=1TO M : IF T=STHEN 140 : B=-B(T,S) : B(T,S)=0 : GOSUB 210 0140 NEXT T : NEXT S : FOR S=MTO 1STEP -1 : IF A(S,1)=STHEN 150 : FOR J=1TO M : B=B(J,S) : B(J,S)=B(J,A(S,1)) : B(J,A(S,1))=B : NEXT J 0150 NEXT S : FOR I=1TO M : FOR J=1TO M : IF C(I,J)=B(I,J)THEN 160 0160 NEXT J : NEXT I : NEXT M : NEXT K 0170 GOTO 9000 0180 FOR J=1TO M : B=B(S,J) : B(S,J)=B(T,J) : B(T,J)=B : NEXT J : A(S,1)=T : RETURN 0190 FOR J=1TO M : IF J=STHEN 200 : B(S,J)=B(S,J)/B(S,S) 0200 NEXT J : RETURN 0210 FOR J=1TO M : B(T,J)=B(T,J)+B*B(S,J) : NEXT J : RETURN 9000 PRINT AT(13,16,16); : E$=TIME : CONVERT STR(S$,1,2)TO S1 : CONVERT STR(S$,3,2)TO S2 : CONVERT STR(S$,5,2)TO S3 : CONVERT STR(E$,1,2)TO E1 : CONVERT STR(E$,3,2)TO E2 : CONVERT STR(E$,5,2)TO E3 : S9=S1*3600+S2*60+S3 : E9=E1*3600+E2*60+E3 : T0=E9-S9 : PRINT T0;"SEC" 9010 LOAD DC T"BENCH14"