From: utzoo!decvax!duke!hes
Newsgroups: net.micro
Title: Re:IBM PC benchmark: program
Article-I.D.: duke.2140
Posted: Fri May 14 11:19:46 1982
Received: Sat May 15 00:55:11 1982


  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