AVE_TIME    TABLE   MP1,0,6,40  ;Таблица регистрации времени прибывания транзакта в сети

 

DEV_S2  TABLE   MP2,0,1000,40   ;Таблица регистрации времени обслуживания устройством S2

DEV_S3  TABLE   MP3,0,1000,40   ;Таблица регистрации времени обслуживания устройством S3

DEV_S4  TABLE   MP4,0,1000,40   ;Таблица регистрации времени обслуживания устройством S4

 

 

Device_S2   STORAGE 5

 

    GENERATE    (EXPONENTIAL(1,0,1/0.014))  ;Генерация времени поступления запросов

    MARK    1               ;Начало отсчета в MP1

 

    SAVEVALUE   TransactionCount+,1     ;Подсчет количества транзакций

 

    ; Очередь S1, многоканальная система устройств S2

    TEST L  Q$Queue_S1,15,Reserve       ;Реализация ограничения очереди S1

    QUEUE   Queue_S1            ;Занять очередь

    ENTER   Device_S2           ;Занять устройство

    DEPART  Queue_S1            ;Освободить очередь

    MARK    2

    ADVANCE (EXPONENTIAL(2,0,3.125))    ;Обработка заявки устройством

    TABULATE    DEV_S2

    LEAVE   Device_S2           ;Освободить устройство

 

    ;TRANSFER   ,TRMN

    

    ; Резервная линия обработки

    ; Очередь устройства S3

Reserve QUEUE   Queue_S3

    ADOPT 1 ;Все объединяемые транзакты должны принадлежать одному ансамблю

    ASSEMBLE    3           ;Пакетирование по 3

    SEIZE   Device_S3           ;Занять устройство

    DEPART  Queue_S3

    MARK    3

    ADVANCE (EXPONENTIAL(3,0,0.42))

    TABULATE    DEV_S3

    RELEASE Device_S3           ;Освободить устройство

 

 

    ; Очередь устройства S4

    TEST L  Q$Queue_S4,20,Loss

    QUEUE   Queue_S4

    SEIZE   Device_S4

    DEPART  Queue_S4

    MARK    4

    ADVANCE (EXPONENTIAL(4,0,6.2))

    TABULATE    DEV_S4

    RELEASE Device_S4

 

    TRANSFER    ,TRMN

 

Loss    SAVEVALUE   LossCount+,1

    

TRMN    TABULATE    AVE_TIME        ;Сохранение времени пребывания транзакта

    SAVEVALUE   S2_AVE_TIME+,ST$Device_S2

 

    TERMINATE

    GENERATE    60000

    SAVEVALUE   ChanceLoss,(X$LossCount/X$TransactionCount)

    TERMINATE   1