Модель сети массового обслуживания

КонтрольнаяПомощь в написанииУзнать стоимостьмоей работы

Выполнить планирование эксперимента: выделить все факторы для данной модели, выбрать два фактора (рекомендуются Тз и Тоб. к), разработать полный факторный план и частичный факторный план с изменением факторов по одному. МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ КУРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ Кафедра программного обеспечения и администрирования информационных систем Контрольная работа по дисциплине… Читать ещё >

Модель сети массового обслуживания (реферат, курсовая, диплом, контрольная)

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ КУРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ Кафедра программного обеспечения и администрирования информационных систем Контрольная работа по дисциплине

" Компьютерное моделирование"

Студент Крутоверцева З.С.

Преподаватель: Орлова М.С.

Преподаватель: Бабкин Е.А.

2010 г.

1. Задание Разработать событийную модель дискретной системы, преобразовать событийную модель в программно-реализуемую форму, разработать программную модель на событийно-ориентированном языке моделирования (SMPL), разработать детерминированный тест для проверки правильности модели, а так же спланировать эксперимент, выполнить эксперимент и проанализировать его результаты для программной модели сети массового обслуживания.


Номер варианта	Вариант структуры СМО	Тип накопителя Н₁	Тип накопителя Н₂	Окончание процесса моделиро-вания (по числу заявок или по времени)	Т обслуживания канала
					Закон распред.	Интервал или мат. ожидание
	СМО5	Бесконечн.	Конечный	По ч.з.	экспон.

Модель сети массового обслуживания:

Рисунок 1. Двухфазная сеть массового обслуживания

N1 — входной поток заявок на обслуживание из источника 1

N2 — входной поток заявок на обслуживание из источника 2

N3 — выходной поток обслуженных заявок из источника 1

N4 — выходной поток обслуженных заявок из источника 2

N5 — выходной поток заявок, получивших отказ в обслуживании

Событийный граф СМО в программно-реализуемой форме

e_нпм — событие начала моделирования,

e_кпм — событие конца моделирования,

e_нп1 — событие начала процесса (событие появления заявки из источника1),

e_нп2 — событие начала процесса (событие появления заявки из источника2),

e_кпN3 — событие конца процесса для обслуженной заявки,

e_кпN5 — событие конца процесса для обслуженной заявки,

e_на1 — событие начала активности (обслуживание заявки в 1 м канале),

e_на2 — событие начала активности (обслуживание заявки в 2 м канале)

e_ка1 — событие конца активности (конец обслуживания в 1 м канале),

e_ка2 — событие конца активности (конец обслуживания в 2 м канале),

e_зS1 — событие занятия средства (канал 1),

e_зS2 — событие занятия средства (канал 2),

e_оS1 — событие освобождения средства (канал 1),

e_оS2 — событие освобождения средства (канал 2),

e_зQ1 — событие занятия очереди (накопитель 1),

e_зQ2 — событие занятия очереди (накопитель 2),

e_оQ1 — событие освобождения очереди (накопитель 1),

e_оQ2 — событие освобождения очереди (накопитель 2).

Р₁ — анализ состояния средства Sr (канала 1), значения: Зан — «занято», Св — «свободно» ;

Р₂ — анализ состояния очереди Q1, значения: Пуст — «пуста», Непуст — «непуста» ;

Р₃ — анализ состояния, значения: N1, N2;

Р₄— анализ состояния средства Sr (канала 2), значения: Зан — «занято», Св — «свободно» ;

Р₅ — анализ количества обработанных заявок в сети (сравнение с достижением желаемого количества К);

Р₆— анализ состояния очереди Q2, значения: Пуст — «пуста», Непуст — «непуста» ;

Р₇ — анализ количества обработанных заявок в сети (сравнение с достижением желаемого количества К);

Дуги второго типа помечаются величинами задержки:

Т₀ — время поступления первой заявки после начала моделирования;

Т_пз1 — интервал времени между поступлениями заявок от источника 1;

Т_пз2 — интервал времени между поступлениями заявок от источника 2;

Т_а1 — время обслуживания заявки в канале 1(длительность активности 1);

Т_а2 — время обслуживания заявки в канале 2(длительность активности 2);

Рисунок 2. Событийный граф СМО

