Реферат: Имитационная модель интеллектуального агента в условиях конкуренции

average_price:=average_price/g;

DISPLAY("средцена %3.2f\n",average_price);

IF par[1]>average_price

DO

par[1]:=par[1]-par[1]*0.01;

END

ELSIF par[1]<average_price

DO

par[1]:=par[1]+par[1]*0.01;

END

#Событие 2

IF LOST_c[I]

DO

par[2]:=par[2]+dem[I];

END

ELSIF LOST_c[I]=FALSE

DO

par[2]:=par[2];

END

#Событие 3

IF bal[I]>par[2]/3

DO

par[3]:=par[3]+1;

par[2]:=par[2]-par[2]*0.02;

END

#Событие 4

IF ff1>past_buy2

DO

par[2]:=par[2]+10;