Conjunto de Julia 

Grafique los puntos de gráfica en el conjunto de Julia.

In[1]:=

X julia = JuliaSetPlot[z^2 + (-0.123 + 0.745 I), z, PlotStyle -> AbsolutePointSize[1.6], ColorFunction -> None, Frame -> False, Axes -> False]

Out[1]=

Llene cada región en el conjunto de Julia con un color único.

In[2]:=

X Colorize[MorphologicalComponents[julia, .5], ColorFunction -> (Blend[{{0, GrayLevel[.33]}, {.01, RGBColor[ 0.9, 0.25, 0.25]}, {.125, RGBColor[ 0.9562499999999999, 0.53125, 0.11812500000000001`]}, {.25, RGBColor[0.8875, 0.7375, 0.]}, {.4, RGBColor[ 0.3437499999999999, 0.7, 0.2625000000000001]}, {.55, RGBColor[ 0.125, 0.6, 0.85]}, {.7, RGBColor[ 0.40625, 0.40624999999999994`, 1.]}, {.85, RGBColor[ 0.59, 0.2975, 0.7749999999999999]}, {1, RGBColor[ 0.73375, 0.28, 0.5249999999999999]}}, #1] &)]

Out[2]=