Имитационное моделирование на Delphi

[DeadSoul]

Промоделировать процесс распределения инфекции стригущего лишая по участку кожи размером n×n (n – нечетное) клеток. Предполагается, что исходной зараженной клеткой кожи является центральная. В каждый интервал времени пораженная инфекцией клетка может с вероятностью 0.5 заразить любую из здоровых соседних клеток. По прошествии шести единиц времени зараженная клетка становится невосприимчивой к инфекции, возникший иммунитет действует в течение последующих четырех единиц времени, а затем клетка оказывается здоровой. В ходе моделирования описанного процесса выдавать текущее состояние моделируемого участка кожи в каждом интервале времени, отмечая зараженные, невосприимчивые к инфекции и здоровые клетки. Проследить, как сказывается на результат моделирования изменение размеров поля и вероятность заражения.
Насколько я поняла решается наподобие игры Жизнь.
Кто-нибудь может помочь со следующей реализацией: В каждый интервал времени пораженная инфекцией клетка может с вероятностью 0.5 заразить любую из здоровых соседних клеток. По прошествии шести единиц времени зараженная клетка становится невосприимчивой к инфекции, возникший иммунитет действует в течение последующих четырех единиц времени, а затем клетка оказывается здоровой.или...со всем помочь

[Stilet]

Ух... Мы подобные задачи на My GPRS расчитывали.

[DeadSoul]

' у нас все не как у людей...

[Utkin]

Да просто это. Обсчет массива в цикле. Что такое вероятность 0.5? 0,5 % или 50%? И потому что значит любую? Любую одну или любую, что рядом? Единицы времени в твоем случае будут такты цикла. Пронумеруй элементы массива, ну например:
0 - пусто
1 - просто клетка организма
2 - больная клетка
3 - 9 - переболевшая клетка
10 - клетка с иммунитетом.
В конце цикла проверяешь - если клетка имеет статус от 3 до 9 то увеличиваешь его на единицу.

ЗЫ. А позже можно еще и зеленку учитывать.

[DeadSoul]

Сообщение от Utkin

Что такое вероятность 0.5? 0,5 % или 50%? И потому что значит любую?

вероятность именно 0.5. Конечно это просто, когда понимаешь (((

[Alex Cones]

50%

Я б еще добавил флаг десяток, чтобы одну и ту же клетку не заражать по 8 раз за обработку. Ну или просто булевский массив а после каждого хода обнулять его.

[ОДИНОЧЕСТВО В СЕТИ]

Конечно это просто, когда понимаешь

а что тут не понятного Utkin доступно все обьяснил!
вы не знаете что такое матрицы? или циклы?
или к чему прицепить 0.5? вы начните кодить, а в процессе, что будет не понятно спрашивайте!

[DeadSoul]

Со второго раза до меня дошли слова Utkin'a. Матрицы и циклы я знаю, но так получилось. что матрицы мы практически не проходили на Delphi (были они только на зачете, а от практики я была освобождена). ((((

[Alex Cones]

Вот Вам матрицы: http://www.programmersforum.ru/showthread.php?t=70310

[DeadSoul]

Как найти центральный элемент матрицы? Заражение ведь из центра начинается