* Инициализация и определение 
INITIAL X$EOQ,500 ;Оптимальный размер заказа. 
INITIAL X$Point,600 ;Уровень запасов, в которой производится заказ. 
INITIAL X$Stock,700 ;Начальный запас равен 700. 
Inventory TABLE X$Stock,0,50,20 ;Таблица уровней запасов. 
Sales TABLE P$Demand,38,2,20 ;Таблица уровней продаж. 
Var2 VARIABLE RN1@24+40 

GENERATE ,,,1 
Again TEST L X$Stock,X$Point ;Заказ размещается в случае выполнения условия. 
ADVANCE 5 ;Время реализации заказа = 1 неделя. 
SAVEVALUE Stock+,X$EOQ ;Заказ. 
TRANSFER ,Again ;Цикл снова повторяется. 

GENERATE 1 ;Суточный спрос (генерируется транзакт). 
ASSIGN Demand,V$Var2 ;Назначается объем суточного спроса. 
TABULATE Inventory ;Производится опись запасов. 
TEST GE X$Stock,P$Demand ;Проверяем, может ли быть спрос удовлетворен. 
SAVEVALUE Stock-,P$Demand ;Запас уменьшается на величину спроса. 
SAVEVALUE Sold,P$Demand ;X$Sold=суточному спросу. 
TABULATE Sales ;Записывается величина суточных продаж. 
TERMINATE 1 ;Суточный таймер. 
START 100

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



2015-11-15 • Просмотров [ 117 ]