Cel5.ma
Sempre in una dimensione (r=1), ma con quattro valori (k=4), cioè {0,1,2,3}

NB eseguire dopo aver rilanciato Mathematica, per conflitti con $Context

Needs["Lez`Cellula2`"]

l=CenterSpot[{1},50];

k=4;rr=3; (* "stati possibili" per "dim. ambiente" *)
k^rr

r0=4^^3213211230330221212320012032023213211230330221212320012032023120                     (* es. con 32 cifre *)

r=NumberedRule[r0]

ShowCA[EvolveCA[l,r,30]]