I have been doing research into reversible cellular automata and have used code presented in A New Kind of Science http://www.wolframscience.com/nksonline/page-1017f-text
to construct array plots of 2nd order cellular automata of radius 1.
I now need to extend the idea to construct 2nd order automata of radius 2 and radius 3 (e.g. 5-neighbourhood and 7-neighbourhood respectively).
Please find attached the notebook with the code for radius 1, 2rd order CA. There are functions on mathematica for creating radius 2 and 3 automata, but as the method for constructing 2nd order strays quite far from the built in commands, I don't really know how to modify it for my needs.
Any help would really be appreciated.
Attachment: 2ndorderradius1.nb, URL: ,