\(c =  .3 +  .2  I; 
f[z_] := z^2 + c; 
r0 = 1.5; \  (*\ range\ *) 

    w = 0; 
n0 = 10;  (*\ the\ number\ of\ iteration\ *) 

    For[i = 0, i < n0, \(i++\), 
	
      Show[Graphics[Disk[{Re[w], Im[w]}, r0/40], AspectRatio -> Automatic, 
          Axes -> Automatic, PlotRange -> {{\(-r0\), r0}, {\(-r0\), r0}}]]; 
      w = f[w]]\)