Kronecker product based fractals: Difference between revisions
→{{header|Nim}}
(Added Fōrmulæ solution) |
|||
Line 2,573:
end
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>m = {{0, 1, 0}, {1, 1, 1}, {0, 1, 0}};
ArrayPlot[KroneckerProduct[m, m, m, m]]
m = {{1, 1, 1}, {1, 0, 1}, {1, 1, 1}};
ArrayPlot[KroneckerProduct[m, m, m, m]]
m = {{0, 1, 1}, {1, 0, 1}, {1, 1, 0}};
ArrayPlot[KroneckerProduct[m, m, m, m]]</lang>
{{out}}
Outputs three graphical visualisations of the three 4th order products.
=={{header|Nim}}==
| |||