Единица времени — 1 мин.
|
Элементы GPSS. | Интерпретация. |
Транзакты в 1-м сегменте модели. | Автомобили. |
Транзакты в 2-м сегменте модели. | Транзакт-таймер |
Функция QTo, QSlo, QScred, QProst. | Очередь на соответствующие обслуживание. |
Функции To, Pr, Sr, Sl. | Генератор, случайно распределяющий обслуживание. |
Емкость памяти Sto. | Количество боксов. |
Функция Finish. | Функция отправляющие данные. |
Функции V_To, V_Pr, V_Sr, V_Sl. | Выручка от реализации того или иного вида ремонта. |
|
Блок-схема
PrSr.
Prost.
Fihish.
Finish.
2-й сегмент модели (сегмент таймера).
Листинг
- *Моделирование работы С.Т.О
- *Единица времени — минута
INITIAL x$V_To, 0.
INITIAL x$V_Pr, 0.
INITIAL x$V_Sr, 0.
INITIAL x$V_Sl, 0.
Sto STORAGE 5; пять боксов для технического обслуживания.
Remo STORAGE 8; восемь боксов для ремонта.
Vrem TABLE mp1,20,20,20.
************************************.
GENERATE (EXPONENTIAL (1,0,14)); прибытие автомобилей на СТО.
ASSIGN 1, AC1; в параметре 1 храним текущее модельное время входа машины (для статистики).
TRANSFER.360,Rem, Tech.
Tech QUEUE QTo; Встать в очередь.
ENTER STo ;Войти на обслуживание в бокс.
DEPART QTo ;выйти из очереди.
ADVANCE (EXPONENTIAL (2,0,32)); техобслуживание.
LEAVE STo; освобождение бокса.
SAVEVALUE V_To+,(DUNIFORM (3,100,400)); прибыль за ТО.
ASSIGN 2,2; во втором параметре машины храним то что она может пойти на средний ремонт.
TRANSFER.120,Finish, Rem; 12% авто требуют среднего ремонта, остальным на выход.
Rem ASSIGN 2,(DUNIFORM (3,1,3)); в параметре 2 храним тип обслживания — равномерно 1 2 3 — легкий средний и тяжелый ремонт соответственно.
QUEUE QRem; - встать в очередь на ремонт.
ENTER Remo; войти в бокс на обслуживание если есть свободные места.
DEPART QRem; - выйти из очереди.
; в зависимости от типа ремонта реализуется разное обслуживани и прибыль.
TEST E P2,1,TES2; если параметр P2 = 1 — лёгкий ремонт, иначе к проверке TES2.
ADVANCE (EXPONENTIAL (4,0,28)); -выполнение простого ремонта.
SAVEVALUE V_Pr+,(DUNIFORM (2,50,450)); - выручка за простой ремонт.
TRANSFER, Lev; на завершение обслуживания.
TES2 TEST E P2,2,TES3.
ADVANCE (Normal (5,45,5)); -выполнение среднего ремонта, стандартное отклонение 5 (дисперсия 25).
SAVEVALUE V_Sr+,(DUNIFORM (7,100,1400)); - выручка за средний ремонт.
TRANSFER, Lev.
TES3 ADVANCE (Normal (6,115,15)); -выполнение сложного ремонта, стандартное отклонение 15 (дисперсия 225).
SAVEVALUE V_Sl+,(DUNIFORM (7,350,2250)); - выручка за сложный ремонт.
Lev LEAVE Remo; - освободить бокс обслуживания.
Finish TABULATE Vrem; Запись в таблицу времени пребывания авто на СТО.
TERMINATE.
******************************.
GENERATE 2400.
TERMINATE 1.
START 1.
