Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
10)* ПЕРВЫЙ ВИД РЕМОНТА
MASTER STORAGE 2
GENERATE 40, 10
QUEUE Q_FIRST_SEC_REM
QUEUE Q_MASTER
ENTER MASTER
DEPART Q_FIRST_SEC_REM
DEPART Q_MASTER
ADVANCE 30,20
LEAVE MASTER
TERMINATE
* ВТОРОЙ ВИД РЕМОНТА
GENERATE 50,10
QUEUE Q_FIRST_SEC_REM
QUEUE Q_MASTER
ENTER MASTER
DEPART Q_FIRST_SEC_REM
DEPART Q_MASTER
ADVANCE 50,10
LEAVE MASTER
TERMINATE
*ТРЕТИЙ ВИД РЕМОНТА
GENERATE 240,60
QUEUE Q_THIRD_REM
QUEUE Q_MASTER_3
SEIZE MASTER_3
DEPART Q_THIRD_REM
DEPART Q_MASTER_3
ADVANCE 90,20
RELEASE MASTER_3
TERMINATE
* ПЕРЕРЫВ НА ОТДЫХ
GENERATE 360
SUNAVAIL MASTER
FUNAVAIL MASTER_3
ADVANCE 60
FAVAIL MASTER_3
SAVAIL MASTER
TERMINATE
* тАЙМЕР
GENERATE 960
TERMINATE 1
START 1
12) FUNC FUNCTION RN1,D4
0.2,5/.5,7/.65,10/1,12
WORKER STORAGE 4
GENERATE (UNIFORM(RN6,1,3))
QUEUE Q_TOYS
ENTER WORKER
DEPART Q_TOYS
ADVANCE FN$FUNC
LEAVE WORKER
TERMINATE
GENERATE 480
TERMINATE 1
START 1
13)KOLICHESTVO FUNCTION RN1,C2
0,10/1,30
SUM1 EQU 3.1
SUM2 EQU 3.5
SUM3 EQU 2.8
SUM4 EQU 2.5
*SEGMENT1
GENERATE 10,2
QUEUE Q_KM1
SEIZE KM1
DEPART Q_KM1
ADVANCE 10,5
ADVANCE 2,1
RELEASE KM1
ASSIGN 1,FN$KOLICHESTVO
SAVEVALUE KM1+,P1
TERMINATE
*SEGMENT2
GENERATE 16,3
QUEUE Q_KM2
SEIZE KM2
DEPART Q_KM2
ADVANCE 10,5
ADVANCE 2,1
RELEASE KM2
ASSIGN 1,FN$KOLICHESTVO
SAVEVALUE KM2+,P1
TERMINATE
*SEGMENT3
GENERATE 18,1
QUEUE Q_KM3
SEIZE KM3
DEPART Q_KM3
ADVANCE 10,5
ADVANCE 2,1
RELEASE KM3
ASSIGN 1,FN$KOLICHESTVO
SAVEVALUE KM3+,P1
TERMINATE
*SEGMENT4
GENERATE 10,5
QUEUE Q_KM4
SEIZE KM4
DEPART Q_KM4
ADVANCE 10,5
ADVANCE 2,1
RELEASE KM4
ASSIGN 1,FN$KOLICHESTVO
SAVEVALUE KM4+,P1
TERMINATE
*SEGMENT 5
GENERATE 720
SAVEVALUE CENA1,(X$KM1#SUM1)
SAVEVALUE CENA2,(X$KM2#SUM2)
SAVEVALUE CENA3,(X$KM3#SUM3)
SAVEVALUE CENA4,(X$KM4#SUM4)
TERMINATE 1
START 1
14)CALC STORAGE 3
VEROYATN FUNCTION RN1,D5
.2,90/.4,100/.6,110/.8,120/1,130
* 0 сдвиг распределения
* 1 масштабный параметр
GENERATE (EXPONENTIAL(140,0,1))
QUEUE Q_CALC
ENTER CALC
DEPART Q_CALC
ASSIGN 1,QT$Q_CALC
ASSIGN 2,FN$VEROYATN
ADVANCE P2
LEAVE CALC
TEST NE 90,P2,OTCH1
TEST NE 100,P2,OTCH2
TEST NE 110,P2,OTCH3
TEST NE 120,P2,OTCH4
TEST NE 130,P2,OTCH5
OTCH1 SAVEVALUE first+,P1
SAVEVALUE num_1+,1
TERMINATE
OTCH2 SAVEVALUE second+,P1
SAVEVALUE num_2+,1
TERMINATE
OTCH3 SAVEVALUE third+,P1
SAVEVALUE num_3+,1
TERMINATE
OTCH4 SAVEVALUE fourth+,P1
SAVEVALUE num_4+,1
TERMINATE
OTCH5 SAVEVALUE fifth+,P1
SAVEVALUE num_5+,1
TERMINATE
GENERATE 1440
SAVEVALUE wait1+,(X$first/X$num_1)
SAVEVALUE wait2+,(X$second/X$num_2)
SAVEVALUE wait3+,(X$third/X$num_3)
SAVEVALUE wait4+,(X$fourth/X$num_4)
SAVEVALUE wait5+,(X$fifth/X$num_5)
TERMINATE 1
START 1
15)*Функція для визначення вида платежу,
*частоти появи та тривалості обслуговування
PL FUNCTION RN1,C4
0,5/0.15,8/0.4,11/1,21
*Оплата платежів
GENERATE(EXPONENTIAL(RN5,0,5))
TEST G 8,Q$Q_VIKNO,och1
QUEUE Q_VIKNO
SEIZE VIKNO
DEPART Q_VIKNO
ADVANCE FN$PL
RELEASE VIKNO
TERMINATE
och1 TERMINATE
*Запуск імітації
GENERATE 1440
TERMINATE 1
START 1
16)slg function rn1,d4
.2,10/.7,25/.8,40/1,70
GENERATE ,,,50
ASSIGN 1,FN$slg
GATE NU MASTER,V_SPIS
IZ_SPIS SEIZE MASTER
ADVANCE P1
OBSL RELEASE MASTER
UNLINK SPIS,IZ_SPIS,1
TEST NE 10,P1,OTCH1
TEST NE 25,P1,OTCH2
TEST NE 40,P1,OTCH3
TEST NE 70,P1,OTCH4
OTCH1 SAVEVALUE num_1+,1
TERMINATE
OTCH2 SAVEVALUE num_2+,1
TERMINATE
OTCH3 SAVEVALUE num_3+,1
TERMINATE
OTCH4 SAVEVALUE num_4+,1
TERMINATE
TERMINATE
V_SPIS LINK SPIS,P1
GENERATE 600
TERMINATE 1
START 2