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

imaxim(INTEGER):=0,

JMAX(INTEGER):=0,

ARRAY[l][s]QuBu(REAL):=0, #массивсовпадений

ARRAY[l][s]QuanBuy(INTEGER), #массив распределения покупателей

ARRAY [l]clients(INTEGER),

max_cl(INTEGER)

BEGIN

FOR W FROM 1 TO 9

REPEAT

FOR I FROM 1 TO g

REPEAT

copy_param[W][I]:=FStock:query[I].QB[W];

balance[I]:=FStock:query[I].QB[2];

END_LOOP

END_LOOP

#Процесс сравнения критериев покупателей с параметрами продавцов

FOR J FROM 1 TO g

REPEAT

FOR I FROM 1 TO ss

REPEAT

k:=0;

FOR R FROM 1 TO 9

REPEAT

IF R<>2 DO

# Для удовлетворения покупателя параметр продавца не должен отклоняться более чем на 20% от требования покупателя.

IF (FStock:query[J].QB[R]<=CRITER[R][I]+CRITER[R][I]*0.2) AND

(FStock:query[J].QB[R]>=CRITER[R][I]-CRITER[R][I]*0.2)

DO

k:=k+1/9;# степень удовлетворенности покупателя