47648 (608330), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Количество турникетов (аппаратов обслуживания) также задается пользователем. Эта характеристика является ключевой для работы системы в целом, она определяет сколько параллельных обслуживаний может производится в момент времени. В процессе моделирования, по заданным параметрам, необходимо установить, сколько аппаратов обслуживания необходимо использовать для эффективной работы системы, т.е. чтобы все турникеты были максимально задействованы, но ожидание в очереди зрителя было бы минимальным.

Количество транзакций - это количество людей, которым необходимо пройти на стадион. То есть моделирование выполняется до тех пор, пока все люди не пройдут на стадион или пока процесс моделирования не будет остановлен пользователем.

Также в программе предусмотрен вариант ограничения времени, т.е. процесс моделирования остановится, как только пройдет отведенное время (можно задавать в секундах, минутах и часах). Ограничение по времени имеет приоритет выше, чем ограничение по количеству человек, т.е. даже если не все зрители успели пройти на стадион, а установленное время моделирование закончилось, процесс остановится.

Скорость моделирования - характеристика, определяющая скорость моделирования. Минимальное значение равно 1 и соответствует реальной скорости. Введенное значение определяет, сколько секунд моделирования выполняется за одну секунду реального времени. Максимальное значение равно 1000.

После того как введены параметры работы системы, необходимо нажать на кнопку "СТАРТ", для начала процесса моделирования. Изображение окна в процессе моделирования изображено на рисунке 2.

При установке флажка, т.е. при включении функции "Ограничить время" внизу появляется StatusBar, на котором отображается, сколько всего от общего времени уже прошло. Справа расположено изображение телевизора, картинка в "телевизоре" меняется каждые 100 единиц времени. Синим цветом обозначена надпись о том, сколько всего человек уже прошло, зеленым - время моделирования, ниже находятся данные по состоянию каждого турникета: занят или свободен, если занят, то какова очередь.

Рисунок 2. Главное окно программы в процессе моделирования

На второй вкладке "Результаты" в процессе моделирования можно наблюдать работу турникетов на изменяющейся диаграмме, на ней показана производительность в процентах от общей работы каждого турникета. После остановки моделирования слева появляется отчет по эксперименту. В меню "Настройки" "Результатов" можно выбрать "вывод результатов в отдельном окне".

Рисунок 3. Вкладка "Результаты"

При повторных экспериментах моделирования результаты отображаются в этом же окне, но ниже, что позволяет производить сравнение. Но в меню "Настройки", выбрав команду "Результатов" можно также отключить показания предыдущих результатов. Отчет можно сохранить, по умолчанию это будет текстовый файл (*. txt). Сохранение отчета можно произвести, нажав на одну из кнопок сохранения отчета: на панели инструментов, в меню "Файл".

Если у пользователя возникают вопросы по работе с программой, при нажатии кнопки F1, см. рисунок 4, или выбора соответствующей команды в меню "Справка", запускается окно руководства пользователя.

Рисунок 4. Окно "Справка"

Заключение

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

Программа позволяет сохранять результаты экспериментов в файл, что тоже сопутствует проведению исследования. Написанное программное средство в ходе моделирования визуально показывает пользователю основные параметры системы. Если у пользователя возникают вопросы по работе с программой, нажатие клавиши F1 позволяет вызвать подробную справку, что делает программу понятной для любого пользователя.

Проводя исследования работы данной системы, можно опираться на то, что при свободных аппаратах обслуживания, зритель идет в первый свободный аппарат, что позволяет определить загруженность системы по работе последнего аппарата и среднего времени проведенному зрителями в очереди. Если система работает не в полную силу, то по диаграмме "Выполнение заявок" видно, что большая часть заявок обслуживается первым аппаратом, а длина очереди стремится к нулю. Показатель эффективности последнего аппарата при этом тоже остается низким. Пример не эффективной работы системы приведен на рисунке 6. Если же количество аппаратов обслуживания мало, и аппараты не успевают справляться с поступающими заявками, то система перегружена, и зрители подолгу находятся в очередях. Показатели эффективности работы всех аппаратов стремятся к 100%, а количество обслуженных аппаратами заявок приблизительно равно. Пример перегруженной системы приведен на рисунке 7. Наиболее эффективная работа системы достигается при эффективности последнего аппарата обслуживания, равной приблизительно 80%, и среднем времени нахождения в очереди менее 10 секунд. Пример эффективной работы системы приведен на рисунке 8.

Каждый пользователь, проводя исследование, сам решает какое количество аппаратов обслуживания ему необходимо для нормального функционирования системы.

Рисунок 6. Пример не эффективной работы системы

Рисунок 7. Пример перегруженной работы системы.

Рисунок 8. Пример эффективной работы системы

Список использованных источников

1. Лифшиц А.Л. Статистическое моделирование СМО, М., 1978.

2. Советов Б.А., Яковлев С.А. Моделирование систем, М: Высшая школа, 1985.

3. Гмурман В.Е. Теория вероятностей и математическая статистика, М: Высшая школа, 2001.

4. Пригодин Н.В. Системный подход в моделировании. М., 1986.

Приложение

Procedure TForm1. Show_Report;

Var

I: Integer;

Begin

If Form3. CheckBox1. Checked=true

then begin

Memo1. Clear;

Form4. Memo1. Clear;

end;

