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

ON START DO

(tmp^):=fillClients(ARRAY criterion,100);

DISPLAY(" BUYERS ADDED.\n");

END

WHENEVER T>=TNext DO

IF TNext>47 DO

(tmp^):=fillClients(ARRAY criterion,100);

DISPLAY(" NEW BUYERS ADDED.\n");

END

TNext^:=TNext+1;

END

END OF buyer

Для каждого олигополиста также случайным образом разыгрываются параметры предлагаемого продукта и сопутствующих услуг. Но каждая фирма описывается в отдельном базисном компоненте: Firm, Firm2, Firm3, а ее параметры записываются в виде вектора в мобильный компонент.

BASIC COMPONENT Firm

MOBILE SUBCOMPONENT OF CLASS query

DECLARATION OF SUBFUNCTION

strategy(INTEGER:past_buy2,LOCATION FOR query:Stock,

ARRAY [l] LOGICAL:LOST_c,ARRAY [l] REAL:bal,INTEGER:ff1,

INTEGER:I,INTEGER:g,ARRAY[n]REAL:param1,INTEGER:cash,

ARRAY[l]REAL:dem-->ARRAY [n] REAL,INTEGER),

form(ARRAY [n] REAL:PP-->ARRAY [n] REAL)

DECLARATION OF ELEMENTS

STATE VARIABLES

ARRAY[2] past_buyers (INTEGER):=0, # количествоклиентовзапрошлыйпериод

ARRAY[9]parameters1(REAL):=0, # массивпараметровфирмы

ARRAY[9]p1(REAL):=0,

TNext(INTEGER):=0,

count(INTEGER):=1,

past_b(INTEGER):=0,