poddergrukovodstkp (интерпретатор GPSS и описание к нему), страница 12

Программа модели

; Вариант 11

; Модель вычислительного комплекса коммутации сообщений

; Задание исходных данных

VrMod	EQU
NCan	EQU
Tl	EQU
T2	EQU
T02	EQU

7200 ; Время моделирования, 1 ед. мод. вр. = 1с

3 ; Число каналов

132.5; Средний интервал времени поступления сообщений от источника 1 165.2; Средний интервал времени поступления сообщений от источника 2 13;Среднеквадратическое отклонение интервала времени ; поступления сообщений от источника 2

T3_ EQU 85.1; Средний интервал времени поступления сообщений от источника 3
T4_ EQU 142.4 ; Средний интервал времени поступления сообщений от источника 4
p1_ EQU 0.6 ; Вероятность поступления сообщений 1 категории

Q_ EQU 3600 ; Производительность ВККС, оп/c

V_ EQU 5000 ; Скорость передачи, бит/с

60

Рс	EQU	0.7
LI	EQU	2500000
L2	EQU	5
TOtkl	EQU	3600
TOtk2	EQU	1800
TVostl	EQU	3.7
TVost2	EQU	4.2

Вероятность потери сообщений при отказе ВККС Емкость накопителя ВККС, байт

; Описание арифметических выражений вычисления

DL VARIABLE INT(NORMAL(114,FN$S_,FN$So_)); Длины (вычислительной сложности) сооб­щения

VrPer VARIABLE (P2/V_)#8 ; Времени передачи сообщения
VrObr VARIABLE P2/Q_ ; Времени обработки сообщения

Емкость накопителя каналов связи Среднее время между отказами ВККС Среднее время между отказами каналов Среднее время восстановления ВККС Среднее время восстановления каналов

;Вероятность передачи и потери сообщений

VPerS1 VARIABLE N$Ter1/N$Met1 ;Вероятность передачи сообщений 1 категории

VPerS2 VARIABLE N$Ter2/N$Met2 ;Вероятность передачи сообщений 2 категории

VPerS3 VARIABLE N$Ter3/N$Met3 ;Вероятность передачи сообщений 3 категории

VPotS1 VARIABLE N$Ter4/N$Met1 ;Вероятность потери сообщений 1 категории

VPotS2 VARIABLE N$Ter5/N$Met2 ;Вероятность потери сообщений 2 категории

VPotS3 VARIABLE N$Ter6/N$Met3 ;Вероятность потери сообщений 3 категории

Kat FUNCTION RN34,D3 ;Вероятности видов категорий

.3,1/.5,2/1,3

S_ FUNCTION P1,D3; Средние вычислительные сложности сообщений (длина), оп (байт)

1,53000/2,86000/3,66000

; Среднеквадратические отклонения вычислительных сложностей со-

So_ FUNCTION P1,D3

общений (длин), оп (байт)

; Сегмент имитации сообщений от абонента 1 GENERATE (Exponential(11,0,T1_)) ; Источник 1 сообщений Розыгрыш категории сообщения ; Код категории в Р1 Met4	ASSIGN	l,FN$Kat
Numl	TRANSFER	,(Numl+Pl)
Metl	TRANSFER	,Met02
Met2	TRANSFER	,Met02
Met3	TRANSFER	,Met02
;	Имитация	сообщений
Met02	ASSIGN	2,V$DL ; Занесение
	ASSIGN	3,V$VrPer ;
	ASSIGN	8,V$VrObr ;
	ASSIGN	7,0 ;
	TEST E	Pl,l,Metlll ;
	PRIORITY	1 ;
	TRANSFER	,Metlll ;

1,6100/2,5000/3,7000

Занесение в Р2 длины (вычислительной сложности) сообщения Занесение в Р3 времени передачи сообщения Занесение в Р8 времени обработки сообщения Код 0 - признак попадания в накопитель ВККС Если сообщение 1 категории, то сообщению 1 категории - высокий приоритет Отправить сообщение на ВККС

;Сегмент имитации сообщений от абонента 2

GENERATE T2_,T02_ ; Источник 2 сообщений

TRANSFER ,Met4 ; Отправить для розыгрыша категории

;Сегмент имитации сообщений от абонента 3

GENERATE (Exponential(11,0,T3_)) ; Источник 3 сообщений
TRANSFER ,Met4 ; Отправить для розыгрыша категории

;Сегмент имитации сообщений от абонента 4

;Сегмент работы накопителя и ВККС

Met111 GATE FV Vkks,Met5 ; Проверка ВККС на исправность GATE U Vkks,Met17 ; Проверка ВККС на занятость TEST LE P2,(L1_-X$TEmk),Met5 ; Есть ли место в накопителе ВККС? SAVEVALUE TEmk+,P2 ; Увеличение текущей емкости накопителя на длину сообщения LINK SVkks,PR ; Поместить сообщение в накопитель ВККС

GENERATE (Exponential(11,0,T4_)) ; Источник 4 сообщений
TRANSFER ,Met4 ; Отправить для розыгрыша категории

61

ASSIGN SEIZE ADVANCE RELEASE TEST E

7,1; Признак - сообщение поступило на ВККС, минуя накопитель

SVkks,Met14,1 ; Очередное сообщения из накопителя ВККС на обработку

Metl7 Metl4

Vkks P8 Vkks

P7,0,Met1 SAVEVALUE TEmk-,P2 обработанного сообщения

Metl

UNLINK

; Занять ВККС ; Имитация обработки ; Освобождение ВККС ; Если Р7 =0, то ; уменьшить текущую емкость

