Смоделировать процесс инфекционного заболевания

[r_max]

Смоделировать процесс распространения инфекции — стригущего лишая по участку кожи размером n*n (n — нечетное) клеток. Предполагается, что исходной зараженной клеткой кожи является центральная. В каждый интервал времени пораженная инфекцией клетка может с вероятностью 0,5 заразить любую из соседних здоровых клеток. По прошествии шести единиц времени зараженная клетка становится невосприимчивой к инфекции. Возникший иммунитет действует в течение последующих четырех единиц времени, а затем клетка оказывается здоровой. В ходе моделирования описанного процесса выдавать текущее состояние моделируемого участка кожи в каждом интервале времени отмечая зараженные, невосприимчивые к инфекции и здоровые клетки. Я к сожалению не силен в Delphi, смог реализовать только на Pascal. Теперь пытаюсь разобраться и в Delphi, надеюсь что Ваши советы направят меня по нужному пути!

вот то что у меня получилось в Pascal

uses
  CRT;

const
  n= 21;        {размер области}
  Cont= 50;     {заразность в процентах}
  Ill= 6;       {время болезни}
  Imm= 4;       {длительность иммунитета}

var
  a,b: array[1..n,1..n]of integer;
  i,j: integer;
  c: char;


procedure Show;
begin
  for i:=1 to n do begin
    for j:=1 to n do
      if (a[i,j]>0) then Write(' #') else if a[i,j]<0 then Write(' +') else Write('  ');
    WriteLn
  end
end;


begin
  FillChar(a,SizeOf(a),0);
  a[n div 2+1,n div 2+1]:=1;
  Show;
  Randomize;
  repeat
    b:=a;
    for i:=1 to n do begin
      for j:=1 to n do begin
        if a[i,j]>0 then begin
          if (i>1) and (b[i-1,j]=0) and (Random(100)<Cont) then b[i-1,j]:=1;
          if (j>1) and (b[i,j-1]=0) and (Random(100)<Cont) then b[i,j-1]:=1;
          if (i<n) and (b[i+1,j]=0) and (Random(100)<Cont) then b[i+1,j]:=1;
          if (j<n) and (b[i,j+1]=0) and (Random(100)<Cont) then b[i,j+1]:=1;
          Inc(b[i,j]);
          if b[i,j]>Ill then b[i,j]:=-Imm
        end
        else if a[i,j]<0 then Inc(b[i,j])
      end
    end;
    a:=b;
    Show;
    WriteLn;
    c:=ReadKey
  until c=#27
end.

[Mad_Cat]

поиск то для чего придумали

http://programmersforum.ru/showthrea...8%E0%E9&page=3

[r_max]

по поиску я смотрел первым делом но к сожалению в том обсуждении ничего путного не нашел, разве что Utkin выложил проект, но мне необходимо самому разобраться с кодом а не использовать готовое

вообще я считаю что тут можно создать матрицу n*n центральному элементу присвоить какой,нибудь символ и считать его зараженным. Но что взять за единицу времени?

вот подумал может от безысходности начать спамить типа "помогите!!!", решите срочно!!!!!!!!!"?)))))))))



//Пользуйтесь "правкой" постов, не надо плодить бессмысленные цепочки своих постов.
//Пока устное предупреждение.

[Сtrl]

Одна из тех задач, где ООП подход как нельзя кстати. Создаете классы: клетка, вирус. Далее чистый сандбокс... Можно даже графику прикрутить.

[r_max]

в чем смысл создания классов? а графика необходима, только не знаю что именно использовать

[Сtrl]

в чем смысл создания классов?

В системе их взаимодействия.

[r_max]

ну и каким образом они будут взаимодействовать?

[r_max]

Вот какой я молодец)) сам решил) выложу для будущих поколений
p.s. это черновой вариант

Уже целых три просмотра)) интересно ваше мнение, господа... Что скажете?

[Сtrl]

Заинтересовали вы меня! Решил сделать такой же, посмотрим что получится.

[r_max]

хорошо, выкладывайте, посмотрим. может извлеку для себя что-нибудь полезное