FREZ EQU 3
SHLI EQU 4
KNV EQU 5
BAD1 EQU 1
BAD2 EQU 2
BAD3 EQU 3
BAD4 EQU 4
ROUTE EQU 5
TIME EQU 6
*
KNV STORAGE 200; Вместительность конвейера
SVER STORAGE 2; Определение
ТОК STORAGE 2; количества
FREZ STORAGE 2; однотипных
SHU STORAGE. 2; станков
** Функция себестоимости для каждого типа деталей **
СЕВ FUNCTION P1,D4
1,350/2,420/3,280/4,315
** Функция штрафов для каждого типа деталей **
MSHT FUNCTION P1,D4
1,80/2,120/3,160/4,100
** Функция дохода для каждого типа деталей **
MDOH FUNCTION P1,D4
1,1550/2,1850/3,1350/4,1450
** Функция допустимого времени пребывания на участке **
** для каждого типа деталей **
DTIM FUNCTION P1,D4
1,1890/2,1600/3,2300/4,1400
** Функция распределения времени поступления деталей на участок **
EXPDIS FUNCTION RN1,C24
0,0/.100,.104/.200,.222/.300,.355/.400,.509
.500,.690/.600,.915/.700,1.200/.750,1.380
.800,1.600/.840,1.830/.880,2.120/.900,2.300
.920,2.520/.940,2.810/.950,2.990/.960,3.200
.970,3.500/.980,3.900/.990,4.600/.995,5.300
.998,6.200/.999,7/1,8
** Функция типов деталей
TYP FUNCTION RN1,D4
.25,1/.40,2/.75,3/1,4
** Функция начальных значений маршрутов для каждого типа деталей **
JTAP FUNCTION P1,D4
1,1/2,7/3,11/4,16
** Функция количества этапов обработки для каждого типа деталей **
JOB FUNCTION P1,D4
1,6/2,4/3,5/4,4
** Функция типов станков для каждого типа деталей **
ROUTE FUNCTION P3,D19
1,2/2,3/3,1/4,4/5,1/6,2
7,3/8,4/9,3/10,1
11,2/12,1/13,3/14,2/15,4
16,1/17,2/18,3/19,4
** Функция времени наработки для каждого этапа
TIME FUNCTION P3,D19
1,88/2,120/3,120/4,130/5,105/6,92
7,200/8,140/9,145/10,160
11,176/12,190/13,140/14,116/15,300
16,190/17,168/18,130/19,190
** Функция времени движения деталей по участку
GO FUNCTION P3,D19
1,16/2,23/3,23/4,23/5,55/6,38/7,35
8,38/9,29/10,23/11,16/12,40/13,55
14,55/15,33/16,55/17,38/18,23/19,38
** Функция времени для выхода детали с участка
EXIT_ FUNCTION P1,D4
1,68/2,33/3,16/4,16
** Сбор данных о времени пребывания по типам деталей
BAD1 TABLE Ml,l 890,24000,2
BAD2 TABLE Ml,1600,24000,2
BAD3 TABLE Ml,2300,24000,2
BAD4 TABLE Ml,1400,24000,2
* 1-й сегмент модели
GENERATE 200,FN$EXPDIS
ASSIGN 1,FN$TYP; Тип детали
ASSIGN 2,FN$JOB; Количество этапов
ASSIGN 3,FNSJTAP; Номер первого этапа
ASSIGN 6,FN$DTIM; Допустимое время
ENTER KNV; Поступление на конвейер
NEXT ASSIGN 4,FN$ROUTE; Тип станка
ASSIGN 5,FN$TIME; Время наработки
ASSIGN 7,FN$GO; Время движения к станку
ADVANCE P7; Время движения по конвейеру
QUEUE P4; Очередь к станку
ENTER P4; Занятие станка
DEPART P4; Выход из очереди
ADVANCE P5; Обработка на станке
LEAVE P4; Освобождение станка
ASSIGN 3+,1; Увеличение количества этапов
LOOP 2,NEXT; Этапы-все? Нет-NEXT
ASSIGN 7,FN$EX1T_; Время выхода с участка
ADVANCE P7; Выход с участка
LEAVE KNV; Выход с конвейера
TABULATE PI; Сбор статистики
TEST L P6,M1,DDD; Штрафовать? Нет - DDD
SAVEVALUE SHTRAF+,FN$MSHT; Штраф
SAVEVALUE DOHOD-,FN$MSHT; Определение дохода
DDD SAVEVALUE DOHOD+,FN$MDOH; Определение дохода
SAVEVALUE DOHOD-,FN$CEB; Определение дохода
SAVEVALUE CEBECT+,FN$CEB; Определение себестоимости
TERMINATE
* 2-й сегмент модели
GENERATE 4800; Таймер модели