Kronecker product based fractals: Difference between revisions
Added Factor
Thundergnat (talk | contribs) m (→{{header|C}}: Remove vanity tags) |
(Added Factor) |
||
Line 158:
}
</lang>
=={{header|Factor}}==
<lang factor>USING: io kernel math math.matrices sequences ;
: mat-kron-pow ( m n -- m' ) 1 - [ dup kron ] times ;
: print-fractal ( m -- )
[ [ 1 = "*" " " ? write ] each nl ] each ;
{ { 0 1 0 } { 1 1 1 } { 0 1 0 } }
{ { 1 1 1 } { 1 0 1 } { 1 1 1 } }
{ { 0 1 1 } { 0 1 0 } { 1 1 0 } }
[ 3 mat-kron-pow print-fractal ] tri@</lang>
Output shown at order 4 and 25% font size.
{{out}}
<pre style="font-size:25%">
*
***
*
* * *
*********
* * *
*
***
*
* * *
*** *** ***
* * *
* * * * * * * * *
***************************
* * * * * * * * *
* * *
*** *** ***
* * *
*
***
*
* * *
*********
* * *
*
***
*
* * *
*** *** ***
* * *
* * * * * * * * *
********* ********* *********
* * * * * * * * *
* * *
*** *** ***
* * *
* * * * * * * * *
*** *** *** *** *** *** *** *** ***
* * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * * * * * * *
*********************************************************************************
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * *
*** *** *** *** *** *** *** *** ***
* * * * * * * * *
* * *
*** *** ***
* * *
* * * * * * * * *
********* ********* *********
* * * * * * * * *
* * *
*** *** ***
* * *
*
***
*
* * *
*********
* * *
*
***
*
* * *
*** *** ***
* * *
* * * * * * * * *
***************************
* * * * * * * * *
* * *
*** *** ***
* * *
*
***
*
* * *
*********
* * *
*
***
*
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
* * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * *
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
********* ****************** ****************** *********
* ** ** * * ** ** ** ** ** * * ** ** ** ** ** * * ** ** *
********* ****************** ****************** *********
*** *** *** ****** *** *** ****** *** *** ***
* * * * * * * ** * * * * * * ** * * * * * * *
*** *** *** ****** *** *** ****** *** *** ***
********* ****************** ****************** *********
* ** ** * * ** ** ** ** ** * * ** ** ** ** ** * * ** ** *
********* ****************** ****************** *********
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
* * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * *
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
*************************** ***************************
* ** ** ** ** ** ** ** ** * * ** ** ** ** ** ** ** ** *
*************************** ***************************
*** ****** ****** *** *** ****** ****** ***
* * * ** * * ** * * * * * * ** * * ** * * *
*** ****** ****** *** *** ****** ****** ***
*************************** ***************************
* ** ** ** ** ** ** ** ** * * ** ** ** ** ** ** ** ** *
*************************** ***************************
********* ********* ********* *********
* ** ** * * ** ** * * ** ** * * ** ** *
********* ********* ********* *********
*** *** *** *** *** *** *** ***
* * * * * * * * * * * * * * * *
*** *** *** *** *** *** *** ***
********* ********* ********* *********
* ** ** * * ** ** * * ** ** * * ** ** *
********* ********* ********* *********
*************************** ***************************
* ** ** ** ** ** ** ** ** * * ** ** ** ** ** ** ** ** *
*************************** ***************************
*** ****** ****** *** *** ****** ****** ***
* * * ** * * ** * * * * * * ** * * ** * * *
*** ****** ****** *** *** ****** ****** ***
*************************** ***************************
* ** ** ** ** ** ** ** ** * * ** ** ** ** ** ** ** ** *
*************************** ***************************
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
* * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * *
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
********* ****************** ****************** *********
* ** ** * * ** ** ** ** ** * * ** ** ** ** ** * * ** ** *
********* ****************** ****************** *********
*** *** *** ****** *** *** ****** *** *** ***
* * * * * * * ** * * * * * * ** * * * * * * *
*** *** *** ****** *** *** ****** *** *** ***
********* ****************** ****************** *********
* ** ** * * ** ** ** ** ** * * ** ** ** ** ** * * ** ** *
********* ****************** ****************** *********
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
* * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * ** * * *
*** ****** ****** ****** ****** ****** ****** ****** ****** ***
*********************************************************************************
* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *
*********************************************************************************
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
** ** ** **
* * * *
** ** ** **
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
** ** ** **
* * * *
** ** ** **
** **
* *
** **
** ** ** **
* * * *
** ** ** **
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
** ** ** **
* * * *
** ** ** **
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
** ** ** **
* * * *
** ** ** **
** **
* *
** **
** ** ** **
* * * *
** ** ** **
** **
* *
** **
**
*
**
** **
* *
** **
** ** ** **
* * * *
** ** ** **
** **
* *
** **
** ** ** **
* * * *
** ** ** **
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
** ** ** **
* * * *
** ** ** **
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
** ** ** **
* * * *
** ** ** **
** **
* *
** **
** ** ** **
* * * *
** ** ** **
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
** ** ** **
* * * *
** ** ** **
** ** ** ** ** ** ** **
* * * * * * * *
** ** ** ** ** ** ** **
</pre>
=={{header|gnuplot}}==
| |||