x=-2:.01:.6;
y=-1:.01:1;

figure;
hold on;

for l=1:length(x);
  for k=1:length(y);
    konec=1;
    z1=x(l);
    z2=y(k);
    z=0;
    c=z1+i*z2;
    while konec>0
	zn=z^2+c;
	
	konec=konec+1;
	if abs(z)>2
	  konec=-konec;	  
	end;
	if konec>20;
	  konec=0;
	end;
	z=zn;
    end;
    
    
    if konec==0
	plot(x(l),y(k),'k.');
    elseif konec<-18
	plot(x(l),y(k),'r.');
    elseif konec<-14
	plot(x(l),y(k),'b.');
    elseif konec<-10
    	plot(x(l),y(k),'c.');
    elseif konec<-5
	plot(x(l),y(k),'g.');
    end;
    

    
    
  end;
end;