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

Тип работы:
Контрольная
Предмет:
Программирование


Узнать стоимость новой

Детальная информация о работе

Выдержка из работы

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

КУРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра программного обеспечения и администрирования

информационных систем

Контрольная работа

по дисциплине

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

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

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

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

2010 г.

1. Задание

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

Номер варианта

Вариант структуры СМО

Тип накопителя Н1

Тип накопителя Н2

Окончание процесса моделиро-вания (по числу заявок или по времени)

Т обслуживания канала

Закон распред.

Интервал или

мат. ожидание

15

СМО5

Бесконечн.

Конечный

По ч.з.

экспон.

500

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

Рисунок 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).

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

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

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

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

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

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

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

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

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

Тпз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)<L THEN

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

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

else

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

begin

PR[J0]. S0:=N0;

N0: =J0;

end;

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;

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

2

0

100

1

0

150

2

0

750

2

0

800

2

0

1500

1

0

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

Время события

Номер события

Номер процесса

50

2

0

50

3

1

100

1

0

100

3

2

150

2

0

150

3

3

200

5

2

200

4

1

350

5

1

350

4

3

500

5

3

700

6

0

700

6

3

750

2

1

750

3

3

800

2

0

800

3

2

900

5

1

900

4

2

1050

5

2

1200

6

3

1500

1

0

1500

3

2

1650

6

1

1650

7

0

1700

5

2

1700

7

0

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

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

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

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

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ср, Qmax от факторов. Выполнить качественный анализ зависимостей: объяснить характер и причины зависимости.

Номер в группе

Доверительный интервал (%)

Доверительная вероятность

15

9

0. 975

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

Тоб

50

100

250

375

500

600

1

2

3

4

5

650

6

7

8

9

10

700

11

12

13

14

15

900

16

17

18

19

20

1000

21

22

23

24

25

Номер прогона

Тоб

1.

600

50

2.

600

100

3.

600

250

4.

600

375

5.

600

500

6.

650

500

7.

700

500

8.

900

500

9.

1000

500

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

1

25

25

17

11

0,016

0,002

2

52

51

42

32

0,076

0,01

3

132

123

670

72

3,843

0,051

4

194

182

17 032

116

160,637

0,074

5

253

238

20 337

152

351,152

0,067

6

252

261

23 850

147

284,026

0,081

7

250

257

24 294

160

234,829

0,093

8

247

251

12 137

166

56,56

0,105

9

252

244

1969

161

7,52

0,083

N

Qm1

Qm2

Nн1

Nн2

Nк1

Nк2

Тоб.с.

1

3

1

138

26

1000

486

78

2

3

1

277

45

1002

511

177

3

23

1

857

107

1008

489

997

4

303

1

1014

126

1018

486

17 524

5

686

1

1016

144

1016

460

20 980

6

575

1

1034

143

1034

494

24 510

7

439

1

1032

150

1032

474

24 961

8

98

1

1026

160

1026

493

12 801

9

20

1

1000

135

1023

505

2626

Тож. ср1

Тож. ср2

Qm

Тз

Тоб. к

2,346

0,58 847 737

4

600

50

11,6 107 784

2,81 800 391

4

600

100

569,632 937

15,7 546 012

24

600

250

16 965,0766

30,740 741

304

600

375

20 337

47,5 826 087

687

600

500

23 850

42,5 526 316

576

650

500

24 294

50,6 329 114

440

700

500

12 137

53,8 742 394

99

900

500

1924,73 118

43,39 604

21

1000

500

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

Графики зависимостей 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. 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, 2. 00,

2. 00, 2. 00, 2. 00, 2. 00, 2. 00, 2. 00,

2. 00, 2. 00, 2. 00, 2. 00, 2. 00, 2. 00,

2. 00, 2. 00, 2. 00, 2. 00, 2. 00, 2. 00,

2. 00, 2. 00, 2. 00, 2. 00, 2. 00, 2. 00,

2. 00, 2. 00, 2. 00, 2. 00, 2. 00, 2. 00,

2. 00, 2. 00, 2. 00, 2. 00, 2. 00, 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, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

1. 96, 1. 96, 1. 96, 1. 96, 1. 96, 1. 96,

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)<L THEN

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

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

else

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

begin

PR[J0]. S0:=N0;

N0: =J0;

end;

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.

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