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

GENERATE (Exponential(333,0,(T1_/N1_))),,,,1 Met0 ASSIGN 7,(RN43/1000) ; Обращение к генератору RN

ASSIGN 3,0 ; Подготовка к циклу

Met1 ASSIGN 3+,1 ; Начало цикла определения номера звонящего телефона ТА1

TEST LE P7,(P3#(1/N1_)),Met1 ; Если условие выполнено, то номер телефона ТА1 в Р3

GATE NU P3,Met9 ; Свободен ли телефон с данным номером? Если да,

SEIZE P3 ; то звонят с него

ASSIGN 7,(RN343/1000) ; Обращение к генератору RN

TEST LE P7,(N3_/(N2_+N3_)),Met2 ; Если условие выполнено, то нужен внешний выход

ASSIGN 4,(N1_+N2_) ; Подготовка к циклу

Met3 ASSIGN 4+,1 ; Начало цикла определения номера свободного внешнего выхода

GATE U P4,Met4 ; Свободен ли внешний выход?

TEST GE P4,(N1_+N2_+N3_),Met3 ; Все ли внешние выходы проверены и не найдено сво­бодного?

ADVANCE Tog1,Tog01 ; Если да, то задержаться и

ASSIGN 4,(N1_+N2_) ; подготовка к циклу

Met21 ASSIGN 4+,1 ; Начало цикла определения номера внешнего выхода, занятого ТА2

TEST E X*4,1,Met22 ; Равно ли значение сохраняемой ячейки 1? Если нет, то перейти к прерыванию разговора

TEST GE P4,(N1_+N2_+N3_),Met21 ; Все ли сохраняемые ячейки проверены? Не найдено ни одной, значение которой равно 0? Если да, то

TRANSFER ,Met23 ; то все внешние выходы заняты звонками с ТА1

Met22 PREEMPT P4,PR,Met24,,RE ; Прервать разговор с ТА2 по внешнему выходу без права продолжения

SAVEVALUE *4,PR

ADVANCE (Exponential(222,0,Trazg1)) ; Имитация разговора с ТА1 по внешнему выходу

RETURN P4 ; Освободить внешний выход с номером в Р4

RELEASE P3 ; Освободить телефон ТА1 с номером в Р3

Ter1 TERMINATE ; Состоявшиеся разговоры с ТА1 по внешним выходам с прерыванием разгово­ров с ТА2

Met23 RELEASE P3 ; Освободить телефон ТА1, разговор с которого по внешнему выходу не состоялся

TERMINATE; Несостоявшиеся разговоры с ТА1 по внешним выходам из-за занятости их ТА1
Met4 SEIZE P4 ; Занять свободный внешний выход с номером в Р4

SAVEVALUE P4,PR ; Занести в ячейку с номером в Р4 уровень приоритета

RELEASE P4

RELEASE P3 Ter2 TERMINATE Met2 ASSIGN 7,(RN343/1000)

ASSIGN 6,0 Met5 ASSIGN 6+,1 звонят с ТА1

TEST LE P7,(P6#(1/N2_)),Met5

GATE NU (N1_+P6),Met7

ASSIGN 7,(RN343/1000)

TEST LE P7,P5_,Met6

ADVANCE Tog2,Tog02

RELEASE P3

Освободить внешний выход с номером в Р4

освободить телефон ТА1 с номером в Р3

Состоявшиеся разговоры с ТА1 по внешним выходам

Обращение к генератору RN

Подготовка к циклу

Начало цикла определения номера ТА2, на который

Если условие выполнено, то номер телефона ТА2 в Р6

Свободен ли телефон с данным номером? Если да,

то ответит ли он?

Если условие выполнено, то не ответит. Тогда

задержаться и

освободить телефон ТА1 с номером в Р3

Met7 Ter3

TERMINATE

; Несостоявшиеся разговоры между абонентами ТА1 и ТА2

88

ADVANCE (Exponential(222,0,Trazg1)) ; Имитация разговора с ТА1

Met6 SEIZE (N1_+P6) ; Занять ТА2 с номером в (N1_+Р6)

ADVANCE (Exponential(222,0,Trazg1)) ; Имитация разговора между абонентами ТА1 и ТА2

RELEASE (N1_+P6)

RELEASE P3 Ter4 TERMINATE Met9 TERMINATE Met24 RELEASE (N1_+P3)

TERMINATE

Освободить ТА2 с номером в (N1_+Р6)

Освободить ТА1 с номером в Р3

Состоявшиеся разговоры между абонентами ТА1 и ТА2

ТА1 уже был занят, поэтому разговор не состоялся

Прерванные разговоры с ТА2

; Сегмент имитации телефонных разговоров с ТА 2-й категории (ТА2)

GENERATE (Exponential(493,0,(T2_/N2_))) Met10 ASSIGN 7,(RN413/1000) ; Обращение к генератору RN

ASSIGN 3,0 ; Подготовка к циклу

TEST LE P7,(P3#(1/N2_)),Met11 ; GATE NU (N1_+P3),Met19 ; SEIZE (N1_+P3)

ASSIGN 7,(RN343/1000) ;
TEST LE P7,(N3_/(N1_+N3_)),Met12
ASSIGN 4,(N1_+N2_) ;

Если условие выполнено, то номер телефона ТА2 в Р3 Свободен ли телефон с данным номером? Если да,

; то звонят с него Обращение к генератору RN

; Если условие выполнено, то нужен внешний выход Подготовка к циклу

Met11 ASSIGN 3+,1 ; Начало цикла определения номера звонящего телефона ТА2

Met13 ASSIGN 4+,1

Начало цикла определения номера свободного внешнего выхода

GATE U P4,Met14

TEST GE P4,(N1_+N2_+N3_),Met13 бодного?

ADVANCE Tog3,Tog03

RELEASE (N1_+P3) Ter5 TERMINATE Met14 SEIZE P4

SAVEVALUE P4,PR

Свободен ли внешний выход?

Все ли внешние выходы проверены и не найдено сво-

; Если да, то задержаться и ; Освободить телефон с номером (N1_+P3) Несостоявшиеся разговоры с ТА2 из-за занятости внешних выходов ; Занять свободный внешний выход ; Запомнить приоритет ведущего разговор ADVANCE (Exponential(222,0,Trazg2)); Имитация разговора между абонентами ТА2 по внешним выходам

RELEASE P4 RELEASE (N1_+P3)

Ter6 TERMINATE

Met12 ASSIGN 7,(RN343/1000) ASSIGN 6,0

; Освободить внешний выход

; Освободить ТА2

; Состоявшиеся разговоры с ТА2 по внешним выходам

; Обращение к генератору RN

Met15 ASSIGN 6+,1; Начало цикла определения номера телефона ТА1, на который звонят с ТА2

TEST LE P7,(P6#(1/N1_)),Met15 ;

GATE NU P6,Met17 ;

ASSIGN 7,(RN343/1000) ;

TEST LE P7,P10_,Met16 ;
Met17 ADVANCE (Normal(211,Tog2,Tog02))

RELEASE (N1_+P3) ;

Ter7 TERMINATE ;

Met16 SEIZE P6 ;

Если условие выполнено, то номер телефона ТА1 в Р6 Свободен ли телефон с данным номером? Если да, то ответит ли он? Если условие выполнено, то не ответит. Тогда

; задержаться и освободить телефон с номером N1_+P3 Несостоявшиеся разговоры с ТА2 из-за занятости ТА1

; Занять телефон ТА1 с номером в Р6
ADVANCE (Exponential(222,0,Trazg2)) ; Имитация разговора между абонентами ТА2 и ТА1
RELEASE P6 ; Освободить телефон ТА1 с номером в Р6

RELEASE (N1_+P3) ; Освободить телефон ТА2 с номером N1_+P3

Ter8 TERMINATE ; Состоявшиеся разговоры между абонентами ТА2 и ТА1

Met19 TERMINATE

; Подготовка к циклу

; Сегмент задания времени моделирования и расчета результатов моделирования
GENERATE VrMod ; Задание времени моделирования

TEST E TG1,1,Met20 ; Если содержимое счетчика завершений равно 1, то

рассчитать

SAVEVALUE Ver1,((N$Ter2+N$Ter4)/N$Met0) ; Вероятность ведения разговоров с ТА1 SAVEVALUE Ver2,((N$Ter6+N$Ter8)/N$Met10) ; Вероятность ведения разговоров с ТА2

Met20 TERMINATE 1

89

Вариант 19

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

Автоматическая телефонная станция (АТС) обслуживает n1 телефонных аппа­ратов (ТА) первой категории (ТА1), n2 ТА второй категории (ТА2) и имеет n3 выходов в сеть связи. Интервал времени T1/n1 между звонками с ТА первой категории случайный. Вероятность звонка с i-го ТА первой категории p1i = 1/n1. Вероятность того, что при этом для разговора потребуется внешняя ли­ния связи p2= n3/(n2+n3), соединение с ТА второй категории p3 = n2/(n2+n3). При этом может быть занята любая свободная линия связи, а вероятность звонка на j-й ТА второй категории p4j = 1/n2. Длительность t1 разговора с ТА первой категории случайная. Время tож1 ожидания при занято­сти ТА или внешних линий связи случайное. Вероятность того, что ТА второй категории не ответит, p5. При этом время tож2 также случайное.

Интервал времени T2/n2 между звонками с ТА второй категории случайный. Вероятность звонка с k-го ТА второй категории p6k = 1/n2/ Вероятности то­го, что при этом для разговора потребуются внешняя линия связи p7 = n3/(n1+n3), соединение с ТА первой категории p8 = n1/(n1+n3). Для разгово­ра может быть занята любая свободная внешняя линия связи, а вероятность звонка на l-й ТА первой категории p9l = 1/n1. Длительность t2 разговора с ТА второй категории случайная. Время tож3 при занятости ТА или внешних ли­ний связи случайное. Вероятность того, что ТА первой категории не ответит, p10. При этом время tож4 также случайное.

Звонки с ТА первой категории обладают абсолютным приоритетом по отноше­нию к звонкам с ТА второй категории при занятости внешнего выхода в сеть связи. Вследствие этого, если при поступлении заявки на разговор по внеш­нему выходу с ТА первой категории все внешние выходы будут заняты разгово­рами также с ТА первой категории, то прерывания не происходит и заявка считается потерянной. Если же некоторые внешние выходы будут заняты разго­ворами с ТА второй категории, то после tож1 один из этих разговоров преры­вается (теряется) и начинается разговор по этому выходу с ТА первой кате­гории.

Исходные данные

n1 = 10; Т1 = 50; Exp(T1/n1);

n2 = 20; Т2 = 400; Exp(T2/n2);

n3 = 3; Normal(tож1, t0ож1) = Normal(3, 0.5);

р5 = 0.7; Normal(tож2, t0ож2) = Normal(3, 0.5); Exp(t1) = Exp(3); Exp(t2) = Exp(5); Normal(tож3, t0ож3) = Normal(2.5, 0.4);

р10 = 0.3; Normal(tож4, t0ож4) = Normal(2, 0.3).

Значения T1, T2, t1, t2, р5, р10 исследователь изменяет от исходных са­мостоятельно. Результаты моделирования необходимо получить с точностью ε = 0,01 и доверительной вероятностью α = 0,99.

Задание на исследование

Разработать имитационную модель функционирования АТС. Исследовать зави­симость вероятности разговоров с ТА первой и второй категории от интерва­лов времени T1, T2, времени t1, t2 разговоров и вероятностей р5 и р10.

90

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

Вариант 19

Модель автоматической телефонной

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

станции

VrMod	EQU	3600
N1	EQU	10
N2	EQU	20
N3	EQU	3
Tl	EQU	50
T2	EQU	400
Togl	EQU	3.5
TogOl	EQU	0.5
Tog2	EQU	3
Tog02	EQU	0.5
Tog3	EQU	2.5
ТодОЗ	EQU	0.4
Tog4	EQU	2
Tog04	EQU	0.3
Trazgl	EQU	3
Trazg2	EQU	5
P5	EQU	0.7
P10	EQU	0.3

Время моделирования, 1 ед. мод. вр. = 1 с Количество ТА1 Количество ТА2 Количество внешних выходов

Время для расчета интервалов между звонками с ТА1 Время для расчета интервалов между звонками с ТА2 Среднее время ожидания при занятости внешних линий Среднеквадратическое отклонение времени ожидания Среднее время ожидания при звонке с ТА1 на ТА2 Среднеквадратическое отклонение времени ожидания Среднее время ожидания при занятости внешних линий Среднеквадратическое отклонение времени ожидания Среднее время ожидания при звонке с ТА2 на ТА1 Среднеквадратическое отклонение времени ожидания Среднее время разговора с ТА1 Среднее время разговора с ТА2 Вероятность того, что ТА2 не ответит Вероятность того, что ТА1 не ответит

; Сегмент имитации телефонных разговоров с ТА 1-й категории (ТА1)

GENERATE (Exponential(333,0,(T1_/N1_))),,,,1 Met0 ASSIGN 7,(RN43/1000) ; Обращение к генератору RN

ASSIGN 3,0 ; Подготовка к циклу

Met1 ASSIGN 3+,1 ; Начало цикла определения номера звонящего телефона ТА1

TEST LE P7,(P3#(1/N1_)),Met1 ; Если условие выполнено, то номер телефона ТА1 в Р3

GATE NU P3,Met9 ; Свободен ли телефон с данным номером? Если да,

SEIZE P3 ; то звонят с него

ASSIGN 7,(RN343/1000) ; Обращение к генератору RN

TEST LE P7,(N3_/(N2_+N3_)),Met2 ; Если условие выполнено, то нужен внешний выход

ASSIGN 4,(N1_+N2_) ; Подготовка к циклу

Met3 ASSIGN 4+,1 ; Начало цикла определения номера свободного внешнего выхода

GATE U P4,Met4 ; Свободен ли внешний выход?

TEST GE P4,(N1_+N2_+N3_),Met3 ; Все ли внешние выходы проверены и не найдено сво­бодного?

ADVANCE Tog1,Tog01 ; Если да, то задержаться и

ASSIGN 4,(N1_+N2_) ; подготовка к циклу

Met21 ASSIGN 4+,1 ; Начало цикла определения номера внешнего выхода, занятого ТА2

TEST E X*4,1,Met22 ; Равно ли значение сохраняемой ячейки 1? Если нет, то перейти к прерыванию разговора

TEST GE P4,(N1_+N2_+N3_),Met21 ; Все ли сохраняемые ячейки проверены? Не найдено ни одной, значение которой равно 0? Если да, то

TRANSFER ,Met23 ; то все внешние выходы заняты звонками с ТА1

Met22 PREEMPT P4,PR,Met24,,RE ; Прервать разговор с ТА2 по внешнему выходу без права продолжения

SAVEVALUE *4,PR