Lawrence J. Thaden
Registered: Jan 2004
Posts: 350 |
Equivalent Behaviors — But Rules from Different Systems
Identical output is found from these two rules from different discrete systems.
The first is from so called modulistic 4 color rule 100.
The second is from totalistic 3 color rule 1749, which can be found illustrated in the NKS book on page 63.
To get the first output I used:
updateCell[rule_, neighborhood_] : = Reverse[rule][[Mod[Total[neighborhood], Length[rule]] + 1]]
To get the second output:
CellularAutomaton[{1749, {3, 1}, 1}, {{1}, 0}, 1024]
Lawrence J. Thaden has attached this image:
__________________
L. J. Thaden
Report this post to a moderator | IP: Logged
|
01-20-2006 05:57 PM
