[gforth] / gforth / matrix.fs  

gforth: gforth/matrix.fs

Diff for /gforth/matrix.fs between version 1.1 and 1.2

version 1.1, Mon Nov 13 18:38:35 1995 UTC version 1.2, Sun Mar 28 16:10:03 1999 UTC
Line 34 
Line 34 
 : innerproduct ( a[row][*] b[*][column] -- int)  : innerproduct ( a[row][*] b[*][column] -- int)
   0 row-size 0 do    0 row-size 0 do
     >r over @ over @ * r> + >r      >r over @ over @ * r> + >r
     cell+ swap row-byte-size + swap      swap cell+ swap row-byte-size +
     r>      r>
   loop    loop
   >r 2drop r>    >r 2drop r>

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help