fork download
copy 
  1. * ============================================
  2. * GPSS модель для оценки t_ab и t_dc
  3. * ============================================
  4.  
  5.         SIMULATE
  6.  
  7. * ---------- РЕСУРСЫ ----------
  8. S1      FACILITY            ; Σ1
  9. S2      FACILITY            ; Σ2
  10. S3      FACILITY            ; Σ3
  11. S4      FACILITY            ; Σ4
  12.  
  13. * ---------- ТАБЛИЦЫ ----------
  14. TAB_AB  TABLE               ; интервал t_ab
  15. TAB_DC  TABLE               ; интервал t_dc
  16.  
  17. * ============================================
  18. * ПОТОК 1 : Вх1 → a → b
  19. * ============================================
  20.  
  21. POTOK1  GENERATE 10          ; поступление заявок (Вх1)
  22.         MARK     1           ; точка a
  23.  
  24.         SEIZE    S1
  25.         ADVANCE  5
  26.         RELEASE  S1
  27.  
  28.         MARK     2           ; точка b
  29.         TABULATE TAB_AB,1    ; t_ab = b - a
  30.  
  31.         TRANSFER ,JOIN_B
  32.  
  33.  
  34. * ============================================
  35. * ПОТОК 2 : Вх2 → d → c
  36. * ============================================
  37.  
  38. POTOK2  GENERATE 12          ; поступление заявок (Вх2)
  39.         MARK     3           ; точка d
  40.  
  41.         SEIZE    S2
  42.         ADVANCE  6
  43.         RELEASE  S2
  44.  
  45. * ---------- ОБЪЕДИНЕНИЕ В ТОЧКЕ b ----------
  46. JOIN_B  TRANSFER .7,TO_S3,TO_S4
  47.  
  48.  
  49. * ============================================
  50. * ВЕТКА Σ3
  51. * ============================================
  52.  
  53. TO_S3   SEIZE    S3
  54.         ADVANCE  4
  55.         RELEASE  S3
  56.         TRANSFER ,EXIT_C
  57.  
  58.  
  59. * ============================================
  60. * ВЕТКА Σ4
  61. * ============================================
  62.  
  63. TO_S4   SEIZE    S4
  64.         ADVANCE  7
  65.         RELEASE  S4
  66.         TRANSFER ,EXIT_C
  67.  
  68.  
  69. * ============================================
  70. * ВЫХОД c
  71. * ============================================
  72.  
  73. EXIT_C  MARK     4           ; точка c
  74.         TABULATE TAB_DC,3    ; t_dc = c - d
  75.         TERMINATE 1
  76.  
  77.  
  78. * ---------- ЗАПУСК МОДЕЛИ ----------
  79.         START 1000
  80.         END
  81.  
Success #stdin #stdout #stderr 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: near line 1: near "*": syntax error
https://ideone.com/3Snftq
language:
SQLite (sqlite 3.27.2)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!