This is the smooth color algorithm: Lets say you start with the complex number z0 and iterate n times until it escapes. Let the end point be zn. A smooth value would be nsmooth := n + 1 – Math.log(Math.log(zn.abs()))/Math.log(2) This only works for mandelbrot, if you want to compute a smooth function for julia … Read more
There was a perl solution already some years ago posted in perlmonks, it reads: #!/usr/bin/perl $r=25; $c=80; $xr=6;$yr=3;$xc=-0.5;$dw=$z=-4/ 100;local$”;while($q=$dr=rand() /7){$w+=$dw;$_=join$/,map{$Y=$_* $yr/$r; join”” ,map{$ x=$_*$ xr/$c;($ x,$y)= ($xc+$x *cos($ w)-$Y* sin$w,$yc+ $x*sin ($w)+$Y*cos $w);$ e=-1;$ a=$b=0 ;($a,$b) =($u-$v+$x,2*$a* $b+$y) while( $ u=$a*$ a)+($v=$b*$b)<4.5 &&++$e <15;if (($e>$ q&&$e< 15)||($e==$q and rand() <$dr)) {$q=$e;($d0,$d1) =($x,$ y); } chr(+( … Read more