Anonymous user
Kronecker product: Difference between revisions
no edit summary
(→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details) |
No edit summary |
||
Line 1,334:
</pre>
=={{header|Lua}}==
<lang lua>
function mxn( a, b )
print( "A x B:" )
for m = 1, #a do
for p = 1, #b do
for n = 1, #a[m] do
for q = 1, #b[p] do
io.write( string.format( "[%d x %d] ", a[m][n], b[p][q] ) )
end
end
print()
end
end
end
function prod( a, b )
print( "\nPRODUCT:" )
for m = 1, #a do
for p = 1, #b do
for n = 1, #a[m] do
for q = 1, #b[p] do
io.write( string.format( "%3d ", a[m][n] * b[p][q] ) )
end
end
print()
end
end
end
function aabb( a, b )
print( "\nAROW,ACOL x BROW,BCOL:" )
for m = 1, #a do
for p = 1, #b do
for n = 1, #a[m] do
for q = 1, #b[p] do
io.write( string.format( "[(%d, %d) x (%d, %d)] ", m, n, p, q ) )
end
end
print()
end
end
end
</lang>
{{out}}
<pre>
PRODUCT:
0 5 0 10
6 7 12 14
0 15 0 20
18 21 24 28
PRODUCT:
0 0 0 0 1 1 1 1 0 0 0 0
0 0 0 0 1 0 0 1 0 0 0 0
0 0 0 0 1 1 1 1 0 0 0 0
1 1 1 1 1 1 1 1 1 1 1 1
1 0 0 1 1 0 0 1 1 0 0 1
1 1 1 1 1 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 0 0 0 0
0 0 0 0 1 0 0 1 0 0 0 0
0 0 0 0 1 1 1 1 0 0 0 0
</pre>
=={{header|PARI/GP}}==
{{Works with|PARI/GP|2.9.1 and above}}
| |||