Cel1.ma
Una presentazione, con la regola 

{a_,x_,b_}  :> Mod[a+b,2]   o "regola Modulo 2"

detta anche regola 90, a motivo della lettura come decimale del numero binario risultante dai seguenti "denominatori", che si applicano nella trasformazione ai "numeratori" ordinati come segue (da 7 a 0)

1 1 1  1 1 0  1 0 1  1 0 0  0 1 1  0 1 0  0 0 1  0 0 0
-----  -----  -----  -----  -----  -----  -----  -----
  0      1      0      1      1      0      1      0

2^^01011010

BaseForm[90, 2]

?:>

?Get

Get["cellular.m", 
      Path  ->  {"\N_L_Mathematica\Cell"}]

l = CenterSpot[{1}, 100];

r = NumberedRule[90];

r

ev = EvolveCA[l, r, 50];

ShowCA[ev]