SHARE
TWEET

Untitled

a guest Oct 21st, 2019 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. INITIAL       X$STATION_N,30    ; Кол-во рабочих станций
  2. INITIAL       X$STATION_TD,25   ; Среднее время дораб. запр. на ПК
  3. INITIAL       X$STATION_TF,275  ; Средн. время формир. Запр. на ПК
  4. INITIAL       X$CANAL_T,5   ; Среднее время перед. через канал
  5. INITIAL       X$SERVER_T,15 ; Средн. вр. обраб. запр. на проц.
  6. INITIAL       X$DISK_N,1    ; Количество дисков
  7. INITIAL       X$DISK_T,10   ; Средн. вр. обраб. запр. на диске
  8. INITIAL       X$PROP,0.1    ; Вер-ть обращ. запр. к ЦП после д
  9. INITIAL       X$SHAPE,1 ; Форма кривой гамма-распределения
  10.  
  11. WORKSTATION_D     STORAGE   40  ; Кол-во РС
  12. WORKSTATION_F     STORAGE   40  ; Также кол-во раб. станций
  13.  
  14. SERVER  STORAGE      2  ; Кол-во процессоров
  15. DISK_N  FUNCTION     RN1,D2
  16. 0.5,1/1,2       ;Кол-во д.(последн. цифра)
  17.  
  18.             GENERATE     ,,,X$STATION_N
  19.              
  20. WOSF    QUEUE           QSYSTEM
  21.     QUEUE       QFORM
  22.         ENTER           WORKSTATION_F,1
  23.         ADVANCE         (Gamma(1,0,X$STATION_TF,X$SHAPE))
  24.         LEAVE           WORKSTATION_F,1
  25.     DEPART      QFORM
  26.         ASSIGN              3,SVR
  27.  
  28. CAN         QUEUE               QCANAL
  29.         SEIZE           CANAL
  30.         ADVANCE         (Gamma(1,X$CANAL_T,1,X$SHAPE))
  31.         RELEASE             CANAL
  32.     DEPART          QCANAL
  33.         TRANSFER        ,P3
  34.  
  35. SVR         QUEUE       QSERVER
  36.     ENTER       SERVER,1
  37.         ADVANCE         (Gamma(1,X$SERVER_T,1,X$SHAPE))
  38.         LEAVE           SERVER,1
  39.     DEPART      QSERVER
  40.         ASSIGN      5,FN$DISK_N  
  41.         QUEUE               P5
  42.         SEIZE               P5
  43.         ADVANCE             (Gamma(1,X$DISK_T,1,X$SHAPE))
  44.         RELEASE             P5
  45.         DEPART      P5
  46.         TRANSFER        X$PROP,PER,SVR
  47.  
  48. PER     ASSIGN              3,WOSD
  49.         TRANSFER        ,CAN
  50.  
  51. WOSD    ENTER           WORKSTATION_D,1
  52.         ADVANCE         (Gamma(1,X$STATION_TD,1,X$SHAPE))
  53.         LEAVE       WORKSTATION_D,1
  54.         DEPART      QSYSTEM
  55.         TRANSFER            ,WOSF  
  56.         GENERATE    100000
  57.         TERMINATE   1
  58.         START 1
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top