Моделирование паникующей толпы в замкнутом пространстве

[mrandrew1990]

Люди добрые, нашел в инете "Моделирование поведения толпы в замкнутом пространстве".... но там прилагался только *.doc файл.... там в конце этого файла есть код программы на Delphi.... В этой работе есть скриншоты, якобы той программы.... но самого файла не прилагалось, только код в текстовом варианте.... я попробовал восстановить подобную картину при помощи того текстового кода, даже запустил его, но ничего не вывелось... Пожалуйста, посмотрите сие чудо.... я прикрепил ниже архив с тем *.doc файлом и папкой с исполняемым кодом (который я попытался восстановить по тому что было)...

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

[Valio]

Ты наверняка тупо компонентов накидал на форму, а связать их события (Events) не удосужился. Поэтому при нажатиях на кнопки ничего не происходит.

[mrandrew1990]

вот тот код с ошибками:

Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Classes, Graphits, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
Const s=50;
P=20;
Type
TMod 1 Form = class(TForm)
Image: TImage;
StepButon: TButton;
IntButton: TButton;
Procedure IntButtonClick(Sender: TObject);
Procedure StepButtonClick(Sender: TObject);
Private
Procedure PaintSceen();
PROCEDURE Step();
Public
{ Public declarations }
End;

Var
Mod 1Form: Tmod 1 Form;
F: array [ 1..s, 1..s] of integer;
Implementation
{ $R * .DFM }

Procedure TMod 1 Form.InitButtonClick(Sender: TObject);
Var I, j: integer;
Begin
For i:=1 to s do
Fof j:=1 to s do
F[I, j]:=0;
Randomize;
For i:-1 to p do
F[Random(s) + 1, Random(s) + 1]:=1;
F[s div 2, 1]:=2;
PaintScreen();
End;

Procedure TMod 1 Form.PaintScreen;
Var I, j: integer;
Begin
Image.Canvas.Brush.Color:=clWhite;
Image.Canvas.Pen.Color:=clBlack;
Image.Canvas.Rectangle(0, 0, Image. Width, Image.Heigh);
For i:=1 to s do
For j;=1 to s do
Begin
If F[i,j] = 0 then
Image.Canvas.Brush.Color:=clWhite;
Image.Canvas.Pen.Color:=clWhite;
Image.Canvas.Rectangle((i-1) * 10+2, (j-1) * 10+2, I * 10 + 1, J * 10+1);
End;
If (F[i,j] = 1) or (F[i,j] = 3) then
Begin
Image.Canvas.Brush.Color:=clGreen;
Image.Canvas.Pen.Color:=clGreen;
Image.Canvas.Rectangle((i-1) * 10+2, (j-1) * 10+2, I * 10 + 1, J * 10+1);
End;
If F[i,j] = 2 then
Begin
Image.Canvas.Brush.Color:=clRed;
Image.Canvas.Pen.Color:=clRed;
Image.Canvas.Rectangle((i-1) * 10+2, (j-1) * 10+2, I * 10 + 1, J * 10+1);
End;
End;
End;

Procedure TMod 1 Form.Step;
Var st: integer;
i, j: integer;
x, y: integer;
begin
for i:=1 to s do
for j:=1 to s do
begin
if F[i,j] = 1 then
begin
x:=1; y:=1;
F[i,j]:=0;
st:=Random(9) + 1;
cae st of
1: x:= x +1;
2: x:= x-1;
3: y:= y +1;
4: y:= y-1;
5: begin x:= x+1; y:= y+1;
6: begin x:= x+1; y:= y-1;
7: begin x:= x-1; y:= y+1;
8: begin x:= x-1; y:= y-1;
End;
If x<1 then x:=1;
If x>1 then x:=s;
If y<1 then y:=1;
If y>1 then y:=s;
ShowMessege( Auoia iaeaai )
Else
F[x,y]:=4;
End;
End;
For i:=1 to s do
For j:=1 to s do
If F[i, j] = 4 then F[i, j]:=1;
End;


Procedure TMod 1 Form.StepButtonClick(Sender: TObject);
Begin
Step();
PaintScreen();
End;
End.

[mrandrew1990]

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

Ты наверняка тупо компонентов накидал на форму, а связать их события (Events) не удосужился. Поэтому при нажатиях на кнопки ничего не происходит.

ну помогите пожалуйста.... просто там ничего не написано...

[JTG]

Логика step() вообще не соответствует заданию. Во-первых направление выбирается случайно, а не с заданной вероятностью, во-вторых не учитываются столкновения людей (вернее сейчас один убивает другого ), обход препятствий, выходом считается не точка, а вся верхняя полоса...

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



Вообще толку от кода мало, лучше переписать с нуля используя ООП.

[mrandrew1990]

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

Логика step() вообще не соответствует заданию. Во-первых направление выбирается случайно, а не с заданной вероятностью, во-вторых не учитываются столкновения людей (вернее сейчас один убивает другого ), обход препятствий, выходом считается не точка, а вся верхняя полоса... Вот поправил немного, но толку от кода мало, лучше переписать с нуля с ООП

Спасибо большое за отклик... А что можно еще с ним подделать, подправить... Может какие-то еще правила воткнуть туда аналогичные (может где встречались)...??? Подскажите пожалуйста...

[JTG]

Всё, дальше сам

[mrandrew1990]

Огромнейшее спасибо!!!

[mrandrew1990]

Ребята, господа-программисты. Помогите реализовать обход препятствий, усовершенствовать алгоритм.... а то у меня получается что они при наличии препятствия бьются в него или как-то случайно обходят.... а если я допустим нарисую горизонтальное (или вертикальное) препятствие из нескольких стенок (имитация стены) - то они вместо обходы этой стены, вдоль нее, тупо стопорятся перед ней и всё.... как сделать, чтобы они как-то относительно выхода преодолевали подобное препятствие. Допустим, что если перед человеком клетка с препятствием, то он проверил бы соседнюю с препятствием клетку на наличие подобного препятствия, чтобы если она не занята - то на нее перейти, а если занята - как бы повторно проверить такое условие для последующей клетки.... Чтобы не плутать, а так постепенно двигаться вдоль стены к выходу, пока не найдется выход, свободное пространство для движения.... Помогите пожалуйста.... Вот схему нарисовал



Помогите пожалуйста, голову ломал, ниче не приходит... С виду - в принципе, ничего сложного. Но для меня стало тяжело что-то(

[s-andriano]

Поищи по ключевым словам "поиск пути".
Вероятно, достаточно будет алгоритма A*. http://ru.wikipedia.org/wiki/A*