Имитационное моделирование фрагмента центра коммутации и анализ его параметров, страница 3

Кол-во соединительн-ых линий	Количество ОТК1	Количество ОТК2	Количество ОТК3	Сумма отказов
5	15	0	0	15
7	13	0	1	14
8	14	0	0	14
9	9	2	3	14
10	5	2	3	10
11	5	3	3	11
12	5	3	3	11
13	5	3	3	11
14	0	5	5	10
30	0	5	5	10

Таблица 4

Емкость сервера	Количество ОТК1	Количество ОТК2	Количество ОТК3	Сумма отказов
1	2	7	13	22
2	4	5	10	19
3	6	3	6	15
4	5	2	3	10
5	7	1	2	10
6	10	0	0	10
7	10	0	0	10
8	0	0	0	0

Как видно из опытных данных для существенного уменьшения количества отказов в данной системе необходимо увеличить емкость прибора обслуживания и количество соединительных линий. Достаточное количество соединительных линий выбираем из условия  [(51+34)/6] =14 (линий)

Таблица 5

Емкость сервера	Соединительных линий	Количество ОТК1	Количество ОТК2	Количество ОТК3	Сумма отказов
5	13	2	4	3	9
5	14	0	4	3	7
6	13	4	3	0	7
6	14	0	4	0	4
7	14	0	1	0	1
8	10	0	0	0	0

Как видно из таблицы номер пять скорость поступления заявок и скорость уходов из системы будут совпадать при емкости сервера не менее восьми. В этом случае не возникает блокировок то есть будет выполнятся условие  (2,23)[2] то есть производительность равна скорости поступлений.

Текст программы функционирования фрагмента модели

program seti;

uses crt;

const                      {раздел описания констант}

Tend=185;           {время моделирования  }

Tm=51;                {время обслуживания заявок}

m=10;                  {количество соединительных линий}

Tog=34 ;              {порог ожидания}

l=4;                      {емкость server}

h=4;                      {емкость буфера }

type

kol_line=1..m;

var

server : array [1..l] of integer;

wait   : array [1..h] of integer;

s_line : array [1..m] of integer;    {массив занятости соединительных линий}

Tsr    : array [1..m] of real;           {вычисление среднего использования линии}

N_Tsr  : array [1..m] of integer;    {количество вызовов линии}

u,i,j  : integer;                                {счетчик цикла }

otk1,otk2,otk3:integer;                  {количество отказов}

sl:kol_line;                                    {номер соединительной линии}

Ty:integer;                                    {интервал между заявками}