I am impressed how well the web page of that blog is designed. The links in the text affect and switch the images and M-code in the blog. Kudos goes to Antonio for such a brilliant educational creative work. So many young people online gave positive comments to this that I wonder if this is an example of how to engage students of the future with creativity, art and humor even in math and programming.
One of my favorite graphics from the post:
vertices =(**)5(**) {Cos[#], Sin[#]} & /@ (2 Pi Range[3]/3);
check = Compile[{{x, _Real, 0}, {y, _Real, 0}},
Module[{i, b, diff, z = {0., 0.}, vertices = vertices},
Total@Table[i = 0; z = {x, y};
While[z.z < 40 && i++ < 120, b = RandomChoice[vertices];
diff = b - z;
z = (z + b) Sin[Sqrt[diff.diff] + .01]];
-i, {20(*0*)(*number of trials*)}]]];
img = ImageAdjust@
Image@ParallelTable[
check[x, y], {y, -6.5, 6.5, .01}, {x, -6.5, 6.5, .01}];
img // Colorize // ImageAdjust // ColorConvert[#, "Grayscale"] & //
ImageAdjust // ImageResize[#, Scaled[1/2]] & //
ImageRotate[#, -Pi/2] & // ColorNegate //
ImageApply[#^(1/1.3) &, #] &
draw[block_, options___] :=
Graphics3D[{EdgeForm[Darker[Gray]], Cuboid /@ Position[block, 1]},
options, ViewVertical -> {-1, 0, 0}, Boxed -> False];
f[block_, _] :=
Switch[{block[[2, 2, 2]], Total[block, 3] - block[[2, 2, 2]]}, {_,
4}(*|{1,2}*), 1, _, 0];
evol = CellularAutomaton[{f, {}, {1, 1,
1}}, {{{{1, 1}, {1, 1}(*,{1,1},{1,1}*)}}, 0}, 15];
ListAnimate[
draw[#, Lighting -> "Neutral", ImageSize -> 400 {1, 1}] & /@ evol]