накопителя ВККС на длину

; Сегмент имитации Met15 ASSIGN

работы каналов связи
4,0 ; Подготовка к циклу

ASSIGN

GATE FV

GATE U

TEST GE

TEST L

LINK

SEIZE

ADVANCE

RELEASE

UNLINK

TRANSFER

Metl6

4+,; Начало цикла поиска исправного и свободного канала
P4,Met23 ; Исправен ли канал? Если да, то

Met23

Есть ли место в накопителе каналов? Поместить сообщение в накопитель каналов Занять канал с номером в Р4 Имитация передачи сообщения Освобождение канала с номером в Р4 ; Очередное сообщения из буфера каналов на передачу ; Счет переданных сообщений

CH$Spis,L2_,Met5

Spis,PR

P4

P3

P4

Spis,Metl5,1

,MetlO

Met21

;Сегмент имитации о GENERATE

тказов ВККС

,,,1
(Exponential(237,0,
1,(RN35/1000) ;
Pl,Pc_,Met50 ;
Vkks,RE,Metll5 ;
(Exponential(237,0,
Vkks ;

,Met49 ;

Vkks ;

P7,0,Met5 ; TEmk-,P2 ; умень

,Met5 ;

Spis,Met5,ALL ;
SVkks,Met5,ALL ;
TEmk,0 ;

,Met51 ; Отправить

Met49 Met51

Met115

терянного Met50

P4,Met21 ; занят ли канал? Если нет, на Met21-занять канал P4,NCan,Met16 ;Все ли каналы просмотрены? Если нет,продолжить поиск

ADVANCE

ASSIGN

TEST LE

FUNAVAIL

ADVANCE

FAVAIL

TRANSFER

RELEASE

TEST E

SAVEVALUE

сообщения

TRANSFER

UNLINK

UNLINK

SAVEVALUE

TRANSFER

TOtk1)); Розыгрыш времени до очередного отказа Обращение к датчику RN Все ли сообщения в накопителях теряются? Перевод ВККС в неисправное состояние TVost1)) ; Имитация восстановления Перевод ВККС в исправное состояние Отправить для розыгрыша очередного отказа Освобождение ВККС прерванным сообщением Если Р7 =0, то

шить текущую емкость накопителя ВККС на длину по-Отправить в накопитель каналов Потеря всех сообщений из накопителя ВККС Потеря всех сообщений из буфера каналов Значение текущей емкости =0 для перевода ВККС в неисправное состояние

;Сегмент имитации отказов 1 канала связи

GENERATE

SAVEVALUE

ASSIGN

ADVANCE

GATE FV

FUNAVAIL

ADVANCE

FAVAIL

TRANSFER

RELEASE

TEST E

,,,NCan

1+,1 4,X1

(Exponential(237, P4,Met19 P4,RE,Met112 (Exponential(237, P4

,Met19; Отправить P4 P1,1,Met5

Metl9

; Число транзактов - по числу кканалов связи ; Занести в Х последовательно 1, 2, ..., NCan ; Занести в P4 последовательно 1, 2, ..., NCan 0,TOtk2)) ; Розыгрыш времени до очередного отказа ; Канал уже неисправен? Тогда новый розыгрыш ; Перевод канала в неисправное состояние 0,TVost2)); Имитация восстановления канала

; Перевод в исправное состояние для розыгрыша очередного отказа

Metll2

; Освобождение канала с номером 1

; Если сообщение 1 категории, то

TRANSFER ,Met15 Сегмент имитации отказов 2 канала связи ,(Met10+P1) MetlO	TRANSFER
Terl	TERMINATE
Ter2	TERMINATE
Ter3	TERMINATE
Met5	TRANSFER
Ter4	TERMINATE
Ter5	TERMINATE

; отправить на повторную передачу

,(Met5+Pl)

;Переданные сообщения 1 категории ;Переданные сообщения 2 категории ;Переданные сообщения 3 категории

;Потерянные сообщения 1 категории ;Потерянные сообщения 2 категории

62

Ter6 TERMINATE

;Потерянные сообщения 3 категории

; Время моделирования
GENERATE VrMod
TEST E TG1,1,Met40
SAVEVALUE VPerS1,V$VPerS1
SAVEVALUE VPerS2,V$VPerS2
SAVEVALUE VPerS3,V$VPerS3
SAVEVALUE VPotS1,V$VPotS1
SAVEVALUE VPotS2,V$VPotS2
SAVEVALUE VPotS3,V$VPotS3
Met40 TERMINATE 1

Задание времени моделирования Если TG1=1, то расчет результатов Вероятность передачи сообщений 1 категории Вероятность передачи сообщений 2 категории Вероятность передачи сообщений 3 категории Вероятность потери сообщений 1 категории Вероятность потери сообщений 2 категории Вероятность потери сообщений 3 категории

Вариант 12 Постановка задачи

На вычислительный комплекс коммутации сообщений (ВККС) поступают сообще­ния от n1 абонентов с интервалами времени T1, T2, …, Tn1. Сообщения могут быть n2 категорий с вероятностями р1, р2, …, рn2 (p1+p2+...+pn2 = 1) и вы­числительными сложностями S1, S2,... , Sn2 операций (оп) соответственно. Вычислительные сложности случайные. ВККС имеет входной накопитель емкостью L1 байт для хранения сообщений, ожидающих передачи. Сообщения 1-й катего­рии обладают относительным приоритетом по отношению к сообщениям остальных категорий при обработке на ВККС. В буфере сообщения размещаются в соответ­ствии с приоритетом.