172
4. Модельный файл
* Модуль 1 Управления и описания
SIMULATE Пример 6.1 Модель ткацкой фабрики
* Временная дискрета : 1 час
INTEGER &FIXERS число ремонтников
INTEGER &I &I – индекс петли управления
INTEGER &LEASED число арендованных машин
OPERCOL 30 считывание первого операнда с 30й
*колонки
UNLIST CSECHO запрет на показ ОУ
OPRATORS STORAGE 10 10 операторов
* Модуль 2 Исполнения
* Фрагмент 1 Арендованный станок (при необходимости)
GENERATE ,,1,&LEASED ввод 1го арендуемого станка в
*момент 1
TRANSFER ,REPEAT передача в основную линию
* Фрагмент 2 Станки в основной линии
GENERATE 0,,,10 функционирование 10 основных
*станков
ENTER OPRATORS занятие оператора (без задержки)
ADVANCE 150,140 использование остаточного ресурса
TRANSFER ,BROKEN переход на восстановление
* Фрагмент 3. Восстановление станка
GENERATE ,,1,1 ввод восстановленного станка в
*момент 1
REPEAT ENTER OPRATORS занятие оператора
ADVANCE 200,100 использование полного ресурса
BROKEN LEAVE OPRATORS при отказе освобождение оператора
ENTER FIXSHOP занятие ремонтника
ADVANCE 24,8 время восстановления
LEAVE FIXSHOP освобождение ремонтника
TRANSFER ,REPEAT передача на использование
* Фрагмент 4 Временной таймер
GENERATE 1000 25 рабочих недель
TERMINATE 1 сигнал на окончание процесса ИМ
* Модуль 3 управления
DO &FIXERS = 1,2,1 вначале 1, затем 2 ремонтника
FIXSHOP STORAGE &FIXERS изменение емкости памяти FIXSHOP
DO &LEASED = 0,1,1 вначале 0, затем 1 арендованный
*станок
DO &I = 1,15,1 осуществление 15 реплик
START 1 запуск &Iой реплики
PUTPIC LINES = 6,FILE =
SYSPRINT,(&I,&FIXERS,&LEASED)
0 = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Shown above is Replication Report * for this configuration:
Number of repairpersons : *
Number of leased machines : *
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
CLEAR очистка для проведения следующей
*реплики
ENDDO проведение следующей реплики
ENDDO изменение числа арендованных
*станков
ENDDO изменение числа ремонтников
END окончание процесса ИМ