fork download
  1. ; GPSS World Sample File - SAMPLE1.GPS
  2. **********************************************************************
  3. * *
  4. * Barber Shop Simulation *
  5. * *
  6. **********************************************************************
  7. ; GENERATE 300,100 ;Create next customer.
  8. ; QUEUE Barber ;Begin queue time.
  9. ; SEIZE Barber ;Own or wait for barber.
  10. ; DEPART Barber ;End queue time.
  11. ; ADVANCE 400,200 ;Haircut takes a few minutes.
  12. ; RELEASE Barber ;Haircut done. Give up the barber.
  13. ; TERMINATE 1 ;Customer leaves.
  14. ;
  15.  
  16. SERV STORAGE 1 ;количество серверов
  17.  
  18. GENERATE .465,FN$EXPON,,7000 ;поступление заявок(2.15 заявок в секунду), всего 7000 заявок
  19.  
  20. QUEUE ocher ;занятие очереди на сервер
  21. ENTER SERV ;поступление заявки на сервер
  22. DEPART ocher ;уход из очереди
  23. ADVANCE .408,FN$EXPON ;время обработки заявки(2.45 заявок в секунду)
  24. LEAVE SERV ;завершение обработки заявки на сервере
  25. TERMINATE
  26. GENERATE 3300
  27. TERMINATE 1
  28.  
  29. EXPON FUNCTION RN2,C24 ;описание функции EXPON
  30. 0,0/0.1,0.104/0.2,0.222/0.3,0.355/0.4,0.509
  31. 0.5,0.69/0.6,0.915/0.7,1.2/0.75,1.38/.8,1.6
  32. .84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81
  33. .95,2.99/.96,3.2/.97,3.5/.98,3.9/.99,4.6
  34. .995,5.3/.998,6.2/.999,7/.9998,8
  35.  
  36.  
Success #stdin #stdout #stderr 0.01s 5292KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Error: near line 1: near "GPSS": syntax error
Error: near line 16: near "SERV": syntax error