Registered: Aug 2003
Posts: 712

December 3, one Thomas Richter posted the following CA question on his site -

http://www.mathekalender.de/aufgaben/3/3.php

Which basically asks if on a 1024 x 1024 square grid with periodic boundary condition a CA with initially one black cell that splits in each step into all four directions, all black cells ever disappear.

I am told that most German schools, grade 11+ are required to take part in this calender competition, sort of math olympiad style. Winners get various goodies.

The question can be asked in Mathematica code rather simply, as -


ArrayPlot[Last[
  CellularAutomaton[{2, {2, {{0, 1, 0}, {1, 0, 1}, {0, 1, 0}}}, {1, 1}}, ReplacePart[Table[0, {1024}, {1024}], 1, {512, 512}], 511, -1]]]


Then try changing that "511"...

For what it is worth.

Report this post to a moderator | IP: Logged