function frac = fraci(n)
%
frac = zeros(n,n);
z0 = -1 -2.5*i;
step = 5/n;
for r = 1:n
  for c = 1:n
    z = z0 + (r-1)*step*i + (c-1)*step;
    found = 0;
    for it = 1:500
      z = 0.369*exp(z);
      if abs(real(z))>50 | isnan(real(z))
        frac(r,c) = it;
	found = 1;
      end;
      if found==1
        break;
      end
    end
  end
end