Рисунок 3. Событийный граф СМО в программно-реализуемой форме Макрособытийный граф После преобразования событийного графа в программно-реализуемой форме к форме макрособытий, получается граф, изображенный на рисунке 3.

Рисунок 4. Событийный граф на уровне макрособытий

Программная модель СМО

program model_SMO (input, output);

uses crt, graph, printer, dos;

type

PROCESS=record

PRIORITET: integer;{приоритет текущего пpоцесса}

S0:longint;{уазатель списка текущих пpоцессов}

Ist:integer

end;

var

PR: array [1.1000] of PROCESS;

Sr1:longint; {номеp сpедства}

Sr2:longint; {номеp сpедства}

Q1: longint;{номеp очеpеди}

Q2: longint;{номеp очеpеди}

t: longint;{текущее вpемя моделиpования}

Tob:longint; {максимальное вpемя обслуживания заявки в канале CМО}

Ttob1:longint;{текущее вpемя обслуживания заявки в канале1 CМО}

Ttob2:longint;{текущее вpемя обслуживания заявки в канале2 CМО}

T0:longint; {вpемя поступления пеpвой заявки1 в СМО}

T1:longint; {вpемя поступления пеpвой заявки2 в СМО}

TZ:longint; {сpеднее вpемя интеpвала поступления заявок}

E:longint; {номеp событийной секции}

j0:longint; {номеp текущего пpоцесса}

N10:longint; {число пpиоpитетов в СМО}

i0:integer; {пеpеменная цикла}

N0:integer; {указатель списка текущих пpоцессов}

K, L: integer;

{$i smpl_new.pas}

Procedure E0;

{————————- ИНИЦИИРУЮЩАЯ СЕКЦИЯ ——————————-}

{——- СОБЫТИЕ 0 — НАЧАЛО ПРОЦЕССА МОДЕЛИРОВАНИЯ —————-}

begin

TZ:=50;Tob:=500;N10:=2;K:=1000;T0:=50;T1:=100;

L:=1;

{—— начальная установка списка текущих пpоцессов ————-}

for I0:=1 to 999 do

PR[I0]. S0:=I0+1;

PR[1000].S0:=0;

N0:=1;

{—— начальная установка системы моделиpования ——————}

init;

{—————- объявление сpедства и очеpеди ——————}

equip ('Sredstvo1', Sr1);

queue ('Ochered1', Q1);

equip ('Sredstvo2', Sr2);

queue ('Ochered2', Q2);

{————— планиpование пеpвого события —————————-}

{ schedl (1,T0,0);

schedl (2,T1,0);}

schedl (2,50,0);

schedl (1,100,0);

schedl (2,150,0);

schedl (2,750,0);

schedl (2,800,0);

schedl (1,1500,0);

{используются для детерменированного тестирования}

end;

Procedure E1;

{————— СОБЫТИЕ 1 — ПОЯВЛЕНИЕ ЗАПРОСА В СМО от И1 —————-}

begin

{————— анализ переполнения таблицы процессов ————-}

IF N0=0 THEN begin write ('ОШИБКА 10'); exit; end;

{—————- формирование номера нового процесса —————}

J0:=N0;

N0:=PR[N0]. S0;

{——————- формирование атрибутов процесса ——————}

{ PR[J0]. PRIORITET:=irand (1,N10);}

PR[J0]. Ist:=1;

PR[J0].PRIORITET:=1;{Оператор используется для детеpминиpованного тестирования}

{——————- планирование следующей заявки ———————}

schedl (1,irand (0,TZ), 0);

{———————— планирование события 3 —————————}

schedl (3,0,j0);

end;

Procedure E2;

{————— СОБЫТИЕ 2 — ПОЯВЛЕНИЕ ЗАПРОСА В СМО от И2 —————-}

begin

{————— анализ переполнения таблицы процессов ————-}

IF N0=0 THEN begin write ('ОШИБКА 10'); exit; end;

{—————- формирование номера нового процесса —————}

J0:=N0;

N0:=PR[N0]. S0;

{——————- формирование атрибутов процесса ——————}

{ PR[J0]. PRIORITET:=irand (1,N10);}

PR[J0]. Ist:=2;

PR[J0].PRIORITET:=2;{Оператор используется для детеpминиpованного тестирования}

{——————- планирование следующей заявки ———————}

schedl (2,irand (0,TZ), 0);

{———————— планирование события 2 —————————}

schedl (3,0,j0);

end;

Procedure E3;

{———————СОБЫТИЕ 3 ———————}

begin

{————————- анализ состояния средства 1——————-}

if status (Sr1)=0 then

{——————————- занятие средства —————————-}

begin

reserv (Sr1,j0);

{ Ttob1:=irand (0,Tob);}

Ttob1:=150;{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (4,Ttob1,j0)

end

else

{—————— помещение процесса в очередь 1 —————}

enque (Q1,j0,PR[J0]. PRIORITET);

end;

Procedure E4;{——- СОБЫТИЕ E4 ———}

begin

{————————————— освобождение сpедства1 ———————————}

releas (Sr1);

schedl (5,0,j0);

{—————————————- анализ состояния очеpеди —————————}

IF length (q1)<>0 THEN

begin

j0:=head (q1);

{————————- zanaytie состояния средства 1——————-}

reserv (Sr1,j0);

{ Ttob1:=irand (0,Tob);}

Ttob1:=150;{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (4,Ttob1,j0)

end

end;

Procedure E5;{———————СОБЫТИЕ 5 ———————}

begin

{————————- проверка условия N ———————}

if pr[j0]. Ist=1 then

begin

k:=k-1;

{———————————- конец пpоцесса —————————-}

PR[J0]. S0:=N0;

N0:=J0;

if K=0 then schedl (7,0,0);

end

else

{————————- анализ состояния сpедства ———————}

if status (Sr2)=0 then

begin

reserv (Sr2,j0);

{Ttob1:=irand (0,Tob);}

Ttob2:=500;{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (6,Ttob1,j0)

end

else

{—————————————- анализ состояния очеpеди —————————}

IF length (q2)

{—————— помещение процесса в очередь диска —————}

enque (Q2,j0,PR[J0]. PRIORITET)

else

{———————————- конец процесса —————————-}

begin

PR[J0]. S0:=N0;

N0:=J0;

end;

Procedure E6;{——- СОБЫТИЕ E6 ———}

begin

{————————————— освобождение сpедства1 ———————————}

releas (Sr2);

{————————————— конец процесса ———————————}

PR[J0]. S0:=N0;

N0:=J0;

k:=k-1;

if k=0 then schedl (7,0,0);

{—————————————- анализ состояния очеpеди —————————}

IF length (q2)<>0 THEN

begin

j0:=head (q2);

{————————- zanaytie состояния средства 1——————-}

reserv (Sr2,j0);

{ Ttob2:=irand (0,Tob);}

Ttob2:=500;{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (6,Ttob2,j0)

end;

Procedure E7;

{———— СОБЫТИЕ 7 — КОНЕЦ ПРОЦЕССА МОДЕЛИРОВАНИЯ ————}

begin

report;

end;

BEGIN {$i+u+r}

{—————————— УПРАВЛЯЮЩАЯ СЕКЦИЯ —————————-}

E0;

repeat

cause (E, J0);

case E of

1: E1;

2: E2;

3: E3;

4: E4;

5: E5;

6: E6;

7: E7

end;

until E=7;

END.

1. Начало нового процесса, когда средство свободно;

2. Начало нового процесса, когда средство занято;

3. Конца процесса, когда очередь пуста;

4. Конца процесса когда очередь не пуста — в очереди ожидают обслуживания;

5. Конец процесса, когда заявка постуила из первого источника и число заявок меньше К — отказ в обслуживании заявок;

6. Конец процесса, когда заявка постуила из первого источника и число заявок равно К;

7. Начало нового роцесса, когда заявка поступила из второго источника, средство занято и очередь не полна;

8. Начало нового процесса, когода заявка поступила из второго источника, средство занято и очередь полнаполна — отказ в обслуживании заявки;

9. Начало нового процесса, когда заявки поступают из второго источника и средство свободно;

10. Конец процесса, когда заявки поступили из второго источика и очередь пуста;

11. Конца процесса когда заявки поступили из второго источника и очередь не пуста — в очереди ожидают обслуживания заявки;

12. Конца процесса моделирования, когда количество заявок будет равно максимальному количеству заявок k.

Рисунок 5. Временная диаграмма детерминированного теста

Детерминированный тест

Для проведения детерминированного теста необходимо задать следующую последовательность поступления заявок:


Время события	Номер события	Номер процесса

В соответствии с временной диаграммой правильная последовательность событий должна быть следующей:


Время события	Номер события	Номер процесса

Трассировка модели

В результате прогона получили следующее:

Трассировка модели Время: Событие: Процесс:

50.00 2 0

Трассировка модели

Время: Событие: Процесс:

50.00 3 1

Трассировка модели

Время: Событие: Процесс:

100.00 1 0

Трассировка модели

Время: Событие: Процесс:

100.00 3 2

Трассировка модели

Время: Событие: Процесс:

150.00 2 0

Трассировка модели

Время: Событие: Процесс:

150.00 3 3

Трассировка модели

Время: Событие: Процесс:

200.00 5 2

Трассировка модели

Время: Событие: Процесс:

200.00 4 1

Трассировка модели

Время: Событие: Процесс:

350.00 5 1

Трассировка модели

Время: Событие: Процесс:

350.00 4 3

Трассировка модели

Время: Событие: Процесс:

500.00 5 3

Трассировка модели

Время: Событие: Процесс:

700.00 6 0

Трассировка модели

Время: Событие: Процесс:

700.00 6 3

Трассировка модели

Время: Событие: Процесс:

750.00 2 1

Трассировка модели

Время: Событие: Процесс:

750.00 3 3

Трассировка модели

Время: Событие: Процесс:

800.00 2 0

Трассировка модели

Время: Событие: Процесс:

800.00 3 2

Трассировка модели

Время: Событие: Процесс:

900.00 5 1

Трассировка модели

Время: Событие: Процесс:

900.00 4 2

Трассировка модели

Время: Событие: Процесс:

1050.00 5 2

Трассировка модели

Время: Событие: Процесс:

1200.00 6 3

Трассировка модели

Время: Событие: Процесс:

1500.00 1 0

Трассировка модели

Время: Событие: Процесс:

1500.00 3 2

Трассировка модели

Время: Событие: Процесс:

1650.00 5 2

Трассировка модели

Время: Событие: Процесс:

1650.00 7 0

Трассировка модели

Время: Событие: Процесс:

1700.00 6 1

Трассировка модели

Время: Событие: Процесс:

1700.00 7 0

Анализ результатов

При наблюдении работы модели было установлено ее соответствие эталонным результатам, то есть модель работает верно.

2. Задание

массовое обслуживание программная модель

1. Изучить методические указания к лабораторной работе.

Заданием по данной работе является планирование эксперимента, выполнение эксперимента и анализ его результатов для программной модели сети массового обслуживания, разработанной в предыдущей лабораторной работе. Задание (приложение 3) определяет доверительный интервал и доверительную вероятность.

2. Выполнить планирование эксперимента: выделить все факторы для данной модели, выбрать два фактора (рекомендуются Т_з и Т_об.к), разработать полный факторный план и частичный факторный план с изменением факторов по одному.

3. Дополнить разработанную программную модель операторами необходимыми для определения длительности прогона m. Выполнить пробные прогоны разработанной программной модели при различных уровнях факторов для определения длительности прогона m.

4. Выполнить машинный эксперимент. Для этого, задавая каждый раз новые уровни факторов, выполнить n запланированных прогонов. Результаты каждого прогона распечатать.

5. Выполнить анализ и интерпретацию результатов. Вычислить для каждого рабочего прогона значение _об.с. Построить графики зависимости _об.с, _ож, Q_ср, Q_max от факторов. Выполнить качественный анализ зависимостей: объяснить характер и причины зависимости.


Номер в группе	Доверительный интервал (%)	Доверительная вероятность
		0.975

Планирование эксперимента


Тоб Tз


Номер прогона	Tз	Тоб
1.
2.
3.
4.
5.
6.
7.
8.
9.

1 прогон

Рисунок 6

2 прогон

Рисунок 7

3 прогон

Рисунок 8

4 прогон

Рисунок 9.

5 прогон

Рисунок 10

6 прогон

Рисунок 11

7 прогон

Рисунок 12

8 прогон

Рисунок 13

9 прогон

Рисунок 14

Результаты прогонов


N	Тоб.к1	Тоб.к2	Тож1	Тож2	Qср1	Qср2
					0,016	0,002
					0,076	0,01
					3,843	0,051
					160,637	0,074
					351,152	0,067
					284,026	0,081
					234,829	0,093
					56,56	0,105
					7,52	0,083


N	Qm1	Qm2	Nн1	Nн2	Nк1	Nк2	Тоб.с.


Тож.ср1	Тож.ср2	Qm	Тз	Тоб.к
2,346	0,58 847 737
11,6 107 784	2,81 800 391
569,632 937	15,7 546 012
16 965,0766	30,740 741
	47,5 826 087
	42,5 526 316
	50,6 329 114
	53,8 742 394
1924,73 118	43,39 604

Графики зависимостей

Графики зависимостей Tc, Tож, Qcр от факторов _з, _об.к приведены на рисунках 15- 26.

Рисунок 15

Рисунок 16

Рисунок 17

Рисунок 18

Рисунок 19

Рисунок 20

Листинг измененной программы

program model_SMO (input, output);

uses crt, graph, printer, dos;

type

PROCESS=record

PRIORITET: integer;{приоритет текущего пpоцесса}

S0:longint;{уазатель списка текущих пpоцессов}

Ist:longint;

end;

const Tst: array[1.500] of real = (12.71, 4.30, 3.18, 2.78, 2.57, 2.45,

2.36, 2.31, 2.26, 2.23, 2.20, 2.18,

2.16, 2.14, 2.13, 2.12, 2.11, 2.10,

2.09, 2.09, 2.08, 2.07, 2.07, 2.06,

2.06, 2.06, 2.05, 2.05, 2.04, 2.04,

2.04, 2.04, 2.04, 2.04, 2.04, 2.04,

2.04, 2.04, 2.04, 2.02, 2.02, 2.02,

2.02, 2.02, 2.02, 2.02, 2.02, 2.02,

2.02, 2.02, 2.02, 2.02, 2.02, 2.00,

2.00, 2.00, 2.00, 2.00, 2.00, 2.00,

2.00, 2.00, 2.00, 2.00, 2.00, 1.98,

1.96, 1.96, 1.96, 1.96, 1.96, 1.96,

1.96, 1.96);

P=0.975;

var

PR: array [1.1000] of PROCESS;

Sr1:longint; {номеp сpедства}

Sr2:longint; {номеp сpедства}

Q1: longint;{номеp очеpеди}

Q2: longint;{номеp очеpеди}

t: longint;{текущее вpемя моделиpования}

Tob:longint; {максимальное вpемя обслуживания заявки в канале CМО}

Ttob1:longint;{текущее вpемя обслуживания заявки в канале1 CМО}

Ttob2:longint;{текущее вpемя обслуживания заявки в канале2 CМО}

T0:longint; {вpемя поступления пеpвой заявки1 в СМО}

T1:longint; {вpемя поступления пеpвой заявки2 в СМО}

TZ:longint; {сpеднее вpемя интеpвала поступления заявок}

E:longint; {номеp событийной секции}

j0:longint; {номеp текущего пpоцесса}

N10:longint; {число пpиоpитетов в СМО}

i0:integer; {пеpеменная цикла}

N0:integer; {указатель списка текущих пpоцессов}

K, L: integer;

Sum:longint; {ёєььр тЁхьхэ юсёыєцштрэш }

SumKv:longint; {ёєььр ътрфЁрЄют тЁхьхэ юсёыєцштрэш }

SrKv:array[1.1000] of real; {юЎхэър ёЁхфэхътрфЁрЄшўхёъюую}

Inter:array[1.1000] of real; {юЎхэър фютхЁшЄхы№эюую шэЄхЁтрыр}

D:array[1.1000] of real; {юЎхэър юЄэ.фютхЁшЄхы№эюую шэЄхЁтрыр}

i:integer; {яхpхьхээр Ўшъыр}

M:integer;

{$i smpl_new.pas}

Procedure Report2;

begin

Clrscr;

GotoXY (5,1);

Write ('Tєььр = ', Sum);

GotoXY (5,2);

Write ('+шёыю юсёыєцхээvї чр тюъ = ', M);

GotoXY (5,3);

Writeln ('+Ўхэър ёЁхфэхът. юЄъы. = ');

for i:=1 to M do

Write ('S[', i,']=', SrKv[i],' ');

Writeln;

Writeln ('+Ўхэър фютхЁшЄхы№эюую шэЄхЁтрыр:');

for i:=1 to M do

Write ('I[', i,']=', Inter[i],' ');

Writeln;

Writeln ('+Ўхэър юЄэюёшЄ. фютхЁшЄхы№эюую шэЄхЁтрыр:');

for i:=1 to M do

Write ('D[', i,']=', D[i],' ');

readkey;

end;

Procedure E0;

{————————- ИНИЦИИРУЮЩАЯ СЕКЦИЯ ——————————-}

{——- СОБЫТИЕ 0 — НАЧАЛО ПРОЦЕССА МОДЕЛИРОВАНИЯ —————-}

begin

TZ:=1000;Tob:=250;N10:=2;K:=1000;T0:=100;T1:=200;

L:=1;M:=0;Sum:=0;SumKv:=0;

{—— начальная установка списка текущих пpоцессов ————-}

for I0:=1 to 999 do

PR[I0]. S0:=I0+1;

PR[1000].S0:=0;

N0:=1;

{—— начальная установка системы моделиpования ——————}

init;

{—————- объявление сpедства и очеpеди ——————}

equip ('СРЕД1', Sr1);

queue ('ОЧЕР1', Q1);

equip ('СРЕД2', Sr2);

queue ('ОЧЕР2', Q2);

{————— планиpование пеpвого события —————————-}

schedl (2,T0,0);

schedl (1,T1,0);

{schedl (2,100,0);

schedl (1,200,0);

schedl (2,300,0);

schedl (2,1200,0);

schedl (2,1600,0);

schedl (1,2500,0);}

{используются для детерменированного тестирования}

end;

Procedure E1;

{————— СОБЫТИЕ 1 — ПОЯВЛЕНИЕ ЗАПРОСА В СМО от И1 —————-}

begin

{————— анализ переполнения таблицы процессов ————-}

IF N0=0 THEN begin write ('ОШИБКА 10'); exit; end;

{—————- формирование номера нового процесса —————}

J0:=N0;

N0:=PR[N0]. S0;

{——————- формирование атрибутов процесса ——————}

{Tbeg[J0]: =t;}

PR[J0].PRIORITET:=irand (1,N10);

PR[J0]. Ist:=1;

{PR[J0].PRIORITET:=1;}{Оператор используется для детеpминиpованного тестирования}

{——————- планирование следующей заявки ———————}

schedl (1,irand (0,TZ), 0);

{———————— планирование события 3 —————————}

schedl (3,0,j0);

end;

Procedure E2;

{————— СОБЫТИЕ 2 — ПОЯВЛЕНИЕ ЗАПРОСА В СМО от И2 —————-}

begin

{————— анализ переполнения таблицы процессов ————-}

IF N0=0 THEN begin write ('ОШИБКА 10'); exit; end;

{—————- формирование номера нового процесса —————}

J0:=N0;

N0:=PR[N0]. S0;

{——————- формирование атрибутов процесса ——————}

PR[J0]. PRIORITET:=irand (1,N10);

PR[J0]. Ist:=2;

{PR[J0].PRIORITET:=1;}{Оператор используется для детеpминиpованного тестирования}

{——————- планирование следующей заявки ———————}

schedl (2,irand (0,TZ), 0);

{———————— планирование события 2 —————————}

schedl (3,0,j0);

end;

Procedure E3;

{———————СОБЫТИЕ 3 ———————}

begin

{————————- анализ состояния средства 1——————-}

if status (Sr1)=0 then

{——————————- занятие средства —————————-}

begin

reserv (Sr1,j0);

Ttob1:=irand (0,Tob);

{Ttob1:=Tob;}{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (4,Ttob1,j0)

end

else

{—————— помещение процесса в очередь 1 —————}

enque (Q1,j0,PR[J0]. PRIORITET);

end;

Procedure E4;{——- СОБЫТИЕ E4 ———}

begin

{————————————— освобождение сpедства1 ———————————}

releas (Sr1);

schedl (5,0,j0);

{—————————————- анализ состояния очеpеди —————————}

IF length (q1)<>0 THEN

begin

j0:=head (q1);

{————————-zanaytie состояния средства 1——————-}

reserv (Sr1,j0);

Ttob1:=irand (0,Tob);

{Ttob1:=Tob;}{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (4,Ttob1,j0)

end;

{———————— +яpхфхыхэшх фышЄхы№эюёЄш яpюуюэр ш ўшёыр юсёыєцхээvї чр тюъ———————-}

{ begin

Ttob1:=t-Tbeg[J0];

M:=M+1;

{—————— Tvўшёыхэшх ёєььv ш ёєььv ътрфЁрЄют ———}

{ Sum:=Sum+Ttob1;

SumKv:=SumKv+Ttob1*Ttob1;}

{———————— Tvўшёыхэшх ёЁхфэхътрфЁрЄшўхёъюую ш юЎхэъш фютхЁшЄхы№эюую шэЄхЁтрыр ————}

{ if M>1 then

begin

SrKv[M]: = sqrt (abs (SumKv-Sum*Sum)/(M-1));

if M<=500 then Inter[M]: =Tst[M-1]*SrKv[M]/M

else Inter[M]: =Tst[500]*SrKv[M]/M;

D[M]:=Inter[M]/2/Sum*M;

end; }

{end;}

end;

Procedure E5;{———————СОБЫТИЕ 5 ———————}

begin

{————————- проверка условия N ———————}

if PR[j0]. Ist=1 then

begin

k:=k-1;

{———————————- конец пpоцесса —————————-}

PR[J0]. S0:=N0;

N0:=J0;

if K=0 then schedl (7,0,0);

end

else

{————————- анализ состояния сpедства ———————}

if status (Sr2)=0 then

begin

reserv (Sr2,j0);

Ttob2:=irand (0,Tob);

{Ttob1:=Tob;}{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (6,Ttob2,j0)

end

else

{—————————————- анализ состояния очеpеди —————————}

IF length (q2)

{—————— помещение процесса в очередь диска —————}

enque (Q2,j0,PR[J0]. PRIORITET)

else

{———————————- конец процесса —————————-}

begin

PR[J0]. S0:=N0;

N0:=J0;

end;

Procedure E6;{——- СОБЫТИЕ E6 ———}

begin

{————————————— освобождение сpедства1 ———————————}

releas (Sr2);

{————————————— конец процесса ———————————}

PR[J0]. S0:=N0;

N0:=J0;

k:=k-1;

if k=0 then schedl (7,0,0);

{—————————————- анализ состояния очеpеди —————————}

IF length (q2)<>0 THEN

begin

j0:=head (q2);

{————————- zanaytie состояния средства 1——————-}

reserv (Sr2,j0);

Ttob1:=irand (0,Tob);

{Ttob1:=Tob;}{Оператор используется для детеpминиpованного тестирования}

{———————— планирование события —————————}

schedl (6,Ttob1,j0)

end;

{——————— +яpхфхыхэшх фышЄхы№эюёЄш яpюуюэр ш ўшёыр юсёыєцхээvї чр тюъ———————-}

{ begin

Ttob2:=t-Tbeg[J0];

M:=M+1;

{—————— Tvўшёыхэшх ёєььv ш ёєььv ътрфЁрЄют ———}

{ Sum:=Sum+Ttob2;

SumKv:=SumKv+Ttob2*Ttob2;

{———————— Tvўшёыхэшх ёЁхфэхътрфЁрЄшўхёъюую ш юЎхэъш фютхЁшЄхы№эюую шэЄхЁтрыр ————}

{ if M>1 then

begin

SrKv[M]: = sqrt (abs (SumKv-Sum*Sum)/(M-1));

if M<=500 then Inter[M]: =Tst[M-1]*SrKv[M]/M

else Inter[M]: =Tst[500]*SrKv[M]/M;

D[M]:=Inter[M]/2/Sum*M;

end;

end;}

end;

Procedure E7;

{———— СОБЫТИЕ 7 — КОНЕЦ ПРОЦЕССА МОДЕЛИРОВАНИЯ ————}

begin

report;

report2;

end;

BEGIN {$i+u+r}

{—————————— УПРАВЛЯЮЩАЯ СЕКЦИЯ —————————-}

E0;

repeat

cause (E, J0);

case E of

1: E1;

2: E2;

3: E3;

4: E4;

5: E5;

6: E6;

7: E7;

end;

until E=7;

END.

Показать весь текст

Заполнить форму текущей работой