Форум программистов, компьютерный форум, киберфорум
Наши страницы
zink0000
Войти
Регистрация
Восстановить пароль
Сарай №XII
(Юрий Зинковский)

Мой блог.
Оценить эту запись

Игра "Жизнь" - совсем мелкие добавки.

Запись от zink0000 размещена 08.12.2018 в 15:32

Добавлен контроль зацикливания, если популяция повторяется через поколение - цикл прекращается и выдаётся сообщение "Зациклилось!"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function iLifeRepeat() As Integer
  ' Зацикливание
  Dim iI As Integer
  Dim iJ As Integer
  '
  For iI = 1 To 20
    For iJ = 1 To 20
      If iX(iI, iJ) <> iXp(iI, iJ) Then
        ' Если есть хотя бы одно несовпадение через поколение
        iLifeRepeat = False
        Exit Function
      End If
    Next iJ
  Next iI
  iLifeRepeat = True
End Function
Исходный код:
_Игра Жизнь 04.zip

Примеры:
data (зацикливание) 2018-12-05 10 37 54.matrix - зацикливание на 39 поколении.
data (статичность) 2018-12-05 10 47 03.matrix - отсутствие изменений на 109 поколении.
data (вымирание) 2018-12-05 10 54 09.matrix - вымирание на 238 поколении.
Размещено в Без категории
Просмотров 233 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.