Kronecker product: Difference between revisions
Add APL
Not a robot (talk | contribs) (Add APL) |
|||
Line 421:
</pre>
=={{header|APL}}==
{{works with|Dyalog APL}}
<lang apl>kprod ← ⊃ (,/ (⍪⌿ (⊂[3 4] ∘.×)))</lang>
{{out}}
<pre style="line-height: normal;"> a←2 2⍴ 1 2 3 4
b←2 2⍴ 0 5 6 7
a b (a kprod b)
┌───┬───┬───────────┐
│1 2│0 5│ 0 5 0 10│
│3 4│6 7│ 6 7 12 14│
│ │ │ 0 15 0 20│
│ │ │18 21 24 28│
└───┴───┴───────────┘
x ← 3 3⍴ 0 1 0 1 1 1 0 1 0
y ← 3 4⍴ 1 1 1 1 1 0 0 1 1 1 1 1
x y (x kprod y)
┌─────┬───────┬───────────────────────┐
│0 1 0│1 1 1 1│0 0 0 0 1 1 1 1 0 0 0 0│
│1 1 1│1 0 0 1│0 0 0 0 1 0 0 1 0 0 0 0│
│0 1 0│1 1 1 1│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|AppleScript}}==
<lang applescript>------------ KRONECKER PRODUCT OF TWO MATRICES -------------
| |||