2.3.10 Процедура rmove
Процедура извлечения первой записи из календаря. Извлекаются и запоминаются для передачи переменные TSob, KEvnt, ATRIB (время свершения, код события, атрибуты). Код события извлекаемой записи обнуляется (условно пустая запись). Измененный календарь запоминается, а для восстановления порядка записей вызывается процедура GRUP.
2.3.11. Процедура управления ходом имитации slam
Рисунок 3 – Блок-схема алгоритма управления имитацией
Все основные шаги по имитации будут повторяться, поэтому управление ходом имитации поручают отдельной процедуре системного типа - процессору имитации SLAM вызываемому в начале работы программы.
Обработка события происходит после поиска соответствующей программы процедурой EVENT(KEvnt) по коду извлеченного события. Здесь также проверяется условие окончания прогона (TNow>=TTFin) или (ChP=True). Отчет по прогону и итоговый отчет оформляются соответственно процедурами OUTPUTN и OUTPUT. Вызов OTPUT осуществляется по результатам сравнения NRNS и NNRNS (NRNS>=NNRNS).
3 Выбор программного обеспечения
Выбор системы программирования PascalABC.NET вполне обоснован.
PascalABC.NET- это язык программирования Pascal нового поколения, сочетающий простоту классического языка Паскаль, ряд современных расширений и огромные возможности платформы .NET. А также данная среда разработки бесплатная, простая и мощная.
Данный язык обладает достаточным набором операторов, с помощью которых вполне реально создать имитационную модель. Данное программное средство просто в применении и соответствует большинству современных требований.
4 Программа имитационного моделирования
После запуска программы необходимо ввести количество прогонов модели.
Остальные параметры моделируемой системы определены программно. После окончания имитации на экране отображаются итоговые данные.
Оптимальная последовательность действий имитации модели:
- запустить программу;
- установить параметры моделирования;
- запустить модель на выполнение;
- просмотреть результаты;
- просмотреть результаты анализа (запомнить значение оптимального количества прогонов);
- в параметрах моделирования установить полученное значение в результате анализа количества прогонов;
- запустить модель на выполнение с новым числом прогонов;
- просмотреть результаты;
- выйти из программы.
В результате этих действий итоговые данные моделирования будут удовлетворять с заданной вероятностью определенному доверительному интервалу.
5 Результат моделирования
Осуществим имитацию модели со следующими исходными данными:
- время имитации – 480 минут (8 часов);
- число прогонов – 25.
В результате имитации получим данные, отображенные в Таблице 1.
Таблица 1 – Результат имитации
-
Номер
прогона
Количество
посетителей
Количество
обслуженных
посетителей
ЧП
1
16
14
Нет
2
22
20
Нет
3
21
20
Нет
4
20
18
Нет
5
19
17
Нет
6
17
16
Нет
7
18
17
Нет
8
20
18
Нет
9
18
17
Нет
10
24
22
Нет
11
21
20
Нет
12
23
22
Нет
13
19
17
Нет
14
20
19
Нет
15
18
16
Да
16
22
20
Нет
17
20
19
Нет
18
19
17
Нет
19
21
20
Нет
20
19
18
Нет
21
22
21
Нет
22
17
15
Нет
23
20
18
Нет
24
21
20
Нет
25
23
21
Нет
- общее количество пришедших посетителей за все прогоны=500;
- общее количество обслуженных посетителей за все прогоны=462;
- среднее количество пришедших посетителей за все прогоны=20;
- среднее количество обслуженных посетителей за все прогоны=18.