|
Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://fpga.parallel.ru/Colamo/7.html
Дата изменения: Sun May 31 15:06:50 2009 Дата индексирования: Mon Oct 1 19:54:52 2012 Кодировка: koi8-r |
Var R: REG;
Var A: Array [16: Stream, 4: Stream, 4: Vector];
Var B: Array [4: Stream, 4: Vector, 16: Stream];
Var C: Array [4, 4, 16: Stream];
Var R2: Array [4] COM;
FOR I=1 TO 16 BEGIN
FOR J=1 TO 4 BEGIN
CADR a; R=0; ENDCadr;
CADR b; FOR K=1 TO 4
R2[I]=A[I,J,K]*B[J,K,I];
R=R+R2[1]+R2[2]+R2[3]+R2[4];
C[I,K,J]=R; ENDCadr;
END;END;
Рис.7. Программа и граф-схема вычислительной структуры умножения матриц