if Form3. RadioButton2. Checked=true then

BEGIN

For i: =1 to Turn_Count Do

Turnikets [i]. Lab. Free;

Memo1. Lines. Add ('Эксперимент №: '+IntToStr (Eksp));

Memo1. Lines. Add ('Общее время моделирования: '+IntToStr (Time));

Memo1. Lines. Add ('Прошло зрителей: '+IntToStr (Count_Of_F_People));

Memo1. Lines. Add ('Из них гостей: '+ IntToStr (G_Count));

Memo1. Lines. Add ('Максимальная длина очереди: '+IntToStr (Max_Queue));

Memo1. Lines. Add ('Средняя длина очереди: '+FloatToStrF (AverageQueue,ffFixed,2,2));

Memo1. Lines. Add (' ');

Memo1. Lines. Add ('Количество заявок');

For i: =1 to Turn_Count Do

Memo1. Lines. Add ('Турникет №'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Zayavki));

Memo1. Lines. Add (' ');

Memo1. Lines. Add ('Время работы');

For i: =1 to Turn_Count Do

Memo1. Lines. Add ('Турникет №'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Rabota));

Memo1. Lines. Add (' ');

Memo1. Lines. Add ('Время простоя');

For i: =1 to Turn_Count Do

Memo1. Lines. Add ('Турникет №'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Prostoy));

Memo1. Lines. Add ('***********************************');

Memo1. Lines. Add (' ');

Memo1. Visible: =True;

Memo1. ReadOnly: =True;

END

else // вывод в отдельном окне

BEGIN

Form4. Show;

For i: =1 to Turn_Count Do

Turnikets [i]. Lab. Free;

Form4. Memo1. Lines. Add ('Эксперимент №: '+IntToStr (Eksp));

Form4. Memo1. Lines. Add ('Общее время моделирования: '+IntToStr (Time));

Form4. Memo1. Lines. Add ('Прошло зрителей: '+IntToStr (Count_Of_F_People));

Form4. Memo1. Lines. Add ('Из них гостей: '+ IntToStr (G_Count));

Form4. Memo1. Lines. Add ('Максимальная длина очереди: '+IntToStr (Max_Queue));

Form4. Memo1. Lines. Add ('Средняя длина очереди: '+FloatToStrF (AverageQueue,ffFixed,2,2));

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Lines. Add ('Количество заявок');

For i: =1 to Turn_Count Do

Form4. Memo1. Lines. Add ('Турникет №'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Zayavki));

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Lines. Add ('Время работы');

For i: =1 to Turn_Count Do

Form4. Memo1. Lines. Add ('Турникет №'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Rabota));

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Lines. Add ('Время простоя');

For i: =1 to Turn_Count Do

Form4. Memo1. Lines. Add ('Турникет №'+IntToStr (I) +': '+IntToStr (Turnikets [i]. Prostoy));

Form4. Memo1. Lines. Add ('***********************************');

Form4. Memo1. Lines. Add (' ');

Form4. Memo1. Visible: =True;

Form4. Memo1. ReadOnly: =True;

END;

End;

Procedure TForm1. Add_G;

Var

i, Min,Min_i: Integer;

Begin

Min: =Turnikets [1]. Queue_Len;

Min_i: =1;

For i: =2 To Turn_Count Do

Begin

if Turnikets [i]. Queue_Len

Begin

Min: =Turnikets [i]. Queue_Len;

Min_i: =i;

End;

End;

Inc (Turnikets [Min_i]. Queue_Len);

If Turnikets [Min_i]. Queue_Len>Max_Queue Then Max_Queue: =Turnikets [Min_i]. Queue_Len;

For i: =Turnikets [Min_i]. Queue_Len DownTo 2 do

Begin

Turnikets [Min_i]. Queue [i]: =Turnikets [Min_i]. Queue [i-1] ;

End;

Turnikets [Min_i]. Queue [1]. Status: =1; // 1-ый в очереди

Turnikets [Min_i]. Queue [1]. T_in_Queue: =0;

if Turnikets [Min_i]. Status=False Then

Turnikets [Min_i]. R_Obsl: =TimeRandom (G_ServeMin,G_ServeMax);

Turnikets [Min_i]. Status: =True;

Inc (G_Count);

End;

Procedure TForm1. Add_4el;

Var

i, Min,Min_i: Integer;

Begin

Min: =Turnikets [1]. Queue_Len;

Min_i: =1;

For i: =2 To Turn_Count Do

Begin

if Turnikets [i]. Queue_Len

Begin

Min: =Turnikets [i]. Queue_Len;

Min_i: =i;

End;

End;

Inc (Turnikets [Min_i]. Queue_Len);

If Turnikets [Min_i]. Queue_Len>Max_Queue Then Max_Queue: =Turnikets [Min_i]. Queue_Len;

Turnikets [Min_i]. Queue [Turnikets [Min_i]. Queue_Len]. Status: =0;

Turnikets [Min_i]. Queue [Turnikets [Min_i]. Queue_Len]. T_in_Queue: =0;

if Turnikets [Min_i]. Status=False Then

Turnikets [Min_i]. R_Obsl: =TimeRandom (ServeMin,ServeMax);

Turnikets [Min_i]. Status: =True;

End;

Function TForm1. TimeRandom;

Характеристики

Список файлов курсовой работы