Kronecker product based fractals: Difference between revisions
Content added Content deleted
(Added FreeBASIC) |
(Added Easylang) |
||
Line 615: | Line 615: | ||
[[Media:Kronecker fractals sierpinski triangle.png]]<br> |
[[Media:Kronecker fractals sierpinski triangle.png]]<br> |
||
[[Media:Kronecker fractals vicsek.png]] |
[[Media:Kronecker fractals vicsek.png]] |
||
=={{header|EasyLang}}== |
|||
[https://easylang.online/show/#cod=https://easylang.online/show#cod=bVBBbsMwDLv7FTwMw1ZgWTxgx7zE8KE1HKxYYrtKura/HyQnq5314igkRUnsz8EZayy+KRH2Uh7kbRSAPhJGdNCYIwYfsoKZhUwleShIACQ+zx0MCpS7Qm05Vm2L5lQ7p61GBjwtE8QjWOyy8lRLG/WvlK885OczhbysalRfBBIvSyJhkcoP32OgYfNVvOuR9wyqPLsrE6U1mEcTE0WH6StekHLwWeUGvycuOCzOIK0mk+No2hbveSZvQOUGDLgSAHBFhxeHN+hX7DC5O3Njhh4xY/zxuOJ2R449kiFrHB+oq5DJu5lXKw02aTdKzszJ5hC1BMlV+1dlzOJTTYP3CR/btlbktjJYMW5Tvw== Run it] |
|||
<syntaxhighlight> |
|||
func[][] krpr a[][] b[][] . |
|||
for m = 1 to len a[][] |
|||
for p = 1 to len b[][] |
|||
r[][] &= [ ] |
|||
for n = 1 to len a[m][] |
|||
for q = 1 to len b[p][] |
|||
r[$][] &= a[m][n] * b[p][q] |
|||
. |
|||
. |
|||
. |
|||
. |
|||
return r[][] |
|||
. |
|||
func[][] krpow a[][] n . |
|||
r[][] = [ [ 1 ] ] |
|||
for i to n |
|||
r[][] = krpr a[][] r[][] |
|||
. |
|||
return r[][] |
|||
. |
|||
proc show p[][] . . |
|||
clear |
|||
n = len p[][] |
|||
sc = 100 / n |
|||
for r to n |
|||
for c to n |
|||
x = (c - 1) * sc |
|||
y = (r - 1) * sc |
|||
move x y |
|||
if p[r][c] = 1 |
|||
rect sc sc |
|||
. |
|||
. |
|||
. |
|||
. |
|||
show krpow [ [ 1 1 1 ] [ 1 0 1 ] [ 1 1 1 ] ] 5 |
|||
sleep 2 |
|||
show krpow [ [ 0 1 0 ] [ 1 1 1 ] [ 0 1 0 ] ] 5 |
|||
</syntaxhighlight> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |