C70:info-cpm (05/15/82)
>From W8SDZ@Mit-Mc Sat May 15 01:04:19 1982
Date: 14 May 82 11:19:46-EDT (Fri)
From: decvax!duke!hes at Berkeley
To: info-micro at mit-ai
Re: IBM PC benchmark: program
Article-I.D.: duke.2140
Via: news.usenet; 14 May 82 8:58-PDT
I have had several requests for the details of my becnhmark.
This is the matrix program I used. I left out blank spaces
between the line numbers and statements, etc., which are put
in here for readability.
10 DIM A(10,10), B(10,10), C(10,10)
20 FOR I = 1 TO 10
30 FOR J = 1 TO 10
40 A(I,J) = 1./3.
50 B(I,J) = 1./7.
60 NEXT
70 NEXT
80 FOR I = 1 TO 10
90 FOR J = 1 TO 10
100 FOR K = 1 TO 10
110 C(I,J) = C(I,J) + A(I,K)*B(K,J)
120 NEXT
130 NEXT
140 NEXT
150 PRINT C(1,1)
The last statement signals the completion of the program and
by printing out a value of approx .476l9 indicates that the
program ran more or less in the manner hoped for.
--henry schaffer