![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to matrix.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to matrix.fs CVS log | Up to [gforth] / gforth |
| version 1.1, 1995/11/13 18:38:35 | version 1.2, 1999/03/28 16:10:03 |
|---|---|
| Line 34 align create imr mat-byte-size allot | Line 34 align create imr mat-byte-size allot |
| : 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> |