23
|
23669 Views
|
6 Replies
|
52 Total Likes
View groups...
Share
GROUPS:

# The Sierpinski Triangle page to end most Sierpinski Triangle pages

Posted 11 years ago
6 Replies
Sort By:
Posted 11 years ago
Posted 11 years ago
 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]
Posted 11 years ago
 We at Wolfram enjoyed Antonio's blog post so much we shared news about it on our official social media channels:
Posted 11 years ago
 What an incredible way to use Mathematica! The visuals available on the blog post are really fascinating.
Posted 11 years ago
 I'm 1/2 way through hoping he'll find a Sierpinski triangle in a financial data set to excuse me reading this in meeting prep time, but somehow I don't think I'm in charge.You might be wondering why we don't just ask a biologist about these mysteries. The reason is because you're inside a car right now, I'm driving, we're lost, both of us are tourists, and I'm one of those people that would sooner burn hours of gasoline/diesel than ask for directions. You also suspect I might be some kind of criminal, so you're afraid of bringing up the issue. All around it's pretty awkward in here.
Posted 11 years ago
 @Vitaliy, you have great taste of visual design, too.