Cel4.ma


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

Needs["Examples`CellularAutomata`"]

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}]