Модель производственного цеха

EXPONENTA FUNCTION RN1,C24
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8

JTYPE FUNCTION RN2,D3	; распределение типов в общем потоке поступающих деталей
.21,1/.55,2/1,3
GRUPS FUNCTION P1,D3	; общее число групп механизмов для определенного типа детали
1,4/2,3/3,5

SIMULATE

PRIBOR MATRIX ,3,5	; матрица последовательности прохождения групп устройств
INITIAL MX$PRIBOR(1,1),6	; прохождение шлифовального станка (тип детали 1) 
INITIAL MX$PRIBOR(1,2),2	; прохождение токарного станка (тип детали 1) 
INITIAL MX$PRIBOR(1,3),3	; прохождение строгального станка (тип детали 1) 
INITIAL MX$PRIBOR(1,4),1	; прохождение отливочного станка (тип детали 1) 
INITIAL MX$PRIBOR(2,1),2	; прохождение токарного станка (тип детали 2)  
INITIAL MX$PRIBOR(2,2),4	; прохождение сверлильного станка (тип детали 2) 
INITIAL MX$PRIBOR(2,3),5	; прохождение фрезерного станка (тип детали 2)  
INITIAL MX$PRIBOR(3,1),6 ; прохождение шлифовального станка (тип детали 3) 
INITIAL MX$PRIBOR(3,2),3	; прохождение строгального станка (тип детали 3) 
INITIAL MX$PRIBOR(3,3),4	; прохождение сверлильного станка (тип детали 3)  
INITIAL MX$PRIBOR(3,4),5	; прохождение фрезерного станка (тип детали 3)  
INITIAL MX$PRIBOR(3,5),1	; прохождение отливочного станка (тип детали 3) 

TIME MATRIX ,3,5	; матрица среднего времени обработки
INITIAL MX$TIME(1,1),3600	; прохождение шлифовального станка (тип детали 1) 
INITIAL MX$TIME(1,2),1200	; прохождение токарного станка (тип детали 1) 
INITIAL MX$TIME(1,3),2100	; прохождение строгального станка (тип детали 1) 
INITIAL MX$TIME(1,4),1500	; прохождение отливочного станка (тип детали 1) 
INITIAL MX$TIME(2,1),3900	; прохождение токарного станка (тип детали 2)  
INITIAL MX$TIME(2,2),2400	; прохождение сверлильного станка (тип детали 2)  
INITIAL MX$TIME(2,3),900		; прохождение фрезерного станка (тип детали 2)  
INITIAL MX$TIME(3,1),1500  	; прохождение шлифовального станка (тип детали 3) 
INITIAL MX$TIME(3,2),3000	; прохождение строгального станка (тип детали 3) 
INITIAL MX$TIME(3,3),3600	; прохождение сверлильного станка (тип детали 3)  
INITIAL MX$TIME(3,4),1800	; прохождение фрезерного станка (тип детали 3)  
INITIAL MX$TIME(3,5),2100	; прохождение отливочного станка (тип детали 3) 

; Количество механизмов в группе
OTLIV EQU 1
OTLIV STORAGE 4	; механизмов типа отливка по условию
TOKAR EQU 2
TOKAR STORAGE 5	; механизмов типа токарные по условию
STROGAL EQU 3
STROGAL STORAGE 4	; механизмов типа строгальные по условию
; STROGAL STORAGE 8	; механизмов типа строгальные = 8
SVERLIL EQU 4
SVERLIL STORAGE 8	; механизмов типа сверлильные по условию
FRESER EQU 5
FRESER STORAGE 6	; механизмов типа фрезерные по условию
SHLIFOV EQU 6 
SHLIFOV STORAGE 4	; механизмов типа шлифовальные по условию

; Сегмент имитации поступления деталей в цех
GENERATE 576,FN$EXPONENTA	; Поступление деталей в цех
ASSIGN 1,FN$JTYPE 		; Формируем тип детали и сохраняем в параметр 1
ASSIGN 2,FN$GRUPS		; Находим соответствие число групп станков для типа детали и сохраняем в P2
NEXT   QUEUE MX$PRIBOR(P1,P2)   	; Деталь становится в очередь на обработку к следующему станку
ENTER MX$PRIBOR(P1,P2)		; Деталь занимает станок следующей группы
DEPART MX$PRIBOR(P1,P2)		; Деталь покидает очередь
ADVANCE MX$TIME(P1,P2),FN$EXPONENTA	; Процесс обработки за соответствующее время
LEAVE MX$PRIBOR(P1,P2)		; Деталь покидает станок
ASSIGN 2-,1			; Число групп станков, через которые еще нужно пройти
TEST E P2,0,NEXT  	; Организация цикла, проверяем количество оставшихся групп станков
TERMINATE		; Деталь покидает цех
; Сегмент задания времени моделирования
GENERATE 144000 	; Исследовательское время - рабочая неделя (40ч)
TERMINATE 1
START 1