Kronecker product based fractals: Difference between revisions
Added Easylang
(Added FreeBASIC) |
(Added Easylang) |
||
Line 615:
[[Media:Kronecker fractals sierpinski triangle.png]]<br>
[[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}}==
| |||