Реферат: Имитационная модель интеллектуального агента в условиях конкуренции
Московский Государственный Университет
Прикладной Биотехнологии
Кафедра «Компьютерные технологии и системы»
Реферат:
«Имитационная модель интеллектуального агента в условиях конкуренции»
Выполнила:
студентка АБС IV-3
Рогожкина Е.А.
Проверил:
д.т.н. проф.
Ивашкин Ю.А.
Москва
2004
Имитационная модель поведения интеллектуального агента в условиях конкуренции
В системе маркетинга фирма, действующая на рынке, рассматривается не сама по себе, а с учетом всей совокупности отношений и информационных потоков, связывающих ее с другими субъектами рынка. Условия окружающей среды, в которой действует фирма, принято называть маркетинговой средой фирмы. Маркетинговая среда слагается из микросреды и макросреды. Конкуренты являются важной составляющей маркетинговой микросреды фирмы, без учета и изучения которой невозможна разработка приемлемой стратегии и тактики функционирования фирмы на рынке.
Конкуренция в общем смысле может быть определена, как соперничество между отдельными лицами и хозяйствующими единицами, заинтересованными в достижении одной и той же цели. Важными в определении конкуренции являются следующие аспекты:
· во-первых, речь идет о рыночной конкуренции, то есть о непосредственном взаимодействии фирм на рынке;
· во-вторых, конкуренция ведется за ограниченный объем платежеспособного спроса. Именно ограниченность спроса заставляет фирмы конкурировать друг с другом.
В своем курсовом проекте я рассматриваю несовершенную конкуренцию, которую порождает олигополия. Т.е. структура, при которой огромное число обособленных потребителей и малое количество производителей, каждый из которых может удовлетворить значительную долю общего спроса.
Под немногочисленностью участников конкуренции понимается относительно малое (в пределах десятка) число фирм господствующих на рынке товаров или услуг. Олигополии могут производить как однородные, так и дифференцированные товары.
Немногочисленность фирм способствует их монополистическим соглашениям: по установлению цен, разделу или распределению рынков или по другим способам ограничения конкуренции между ними. Доказано, что конкуренция на олигополистическом рынке тем интенсивней, чем ниже уровень концентрации производства (большее число фирм), и наоборот.
Важную роль в характере конкурентных отношений на таком рынке играют объем и структура той информации о конкурентах и об условиях спроса, которой фирмы располагают: чем такой информации меньше, тем более конкурентным будет поведение фирмы. Основное отличие олигополистического рынка от рынка совершенной конкуренции связано с динамикой цен. Если на совершенном рынке они пульсируют непрерывно и бессистемно в зависимости от колебаний спроса и предложения, то при олигополии имеют тенденцию к устойчивой фиксации и изменяются не так часто. Типично так называемое лидерство в ценах, когда их преимущественно диктует одна ведущая фирма, остальные же олигополисты следуют за лидером. Доступ к рынку новым продавцам затруднен. В случае соглашения олигополистов по поводу цен, конкуренция все больше смещается в направлении качества, рекламы и индивидуализации.
В экономической литературе принято разделять конкуренцию по ее методам на:
· ценовую (конкуренцию на основе цены);
· неценовую (конкуренцию на основе качества потребительной стоимости).
В современном мире ценовая конкуренция утратила большое значение в пользу неценовых методов конкурентной борьбы. Фирмы избегают вести ценовую конкуренцию в открытой форме. Применяется она в настоящее время обычно в следующих случаях:
· фирмами-аутсайдерами в их борьбе с монополиями, для соперничества с которыми, в сфере неценовой конкуренции, у аутсайдеров нет ни сил, ни возможностей;
· для проникновения на рынки с новыми товарами;
· для укрепления позиций в случае внезапного обострения проблемы сбыта.
Неценовая конкуренция выдвигает на первый план более высокую, чем у конкурентов, потребительную стоимость товара.
К числу неценовых методов относятся все маркетинговые методы управления фирмой. Такие как разработка и выпуск новых товаров, комплексные исследования рынка и планирование маркетинга, организация работы торгового аппарата, реклама и стимулирование сбыта, кредитная политика и финансирование, политика цен, совершенствование организационной структуры, выбор наиболее эффективных каналов товародвижения, сокращение издержек обращения, усовершенствование выпускаемой продукции.
К незаконным методам неценовой конкуренции относятся: промышленный шпионаж; переманивание специалистов, владеющих производственными секретами; выпуск поддельных товаров, внешне ничем не отличающихся от изделий-подлинников, но существенно худших по качеству, а потому обычно на 50% дешевле; закупка образцов с целью их копирования.
Направлением конкурентной деятельности фирм в моей модели является конкуренция в области сбыта товаров и/или услуг на рынке. В соответствии с этапами принятия потребителем решения о покупке их соперничество является межфирменной конкуренцией, т.е. конкуренцией альтернатив доминирующих и наиболее эффективных способов удовлетворения потребности.
Конкуренция выполняет роль регулятора темпов и объемов производства, побуждая при этом производителя внедрять научно-технические достижения, повышать производительность труда, совершенствовать технологию, организацию труда и т.д.
Конкуренция является определяющим фактором упорядочения цен, стимулом инновационных процессов (внедрение в производство нововведений: новых идей, изобретений). Она способствует вытеснению из производства неэффективных предприятий, рациональному использованию ресурсов, предотвращает диктат производителей (монополистов) по отношению к потребителю.
Основными методами являются:
1. повышение качества продукции
2. снижение цен («война цен»)
3. реклама
4. развитие до- и послепродажного обслуживания
5. создание новых товаров и услуг с использованием достижений НТР и т.д.
Одной из традиционных форм конкурентной борьбы, как уже было сказано, является манипулирование ценами, т.н. «война цен», используемая, в основном, для выталкивания с рынка более слабых соперников или проникновения на уже освоенный рынок.
Более эффективной и более современной формой конкурентной борьбы является борьба за качество предлагаемого на рынок товара. Поступление на рынок продукции более высокого качества или новой потребительной стоимости затрудняет ответные меры со стороны конкурента, т.к. «формирование» качества проходит длительный цикл, начинающийся с накопления экономической и научно-технической информации.
В настоящее время получили очень большое развитие различного рода маркетинговые исследования, целью которых является изучения запросов потребителя, его отношения к тем или иным товарам, т.к. знание производителем подобного рода информации позволяет ему более точно представлять будущих покупателей его продукции, более точно представлять и прогнозировать ситуацию на рынке в результате его действий, уменьшать риск неудачи и т.д.
Большую роль играет до- и послепродажное обслуживание покупателя, т.к. необходимо постоянное присутствие производителей в сфере обслуживания потребителей. Предпродажное обслуживание включает в себя удовлетворение требований потребителей по условиям поставок: сокращение, регулярность, ритмичность поставок (например, комплектующих деталей и узлов). Послепродажное обслуживание- создание различных сервисных центров по обслуживанию купленной продукции, включая обеспечение запасными частями, ремонт и т.п.
В связи с большим влиянием на общественность средств массовой информации, прессы реклама является важнейшим методом ведения конкурентной борьбы, т.к. с помощью рекламы можно определенным образом формировать мнение потребителей о том или ином товаре, причем как в лучшую, так и в худшую стороны.
Постановка задачи
На олигополистическом рынке имеется небольшое число фирм-продавцов. Каждая из них чувствительна к политике ценообразования и маркетинговым стратегиям других. Предполагается, что все участвующие фирмы заинтересованы в лидерстве по показателям доли рынка. Т.е. их целью будет увеличение числа покупателей. При этом олигополисты варьируют не только цены, но и число (объем) услуг.
Моделируется маркетинговый процесс стабилизации рынка с двумя олигополистами с последующим вхождением третьего при N покупателях.
Модель построена с помощью имитационной системы Simplex 3.
QueryStock1 - накопитель предложений 1 фирмы
QueryStock2 - накопитель предложений 2 фирмы
QueryStock3 - накопитель предложений 3 фирмы
FirmStock - накопитель предложений всех фирм – конкурентов
ff - количество покупателей 1 фирмы
ff2 - количество покупателей 2 фирмы
ff3 - количество покупателей 3 фирмы
balances [1..3] - массив остатков товара
LOST_clients [1..3] - массив, элементы которого показывают есть ли у фирмы необслуженные клиенты
criterian [1..9] [1..100] - массив критериев покупателей
demand [1..3] - массив, содержащий объем упущенных продаж по каждой фирме
EQUIPOISE - логическая переменная: EQUIPOISE = TRUE – на рынке установилось равновесие цен
Для каждого покупателя генерируются его требования к продукту и фирме, а именно, в базисном компоненте Buyer разыгрываются элементы двумерного массива, строки которого являются критериями, а номер столбца соответствует номеру покупателя.
#Вызов внешней с-функции для формирования критериев покупателей
(tmp^):=fillClients(ARRAY criterian,100);
#include <iostream>
#include <stdlib.h>
#include <math.h>
#include <stdio.h>
#include "sys_struct.h"
#include "sys_extern.h"
#include "rts_func.h"
#include "c_macros.h"
using namespace std;
// экспоненциальное распределение
real exprasp(real m)
{
real r;
real exprasp_result;
do {
r=rand()%100;
r=r/100;
} while (!(r!=0));
exprasp_result=-m*log(r);
return exprasp_result;
}
// нормальное распределение
real nrasp(real m,real stddev)
{
real r1,r2,radsqr;
real nrasp_result;
do {
r1=rand()%100;
r2=rand()%100;
r1=2*r1/100-1;
r2=2*r2/100-1;
radsqr=r1*r1+r2*r2;
} while (!((radsqr>0) && (radsqr<1)));
nrasp_result=r1*sqrt(-2*log(radsqr)/radsqr)*stddev+m;
return nrasp_result;
}
void fillClients(array a,integ r,integ *tmp)
{
int i,j;
srand(1);
for (j=1;j<=r;j++) {
InPara2(a,real,1,j) = rand()%200 + 10;
InPara2(a,real,2,j) = rand()%40 + 30;
InPara2(a,real,3,j) = rand()%2;
InPara2(a,real,4,j) = nrasp(25,5);
InPara2(a,real,5,j) = exprasp(50);
InPara2(a,real,6,j) = rand()&2+1;
InPara2(a,real,7,j) = nrasp(2.5,0.5);
InPara2(a,real,8,j) = exprasp(200);
InPara2(a,real,9,j) = nrasp(0.5,0.5);
}
}
BASIC COMPONENT buyer
MOBILE SUBCOMPONENT OF CLASS query
LOCAL DEFINITIONS
C_PROCEDURE fillClients (ARRAY[n][s] REAL,INTEGER --> INTEGER)
DECLARATION OF ELEMENTS
STATE VARIABLES
ARRAY[9][100] criterion (REAL):=0,
TNext(INTEGER):=0,
tmp(INTEGER):=0
DYNAMIC BEHAVIOUR
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,
past_b2(INTEGER):=0,
invest(INTEGER):=0 # количество свободных денежных средств
SENSOR VARIABLES
ff(INTEGER), # количество покупателей за текущий период
ARRAY [3]balances(REAL), # остатки
ARRAY [3]LOST_cl(LOGICAL), # наличие необслуженных клиентов
ARRAY [9]parameters2(REAL),
ARRAY [9]parameters3(REAL),
firm_leader(INTEGER),
g(INTEGER),
ARRAY [3]demand(REAL) # недостающий объем
RANDOM VARIABLES
PRI(REAL):UNIFORM(LowLimit:=200,UpLimit:=400), # цена
QUAN(INTEGER):IUNIFORM(LowLimit:=100,UpLimit:=200), # объем выпуска
SAL(REAL):UNIFORM(LowLimit:=0,UpLimit:=1), # скидки
ADV(REAL):UNIFORM(LowLimit:=15,UpLimit:=35), # реклама
QUAL(REAL):EXPO(Mean:=50), # качество
ASSORT(INTEGER):IUNIFORM(LowLimit:=1,UpLimit:=3), # товарный ассортимент
TRU(INTEGER):IUNIFORM(LowLimit:=2,UpLimit:=5), # доверие
REMOT(REAL):EXPO(Mean:=150), # удаленность
DELIV(INTEGER):IUNIFORM(LowLimit:=1,UpLimit:=3), # доставка
Inv(INTEGER):IUNIFORM(LowLimit:=1,UpLimit:=4) # денежные поступления извне
TRANSITIONS INDICATORS
print,
ffm,
ffm2,
ffm3
LOCATION
QueryStock1(query):=0 query, # накопитель, содержащий параметры предложения
F1Stock(query):=0 query # накопитель, содержащий параметры предложения фирм- конкурентов
SENSOR LOCATION
FStock(query)
DYNAMIC BEHAVIOUR
ON START DO
parameters1[1]^:=PRI;
parameters1[2]^:=QUAN;
parameters1[4]^:=ADV;
parameters1[5]^:=QUAL;
parameters1[6]^:=1;
parameters1[7]^:=TRU;
parameters1[8]^:=REMOT;
parameters1[9]^:=DELIV;
SIGNAL ffm;
END
WHENEVER T>=TNext
DO IF (NUMBER(FStock)<>0) DO
SIGNAL ffm3;
(ARRAY p1^,past_b^):=strategy(past_b2,LOCATION FStock,ARRAY LOST_cl,
ARRAY balances,ff,1,g,ARRAY parameters1,invest,ARRAY demand);
SIGNAL ffm2;
END
SIGNAL ffm;
TNext^:=TNext+1;
END
ON ffm DO
QueryStock1^: ADD 1 NEW query
CHANGING
(ARRAY QB^):=form(ARRAY parameters1);
END
END
ON ffm2 DO
(ARRAY parameters1^):=form(ARRAY p1);
END
ON ffm3 DO
past_b2^:=past_b;
invest^:=Inv;
END
END OF Firm
Приходя на рынок (базисный компонент 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,
maxim(REAL):=0,
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;# степень удовлетворенности покупателя
END
END
END_LOOP
QuBu[J][I]:=k;
END_LOOP
END_LOOP
# Выбор покупателем наиболее подходящей фирмы
FOR I FROM 1 TO ss
REPEAT
# если итоговые показатели всех фирм одинаковы, то выбирается первая встречная, на которой есть необходимое количество товара.
IF (QuBu[1][I]=QuBu[2][I]) AND (QuBu[1][I]=QuBu[3][I])
AND (QuBu[1][I]<>0)
DO LOOP <ch>
FOR J FROM 1 TO g
REPEAT
# подсчет остатков и выявление упущенных клиентов
IF balance[J]>=CRITER[2][I] DO
balance[J]:=balance[J]-CRITER[2][I];
QuanBuy[J][I]:=1;
LOST_clients[J]:=FALSE;
EXIT <ch>;
END
END_LOOP <ch>
END
ELSIF (QuBu[1][I]<>QuBu[2][I]) OR (QuBu[1][I]<>QuBu[3][I])
DO
maxim:=0;
FOR J FROM 1 TO g
REPEAT
IF QuBu[J][I]>maxim DO
maxim:=QuBu[J][I];
imaxim:=J;
JMAX:=I;
END
END_LOOP
Подсчет остатков и объема упущенных продаж
IF balance[imaxim]>=CRITER[2][I] DO
balance[imaxim]:=balance[imaxim]-CRITER[2][I];
QuanBuy[imaxim][JMAX]:=1;
LOST_clients[imaxim]:=FALSE;
END
ELSIF balance[imaxim]<CRITER[2][I] DO
DISPLAY("Товара НЕТ на %d !!!\n",imaxim);
LOST_clients[imaxim]:=TRUE;
dem[imaxim]:=dem[imaxim]+CRITER[2][I];
END
END
END_LOOP
FOR J FROM 1 TO ss
REPEAT
f := f + QuanBuy[1][J];# подсчет количества покупателей 1 фирмы
END_LOOP
FOR J FROM 1 TO ss
REPEAT
f2 := f2 + QuanBuy[2][J];# подсчет количества покупателей 2 фирмы
END_LOOP
FOR J FROM 1 TO ss
REPEAT
f3 := f3 + QuanBuy[3][J];# подсчет количества покупателей 3 фирмы
END_LOOP
clients[1]:=f;
clients[2]:=f2;
clients[3]:=f3;
#Выявление фирмы-лидера
max_cl:=0;
FOR I FROM 1 TO g
REPEAT
IF clients[I]>max_cl
DO
max_cl:=clients[I];
leader:=I;
END
END_LOOP
RETURN
END OF FChoice
В конце временного периода каждой фирме отправляется информация о количестве покупателей и об остатках товара на складах. Это реализовано в компоненте высокого уровня.
HIGH LEVEL COMPONENT Market_HIGH
SUBCOMPONENTS
Firm,
Firm2,
Firm3,
buyer,
Market
COMPONENT CONNECTION
Firm.QueryStock1-->Market.QStock1;
Firm2.QueryStock2-->Market.QStock2;
Firm3.QueryStock3-->Market.QStock3;
buyer.criterion{i OF 1..9}{j OF 1..100}-->Market.criterion[i][j]; массив критериев покупателей
Firm.parameters1{i OF 1..9}-->Firm3.parameters1[i]; параметры 1 фирмы в 3-ю
Firm2.parameters2{i OF 1..9}-->Firm3.parameters2[i]; параметры 2 фирмы в 3-ю
Market.g-->Firm.g;
Market.g-->Firm2.g;
Market.g-->Firm3.g;
# Количество покупателей
Market.ff-->Firm.ff;
Market.ff2-->Firm2.ff2;
Market.ff3-->Firm3.ff3;
# Остатки на складах
Market.balances[1]-->Firm.balances[1];
Market.balances[2]-->Firm2.balances[2];
Market.balances[3]-->Firm3.balances[3];
# Необслуженные клиенты
Market.LOST_clients[1]-->Firm.LOST_cl[1];
Market.LOST_clients[2]-->Firm2.LOST_cl[2];
Market.LOST_clients[3]-->Firm3.LOST_cl[3];
# Фирма - лидер
Market.firm_leader-->Firm.firm_leader;
Market.firm_leader-->Firm2.firm_leader;
Market.firm_leader-->Firm3.firm_leader;
# Массив, содержащий объем упущенных продаж по каждой фирме
Market.demand[1]-->Firm.demand[1];
Market.demand[2]-->Firm2.demand[2];
Market.demand[3]-->Firm3.demand[3];
Market.EQUIPOISE-->Firm3.EQUIPOISE;
END OF Market_HIGH
Исходя из этого и учитывая прошлый опыт (объем продаж и спрос за прошлые периоды), олигополист выбирает одну из возможных стратегий на последующий период времени.
Событие 1. Так как фирм немного, то каждый продавец вынужден следить за поведением конкурентов. Таким образом, в модели фирмы-участники договариваются об установлении средней цены.
Каждая фирма считает недостающий объем выпуска и в событии 2 при наличии необслуженных клиентов, увеличивает выпуск на недостающую величину.
Событие 3. Если остаток фирмы больше 1/3 всего выпущенного объема, то олигополист вводит скидки для распродажи и уменьшает выпускаемый объем на 2%.
Далее, исходя из изменений спроса, олигополист варьирует неценовые факторы (событие 4). Если в текущем периоде увеличивается количество покупателей по сравнению с прошлым периодом, то фирма увеличивает предлагаемый товар на 10 ед. Если же спрос снижается, то фирма предпринимает действия в соответствии с количеством имеющихся свободных денежных средств (переменная cash). При величине cash = 1, соответствующей большой сумме денежных поступлений, олигополист разрабатывает новый продукт и увеличивает свой товарный ассортимент. Дальнейшие изменения переменной cash означают уменьшение денежных средств. При cash = 2 олигополист улучшает качество имеющегося товара, тем самым улучшая свой имидж и увеличивая доверие клиентов. При cash = 3 улучшается реклама. При cash = 4 – доставка.
Данный алгоритм в программе реализован следующим образом.
FUNCTION strategy
MOBILE SUBCOMPONENT OF CLASS query
LOCAL DEFINITIONS
DECLARATION OF SUBFUNCTION
form(ARRAY [n]REAL:PP-->ARRAY[n]REAL)
DECLARATION OF ELEMENTS
INPUT PARAMETERS
past_buy2(INTEGER), #j=2 l=3 n=9
Stock(LOCATION FOR query),
ARRAY[l] LOST_c(LOGICAL),
ARRAY[l] bal(REAL),
ff1(INTEGER),
I(INTEGER), #номер фирмы
g(INTEGER),
ARRAY [n]param1(REAL),
cash(INTEGER),
ARRAY [l]dem(REAL)
OUTPUT PARAMETERS
ARRAY[n] par(REAL),
past_buy(INTEGER)
LOCAL VARIABLES
average_price(REAL):=0,
cash1(INTEGER):=0
BEGIN
(ARRAY par):=form(ARRAY param1);
#Событие 1
FOR J FROM 1 TO g
REPEAT
average_price:=average_price+Stock:query[J].QB[1];
END_LOOP
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;
END
ELSIF ff1<=past_buy2
DO
IF cash=1
DO
par[6]:=par[6]+1;
END
ELSIF cash=2
DO
par[5]:=par[5]+5;
IF (par[5]>230) AND (par[7]<6)
DO
par[7]:=par[7]+1;
END
END
ELSIF cash=3
DO
par[4]:=par[4]+5;
END
ELSIF (cash=4) AND (par[9]<3)
DO
par[9]:=par[9]+1;
END
END
past_buy:=ff1;
RETURN
END OF strategy
Результаты
Когда на рынке устанавливается относительное равновесие цен между первой и второй фирмой, то на него входит новая фирма, которая предварительно изучила ситуацию. Теперь события будут развиваться с тремя конкурентами до обретения нового равновесия (рис. 1, 2).
Рис. 1 - Процесс установления средней цены
Рис. 2 - Доля рынка каждой фирмы
На графике представлено количество покупателей каждой фирмы. Синяя линия соответствует первой фирме (Firm), красная – второй (Firm2), а зеленая – третьей (Firm3). Очевидно, что некоторая доля рынка перейдет к новичку. Модель показала, какой эта доля будет и статус, который займет новая фирма – олигополист.
На рис. 3 отражена конкурентная борьба, происходящая между олигополистами.
Рис. 3 - Объем выпуска каждой фирмы – олигополиста
Объем выпускаемой продукции напрямую связан со спросом на нее. Чем выше спрос, тем больше выпуск.
Следующие графики отображают изменение величины спроса отдельно взятой фирмы. Синяя линия – это предлагаемый объем продукции, красная – остатки на складе, после совершения покупок клиентами, а область между ними – величина спроса.
Рис. 4 - Изменение спроса на товар 1 фирмы
Рис. 5 - Изменение спроса на товар 2 фирмы
Рис. 6 - Изменение спроса на товар 3 фирмы