Anonymous user
Kronecker product: Difference between revisions
m
→{{header|REXX}}: fixed two typos.
m (→{{header|Haskell}}: Minor rearrangement for fewer brackets) |
m (→{{header|REXX}}: fixed two typos.) |
||
Line 1,778:
call makeMat 'A', aMat /*construct A matrix from elements.*/
call makeMat 'B', bMat /* " B " " " */
call KronMat 'Kronecker product' /*calculate the Kronecker
w=0; say; say copies('░', 55); say /*display a fence between the 2 outputs*/
aMat= 3x3 0 1 0 1 1 1 0 1 0 /*define A matrix size and elements.*/
Line 1,784:
call makeMat 'A', aMat /*construct A matrix from elements.*/
call makeMat 'B', bMat /* " B " " " */
call KronMat 'Kronecker product' /*calculate the Kronecker
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
| |||