CMO       STORAGE   9              // Хранилище для заявок
VREM      VARIABLE  1              // Переменная времени
INTENSITY CONSTANT  0.95            // Интенсивность потока (вызовов в минуту)
T_SERVICE  CONSTANT  1              // Средняя продолжительность разговора (в минутах)
 
// Генерация новых заявок
GENERATE  (EXPONENTIAL(1, 0, (1/INTENSITY)))
 
// Сохранение значений
SAVEVALUE TOTAL_CALLS+, 1          // Подсчет всех вызовов
GATE     CMO   LOCK                 // Проверка занятости линии
REQUEST  CMO                        // Запрос на обслуживание (линия занята)
 
CHECK_CALL  TEST NE SF$CMO, 1, REJECT  // Проверка на отказ
DONE     ENTER CMO                 // Вход в СМО
SAVEVALUE ACCEPTED_CALLS+, 1      // Подсчет принятых вызовов
PRIORITY 2 
 
// Время обслуживания
ADVANCE  (EXPONENTIAL(1, 0, (1/T_SERVICE)))
LEAVE    CMO                       // Выход из СМО
TRANSFER ,END
 
REJECT   SAVEVALUE REJECTED_CALLS+, 1   // Подсчет отклоненных вызовов
 
END      TERMINATE                  // Завершение обработки
GENERATE V$VREM                     // Генерация времени
LOGIC  S  LOCK                      // Логика замка
SAVEVALUE PROCESSING_PROBABILITY, (X$REJECTED_CALLS / X$TOTAL_CALLS) // Вероятность отказа
 
TERMINATE 1                         // Завершение симуляции
START 1                             // Запуск симуляции
 

Q01PICAgICAgIFNUT1JBR0UgICA5ICAgICAgICAgICAgICAvLyDQpdGA0LDQvdC40LvQuNGJ0LUg0LTQu9GPINC30LDRj9Cy0L7QugpWUkVNICAgICAgVkFSSUFCTEUgIDEgICAgICAgICAgICAgIC8vINCf0LXRgNC10LzQtdC90L3QsNGPINCy0YDQtdC80LXQvdC4CklOVEVOU0lUWSBDT05TVEFOVCAgMC45NSAgICAgICAgICAgIC8vINCY0L3RgtC10L3RgdC40LLQvdC+0YHRgtGMINC/0L7RgtC+0LrQsCAo0LLRi9C30L7QstC+0LIg0LIg0LzQuNC90YPRgtGDKQpUX1NFUlZJQ0UgIENPTlNUQU5UICAxICAgICAgICAgICAgICAvLyDQodGA0LXQtNC90Y/RjyDQv9GA0L7QtNC+0LvQttC40YLQtdC70YzQvdC+0YHRgtGMINGA0LDQt9Cz0L7QstC+0YDQsCAo0LIg0LzQuNC90YPRgtCw0YUpCgovLyDQk9C10L3QtdGA0LDRhtC40Y8g0L3QvtCy0YvRhSDQt9Cw0Y/QstC+0LoKR0VORVJBVEUgIChFWFBPTkVOVElBTCgxLCAwLCAoMS9JTlRFTlNJVFkpKSkKCi8vINCh0L7RhdGA0LDQvdC10L3QuNC1INC30L3QsNGH0LXQvdC40LkKU0FWRVZBTFVFIFRPVEFMX0NBTExTKywgMSAgICAgICAgICAvLyDQn9C+0LTRgdGH0LXRgiDQstGB0LXRhSDQstGL0LfQvtCy0L7QsgpHQVRFICAgICBDTU8gICBMT0NLICAgICAgICAgICAgICAgICAvLyDQn9GA0L7QstC10YDQutCwINC30LDQvdGP0YLQvtGB0YLQuCDQu9C40L3QuNC4ClJFUVVFU1QgIENNTyAgICAgICAgICAgICAgICAgICAgICAgIC8vINCX0LDQv9GA0L7RgSDQvdCwINC+0LHRgdC70YPQttC40LLQsNC90LjQtSAo0LvQuNC90LjRjyDQt9Cw0L3Rj9GC0LApCgpDSEVDS19DQUxMICBURVNUIE5FIFNGJENNTywgMSwgUkVKRUNUICAvLyDQn9GA0L7QstC10YDQutCwINC90LAg0L7RgtC60LDQtwpET05FICAgICBFTlRFUiBDTU8gICAgICAgICAgICAgICAgIC8vINCS0YXQvtC0INCyINCh0JzQngpTQVZFVkFMVUUgQUNDRVBURURfQ0FMTFMrLCAxICAgICAgLy8g0J/QvtC00YHRh9C10YIg0L/RgNC40L3Rj9GC0YvRhSDQstGL0LfQvtCy0L7QsgpQUklPUklUWSAyIAoKLy8g0JLRgNC10LzRjyDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40Y8KQURWQU5DRSAgKEVYUE9ORU5USUFMKDEsIDAsICgxL1RfU0VSVklDRSkpKQpMRUFWRSAgICBDTU8gICAgICAgICAgICAgICAgICAgICAgIC8vINCS0YvRhdC+0LQg0LjQtyDQodCc0J4KVFJBTlNGRVIgLEVORAoKUkVKRUNUICAgU0FWRVZBTFVFIFJFSkVDVEVEX0NBTExTKywgMSAgIC8vINCf0L7QtNGB0YfQtdGCINC+0YLQutC70L7QvdC10L3QvdGL0YUg0LLRi9C30L7QstC+0LIKCkVORCAgICAgIFRFUk1JTkFURSAgICAgICAgICAgICAgICAgIC8vINCX0LDQstC10YDRiNC10L3QuNC1INC+0LHRgNCw0LHQvtGC0LrQuApHRU5FUkFURSBWJFZSRU0gICAgICAgICAgICAgICAgICAgICAvLyDQk9C10L3QtdGA0LDRhtC40Y8g0LLRgNC10LzQtdC90LgKTE9HSUMgIFMgIExPQ0sgICAgICAgICAgICAgICAgICAgICAgLy8g0JvQvtCz0LjQutCwINC30LDQvNC60LAKU0FWRVZBTFVFIFBST0NFU1NJTkdfUFJPQkFCSUxJVFksIChYJFJFSkVDVEVEX0NBTExTIC8gWCRUT1RBTF9DQUxMUykgLy8g0JLQtdGA0L7Rj9GC0L3QvtGB0YLRjCDQvtGC0LrQsNC30LAKClRFUk1JTkFURSAxICAgICAgICAgICAgICAgICAgICAgICAgIC8vINCX0LDQstC10YDRiNC10L3QuNC1INGB0LjQvNGD0LvRj9GG0LjQuApTVEFSVCAxICAgICAgICAgICAgICAgICAgICAgICAgICAgICAvLyDQl9Cw0L/Rg9GB0Log0YHQuNC80YPQu9GP0YbQuNC4Cg==