Kronecker product based fractals: Difference between revisions

Content added Content deleted
imported>Maxima enthusiast
imported>Maxima enthusiast
Line 2,792: Line 2,792:


=={{header|Maxima}}==
=={{header|Maxima}}==
Using function defined in Kronecker product task page. [[https://rosettacode.org/wiki/Kronecker_product#Maxima|KroneckerProduct]]
Using function defined in Kronecker product task page. [[https://rosettacode.org/wiki/Kronecker_product#Maxima Kronecker Product]]


[[File:Vicsek.png|thumb]]

[[File:SierpinskiCarpet.png|thumb]]
<syntaxhighlight lang="maxima">
<syntaxhighlight lang="maxima">
pow_kron(matr,n):=block(MATR:copymatrix(matr),
pow_kron(matr,n):=block(MATR:copymatrix(matr),
Line 2,816: Line 2,813:
at(%,[0="",1="x"]);
at(%,[0="",1="x"]);
</syntaxhighlight>
</syntaxhighlight>

[[File:Vicsek.png|thumb|center]]

[[File:SierpinskiCarpet.png|thumb|center]]


=={{header|Nim}}==
=={{header|Nim}}==