* Единица времени равна одному часу * 
Sizeorder FUNCTION RN1,D7 ;Размер заказа. 
.10,6/.35,12/.65,18/.80,24/.92,30/.97,36/1.0,48 
Transit TABLE M1,.015,.015,20 ;Транзитное время. 
Number TABLE X1,100,100,20 ;Количество часов, упакованных каждый день. 
Ptime VARIABLE .0028#P1+0.0334 ;Время упаковки. 
Amount EQU 1000 ;Начальное количество запасов. 
Stock STORAGE 4000 ;Склад вмещает 4000 единиц. 
GENERATE (Exponential(1,0,0.25)) ;Поступление заказа. 
ASSIGN 1,1,Sizeorder ;P1=размер заказа. 
TEST GE S$Stock,P1,Stockout ;Достаточно запасов? 
LEAVE Stock,P1 ;Исключить P1 со склада. 
QUEUE Packing 
SEIZE Machine ;Машина занимается. 
DEPART Packing 
ADVANCE V$Ptime ;Время упаковки. 
RELEASE Machine ;Машина освобождается. 
SAVEVALUE 1+,P1 ;Суммарное количество упакованных часов. 
TABULATE Transit ;Записывается транзитное время. 
TERMINATE 
Stockout TERMINATE 
GENERATE 0.75,0.08334,1 ;Транзакт каждые 40+/-5 минут. 
ENTER Stock,60 ;Произведено 60 часов, склад пополняется. 
Stockad TERMINATE 
GENERATE 8 ;Транзакт каждый «день». 
TABULATE Number 
SAVEVALUE 1,0 
TERMINATE 1 
GENERATE ,,,1,10 ;Транзакт инициализирующий склад. 
ENTER Stock,Amount ;Устанавливается начальный запас. 
TERMINATE
START 5 

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



2015-11-17 • Просмотров [ 145 ]