| Author |
Comment/Response |
Elad Yosef
|
 05/28/05 10:01am
Hi'
I'm trying to animate 2D cellular automaton
CA=CellularAutomaton[{746,{2,{{2,2,2},{2,1,2},{2,2,2}}},{1,1}},{{{1,1,1,1,1}},0},30,{All,All}];
And I want to show its evaluation, means I need to plot "slice" by "slice"
another solution will be to rotate the 3D object:
Graphics3D[Map[Cuboid[-Reverse[#]]&,Position[CA,1]]]//Show
URL: , |
|
