Реферат: Имитационная модель интеллектуального агента в условиях конкуренции
(ARRAY parameters1^):=form(ARRAY p1);
END
ON ffm3 DO
past_b2^:=past_b;
invest^:=Inv;
END
ENDOFFirm
Приходя на рынок (базисный компонент Market), покупатель рассматривает предложение каждой фирмы и выбирает максимально соответствующее его требованиям. Параллельно ведется подсчет покупателей для каждой из фирм, а также количество купленного товара.
FUNCTION FChoice
MOBILE SUBCOMPONENT OF CLASS query
DECLARATION OF ELEMENTS
INPUT PARAMETERS
FStock(LOCATION FOR query),
ARRAY[n][s]CRITER(REAL), #покупатель
ARRAY [l] Dummy(REAL),
g(INTEGER)
OUTPUT PARAMETERS
ARRAY[l]balance(REAL), #остатокнаскладе
f(INTEGER), #количество покупателей фирмы 1
f2(INTEGER), #количество покупателей фирмы 2
f3(INTEGER), #количество покупателей фирмы 3
ARRAY[n][l]copy_param(REAL),
ARRAY[l]LOST_clients(LOGICAL),
leader(INTEGER),
ARRAY [l]dem(REAL)
LOCAL VARIABLES
ss(INTEGER):=100,
k(REAL):=0, #количествосовпадающихпараметров
rem(REAL):=0,