Distâncias de conjuntos de Mandelbrot 

A função de distância de conjunto de Mandelbrot estima a distância do conjunto de Mandelbrot. É uma das muitas funções relacionadas à funcionalidade de fractais que é nova no Mathematica 10.

mostre o input completo de Wolfram Languageoculte o input

In[1]:=

X data = Table[ Max[MandelbrotSetDistance[#, "Interior"], MandelbrotSetDistance[#]/4] &[x + I*y], {y, -1, 1, .02}, {x, -2, .6, .02}];

In[2]:=

X ListPlot3D[data, Boxed -> False, Axes -> False, Mesh -> None, ImageSize -> 450, BoundaryStyle -> None]

Out[2]=

mostre o input completo de Wolfram Languageoculte o input

In[3]:=

X data = Table[ MandelbrotSetDistance[x + I*y, "Interior", MaxIterations -> 100], {x, -2., 1., .031}, {y, -1.5, 1.5, .031}];

In[4]:=

X ListPlot3D[data, Mesh -> None, PlotRange -> Full, Boxed -> False, Axes -> False, ImageSize -> 450, BoundaryStyle -> None]

Out[4]=

mostre o input completo de Wolfram Languageoculte o input

In[5]:=

X data = Table[ MandelbrotSetDistance[x + I*y, MaxIterations -> 120], {y, -1.5, 1.5, .01}, {x, -2, 1, .01}];

In[6]:=

X ListPlot3D[data, Mesh -> None, Boxed -> False, Axes -> False, ImageSize -> 450, BoundaryStyle -> None]

Out[6]=

Linhas equipotenciais para os fractais podem ser visualizadas usando as novas funções de Böttcher.

In[7]:=

X Grid[Partition[{ArrayPlot[ Table[Sin[ 100 Abs[MandelbrotSetBoettcher[x + I*y(*, MaxIterations\[Rule]30*)]]], {y, -1, 1, .01}, {x, -2.6, .5, .01}], ImageSize -> 300], ArrayPlot[ Table[Sin[100 Abs@JuliaSetBoettcher[1 + I, x + I*y]], {y, -1.4, 1.4, .01}, {x, -1.6, 1.6, .01}], ImageSize -> 300]}, 2]]

Out[7]=