Fraktálok - még...

írta: bkercso, 3 éve

Folytatva a megkezdett fraktálozást, pár kép kötetlenül.
Burning Bird és Burning Ship frakátlok belső színezése következik (vagyis a nem-divergens részeké, amik általános ábrázoláskor feketék maradnak).
A kód alapötletét Kali publikálta a FractalForums-on vagy 8 éve. A kettő közül valamelyik, ahol zk az aktuális komplex szám négyzete:

m_old:=m;
m:=sqrt(zk);
if m>1E-10 then sum:=sum+abs(m_old-m)/m;

mold:=m;
m:=sqrt(zk);
sum:=sum+exp(-m-abs(mold-m)/2);

Ezt iterációnként el kell végezni és a végén sum szerint színezni.
Az iterációs számot belső színezésnél pontosabban be kell lőni, mint a hagyományos színezéseknél, mert ettől függ a képek információsűrűsége.

És végül egy, amit nem a saját "kis" Pascal-programommal, hanem a FractView mobilappal készítettem: