"Zasiewanie" z zadaną gęstością (CA)

Wracamy dziś do jednowymiarowego automatu komórkowego (ang. Cellular Automaton, stąd skrót CA). Program opiera się niemal w całości na poprzednim przykładzie z jedną różnicą - zamiast pojedynczego ziarna automatu umieszczonego w środku "tablicy świata" wprowadzamy możliwość początkowego zasiania tablicy losowo z zadaną gęstością.

Sprowadza się to do jednego dodatkowego parametru modelu (IDens) oraz jednej pętli w procedurze setup(). Reszta kodu pozostaje niemal bez zmian. Czym się różni, zobaczycie, jeśli zaimplementujecie dokładnie ten powyższy kod.