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

UptoLike

84
Рисунок 11.1 – Моделируемая СЭВМ
Текст программы-модели приведен далее.
10 SIMULATE
20 TCAN1 TABLE MP1,100,500,10
30 TCAN2 TABLE MP1,100,500,10
40 AAA TABLE MP1,100,200,10
;Таблицы для контроля за временем обработки заявок на участках модели
50 XPDIS FUNCTION RN1,C24
;Описание экспоненциальной функции распределения времен распр. заявок
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
60 GENERATE 1,,,1,1
70 ASSIGN 5,100
80 TRANSFER ,INCP
90 GENERATE 1,,,1,2
100 ASSIGN 5,100
110 TRANSFER ,INCP
120 GENERATE 1,,,1,3
130 ASSIGN 5,100
; Раздел описания генерации завершен. В каждом генераторе был задан тран-
закт соответствующего приоритета
140 INCP MARK 1
150 QUEUE CP
160 PREEMPT CP,PR ; Процессор обрабатывает приоритет заявок
170 DEPART CP
175 ADVANCE 125,FN$XPDIS
180 RETURN CP
190 TRANSFER .5,INCAN1,INCAN2
; Равновероятный выбор канала для всех заявок
200 INCAN1 QUEUE CAN1
210 PREEMPT CAN1,PR
220 DEPART CAN1
230 ADVANCE 550,350
240 RETURN CAN1
; завершение работы CAN1
ЦП
СЭВМ
очередь
очередь
СК
1
СК
2
                                 СЭВМ
                                очередь       СК 1
                     ЦП
                                очередь       СК2

                   Рисунок 11.1 – Моделируемая СЭВМ

     Текст программы-модели приведен далее.
10 SIMULATE
20 TCAN1 TABLE MP1,100,500,10
30 TCAN2 TABLE MP1,100,500,10
40 AAA TABLE MP1,100,200,10
;Таблицы для контроля за временем обработки заявок на участках модели
50 XPDIS FUNCTION RN1,C24
;Описание экспоненциальной функции распределения времен распр. заявок
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
60 GENERATE 1,,,1,1
70 ASSIGN 5,100
80 TRANSFER ,INCP
90 GENERATE 1,,,1,2
100 ASSIGN 5,100
110 TRANSFER ,INCP
120 GENERATE 1,,,1,3
130 ASSIGN 5,100
; Раздел описания генерации завершен. В каждом генераторе был задан тран-
закт соответствующего приоритета
140 INCP MARK 1
150 QUEUE CP
160 PREEMPT CP,PR ; Процессор обрабатывает приоритет заявок
170 DEPART CP
175 ADVANCE 125,FN$XPDIS
180 RETURN CP
190 TRANSFER .5,INCAN1,INCAN2
; Равновероятный выбор канала для всех заявок
200 INCAN1 QUEUE CAN1
210 PREEMPT CAN1,PR
220 DEPART CAN1
230 ADVANCE 550,350
240 RETURN CAN1
; завершение работы CAN1



                                                                      84