Модель амебы.

[Levsha100]

Я бы начал с чего бы то полегче.
Сам сейчас нахожусь на равновесной стадии разработки своего симулятора(движка) цифровых схем.

[raxp]

ооо, попался >>> сайт <<< с игрой для амебо-фанатов
...кстати, там второй вариант.

[Utkin]

Сообщение от Alex Cones

Буду моделировать группу, какой-то конкретный организм посложнее. Ведь любой организм в сущности состоит из тех же амеб, только появляется отдельная специализация у каждой

Для этого есть организм вольвокс - наверняка есть в Википедии, для начала можно пошерстить там.

Если поставитб цели и взяться за это, то знания появятся, главное пить нужную литературу.

Свой человек, лишь бы скипидар не кончился .

Повторюсь, сначала нужно реализовать её хотя бы в нейтральном состоянии, а затем насыщать её рефлексами на пищу\окружение\"позывы" к размножению.

Еще раз повторюсь, ключевой тег - игра Жизнь, проичтай о ней и сделай свою реализацию, значительно упростишь себе жизнь.

P.S. Вот сессию сдам и начну курить мануалы по жизни амеб.

И не только - надо еще знать чем она питается и кто питается ей, и кто смотрит ее в микроскоп .

[Alex Cones]

игра Жизнь, проичтай о ней и сделай свою реализацию

Читал и когда-то делал реализацию на VB. Но не могу понять, как связан это симулятор социума с данной моделью?

ооо, попался >>> сайт <<< с игрой для амебо-фанатов
...кстати, там второй вариант.

О, а это уе интересно. Реализация конечно на уровне левой пятки, но что-то отсюда можно перенять. Спасибо за ссылку.

Свой человек, лишь бы скипидар не кончился .

Я перед сессией запасся

[Juffin]

у меня тоже была такая мысль, но потом я понял, что математики надо много, моих 10 классов не хватит.

[crazy horse]

Вам бы лучше покурить мануалы по реализации физики в играх imho. К сожалению, знаю только на As3 ссылки...
навскидку: http://www.gamedev.ru/articles/?id=30107
http://www.interface.ru/home.asp?artId=2650

[Utkin]

Сообщение от Alex Cones

Читал и когда-то делал реализацию на VB. Но не могу понять, как связан это симулятор социума с данной моделью?

Тебе же нужно поведение амеб, а не поведение амебы. Все можно свести к обсчету некоего массива (для начала двухмерного).

[ds.Dante]

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

ооо, попался >>> сайт <<< с игрой для амебо-фанатов

Ого, да там целая вселенная! Наука амёбоводства, турниры, кланы, шпионаж и перемирия...

UPD: второй день на моём компе идёт эволюция - вывожу своего монстра.

[Alex Cones]

Создал лабораторию занавесил окно и запер дверь , провожу опыты по выращиванию амеб. ввожу это слово в гугл и качаю весь материал . Вот видео, снятое с помощью моего универсального микроскопа Mozilla Firefox :

Какая-то она дюже быстрая, эта амеба.

P.S. Пока решил остановиться на модели 20х20 с 12-ю направляющими векторами. На фото - красные пиксели - направляющие.


P.P.S. Видео переименовать в родной формат и запустить в браузере

[Alex Cones]

Написал класс основу для клетки, который будет являться основой для амебы. Я в классах не сильно силен, посмотрите, пожалйста, не допустил ли я грубых ошибок:

unit UNTClasses;

interface

Uses
   Classes, SysUtils;

Type
   TDirection = Record
      Ver : ShortInt;
      Hor : ShortInt;
   End;

   TForce = TDirection;

   TVector = Record
      X : SmallInt;
      Y : SmallInt;
      Force : TForce;
   End;

   TAVector = Array[0..11] of TVector;

   TForceDirection = Record
      Direction : TDirection;
      Force     : TForce;
   End;

  TCell = Class(TObject)
    Private
     _ID     : SmallInt;
    Protected
     Vector  : TAVector;
     Procedure FillVectors(StX,StY : SmallInt);
    Public
     Constructor Create(PosX,PosY: SmallInt);  Virtual;
     Destructor Destroy;  Override;
//     Procedure Move(ForceDirection : TForceDirection); // напоминание
//     Procedure Phagocytosis; // для
//     Procedure Mitosis; // потомков
//     Procedure MakeCyst;
    Published
     Property ID     : SmallInt Read _ID;
  End;

implementation

Procedure TCell.FillVectors(StX,StY : SmallInt);
 Begin
  Vector[00].X := StX + 09;
  Vector[00].Y := StY + 03;
  Vector[01].X := StX + 12;
  Vector[01].Y := StY + 04;
  Vector[02].X := StX + 15;
  Vector[02].Y := StY + 06;
  Vector[03].X := StX + 16;
  Vector[03].Y := StY + 09;
  Vector[04].X := StX + 15;
  Vector[04].Y := StY + 12;
  Vector[05].X := StX + 13;
  Vector[05].Y := StY + 15;
  Vector[06].X := StX + 10;
  Vector[06].Y := StY + 16;
  Vector[07].X := StX + 07;
  Vector[07].Y := StY + 15;
  Vector[08].X := StX + 04;
  Vector[08].Y := StY + 13;
  Vector[09].X := StX + 03;
  Vector[09].Y := StY + 10;
  Vector[10].X := StX + 04;
  Vector[10].Y := StY + 07;
  Vector[11].X := StX + 06;
  Vector[11].Y := StY + 04;
 End;

Constructor TCell.Create(PosX,PosY : SmallInt);
 Begin
  Inherited Create;     
  FillVectors(PosX, PosY);
 End;

Destructor TCell.Destroy;
 Begin
  {...}
  Inherited Destroy;
 End;

end.

P.S. Компиляция прошла успешно.