Реферат: Клеточные автоматы и компьютерная экология
a(8) = 0.15
a(9) = 0.25
z = 7
Zmin = 0
Zmax = 2
R = Zmax - Zmin
R4 = R / 4
Z14 = Zmin + R4
Z24 = Z14 + R4
Z34 = Z24 + R4
n = 50
G = 50
For f = 1 To G
b(35, 35) = z
b(45, 15) = z / 2
For i = 2 To n - 1
For j = 2 To n - 1
c(i, j) = 0
k = 0
For l = -1 To 1
For m = -1 To 1
k = k + 1
c(i, j) = c(i, j) + a(k) * b(i + l, j + m)
Next m
Next l
Next j
Next i
For i = 1 To n
For j = 1 To n