Life

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

LifeBlock

Glider

Mondo0 = Table[Table[0, {4}], {3}];

MatrixForm[Mondo0]

Mondo = 
        AddObject[
          Mondo0, {2, 2}, {{-1, 1}, {0, 0}, {1, 1}}];

MatrixForm[Mondo]

?Wrap

?/@

sviluppo = Wrap[Map[Wrap, Mondo]]

partSvil = Partition[sviluppo, {3, 3}, {1, 1}]

?LifeRule

(regole :  
          una cella diventa viva se ha accanto a sé esattamente tre cellule vive;  
        una cellula vive solo se ha accanto a sé due o tre cellule vive)

Map[LifeRule, partSvil, {2}]

Mondo2 = LifeUpdate[Mondo]

ListDensityPlot[Mondo2 (-1)]

Mondo0 = Table[Table[0, {11}], {11}];

Mondo = AddObject[Mondo0, {3, 9}, Glider];

ListDensityPlot[Mondo (-1)]

Mondo = AddObject[Mondo0, {3, 9}, Glider];
ListDensityPlot[Mondo (-1)]
For[ciclo = 1, ciclo ≤ 18, ciclo++, 
      Mondo = LifeUpdate[Mondo]; 
ListDensityPlot[
        Mondo (-1)]]