fork download
  1. SIMULATE
  2.  
  3. * Телефонная станция с 9 каналами и отказами
  4. * Входной поток: 120 заявок/час = 1 заявка каждые 0.5 мин
  5. * Время обслуживания: 4 мин
  6.  
  7. GENERATE 30,6 ; 30±6 time units (0.5±0.1 мин в масштабе 1 ед. = 1 сек)
  8.  
  9. * Проверка свободных каналов
  10. TEST LE F$LINE,9,ACCEPT ; Если LINE < 9, переход на ACCEPT
  11. TERMINATE 1 ; Отказ (увеличивает счетчик отказов на 1)
  12.  
  13. ACCEPT SEIZE LINE ; Занять канал
  14. ADVANCE 240,60 ; Обслуживание 240±60 единиц времени (4±1 мин)
  15. RELEASE LINE ; Освободить канал
  16. TERMINATE ; Успешное обслуживание
  17.  
  18. * Статистика по 10000 заявок
  19. START 10000
Success #stdin #stdout #stderr 0.01s 5316KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Error: near line 1: near "SIMULATE": syntax error