Kronecker product based fractals: Difference between revisions
Content deleted Content added
Added Fōrmulæ solution |
|||
Line 2,573: | Line 2,573: | ||
end |
end |
||
</lang> |
</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}}== |
=={{header|Nim}}== |