Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Mandelbrot-set/Mathematica/mandelbrot-set-1.math
+++ b/Task/Mandelbrot-set/Mathematica/mandelbrot-set-1.math
--- a/Task/Mandelbrot-set/Mathematica/mandelbrot-set-2.math
+++ b/Task/Mandelbrot-set/Mathematica/mandelbrot-set-2.math
@ -0,0 +1,7 @@
+cf = With[{
+      mandel = Block[{z = #, c = #},
+        Catch@Do[If[Abs[z] > 2, Throw@i]; z = z^2 + c, {i, 100}]] &
+    },
+   Compile[{},Table[mandel[y + x I], {x, -1, 1, 0.005}, {y, -2, 0.5, 0.005}]]
+  ];
+ArrayPlot[cf[]]