МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ
РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИННОВАЦИОННЫХ ТЕХНОЛОГИЙ И ПРЕДПРИНИМАТЕЛЬСТВА
кафедра ИНФОРМАЦИОННЫЕ СИСТЕМЫ
Гулин Сергей Александрович
Семестровый отчёт студента 4 курса
дневного отделения
по курсу
«Моделирование систем»
Руководитель: ____________/ Носков Ю.М.
Москва 2010 г.
1. Модель смо. Проведение эксперимента 1.
;Модель смо с одни прибором и очередью
ave_ EQU 25
GENERATE 30,20
QUEUE petr
SEIZE ivan
DEPART petr
ADVANCE ave_,10
RELEASE ivan
TERMINATE
GENERATE 30000
savevalue 1,qm$petr
TERMINATE 1
;определить зависимость максимальной длины очереди от среднего времени обслуживания
procedure irina()
begin
alpha=20;
while(alpha<=30)
do begin
ave_=alpha;
docommand("START 1,np");
txt="Среднее значение времени обслуживание = ";
str=polycatenate(txt,ave_," максимальная длина очереди равна ",x1);
docommand("show str");
docommand("reset");
docommand("clear");
alpha=alpha+1;
end;
end;
experiment sem()
begin
irina();
end;
2. Модель смо. Проведение эксперимента 2.
;Оптимизирующий эксперимент для нахождения минимального числа обслуживающих приборов, которые справляются с нагрузкой
;План эксперимента:
; - шаг изменения искомого значения параметра будет 1
; - сначала будет отправляться 1000, затем 2000
;
;
;Модель смо с одни прибором и очередью
ivan Storage 1
GENERATE (Poisson(1,30))
QUEUE petr
Enter ivan
DEPART petr
ADVANCE (Normal(1,500,20))
Leave ivan
TERMINATE
GENERATE 30000
SAVEVALUE 1,qm$petr
TERMINATE 1
procedure det_dep()
begin
qm1_ = 10;
qm2_ = 5;
Nch = 1;
while((Abs(qm1_ - qm2_)>2)&(Nch<100)) do begin
str = polyCatenate("ivan Storage ",Nch);
DoCommand(str);
DoCommand("Start 1,NP");
qm1_ = QM$petr;
str = polyCatenate("Максимальная длина очереди = ",qm1_);
DoCommand("show str");
DoCommand("clear");
DoCommand("Reset");
qm1_ = QM$petr;
DoCommand("Start 2,NP");
qm2_ = QM$petr;
str = polyCatenate("Максимальная длина очереди = ",qm2_);
DoCommand("show str");
DoCommand("clear");
DoCommand("Reset");
Nch = Nch + 1;
end;
Nch = Nch - 1;
str = polyCatenate("Оптимальное количество каналов = ",Nch);
DoCommand("show str");
end;
experiment sem()
begin
det_dep();
end;
3. Магазин.
; строится модель магазина, поток пуассоновский. имеется 4 кассы. причем каждый кассир обслживает разное время
; покупатель выбирает ту очередь которая сейчас меньше всего.
; модель с ограничением на длинну очередь
limits EQU 3
srok EQU 20
qkas1 EQU 1
qkas2 EQU 2
qkas3 EQU 3
qkas4 EQU 4
finc function p1,D4
1,label1/2,label2/3,label3/4,label4
gogos bvariable (q$qkas1<limits)+(q$qkas2<limits)+(q$qkas3<limits)+(q$qkas4<limits)
GENERATE (poisson(1,srok))
TEST G bv$gogos,0,byebye
SELECT MIN 1,1,4,,q
TRANSFER ,FN$finc
label1 QUEUE qkas1
SEIZE kas1
DEPART qkas1
ADVANCE (poisson(1,100))
RELEASE kas1
TRANSFER ,byebye
label2 QUEUE qkas2
SEIZE kas2
DEPART qkas2
ADVANCE (poisson(1,200))
RELEASE kas2
TRANSFER ,byebye
label3 QUEUE qkas3
SEIZE kas3
DEPART qkas3
ADVANCE (poisson(1,35))
RELEASE kas3
TRANSFER ,byebye
label4 QUEUE qkas4
SEIZE kas4
DEPART qkas4
ADVANCE (poisson(1,15))
RELEASE kas4
TRANSFER ,byebye
byebye TERMINATE
************
GENERATE 100000
TERMINATE 1