World.
Модель мовою GPSS являє собою послідовність блоків, із заданими параметрами, позначеними мітками для здійснення переходу, при необхідності змінити лінійну структуру виконання моделі.
Текст моделі розділений на логічно відокремлені сегменти.
. Описовий сегмент - містить опис констант, що використовуються в моделі. br/>
ModelTime EQU 400 EQU 6 EQU 1 EQU 18
Константа ModelTime - використовується для регламентування тривалості моделювання. Zaderjka - задає математичне сподівання часу, необхідного комірнику на пошук деталі. Zarplata - встановлює рівень заробітної плати виплачується комірнику за годину роботи. Poteri - сума втрат при простої одного верстата на протязі години. p align="justify">. Сегмент, що описує циклічний процес виникнення та усунення поломок верстатів:
GENERATE ,,, 100 ADVANCE 600,30 NeRabotaet +, 1 BegPolomka, M1 Q_Kladovshik Kladovshik Q_Kladovshik Zaderjka, 2 Kladovshik Prostoy +, ((M1-P $ BegPolomka)/60) NeRabotaet-, 1 , Rabota
Оператором GENERATE створюється 100 транзактов, які грають роль верстатів. За допомогою оператора ADVANCE відбувається затримка на час напрацювання верстатами на відмову. По закінченні затримки будемо вважати транзакт вийшли з ладу верстатом - їх кількість фіксується в сохраняемой величиною NeRabotaet. Час виходу верстата з ладу фіксуємо в його ВЧА BegPolomka для подальшого підрахунку тривалості простою верстата. Потім транзакт ставати в чергу Q_Kladovshik на отримання деталей до комірника. Дочекавшись звільнення комірника транзакт займає одноканальне пристрій Kladovshik та залишає чергу. Після цього відбувається затримка на час, необхідний для пошуку деталі. Потім одноканальне пристрій Kladovshik звільняється. У збереженої величиною Prostoy накопичується загальний час простою всіх верстатів у годинах, яке для кожного верстата визначається як різниця між моментом модельного часу усунення та виникнення несправності, поділена на 60. На даному етапі транзакт вважається нормально функціонуючим верстатом і збережена величина NeRabotaet зменшується на 1, після чого відбувається безумовний перехід до мітці Rabota - триває нормальне функціонування верстата. ...
