[alternate layout centered about a single seed cell] - A New Kind of Science: The NKS ForumA New Kind of Science: The NKS Forum
Pages:1
alternate layout centered about a single seed cell
(Click here to view the original thread with full colors/images)
Posted by: Philip Ronald Dutton
I wanted to play around with alternating layouts for the elementary CA rules. The idea I had would be to use a single cell for the seed. Apply the rule once and layout the output on one "side" (top or bottom) of the previous step's output. Going about in an alternate fashion, one might find interesting patterns. I did this with rule 90 in the attached .gif file.
I am sure the mathematica code would be simple to write if you have mathematica. It would be fun to see a few runs from each of the elementary rules.
If someone out there is up to the 10 minute challenge then please post your results.
Posted by: Jesse Nochella
apply this function to the output:
alternateLayout[output_] :=
Flatten[Reverse@{#[[1]], Reverse[#[[2]]]}, 1] &[
Transpose[Partition[output, 2]]]
Posted by: Philip Ronald Dutton
...Now, if only my trial version of Mathematica had not expired. Thanks for the feedback. I sure would like to see some pics.
Posted by: Lawrence J. Thaden
alternateLayout[output_] := Flatten[Reverse@{#[[1]], Reverse[#[[2]]]},
1] &[Transpose[Partition[output, 2]]]
r90 = ArrayPlot[plotdata = CellularAutomaton[90, {{1},
0}, 128], PlotLabel -> "R 90"];
altr90 = ArrayPlot[alternateLayout[plotdata], PlotLabel -> "Alt R 90"];
SetDirectory["C:\\Documents and Settings\\Lawrence\\My \
Documents\\Mathematica"]
Show[GraphicsArray[{r90, altr90}], ImageSize -> 775];
Export["r90altr90.gif", %, First@AbsoluteOptions[%, ImageSize]]
Forum Sponsored by Wolfram Research
© 2004-2013 Wolfram Research, Inc. | Powered by vBulletin 2.3.0 © 2000-2002 Jelsoft Enterprises, Ltd. |
Disclaimer
vB Easy Archive Final - Created by Xenon and modified/released by SkuZZy from the Job Openings