Реферат: Моделирование системы массового обслуживания
Министерство образования и науки Республики Казахстан
Карагандинский государственный технический университет
Кафедра САПР
ПОЯСНИТЕЛЬНАЯ
ЗАПИСКА
к курсовой работе
по дисциплине «Прикладная теория систем»
Тема: «Моделирование системы массового обслуживания»
Руководитель
Студент
Караганда 2009
Содержание
Введение
Постановка задачи
Описание программного модуля
Руководство программиста
Руководство пользователя
Заключение
Список использованных источников
Приложение
Введение
С развитием новых технологий, в нашу жизнь вошло такоепонятие как моделирование. Компьютерное моделирование сегодня используетсяпрактически во всех сферах человеческой деятельности. Это связано, во-первых, суменьшением затрат и времени на разработки, ведь сделать виртуальные просчет накомпьютере или смоделировать в программе необходимое техническое оборудование вдесятки раз быстрее и легче, нежели строить модель вручную. Моделированиехорошо еще и тем, что не требуется вмешательства в работу данной организации — послесоздания модели с ней можно проводить любые испытания и эксперименты.
А, во-вторых, это связано с необходимостью на практикерешать различные вероятностные задачи, связанные с системами массовогообслуживания (СМО). Примерами таких систем могут служить: телефонные станции,всевозможные кассы, стоянки, какие-либо каналы, принимающие и обрабатывающиесигналы, учреждения, куда поступают различные заявки и т.п.
Целью выполнения работы является создание программы,моделирующей систему массового обслуживание. По введенным параметрам программадолжна позволять производить анализ работы системы и выдавать результат. Цельюпрограммы также является приобретение знаний в моделировании, как общих систем,так и систем массового обслуживания в частности. Необходимо получить навыкисистемного исследования реальной динамической сложной системы на основепостроения ее имитационной модели.
Темой данного курсового проекта является моделированиеработы турникетов на стадионе- многоканальной СМО. В качестве средыпрограммирования была выбрана визуальная среда Delphi7, которая удовлетворяет всем требованиям по созданию визуальных приложений дляоперационной среды Microsoft Windows.
Постановка задачи
В данном курсовом проекте необходимо создать программу,которая имитирует работу турникетов на стадионе. По введенным параметрам работысистемы: среднему времени появления зрителя, времени его обслуживания, количествуаппаратов обслуживания, количеству зрителей или ограничению времени, позволяетпользователю производить анализ о количестве необходимых аппаратов обслуживанияи их загруженности, состояния в определенный момент времени и эффективностиработы. Так же имеются зрители-гости, приходящие по пригласительным билетам,которые пропускаются без очереди. Время появления и обслуживания таких зрителейтакже может быть задано пользователем. Очередь к каждому турникету своя. Выбораппарата обслуживания зрителем строится по принципу: где меньше народа.
Описание программного модуляПри запуске программы, для начала процесса моделирования,необходимо ввести параметры моделирования. Во всех полях введены значения поумолчанию. При нажатии на кнопку СТАРТ происходит инициализация всехпеременных, и чтение параметров моделирования. Так как чтение параметровпроисходит не однократно, для правильной работы, защиты от некорректного вводаданных и легкости понимания была написана функция Zna4_Read, которая по введенному компоненту класса TEdit, минимальному значению и максимальному значению,возвращает значение введенного параметра.
Function Zna4_Read (ET: TEdit; Min: Integer;Max: Integer): Integer;
Var
Zn: Integer;
Begin
Try
Zn: =StrToInt (ET. Text);
Except
ShowMessage ('Значение поля не корректно!!! ');
End;
if Zn<Min Then Zn: =Min;
if Zn>Max Then Zn: =Max;
ET. Text: =IntToStr (Zn);
Result: =Zn;
End;
Если значение компонента ET меньшеминимального, то оно будет присвоено минимальному значению, передаваемому вфункцию, а если больше максимального значения, то значение параметра станетмаксимальным, переданным функции. После того как все параметры считаны,запускается процедура ReNew, параметром которойявляется заданное количество аппаратов обслуживания. Процедура инициализируетполя класса TApparat, описанные в руководствепрограммиста и создает компоненты информирующие пользователя о состоянии работыаппарата.
Затем функцией TIMERANDOM, задаетсявремя, через которое появятся обычный зритель и зритель по приглашению: Random_4el и Random_Guest. Функция TimeRandom возвращаетслучайное число в заданном промежутке.
Function TForm1. TimeRandom;
Begin
Result: =Random (Max-Min+1) +Min;
End;
После чего кнопка STARTпереименовывается в STOP, и выполняется запуск таймера,который и выполняет моделирование системы массового обслуживания.
В программе используются глобальные переменные Time_Guest и Time_4el, которые характеризуются временем, пройденным с моментапоявления зрителя. На каждое выполнение таймера происходит инкрементация этихпеременных. Если Time_Guest становится равной Random_Guest, следовательно, настало время появления зрителя поприглашению, если Time_4elравняется Random_4el — время появления обычного зрителя. Для добавления зрителейиспользуются процедуры Add_G и Add_4el, которые добавляют зрителя всамую свободную очередь, в ее начало или конец, в зависимости от статусазрителя. Так же происходит переприсвоение переменных Random_Guest и Random_4el,и обнуление Time_Guest и Time_4el.
В дальнейшем выполняется циклический проход по всемаппаратам обслуживания, в котором выполняются следующие действия:
Если аппарат работает, увеличивается время его работы,пользователю отображается информация о количестве человек, находящихся вочереди и о том, что канал занят (красный круг) и увеличивается времянахождения в очереди каждого зрителя, находящегося в ней.
Если аппарат свободен, увеличивается время его простоя иотображается информация, что аппарат свободен (зеленый кружок).
Если закончено время обслуживания аппаратом (T_Obsl=R_Obsl)
Увеличивается количество обслуженных аппаратом заявок
Увеличивается количество зрителей прошедших на стадион
Сокращается очередь у аппарата обслуживания
Если очередь равна нулю, то аппарат переходит в состояние«свободен» (Status=False)
Если очередь неравна нулю, то на обслуживания поступаетзритель, находящийся в очереди первым
Обновляются данные в диаграммах представляемых пользователю.
Если количество пройденных на стадион человек достигло необходимогоколичества человек, которым нужно пройти, или пользователь нажал на кнопку STOP:
Работа таймера останавливается
Запускается процедура Show_Report
Удаляются компоненты информирующие пользователя о работеаппарата обслуживания.
Процедура Show_Reportдобавляет информацию о моделировании системы в файл отчета. Процедура Show_Report описана в приложении.
При нажатии на кнопку ОТЧЕТ пользователю отображается окно сотчетами об экспериментах. В программе также предусмотрена возможность выводаотчета в отдельном окне.
Руководство программистаВсе файлы проекта располагаются в директории с наименованиемтурникет-смо. В проект входят: файл проекта Delphi Lab_SMO. dpr, файлы исходного текста программы Programma,Unit2, Settings и Results, файл справки (Руководство пользователя) иисполняемый файл Lab_SMO. exe.
Программа работает с двумя классами TTurniketи T4el. TTurniketпредставляет собой класс содержащий в себе поля, характеризующие аппаратобслуживания.
TTurniket = object// Аппарат
Lab: TLabel;// Label используется для вывода результатов
Status: Boolean;// Статус. Занят или свободен
T_Obsl: Integer;
R_Obsl: Integer;
Zayavki: Integer;// Кол-во заявок на аппарат
Rabota: Integer;// Время работы
Prostoy: Integer;// Время простоя
Queue_Len: Integer; // Длина очереди
Queue: ATimeRandomay [1. .1000] of T4el; // Массив зрителей
End;
Status — логическая переменная по значению которой программе ясно занят аппаратобслуживания или нет. Значение True (Истина) — занят, False (Ложь) — свободен. T_Obsl — поле содержащее в себезначение о времени, пройденном с начала обслуживания зрителя аппаратом. R_Obsl — время требуемое на обслуживание пришедшего зрителя. Задается случайно, впромежутке, заданном пользователем. Поле Zayavkiсодержит числовое значение равное количеству заявок обслуженных этим аппаратом.Поля Rabota и Prostoyсоответствуют времени, в секундах, которое аппарат провел в рабочем состоянии ипростоял в бездействии. Поле Queue_Lenсоответствует количеству человек, находящихся в очереди. Поле Queueявляется массивом типа T4el, вкотором хранится информация о зрителях находящихся в очереди.
T4el = object // Человек в очереди
Status: Byte; // статус (может быть гостем)
T_in_Queue: Integer; // Время проведенное в очереди
End;
Класс T4elсодержит в себе только два поля Status, обычный зрительили гость по приглашению, 0 — обычный зритель, 1 — гость по приглашению и T_in_Queue, время,проведенное зрителем в очереди.
Ниже приведены глобальные переменные, используемые впрограмме.
Eksp: Integer;// Номер эксперимента
Time: LongInt;// Общее время
G_Count: Integer; // Поступившие гости
Turn_Count: Integer; // Кол-во аппаратов
Turnikets: ATimeRandomay [1. .100] ofTTurniket; // Масив аппаратов
ComeMin: Integer; // Мин. время появления зрителя
ComeMax: Integer;// Макс время появления зрителя
ServeMin: Integer;// Мин. время обслуживания зрителя
ServeMax: Integer;// Макс. время обслуживания зрителя
G_ComeMin: Integer; // Мин. время появления гостя
G_ComeMax: Integer; // Макс. время появления гостя
G_ServeMin: Integer; // Мин. время обслуживания гост
G_ServeMax: Integer; // Макс. время обслуживания гостя
People_Count:Integer; // Макс. кол-во транзакций (зрителей)
Count_Of_F_People: Integer; // Текущеекол-во транзакций
Speed: Integer;// Скорость моделирования
Max_Queue: Integer; // Макс. очередь
Full_Queue_Len: Integer; // Длина всей очереди
AverageQueue: Real;// Средняя длина очереди
Time_4el: Integer;
Random_4el: Integer;
Time_Guest: Integer;
Random_Guest: Integer;
Kartinka,k: byte;
change: boolean;
SetTime: Integer;
s: string; // picture;
В программе используются процедуры и функции, которыенаписаны для удобства работы и понимания программы.
Function Zna4_Read (ET: TEdit; Min: Integer;Max: Integer): Integer;
// чтение значения из компонента,проверка на корректность и допустимые значения
Procedure ReNew (Ap_Cnt: Integer); // Обновлениеаппаратов
Function TIMERANDOM (Min: Integer; Max: Integer):Integer; // Случайная величина в заданном промежутке
Procedure Add_4el; // Добавление зрителя в очередь
Procedure Add_G; // Добавление гостя в очередь
Procedure Show_Report; // Добавление записей в лист отчета
Работа всех этих функций и процедур описана в приложениикурсового проекта.
Руководство пользователяИсполняемый файл программы, Lab_SMO. exe, рекомендуется скопировать вдиректорию c: \SMO, и создатьярлык программы на рабочем столе.
При запуске программы появляется окно изображенное нарисунке 1.
Нажав F3 или команду «Общие»в меня «Настройки» в строке меню можно ввести или изменить исходныеданные и параметры системы.
Время появления зрителя — это интервал времени, в промежуткекоторого существует вероятность появления зрителя. Например, при заданномвремени появления зрителя от 1 до 7 секунд, зрители могут прийти в любое времяиз промежутка 1..7сек. Время появления вычисляется генератором случайных чиселв заданном промежутке. Среднее значение появления зрителя будет стремиться ксреднему значению заданного интервала.
/>
Рисунок 1. Главное окно программы
Время обслуживания — это время, затраченное на обслуживаниезрителя в процессе его прохождения на стадион. Время обслуживания так жевычисляется генератором случайных чисел в заданном пользователем промежуткевремени.
Помимо обычных зрителей на стадион приходят гости поприглашению, которые пропускаются без очереди. Зачастую, время появления гостяпо приглашению значительно больше, чем времени появления обычного зрителя. Времяобслуживания гостей тоже осуществляется длительнее, чем обслуживание обычныхзрителей.
Все эти параметры являются временными характеристиками изадаются в секундах.
Количество турникетов (аппаратов обслуживания) такжезадается пользователем. Эта характеристика является ключевой для работы системыв целом, она определяет сколько параллельных обслуживаний может производится вмомент времени. В процессе моделирования, по заданным параметрам, необходимоустановить, сколько аппаратов обслуживания необходимо использовать дляэффективной работы системы, т.е. чтобы все турникеты были максимальнозадействованы, но ожидание в очереди зрителя было бы минимальным.
Количество транзакций — это количество людей, которымнеобходимо пройти на стадион. То есть моделирование выполняется до тех пор,пока все люди не пройдут на стадион или пока процесс моделирования не будетостановлен пользователем.
Также в программе предусмотрен вариант ограничения времени, т.е.процесс моделирования остановится, как только пройдет отведенное время (можнозадавать в секундах, минутах и часах). Ограничение по времени имеет приоритетвыше, чем ограничение по количеству человек, т.е. даже если не все зрителиуспели пройти на стадион, а установленное время моделирование закончилось,процесс остановится.
Скорость моделирования — характеристика, определяющаяскорость моделирования. Минимальное значение равно 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<Min Then
Begin
Min: =Turnikets [i]. Queue_Len;
Min_i: =i;
End;
End;
Inc (Turnikets [Min_i]. Queue_Len);
If Turnikets [Min_i]. Queue_Len>Max_QueueThen Max_Queue: =Turnikets [Min_i]. Queue_Len;
For i: =Turnikets [Min_i]. Queue_Len DownTo2 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<Min Then
Begin
Min: =Turnikets [i]. Queue_Len;
Min_i: =i;
End;
End;
Inc (Turnikets [Min_i]. Queue_Len);
If Turnikets [Min_i]. Queue_Len>Max_QueueThen 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;
Begin
Result: =Random (Max-Min+1) +Min;
End;
Procedure TForm1. Refresh;
Var
I: Integer;
Begin
For i: = 1 to Ap_Cnt do
Begin
Turnikets [i]. Queue_Len: =0;
Turnikets [i]. T_Obsl: =0;
Turnikets [i]. R_Obsl: =0;
Turnikets [i]. Status: =False;
Turnikets [i]. Zayavki: =0;
Turnikets [i]. Rabota: =0;
Turnikets [i]. Prostoy: =0;
Turnikets [i]. Lab: =TLabel. Create (PageControl1);
Turnikets [i]. Lab. Left: =7;
Turnikets [i]. Lab. Top: =140+i*20;
(PageControl1 as TPageControl). Pages [0]. InsertControl(Turnikets [i]. Lab);
End;
End;
Function TForm1. Zna4_Read;
Var
Zn: Integer;
Begin
Try
Zn: =StrToInt (ET. Text);
Except
ShowMessage ('Значение полянекорректно!!! ');
End;
if Zn<Min Then Zn: =Min;
if Zn>Max Then Zn: =Max;
ET. Text: =IntToStr (Zn);
Result: =Zn;
End;
procedure TForm1. Timer1Timer (Sender: TObject);
Var
I,J: Integer;
// s: string;
begin
Chart1. Series [0]. Clear;
Inc (Time);
Label17. Caption: ='Время моделировния'+IntToStr (Time);
Inc (Time_4el);
Inc (Time_Guest);
inc (k);
// kartinka
if (k=100) and (change=true) then
begin
inc (kartinka);
Image1. Picture. LoadFromFile (s+inttostr (kartinka)+'. jpg');
k: =0;
if kartinka=11 then
kartinka: =1;
end;
if Time_4el=Random_4el Then // Зрительпришел
Begin
Add_4el;
Random_4el: =TimeRandom (ComeMin,ComeMax);
Time_4el: =0;
End;
if Time_Guest=Random_Guest Then // Гостьпришел
Begin
Add_G;
Random_Guest: =TimeRandom (G_ComeMin,G_ComeMax);
Time_Guest: =0;
End;
For I: =1 to Turn_Count Do
Begin
Full_Queue_Len: =Full_Queue_Len+Turnikets [i].Queue_Len;
If Turnikets [i]. Status Then
Begin
Inc (Turnikets [i]. Rabota);
Turnikets [i]. Lab. Caption: ='ТУРНИКЕТ№'+IntToStr (i) +' занят ';
Turnikets [i]. Lab. Caption: =Turnikets [i].Lab. Caption+' '+'Очередь '+IntToStr (Turnikets [i]. Queue_Len-1);
End
Else
Begin
Inc (Turnikets [i]. Prostoy);
Turnikets [i]. Lab. Caption: ='ТУРНИКЕТ№'+IntToStr (i) +' свободен ';
Turnikets [i]. Lab. Caption: =Turnikets [i].Lab. Caption+' '+'Очередь '+IntToStr (Turnikets [i]. Queue_Len);
End;
If Turnikets [i]. Status Then
Begin
Inc (Turnikets [i]. T_Obsl);
If Turnikets [i]. T_Obsl=Turnikets [i]. R_ObslThen // Закончено время обслуживания
Begin
Inc (Turnikets [i]. Zayavki);
Turnikets [i]. T_Obsl: =0;
Inc (Count_Of_F_People);
Dec (Turnikets [i]. Queue_Len);
For J: =1 To Turnikets [i]. Queue_Len Do
Turnikets [i]. Queue [j]: =Turnikets [i]. Queue[j+1] ;
if Turnikets [i]. Queue_Len=0 Then // большеникого нет. Ожидание
Begin
Turnikets [i]. Status: =False;
Turnikets [i]. R_Obsl: =0;
End
Else
Begin
If Turnikets [i]. Queue [1]. Status=0 Then
Begin
Turnikets [i]. R_Obsl: =TimeRandom (ServeMin,ServeMax);
End
Else
Begin
Turnikets [i]. R_Obsl: =TimeRandom (G_ServeMin,G_ServeMax);
End;
End;
End;
End;
Chart1. Series [0]. Add (turnikets [i]. Zayavki,'');
if Edit12. Visible=true then
ProgressBar1. Position: =Time;
End;
If ( (Edit12. Visible=true) and (Time=SetTime))or // КОНЕЦ!!!
(Count_Of_F_People=People_Count) Then
Begin
Timer1. Enabled: =False;
Button2. Enabled: =false;
ToolButton1. Enabled: =false;
ToolButton2. Enabled: =true; // Save
N21. Enabled: =true;
Button3. Enabled: =true;
AverageQueue: =Full_Queue_Len/ (Time*Turn_Count);
Show_Report;
End;
Label_Count_4el. Font. Color: =ClBlue;
Label_Count_4el. Caption: ='Прошло человек'+IntToStr (Count_Of_F_People);
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
Randomize;
Time: =0;
G_Count: =0;
Turn_Count: =0;
Count_Of_F_People: =0;
Max_Queue: =0;
Full_Queue_Len: =0;
AverageQueue: =0;
Time_4el: =0;
Random_4el: =0;
Time_Guest: =0;
Random_Guest: =0;
PageControl1. Pages [1]. TabVisible: =false;
PageControl1. TabIndex: =0;
end;
procedure TForm1. MenuItem4Click (Sender: TObject);
begin
Close;
end;
procedure TForm1. ToolButton3Click (Sender:TObject);
begin
Close;
end;
procedure TForm1. N1Click (Sender: TObject);
begin
Change: =true;
N1. Checked: =true;
N1. Default: =true;
N2. Checked: =false;
N2. Default: =false;
end;
procedure TForm1. N2Click (Sender: TObject);
begin
change: =false;
N2. Checked: =true;
N2. Default: =true;
N1. Checked: =false;
N1. Default: =false;
end;
procedure TForm1. CheckBox1Click (Sender: TObject);
begin
if CheckBox1. Checked=true
then
begin
Edit12. Visible: =true;
ComboBox1. Visible: =true;
end
else
begin
Edit12. Visible: =false;
ComboBox1. Visible: =false;
end;
end;
procedure TForm1. Na4aloExecute (Sender: TObject);
begin
Inc (Eksp);
FormCreate (Button1. NewInstance);
ComeMin: =Zna4_READ (Edit2,1, 20);
ComeMax: =Zna4_Read (Edit3,ComeMin,ComeMin+50);
ServeMin: =Zna4_READ (Edit4,1, 20);
ServeMax: =Zna4_Read (Edit5,ServeMin,ServeMin+50);
G_ComeMin: =Zna4_READ (Edit6,1, 200);
G_ComeMax: =Zna4_Read (Edit7,ComeMin,ComeMin+200);
G_ServeMin: =Zna4_READ (Edit9,1,100);
G_ServeMax: =Zna4_Read (Edit8,ServeMin,ServeMin+100);
Turn_Count: =Zna4_Read (Edit10,1,100);
People_Count: =Zna4_Read (Edit1,10,10000);
Speed: =Zna4_Read (Edit11,1,1000);
Timer1. Interval: =1000 div Speed;
Refresh (Turn_Count);
Random_4el: =TimeRandom (ComeMin,ComeMax);
Random_Guest: =TimeRandom (G_ComeMin,G_ComeMax);
Timer1. Enabled: =True;
change: =true;
if Edit12. Visible=true then
begin
if ComboBox1. ItemIndex=0 then
SetTime: =Zna4_READ (Edit12,10,43200);
if ComboBox1. ItemIndex=1 then
SetTime: =Zna4_READ (Edit12,1,720) *60;
if ComboBox1. ItemIndex=2 then
SetTime: =Zna4_READ (Edit12,1,12) *3600;
end;
ProgressBar1. Position: =0;
if Edit12. Visible=true then
ProgressBar1. Max: =SetTime
else
ProgressBar1. Max: =0;
ToolButton2. Enabled: =false;
Button3. Enabled: =false;
N21. Enabled: =false;
ToolButton1. Enabled: =true;
Button2. Enabled: =true;
end;
procedure TForm1. StopExecute (Sender: TObject);
begin
Timer1. Enabled: =false;
show_report;
ToolButton2. Enabled: =true;
Button3. Enabled: =true;
N21. Enabled: =true;
ToolButton1. Enabled: =false;
Button2. Enabled: =false;
end;
procedure TForm1. MenuItem11Click (Sender: TObject);
begin
Form2. Show;
end;
procedure TForm1. SaveExecute (Sender: TObject);
begin
If SaveDialog1. Execute then
Memo1. Lines. SaveToFile (SaveDialog1. FileName);
end;
procedure TForm1. createExecute (Sender: TObject);
var
i: byte;
begin
if Button2. Enabled=true then
for i: =1 to Turn_Count do
Turnikets [i]. Lab. Free;
// Turnikets [i]. Lab. Caption: ='';
Label17. Caption: ='';
Label_Count_4el. Caption: ='';
Randomize;
Time: =0;
G_Count: =0;
Turn_Count: =0;
Count_Of_F_People: =0;
Max_Queue: =0;
Full_Queue_Len: =0;
AverageQueue: =0;
Time_4el: =0;
Random_4el: =0;
Time_Guest: =0;
Random_Guest: =0;
Refresh (Turn_Count);
Timer1. Enabled: =false;
for i: =1 to Turn_Count do
Turnikets [i]. Lab. Visible: =false;
ProgressBar1. Position: =0;
Chart1. Series [0]. Clear;
end;
procedure TForm1. SpeedButton1Click (Sender:TObject);
begin
PageControl1. Pages [1]. TabVisible: =false;
PageControl1. ActivePage: =PageControl1. Pages[0] ;
end;
procedure TForm1. SettingsExecute (Sender: TObject);
begin
Form3. Show;
end;
procedure TForm1. VisibleSettingsExecute (Sender:TObject);
begin
PageControl1. Pages [1]. TabVisible: =true;
PageControl1. TabIndex: =1;
end;
procedure TForm1. FormShow (Sender: TObject);
begin
s: =GetCurrentDir+'\';
end;
procedure TForm1. HelpExecute (Sender: TObject);
begin
winhelp (Form1. Handle,'справка. hlp',help_context,1);
end;
end.