Cantor set: Difference between revisions
Content deleted Content added
Line 232: | Line 232: | ||
cantor(inicio, largo, índice) |
cantor(inicio, largo, índice) |
||
seg=0 |
seg=0 |
||
#( seg:=(int(largo/3))) |
#( seg:=(int(largo/3))), no es cero?, entonces{ |
||
#basic{ |
|||
líneas[índice:HEIGHT, (inicio+seg):((inicio+seg*2)-1)] = " ") |
|||
cantor( inicio, seg, índice+1 ) ) |
|||
cantor( (inicio+(seg*2)), seg, índice+1 ) ) |
|||
⚫ | |||
} |
} |
||
retornar |
retornar |
||
Line 252: | Line 253: | ||
<syntaxhighlight lang="c"> |
<syntaxhighlight lang="c"> |
||
#include <basico.h> |
#include <basico.h> |
||
#define HEIGHT 5 |
|||
algoritmo |
algoritmo |
||
decimales '0' |
decimales '0' |
||
cantor="", j=0 |
|||
iterar |
iterar |
||
i=0 |
|||
c |
cadenas 'c,s,v' |
||
iterar grupo ( ++i, #(i< (3^j)),\ |
iterar grupo ( ++i, #(i< (3^j)),\ |
||
#( c = |
#( c = c $ v:=(occurs("1", dectobase(i,3)) ? " " : "#";))\ |
||
#( |
#( s = s $ replicate(v, 3^(HEIGHT-j-1) )) ) |
||
#(cantor = cantor $ s $ NL) |
|||
mientras ' #(j<=HEIGHT); ++j ' |
|||
#( s = cat(s, replicate( v, seg_size ))) |
|||
⚫ | |||
⚫ | |||
⚫ | |||
siguiente |
|||
terminar |
terminar |