Компьютерное моделирование. Тарасов В.Н - 100 стр.

UptoLike

100
QUEUE QW7
TRANSFER ,PROC
GENERATE 20,FN$EXPON
ASSIGN WS,4
TEST L Q$QW4,1,REFUSE
QUEUE QW4
TRANSFER ,PROC
GENERATE 20,FN$EXPON
ASSIGN WS,8
TEST L Q$QW8,1,REFUSE
QUEUE QW8
TRANSFER ,PROC
GENERATE 10,FN$EXPON
ASSIGN WS,5
TEST L Q$QW5,1,REFUSE
QUEUE QW5
PROC GATE SF SERVER,PROCESS
ADVANCE (NORMAL(1,18,3)) ; retry delay
TRANSFER ,PROC
PROCESS ENTER SERVER
TEST E P$WS,1,TEST2
DEPART QW1
ADVANCE (NORMAL(1,18,3)) ; 1
TRANSFER ,COMPLETED
TEST2 TEST E P$WS,2,TEST6
DEPART QW2
TRANSFER ,PROC2
TEST6 TEST E P$WS,6,TEST3
DEPART QW6
PROC2 ADVANCE (NORMAL(1,16,2)) ; 2 и 6
TRANSFER ,COMPLETED
TEST3 TEST E P$WS,3,TEST7
DEPART QW3
TRANSFER ,PROC3
TEST7 TEST E P$WS,7,TEST4
DEPART QW7
PROC3 ADVANCE (NORMAL(1,19,3)) ; 3 и 7
        QUEUE QW7
        TRANSFER             ,PROC

        GENERATE           20,FN$EXPON
        ASSIGN WS,4
        TEST L Q$QW4,1,REFUSE
        QUEUE QW4
        TRANSFER           ,PROC
        GENERATE           20,FN$EXPON
        ASSIGN WS,8
        TEST L Q$QW8,1,REFUSE
        QUEUE QW8
        TRANSFER           ,PROC

        GENERATE           10,FN$EXPON
        ASSIGN WS,5
        TEST L Q$QW5,1,REFUSE
        QUEUE QW5

PROC   GATE SF SERVER,PROCESS
       ADVANCE             (NORMAL(1,18,3))    ; retry delay
       TRANSFER            ,PROC
PROCESS        ENTER       SERVER

        TEST E P$WS,1,TEST2
        DEPART QW1
        ADVANCE             (NORMAL(1,18,3))   ;1
        TRANSFER            ,COMPLETED

TEST2   TEST E P$WS,2,TEST6
        DEPART QW2
        TRANSFER            ,PROC2
TEST6   TEST E P$WS,6,TEST3
        DEPART QW6
PROC2   ADVANCE             (NORMAL(1,16,2))   ;2и6
        TRANSFER            ,COMPLETED

TEST3   TEST E P$WS,3,TEST7
        DEPART QW3
        TRANSFER            ,PROC3
TEST7   TEST E P$WS,7,TEST4
        DEPART QW7
PROC3   ADVANCE             (NORMAL(1,19,3))   ;3и7



                                                           100