RMULT 66753 
Schedparm EQU 4 ;Сначала обрабатываются задания с наименьшим временем выполнения. 
Var1 VARIABLE P1+P2+P3 
Var2 VARIABLE P4+AC1+RN1@160+80 
Var3 VARIABLE 10000-P4 
Lateness VARIABLE AC1-P5 
Transit TABLE M1,100,100,20 ;Запись в таблицу времени выполнения. 
Late TABLE V$Lateness,-1000,200,20 ;Задержка. 
GENERATE (Exponential(2,0,120)) ;Создание новых заказов. 
ASSIGN 1,(Exponential(3,0,90)) ;Время программирования. 
ASSIGN 2,(Exponential(4,0,60)) ;Время перфорации ленты. 
ASSIGN 3,(Exponential(5,0,70)) ;Время загрузки и правки. 
ASSIGN 4,V$Var1 ;Общее время выполнения. 
ASSIGN 5,V$Var2 ;Срок сдачи из Р5. 
ASSIGN 6,V$Var3 ;Наибольш. время выполнения. 
LINK Program,P$Schedparm,Wrte ;Наименьш. время выполнения. 
Wrte SEIZE Manuscript 
ADVANCE P1 ;Составление программы. 
RELEASE Manuscript 
UNLINK Program,Wrte,1 ;Удаление из списка. 
LINK Tape,P$Schedparm,Punch ;Добавление в список. 
Punch SEIZE Tapepunch 
ADVANCE P2 ;Время перфорации. 
RELEASE Tapepunch 
UNLINK Tape,Punch,1 ;Удаление из списка. 
LINK Edit,P$Schedparm,Loadedit ;Добавление в список. 
Loadedit SEIZE Edit 
ADVANCE P3 ;Время загрузки и правки. 
RELEASE Edit 
UNLINK Edit,Loadedit,1 ;Удаление из списка. 
TABULATE Late 
TABULATE Transit 
TERMINATE 1 ;Работа выполнена. 
START 100

Результаты моделирования.



2015-11-18 • Просмотров [ 197 ]