Создаю видеокурс по созданию "клеточного автомата" на дельфи. Математическая модель общества

[anaschu]

нет, все таки я не смог внедрить новые классы в старый код. пришлось работать напрямую с этими дженериками. одну проблему описал выше, ща другая.

внутри unit Model есть процедура инит.
в ней я внутри ячейки Fiield создаю дженерик колекшион Popul, а там создаю обьект Human/

так вот, Human я засовываю ТОЛЬКО в срединную ячейку. Но почему то в конце процедуры у меня ВСЕ клетки на поле оказываются заселенными людьмми.

Procedure Init(Size: integer; Food, Mater: Single);
var
  i, j,z: Integer;
  Hum:Thuman;
begin
      Fstep := 0;
      SetLength(Field, Size, Size);
      for i := 0 to high(Field) do
        for j := 0 to high(Field[i]) do
        begin
          Field[i, j]:=Tcell.Create;
          Field[i, j].Food := Food;
          Field[i, j].Mater := Mater;
        end;
            for z := 0 to 1 do      // это на самом деле скопировано из Cell
            begin
            hum:=THuman.Create;
            with Hum.Genotype do
            begin
              Agress := 5;
              Attract := 5;
              Coop := 5;
              Altr := 5;
              Strange := 5;
              Rank := 5;
               Field[Size div 2, Size div 2].Popul.Add(@Hum);
            end;

          end;

          forinitsex(Size);
end;

procedure forinitsex(x:integer) ;
Begin

            Field[1,1].Popul[0].Genotype.Sex := True;
            Field[1,1].Popul[1].Genotype.Sex := False;
            Field[1,1].BySex.Insert(0,0) ;
            Field[1,1].BySex.Insert(1,1) ;
End;

[anaschu]

https://www.dropbox.com/s/77g5gu94o9...D1%8F.rar?dl=0


две проблемы
1. Human кроме центральной ячейки записывается в остальные при

переходе с 50 на 52 строку (кроме 1,1 записывается в 0,0 0,1 и

так далее).
Причем в тлисте попул нет экземпляров, но для этих экземпляров

можно определить поля этих экзепляров, а именно sex.
Как следствие

2. как только я что то делаю в конце процедуры адпипл, генотип

исчезает
но теперь проблемы в tcellGenotype
а именно с 47 строчки- там исчезают последние генотипы. то есть

попул появляется раньше, чем заполняется генотип.

[evg_m]

нет, все таки я не смог внедрить новые классы в старый код. пришлось работать напрямую с этими дженериками. одну проблему описал выше, ща другая.

чтобы не писать много на форуме 1.zip
взял версию 3.2 (c DropBox)
и в ней пошагово (см. инструкция.txt) пребразовал 4 приложенных файла *.pas+
только компиляция (без единого запуска) кроме последнего на 9 шаге.
запустил.
да шаг 10 только написал в инструкцию но в коде не делал.

основная проблема делаем "наверху" все то что надо бы делать в самых "нижних" классах. шаги 3-8 и частично 9.
т.е. у нас изначально много кода в Tcell и почти нет кода в Thuman
попытался все что работает с одним экземпляром Thuman убрать туда
прежде всего исчезли длинные строки с кучей точек (вложенные объекты были предоставлены себе) и читать проще и надеюсь понятнее.

[anaschu]

ого. завтра вечером гляну

[anaschu]

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

и читать проще и надеюсь понятнее.

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

[evg_m]

в дополнение к #163
я бы ещё отказался от использования ord
особенно учитывая что мы здесь заменили тип используемых данных boolean --> TEnumSex =(t_man, t_woman)
и скорее всего получили неверную формулу по следующей причине
ord(false) <> ord(t_woman)
ord(true) <> ord(t_man)

const
  Hum: array [0 .. 3] of Single = (-0.5, 0.5, -1, 1);
  hum2: array [TEnumSex, 0..2{ну или сколько хотим вариантов}] of single= ( (-0.5, 0.5, 0), // для t_man 
                                            (-1, 1, 0) // и t_woman
                                            );

и соответственно

    self.Genotype.Agress := summ * 0.5 + random * summ * Hum[random(ord(self.Genotype.Sex) * 2 + 2)];
// на выбор (и для возможной коррекции, ну не кажетcя она мне правдоподобной
// но об этом судить вам и только вам
    self.Genotype.Agress:=summ *0.5 +random * summ * hum2[self.Genotype.Sex, Random(3)];
    self.Genotype.Agress:=summ * (0.5 + random * hum2[self.Genotype.Sex, Random(3)] );

другие поля Genotype аналогично.

и "небольшое" замечание к логике.

//      self.Sort(1); // Ресурсов не хватает даже бабам - в приоритете те, кто готов поделиться
    self.Popul.Sort( sortaltr);
  for p := 0 to self.Popul.Count-1 do
  begin
    self.EatEach(THuman(self.Popul[p]));

и так при недостаче ресурсов первыми потребляют альтруисты(кто готов делиться), НО при этом "забывают" делиться.
P.S. я так полагаю это(дележка и т.п.) должно было бы размещаться здесь и далее

//первая вспомогательная процедура
procedure TCell.EatEach(Hum: THuman);
begin
...
        // ввести борьбу за еду
        hum.addresource(self.Food);

[anaschu]

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

4 приложенных файла *.pas+

чисто интуитивно перенес в среду дельфи:
1.убрал "delphi mode"
2. в теле программы после имплементейшн оверлоад после названия процедуры после точки с запятой вроде не пишется?
3. проблема.
пришлось сделать вот так.

public
    constructor Create1;
    destructor Destroy; override;
    constructor Create(asex: TEnumSex); overload;
    constructor Create(Amother, Afather: THuman); overload;
    procedure addresource(var res: Single);
  end;

иначе была вот такая ошибка на этапе компиляции:
[dcc32 Error] Objects.pas(71): E2267 Previous declaration of 'Create' was not marked with the 'overload' directive
[dcc32 Error] Objects.pas(72): E2267 Previous declaration of 'Create' was not marked with the 'overload' directive

[anaschu]

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

4 приложенных файла *.pas+

чисто интуитивно перенес в среду дельфи:
1.убрал "delphi mode"
2. в теле программы после имплементейшн оверлоад после названия процедуры после точки с запятой вроде не пишется?
3. проблема.
пришлось сделать вот так.

public
    constructor Create1;
    destructor Destroy; override;
    constructor Create(asex: TEnumSex); overload;
    constructor Create(Amother, Afather: THuman); overload;
    procedure addresource(var res: Single);
  end;

иначе была вот такая ошибка на этапе компиляции:
[dcc32 Error] Objects.pas(71): E2267 Previous declaration of 'Create' was not marked with the 'overload' directive
[dcc32 Error] Objects.pas(72): E2267 Previous declaration of 'Create' was not marked with the 'overload' directive

[anaschu]

Теперь все файлы выглядят так. изменения практически только в Objects

[anaschu]

Ошибка теперь у меня такая вот
[dcc32 Error] E1026 File not found: 'Face.lfm'