Matrix multiplication: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 1,287: | Line 1,287: | ||
end |
end |
||
</lang> |
</lang> |
||
=={{header|ERRE}}== |
|||
<lang ERRE> |
|||
PROGRAM MAT_PROD |
|||
DIM A[3,1],B[1,2],ANS[3,2] |
|||
BEGIN |
|||
DATA(1,2,3,4,5,6,7,8) |
|||
DATA(1,2,3,4,5,6) |
|||
FOR I=0 TO 3 DO |
|||
FOR J=0 TO 1 DO |
|||
READ(A[I,J]) |
|||
END FOR |
|||
END FOR |
|||
FOR I=0 TO 1 DO |
|||
FOR J=0 TO 2 DO |
|||
READ(B[I,J]) |
|||
END FOR |
|||
END FOR |
|||
FOR I=0 TO UBOUND(ANS,1) DO |
|||
FOR J=0 TO UBOUND(ANS,2) DO |
|||
FOR K=0 TO UBOUND(A,2) DO |
|||
ANS[I,J]=ANS[I,J]+(A[I,K]*B[K,J]) |
|||
END FOR |
|||
END FOR |
|||
END FOR |
|||
! print answer |
|||
FOR I=0 TO UBOUND(ANS,1) DO |
|||
FOR J=0 TO UBOUND(ANS,2) DO |
|||
PRINT(ANS[I,J],) |
|||
END FOR |
|||
PRINT |
|||
END FOR |
|||
END PROGRAM |
|||
</lang> |
|||
{{out}}<pre> |
|||
9 12 15 |
|||
19 26 33 |
|||
29 40 51 |
|||
39 54 69 |
|||
</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |