Cel4.ma


Provare 50 94 54 104 (!) 126, ma iniziando con un vettore a caso

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

l = Table[Random[Integer], {100}];

r = NumberedRule[90];

ev = EvolveCA[l, r, 50];

ShowCA[ev]

Oppure in modo automatico

regole = {90, 50, 94, 54, 104, 126};

Eseguire e poi animare

lIni = Table[Random[Integer], {100}];
For[t = 1, t ≤ 6, t++, 
      ShowCA[EvolveCA[lIni, 
          NumberedRule[regole[[t]]], 
          50]]]

. . .   oppure   . . .

Table[lIni = Table[Random[Integer], {100}]; 
      ShowCA[EvolveCA[lIni, NumberedRule[90], 50]], {5}]