Hola, la última respuesta de Jabato está perfecta. Utilizando la versión 7.0.0 de mathematica, pueden visualizarse las iteraciones de una manera muy fácil:
RegionPlot[
Abs[Nest[(#^2 + x + I y) &, x + I y, 15]] < 2, {x, -1.5,
0.5}, {y, -1.1, 1.1}, Mesh -> All, PlotPoints -> 200]
Y como en mathematica se puede integrar sobre regiones, podemos ir estimando el área de este fractal de la siguiente manera:
AreaConv =
Parallelize[
Table[{n,
NIntegrate[
Boole[Abs[Nest[(#^2 + x + I y) &, x + I y, n]] < 2], {x, -1.5,
0.5}, {y, -1.1, 1.1}] // Quiet}, {n, 2, 15}]]
Si no dispones de un computador multicore, puedes quitar la instrucción Parallelize, ya que esta hace que el proceso se distribuya a los 4 núcleos de cada una de las 6 PC que hay en la RED de la oficina, y así computar más rápido.
Después de unos pocos segundos, obtenemos la lista de pares iteración-área:
{{2, 3.58885}, {3, 3.08305}, {4, 2.70543}, {5, 2.46682}, {6,
2.29295}, {7, 2.17252}, {8, 2.0763}, {9, 2.00276}, {10,
1.94645}, {11, 1.89874}, {12, 1.8555}, {13, 1.82407}, {14,
1.79876}, {15, 1.78004}}
Si queremos ver un gráfico de la convergencia:
ListPlot[AreaConv, AxesOrigin -> {0, 0}]
Para ver la forma rigurosa de obtener el área del fractal visiten:
http://mathworld.wolfram.com/MandelbrotSet.html