Message Boards

WOLFRAM COMMUNITY

15877 Views

4 Replies

19 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Staff Picks Visual Arts Discrete Mathematics Dynamic Interactivity Graphics and Visualization Wolfram Language

[GiF] Mandelzoom one-liner

Michael Sollami

Michael Sollami, Salesforce

Posted 7 years ago

Hey Wolfram Community. I'm always continually enthused by how concise mathematica code can be. I was looking over my collection of 1-liners and found this old gem. I would like to see any other language do this is as many characters: Here's the code: w = {-{3, 1}, {1, 1}}; Dynamic[w = ScalingTransform[.96 {1, 1}, {-1.56, 0}]@w; ImageAdjust@MandelbrotSetPlot[Complex @@@ w, Frame -> None]] Challenge: can you tweak the parameters to make it loop around? And here's code to export the above gif: w = {-{3, 1}, {1, 1}}; AbsoluteTiming[ f = Table[Do[w = ScalingTransform[.98 {1, 1}, {-1.56, 0}]@w;, 4]; MandelbrotSetPlot[Complex @@@ w, Frame -> None, PlotRangePadding -> 0, ImageResolution -> 1000, MaxIterations -> 100, EscapeRadius -> 10000, ColorFunction -> ColorData["SunsetColors"], PerformanceGoal -> "Quality"], {300}];] Export["mz.gif", f, "DisplayDurations" -> Table[.05, Length@f], ImageResolution -> 500]

Hey Wolfram Community. I'm always continually enthused by how concise mathematica code can be. I was looking over my collection of 1-liners and found this old gem. I would like to see any other language do this is as many characters:

enter image description here

Here's the code:

w = {-{3, 1}, {1, 1}};
Dynamic[w = ScalingTransform[.96 {1, 1}, {-1.56, 0}]@w;
 ImageAdjust@MandelbrotSetPlot[Complex @@@ w, Frame -> None]]

Challenge: can you tweak the parameters to make it loop around?

And here's code to export the above gif:

w = {-{3, 1}, {1, 1}};
AbsoluteTiming[
 f = Table[Do[w = ScalingTransform[.98 {1, 1}, {-1.56, 0}]@w;, 4];
    MandelbrotSetPlot[Complex @@@ w, Frame -> None, PlotRangePadding -> 0,
      ImageResolution -> 1000, MaxIterations -> 100, EscapeRadius -> 10000, 
     ColorFunction -> ColorData["SunsetColors"], PerformanceGoal -> "Quality"], {300}];]
Export["mz.gif", f, "DisplayDurations" -> Table[.05, Length@f], ImageResolution -> 500]

POSTED BY: Michael Sollami

4 Replies

Sort By:

Michael Sollami

Michael Sollami, Salesforce

Posted 7 years ago

Hi @Kapio Letto, Thanks for the shout out! Indeed, it's a rather cool fact that it contains exactly self-similar pieces: It would repeat itself infinitely with the right zoom point, but in the above example it manages only twice (before the numerical issues break the pattern).

POSTED BY: Michael Sollami

Kapio Letto

Kapio Letto, Consalting

Posted 7 years ago

Very nice, thanks for sharing! Challenge: can you tweak the parameters to make it loop around? I did not know it is possible to loop the Mandelbrot Set zoom. I thought there are very similar zoomed regions but not quite the same as original-zoom set.