Так как вычисления производятся поэтапно, необходимо отключить автоматический пересчет таблиц Заходим в пункт меню "Сервис" - "Параметры", переходим на вкладку "Вычисления", Дальше выбираем пункт вычисления "вручную", ставим галочку "итерации", указываем "предельное число итераций" равным 1. Щелкаем ОК Для начала делаем ширину столбцов и высоту строк одинаковой, к примеру 20 пикселей. Как это сделать описано в заметке Квадратные ячейки в Excel. Нам нужно будет 2 таблицы Выделяем область В2:АА27, обводим ее границей, затем копируем и вставляем на область В35;АА6О. Пусть Таблица 1 - сверху, а Таблица 2 - снизу. Живая клетка будет содержать значение 1 мертвая - пустая. Создаем именованную формулу, которая суммирует 8 ячеек, расположенных вокруг данной; Активизируем ячейку В2. Выбираем меню "Вставка" - "Имя" - "Присвоить". В поле Имя пишем Суммавокруг. В поле Формула пишем =!А344+!В34+!С34+!СЗ + !С36 +В36 + ! А36+ !A3 5 Теперь если мы в ячейке В2 напишем =Суммавокруг, то получим сумму вокруг ячейки В35, если в ячейке ВЗ напишем =Суммавокруг, то получим сумму вокруг ячейки В36 и т.д. Вычисление будут проходить так. В Таблицу 2 забиваем исходное положение, щелкаем F9 (вычислить) и Excel производит расчет в Таблице 1 на основании Таблицы 2 и копирует Таблицу 1 в Таблицу 2. Чтобы определить, когда в Таблице 2 выводятся исходные данные, а когда копируются из Таблицы 1, присвоим ячейке В31 имя флаг Если там 1, то выводим исходные данные, если 0, то копируем из Табл. 1. Приступим к заполнению таблиц. Выделяем Таблицу 1 и в строке формул пишем (на основании правил игры) =ЕСЛИ(ИЛИ(Суммавокруг<2;Суммавокруг>3);0;ЕСЛИ(Суммавокруг-3;1;В35)) и щелкаем Ctrl + Enter, чтобы заполнить сразу все ячейки. Вьшеляем Таблицу 2 и в строке формул пишем =ЕСЛИ(флаг0,А2> и щелкаем Ctrl + Enter, чтобы заполнить сразу все ячейки. Чтобы нули не выводились заходим в пункт меню "Сервис" - "Параметры", переходим на вкладку "Вид" и снимаем галочку с пункта "нулевые значения". Но пока у нас исходное положение не содержит "живых" клеток. Чтобы "оживить" клетку, необходимо в формуле, которая в ячейке поменять 0 на 1, но делать это нужно только в Таблице 2. Можно выбрать сразу несколько клеток (выбираем их, удерживая клавишу Ctrl), затем в строке формул меняем 0 на 1 и щелкаем Ctrl + Enter, Как с этим работать: Пишем в ячейке флаг значение 1, т.е. переходим к исходному положению. Выделяем Таблицу 2 и в строке формул пишем =ЕСЛИ(флаг;0;А2) и щелкаем Ctrl + Enter. Таким образом мы обнуляем исходные данные. Вьшеляем нужные нам ячейки в Таблице 2 и в строке формул меняем 0 на 1 и щелкаем Ctrl + Enter. Таким образом мы формируем первоначальную позицию. Пишем ь ячейке флаг значение 0, т.е. запускаем эволюцию. Щелкаем F9 (вычислить), чтобы переходить к следующему поколению. Для большей наглядности сделаем следующе Вьшеляем все ячейки Таблицы 2. Переходим в пункт меню "Формат" - "Условное форматирование". Задаем условие равно 1 и выбираем "Формат" красный шрифт и красная заливка.
Теперь Таблицу 1 можно скрыть и работать только с Таблицей 2.
Так как вычисления производятся поэтапно, необходимо отключить автоматический пересчет таблиц Заходим в пункт меню "Сервис" - "Параметры", переходим на вкладку "Вычисления",
Дальше выбираем пункт вычисления "вручную", ставим галочку "итерации", указываем
"предельное число итераций" равным 1. Щелкаем ОК
Для начала делаем ширину столбцов и высоту строк одинаковой, к примеру 20 пикселей. Как
это сделать описано в заметке Квадратные ячейки в Excel.
Нам нужно будет 2 таблицы Выделяем область В2:АА27, обводим ее границей, затем
копируем и вставляем на область В35;АА6О. Пусть Таблица 1 - сверху, а Таблица 2 - снизу.
Живая клетка будет содержать значение 1 мертвая - пустая.
Создаем именованную формулу, которая суммирует 8 ячеек, расположенных вокруг данной;
Активизируем ячейку В2.
Выбираем меню "Вставка" - "Имя" - "Присвоить".
В поле Имя пишем Суммавокруг.
В поле Формула пишем =!А344+!В34+!С34+!СЗ + !С36 +В36 + ! А36+ !A3 5
Теперь если мы в ячейке В2 напишем =Суммавокруг, то получим сумму вокруг ячейки В35,
если в ячейке ВЗ напишем =Суммавокруг, то получим сумму вокруг ячейки В36 и т.д.
Вычисление будут проходить так. В Таблицу 2 забиваем исходное положение, щелкаем F9 (вычислить) и Excel производит расчет в Таблице 1 на основании Таблицы 2 и копирует Таблицу 1 в Таблицу 2.
Чтобы определить, когда в Таблице 2 выводятся исходные данные, а когда копируются из Таблицы 1, присвоим ячейке В31 имя флаг Если там 1, то выводим исходные данные, если 0, то копируем из Табл. 1.
Приступим к заполнению таблиц.
Выделяем Таблицу 1 и в строке формул пишем (на основании правил игры) =ЕСЛИ(ИЛИ(Суммавокруг<2;Суммавокруг>3);0;ЕСЛИ(Суммавокруг-3;1;В35)) и щелкаем Ctrl + Enter, чтобы заполнить сразу все ячейки.
Вьшеляем Таблицу 2 и в строке формул пишем =ЕСЛИ(флаг0,А2> и щелкаем Ctrl + Enter, чтобы заполнить сразу все ячейки.
Чтобы нули не выводились заходим в пункт меню "Сервис" - "Параметры", переходим на
вкладку "Вид" и снимаем галочку с пункта "нулевые значения".
Но пока у нас исходное положение не содержит "живых" клеток. Чтобы "оживить" клетку,
необходимо в формуле, которая в ячейке поменять 0 на 1, но делать это нужно только в
Таблице 2. Можно выбрать сразу несколько клеток (выбираем их, удерживая клавишу Ctrl),
затем в строке формул меняем 0 на 1 и щелкаем Ctrl + Enter,
Как с этим работать:
Пишем в ячейке флаг значение 1, т.е. переходим к исходному положению.
Выделяем Таблицу 2 и в строке формул пишем =ЕСЛИ(флаг;0;А2) и щелкаем Ctrl + Enter.
Таким образом мы обнуляем исходные данные.
Вьшеляем нужные нам ячейки в Таблице 2 и в строке формул меняем 0 на 1 и щелкаем Ctrl +
Enter. Таким образом мы формируем первоначальную позицию.
Пишем ь ячейке флаг значение 0, т.е. запускаем эволюцию.
Щелкаем F9 (вычислить), чтобы переходить к следующему поколению.
Для большей наглядности сделаем следующе
Вьшеляем все ячейки Таблицы 2. Переходим в пункт меню "Формат" - "Условное
форматирование". Задаем условие равно 1 и выбираем "Формат" красный шрифт и красная
заливка.
Теперь Таблицу 1 можно скрыть и работать только с Таблицей 2.