Apfelmännchen

\(Mandel[pq_Complex, \ MaxIter_Integer]\  := 
\ \ \ 
      Module[\ {\ xy\  = \ 0, \ i\ }, 
\ \ \ \ \ 
        For[i\  = \ 0, \ xy\  = \ xy*xy + pq; 
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
          \((\ Abs[xy]\  < \ 1000)\)\  && \ \((\ i\  < \ MaxIter\ )\), 

          \ \ \ \ \ \ \ \ \ \(i++\)
\ \ \ \ \ ]; \ i
\ \ \ ]\)

\(\(Plot3D[Mandel[x + I*y, 16], 
      \ {x, \ \(-2.25\), 0.75}, {y, \(-1.5\), 1.5}, \ PlotPoints\  -> \ 40]

    \)\)