47644 (Моделирование работы цеха), страница 2

Устройство, способное в любой момент времени обслуживать лишь одно требование, называется каналом обслуживания. В данном случае каналами обслуживания являются устройство подготовки данных и два ЭВМ.

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

а) длина очереди в различные моменты времени;

б) общая продолжительность нахождения требования в системе обслуживания;

в) доля времени, в течении которого обслуживающие приборы были не заняты.

Для получения математической модели СМО необходимо иметь:

а) описание входящего потока требований;

б) описание способа, каким выполняется обслуживание;

в) описание дисциплины очереди, то есть указание того, каким образом требования поступают из очереди на обслуживание.

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

{tn} = { 0 <= t1 <= t2 <= ... <= ti <= ... },

где ti - момент появления i-ого события - неотрицательное действительное число. Однородный поток может быть задан так же последовательностью отрезков времени между i-ым и (i-1)-ым событием {tn}. В данном случае поток заявок, поступающий на обслуживание в систему (поток партий деталей), является однородным и задается описанным способом.

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

Рассмотрим систему массового обслуживания, на которую поступает регулярный поток требований с заданным интервалом.

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

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

Время обслуживания имеет случайный характер.

В практике моделирования систем для формализации используются не отдельные приборы обслуживания, а композиции многих элементарных приборов обслуживания Пi. Если каналы Кi различных приборов обслуживания соединены параллельно, то имеет место многоканальное обслуживание (многоканальная Q-схема), а если приборы Пi и их параллельные композиции соединены последовательно, то имеет место многофазное обслуживание (многофазная Q-схема). Т.о. для задания Q-схемы необходимо использовать оператор сопряжения R, отражающий взаимосвязь элементов структуры (каналов и накопителей) между собой.

В данной курсовой работе представлена многоканальная Q-схема, которая имеет 3 канала (см. Приложение В): состоит из накопителя Н1, и каналов обслуживания. Входными потоками для этой схемы являются поток деталей, каждая из которых поступает через промежутки времени, заданные со средним значением 50 минут, а также до 12% обрабатываемых деталей возвращаются для повторной обработки. Оператор поведения заявок А: деталь поступает в машинный зал из очереди Н0, если нужный канал обслуживания свободен, иначе становится в очередь (Н⁰-накопитель с ожиданием); после обслуживания, если первый станок вторичной обработки занят, то становится в очередь, если в накопителе скапливается более трёх заявок, то подключается второй станок вторичной обработки.

Собственными (внутренними) параметрами Q-схемы будут: количество фаз L_ф; количество каналов в каждой фазе L_kj, j=1,L_ф; ёмкость i-го накопителя L_i. Обозначим как подмножество H совокупность собственных параметров Q-схемы:

H = {L_ф=2, L_k1 = 2, L_k2 = 2, L₁ = , L₂ = ,}

Т.о. Q-схема, описывающая процесс функционирования системы массового обслуживания любой сложности задаётся в виде:

Q = , где

W – подмножество неуправляемых переменных – подмножество входящих потоков заявок на обслуживание;

U – подмножество управляемых переменных – подмножество потоков обслуживания;

R – оператор сопряжения элементов структуры (каналов и накопителей);

H – подмножество собственных параметров (фаз, каналов, накопителей, емкостей);

Z – подмножество состояний элементов структуры (Z_i, Z_i );

A – оператор алгоритмов обслуживания заявок (оператор поведения заявок).

Большими возможностями обладают имитационные модели, позволяющие обследовать Q-схему, задаваемую без ограничений в виде:

Q = ,

где Y - подмножество выходных переменных.

На работу с Q-схемой при машинной реализации моделей ориентированы многие языки имитационного моделирования: SIMULA, SIMSCRIPT, GPSS и др., либо используются пакеты прикладных программ, созданных на базе алгоритмических языков общего назначения ALGOL, FORTRAN, PL/1 и др.

В данной работе рассматривается случай двух каналов, на которые поступают потоки требований с интенсивностью L₁, L₂. Интенсивность обслуживания равна М.

Среднее число требований, находящихся в системе обслуживания,

(1.2.1)

Учитывая, что

(1.2.2)

находим:

, (1.2.3)

где

, (1.2.4)

Можно также найти среднее число заявок К_s проходящих обслуживание. Поскольку число заявок, находящихся на обслуживании, равно нулю, если канал свободен, и единице, во всех остальных случаях, то

(1.2.5)

Разность между К и Кs дает среднюю длину очереди

(1.2.6)

Учитывая, что среднее время обслуживания одной заявки равно 1/М, для среднего времени ожидания обслуживания получаем выражение:

(1.2.7)

Еще одним распространенным общим подходом к формальному описанию процессов функционирования систем является подход, предложенный Н.П. Бусленко. Этот подход позволяет описывать поведение непрерывных и дискретных, детерминированных и стохастических систем, т.е. является обобщенным (универсальным) и базируется на понятии агрегативной системы (от англ. aggregate system), представляющий собой формальную схему общего вида, которую будем называть А-схемой. (А-схема программы данного проекта находится в Приложении Г.)

А-схема должна одновременно выполнять несколько функций:

• являться адекватным математическим описанием объекта моделирования, т.е. системы S;

• служить основой для построения алгоритмов и программ при машинной реализации модели M;

• позволять в упрощенном варианте проводить аналитические исследования.

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

В качестве элементов А-схемы выступает агрегат, а связь между агрегатами (внутри системы S и с внешней средой E) осуществляется с помощью оператора сопряжения R. Очевидно, что агрегат сам может рассматриваться как А-схема, т.е. может разбиваться на элементы (агрегаты) следующего уровня. Любой агрегат характеризуется следующими множествами: моментов времени Т, входных Х и выходных Y сигналов, состояний Z в каждый момент времени t. Состояние агрегата в момент времени обозначается как , а входные и выходные сигналы, как и соответственно.

Будем полагать, что переход агрегата из состояния в состояние происходит за малый интервал времени, т.е. имеет место скачок. Переходы агрегата из состояний в состояние определяются собственными (внутренними) параметрами самого агрегата и входными сигналами .

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

(1.2.8)

Обозначим полуинтервал времени как , а полуинтервал как . Если интервал времени не содержит ни одного момента поступления сигналов, то для состояние агрегата определяется случайным оператором в соответствии с соотношением

(1.2.9)

Совокупность случайных операторов и рассматривается как оператор переходов агрегата в новые состояния. При этом процесс функционирования агрегата состоит из скачков состояний в моменты поступления входных сигналов (оператор ) и изменений состояний между этими моментами и (оператор ).

Последовательность входных сигналов, расположенных порядке их поступления в А-схему, будем называть входным сообщением или x-сообщением. Последовательность выходных сигналов, упорядоченную относительно времени выдачи, назовем выходным сообщением или y-сообщением.

Ряд предположений о закономерностях функционирования А-схем:

1. взаимодействие между А-схемой и внешней средой Е, а также между отдельными агрегатами внутри системы S осуществляется при передаче сигналов, причем взаимные влияния, имеющие место вне механизма обмена сигналами;

2. для описания сигнала достаточно некоторого конечного набора характеристик;

3. элементарные сигналы мгновенно передаются в А-схеме независимо друг от друга по элементарным каналам;

4. к входному контакту любого элемента А-схемы направляются не более чем один элементарный канал, к входному - любое конечное число элементарных каналов при условии, что по входу одного и того же элемента А-схемы направляется не более чем один из упомянутых элементарных каналов.

Взаимодействие А-схемы с внешней средой Е рассматривается как обмен сигналами между внешней средой Е и элементами А-схемы. Внешняя среда – это множество существующих вне системы элементов любой природы, оказывающих влияние на систему или находящихся под ее воздействием в условиях рассматриваемой задачи. В соответствии с этим внешнюю среду Е можно представить в виде фиктивного элемента системы , вход которого содержит входных контактов, а выход - выходных контактов. Сигнал, выдаваемый А-схемой во внешнюю среду Е, принимается элементом как входной сигнал, состоящий из элементарных сигналов

. (1.2.10)

Сигнал, поступающий в А-схему из внешней среды Е, является выходным сигналом элемента и состоит из элементарных сигналов

(1.2.11)

Таким образом, каждый (в том числе и ), как элемент А-схемы в рамках принятых предположений о механизме обмена сигналами достаточно охарактеризовать множеством входных контактов

, (1.2.12)

которое обозначим , и множеством выходных контактов

, (1.2.13)

где .

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

Если в А-схеме к контакту не подключен никакой элементарный канал, то оператор не определен на этом контакте.

Оператор называется оператором сопряжения элементов (агрегатов) в А-схему. Совокупность множеств

, и оператор образуют схему сопряжения элементов в систему S.

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

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

Рассмотренная схема сопряжения в А-схему, заданная совокупностью множеств и оператором R, является одноуровневой схемой сопряжения.

Обобщенный подход к моделированию сложных систем базируется на агрегативных системах - А-схемах.

Элементом А-схемы является агрегат. Агрегат задается упорядоченной совокупностью:

т.е. множествами:

- моментов времени;

- входных сигналов;

- выходных сигналов;

- собственных параметров;

и операторами:

и - перехода агрегата в новое состояние;

- скачков состояний;

- выдачи выходного сигнала.

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

Каждый агрегат , где А-схемы имеет входные контакты, на которые поступают сигналы , и выходные контакты, с которых снимаются сигналы , . Под агрегатом подразумевается воздействие внешней среды.

2. ОПИСАHИЕ ПРОГРАММЫ.

2.1. Общие сведения и функциональное назначение.

Программа "Моделирование работы цеха" необходима для удобного и наглядного моделирования процесса обработки деталей в цехе. Время моделирования зависит от времени поступления 500 заявок (таково условие завершения работы).

Особенности функционирования систем массового обслуживания были подробно рассмотрены в п.1.2.

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

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

- разделение некоторой общей проблемы на несколько меньших по объему и сложности частей;

- уменьшение объема программы за счет программирования многократно применяемых программных действий в виде отдельной процедуры или функции;

- облегчение чтения текста программы;

- облегчение работы с программой, ввиду ее наглядности;

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

Благодаря операторам, процедурам и функциям языка возможно написание ряда сложных и разнообразных по структуре, применению и выполняемым функциям программ.

2.2. Описание логической структуры.

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

• procedure TForm1.FormCreate - осуществляет инициализацию моделируемой системы, т.е. происходит инициализация всех переменных;

• procedure TForm1.Timer2Timer - генерирует в произвольные (распределённые по экспоненциальному закону) моменты времени поступление новых деталей (заявок);

• procedure TForm1.Timer1Timer - основная процедура программы – моделирует обработку деталей на станках и обеспечивает в определённые моменты времени вызов процедур перевода деталей из накопителя в станок и наоборот;

• procedure TForm1.N3Click - приостанавливает моделирование;

• procedure TForm1.N11Click - обнуление всех переменных и всех значений (количество всех деталей, бракованных и т.д.);

• procedure TForm1.N10Click - выводит на экран форму "Параметры", в которой можно изменять различные системные значения (максимально возможное количество брака, время обработки деталей на каждом станке и т.д.);

• procedure TForm1.Q1Click - выводит на экран форму с Q-схемой;

• procedure TForm1.N5Click -выводит на экран форму с А-схемой;

• procedure TForm1.N7Click -показывает на экране задание курсового проекта;

• procedure TForm1.N8Click - выводит на экран форму со справкой о программе;

• procedure TForm4.FormClose - используется для инициализации всех изменений на форме "Параметры";

• procedure TForm1.N9Click - выход из программы.

Процедуры и функции пользователя:

• function where_go - определяется куда пойдёт деталь после обработки на станках первичной обработки – в накопитель Н¹ или вернётся назад в накопитель Н⁰ если брак);

• procedure prov_nak - процедура проверки наличия деталей в накопителях;

• procedure add_new - процедура создания и инициализации новой детали (заявки);

• procedure run - переводит детали (заявки) из станков (приборов) в накопители и наоборот.

Рассмотрим более подробно основной цикл программы. В этом цикле осуществляются следующие действия:

а) Если очередной момент времени равен моменту поступления детали в накопитель Н⁰, то в накопитель Н⁰ добавляется 1 деталь. Затем вычисляется случайным образом и запоминается время поступления следующей детали.

б) Если очередь не пуста и станок №1 или станок №2 свободен, то уменьшается счетчик очереди и вычисляется время обработки детали. В это время станок находится в состоянии занят.

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

г) Если деталь поступила в накопитель Н¹, то увеличивается счётчик элементов очереди.

д) Если станок №1 повторной обработки свободен, то деталь поступает на свободный станок, а счетчик элементов очереди уменьшается на 1. Иначе если в очереди больше трёх деталей, то подключается ещё один станок. Если же оба станка заняты, то ожидается освобождение одного из них.

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

2.3. Используемые технические средства, вызов и загрузка.

Для успешной работы с представленной программой "Моделирование работы цеха" необходим персональный компьютер на базе микропроцессора Intel 80586 и выше, VGA совместимая видеокарта, накопитель на жестком или гибком магнитном диске. Требования к операционной системе ограничены требованиями компилятора языка Delphi версии 6.0, то есть Windows 98 и выше.

Исходный текст программы находится в файлах под именами Progr1.pas, Progr2.pas, Progr3.pas, Progr4.pas, которые занимают соответственно 10 938, 622, 788, 2 383 байт, а исполняемый модуль под именем Kurs_project.exe – 1 067 088 байт.

Для запуска программы необходимо загрузить Windows и запустить указанный исполняемый файл Kurs_project.exe.

2.4. Входные и выходные данные.

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

К выходным данным следует отнести информацию, выводимую в процессе функционирования процесса моделирования:

- общее количество заявок;

- количество заявок, возвращённых на повторную обработку(первичный брак);

- количество деталей, которые попали в разряд бракованных дважды.

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

2.5. Контрольный пример.

Для времени моделирования, равному поступлению 500 заявок, состояние системы (все параметры – по умолчанию):

- общее количество заявок – 500;

- количество деталей, возвращённых на повторную обработку – 31;

- количество бракованных деталей – 3.

2.6. Инструкция пользователю.

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

Данная программа представляет собой модель процесса обработки 500 деталей в цехе с использованием четырех станков, два из которых ведут первичную обработку деталей, остальные два – вторичную.

Программа запускается с помощью вызова исполняемого файла Kurs_project.exe в операционной системе Windows 98 или выше. На экране появится окно с изображением модели цеха.

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

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

В меню Схемы находятся команды, позволяющие выводить на экран соответственно Q-схему и A-схему программы.

3. ТЕКСТ ПРОГРАММЫ.

3.1. Модуль 1.

unit Progr1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls, Spin, Menus;

type

TForm1 = class(TForm)

P1_4: TPanel;

P2_4: TPanel;

P2_3: TPanel;

P1_3: TPanel;

P1_1: TPanel;

pb1: TProgressBar;

pb2: TProgressBar;

Panel8: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

pb3: TProgressBar;

Panel14: TPanel;

pb4: TProgressBar;

Panel15: TPanel;

Panel16: TPanel;

Panel17: TPanel;

Panel18: TPanel;

Memo2: TMemo;

Memo3: TMemo;

Memo4: TMemo;

Memo5: TMemo;

Timer1: TTimer;

pb_start: TProgressBar;

Timer2: TTimer;

P1_2: TPanel;

P2_1: TPanel;

P2_2: TPanel;

Panel5: TPanel;

Panel21: TPanel;

Panel24: TPanel;

Panel25: TPanel;

Panel26: TPanel;

Panel27: TPanel;

Panel28: TPanel;

Panel31: TPanel;

Label1: TLabel;

Label3: TLabel;

Label2: TLabel;

Label4: TLabel;

p1: TPanel;

p2: TPanel;

Panel34: TPanel;

Panel35: TPanel;

Panel36: TPanel;

Panel38: TPanel;

Panel40: TPanel;

Panel41: TPanel;

Panel42: TPanel;

Panel44: TPanel;

Panel45: TPanel;

Panel12: TPanel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

indicator1: TProgressBar;

indicator2: TProgressBar;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Q1: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Bevel1: TBevel;

Panel1: TPanel;

procedure Timer2Timer(Sender: TObject);

procedure add_new(ad:byte);

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure Q1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

var

Form1: TForm1;

t1,t2:byte;

ustanov,zapusk,ripit,

zanyat1,zanyat2,zanyat3,zanyat4:boolean;

have1,have2,have_povtor:boolean;

TotalTime,TotalMessages,

LostMessages,RepeatMessages:longint;

brak1,brak2,time1,time2,time3,time4,zadergka:byte;

implementation

uses Progr2, progr3, Progr4;

{$R *.DFM}

function where_go(w:byte):boolean;

var x:integer;

begin if (w=1)then begin

x:=trunc(random(100));

if (x>brak1)and(RepeatMessages<(5*(brak1+brak2))) then where_go:=true;end;

if (w=2)then begin

x:=trunc(random(100));if (x>brak2)and(RepeatMessages<(5*(brak1+brak2))) then where_go:=true;end;

end;

procedure prov_nak; {процедура проверки пустоты накопителей}

begin

have1:=false;have2:=false;have_povtor:=FALSE;

if strtoint(form1.label6.caption)>=1 then have1:=true;

if strtoint(form1.label8.caption)>=1 then have2:=true;

if strtoint(form1.label10.caption)>=1 then have_povtor:=true;

end;

procedure Tform1.add_new(ad:byte);

begin

if ad=1 then begin

label6.caption:=inttostr(strtoint(label6.caption)+1);

indicator1.Position:=strtoint(label6.caption)*10;

end

else begin

label8.Caption:=inttostr(strtoint(label8.Caption)+1);

indicator2.Position:=strtoint(label8.Caption)+2;

end;

end;

procedure run;

{переводит заявки из приборов в накопители и наоборот}

begin

if have1 then

if not(zanyat1) then

begin

form1.pb1.Max:=time1+round(random(80));{время обработки задания}

form1.pb1.Position:=2;

form1.label6.Caption:=inttostr(strtoint(form1.label6.Caption)-1);

form1.indicator1.Position:=strtoint(form1.label6.Caption)*10;

zanyat1:=true;prov_nak;end;

if have_povtor then if not(zanyat2) then

begin form1.pb2.Max:=time2+round(random(80));

form1.pb2.Position:=2; form1.label10.Caption:=inttostr(strtoint(form1.label10.Caption)-1);

zanyat2:=true;ripit:=true;prov_nak;end;

if have1 then

if not(zanyat2) then

begin

form1.pb2.Max:=time2+round(random(80)); form1.pb2.Position:=2;

form1.label6.Caption:=inttostr(strtoint(form1.label6.Caption)-1);

form1.indicator1.Position:=strtoint(form1.label6.Caption)*10;

zanyat2:=true;

prov_nak; end;

if (have2) and(not(zanyat3)) then

begin

form1.pb3.Max:=time3+round(random(80)); form1.pb3.Position:=2;

form1.label8.Caption:=inttostr(strtoint(form1.label8.Caption)-1);

form1.indicator2.Position:=form1.indicator2.Position-2;

zanyat3:=true;prov_nak;end;

if (strtoint(form1.label8.caption)>3) and( not(zanyat4)) then

begin

form1.pb4.Max:=time4+round(random(80)); form1.pb4.Position:=2;

form1.label8.Caption:=inttostr(strtoint(form1.label8.Caption)-1);

form1.indicator2.Position:=form1.indicator2.Position-2;

zanyat4:=true;

prov_nak;

end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

var t:real;

i:integer;

begin

if (zapusk)and(TotalMessages<500) then

begin

if not(ustanov)then

begin

t1:=5+trunc(random(10));

ustanov:=true;

zapusk:=ustanov;

t2:=0;

end

else

if t2=t1 then

begin

t:=0;

for i:=1 to 1000 do

begin

pb_start.Position:=(pb_start.Position+trunc(t));

t:=t+0.01;

end;

add_new(1);

inc(TotalMessages);{количество всех сообщений пришедших в систему}

pb_start.Position:=0;

t2:=0;

ustanov:=false;

end

else inc(t2);

prov_nak;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;

label1.Caption:='Ждёт';label2.Caption:='Ждёт';

label3.Caption:='Ждёт';label4.Caption:='Ждёт';

zanyat1:=false;zanyat2:=false;zanyat3:=false;

zanyat4:=false;

brak1:=4;brak2:=8;time1:=40;time2:=60;

time3:=100;time4:=100;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if zapusk then begin

if pb1.Position=pb1.max then begin

pb1.Position:=0;zanyat1:=false;

label1.Caption:='Ждёт';

if where_go(1)then add_new(2)

else

if RepeatMessages<((brak1+brak2)*5) then

begin

label10.Caption:=inttostr(strtoint(label10.Caption)+1);

inc(RepeatMessages);

end

else add_new(2);

end;

if pb2.Position=pb2.max then

begin

pb2.Position:=0;zanyat2:=false;label2.Caption:='Ждёт';

if where_go(2)then add_new(2)

else

if (ripit)and(LostMessages

begin

p1.Color:=clred;p2.Color:=clred;

p1.Color:=$00400040;p2.Color:=$00400040;

ripit:=false;

inc(LostMessages);

end

else

if RepeatMessages<((brak1+brak2)*5) then

begin

label10.Caption:=inttostr(strtoint(label10.Caption)+1);

inc(RepeatMessages);

end

else add_new(2);

end;

if pb3.Position=pb3.max then

begin pb3.Position:=0;zanyat3:=false;label3.Caption:='Ждёт';end;

if pb4.Position=pb4.max then

begin pb4.Position:=0;zanyat4:=false;label4.Caption:='Ждёт';end;

if pb1.Position>0 then

begin pb1.Position:=pb1.Position+7;label1.Caption:='Выполняет';end;

if pb2.Position>0 then

begin pb2.Position:=pb2.Position+7;label2.Caption:='Выполняет';end;

if pb3.Position>0 then

begin pb3.Position:=pb3.Position+7;label3.Caption:='Выполняет';end;

if pb4.Position>0 then

begin pb4.Position:=pb4.Position+7;label4.Caption:='Выполняет';end;

run;

label12.Caption:=inttostr(TotalMessages);

label14.Caption:=inttostr(RepeatMessages);

label16.Caption:=inttostr(LostMessages);

end;

label17.Caption:=timetostr(time);

end;

procedure TForm1.N2Click(Sender: TObject);

begin

zapusk:=true;

n2.enabled:=false;

n3.enabled:=true;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

zapusk:=false;

n2.enabled:=true;

n3.enabled:=false;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

n2.Enabled:=true;

TotalMessages:=0;

LostMessages:=0;

RepeatMessages:=0;

label6.Caption:='0';

label8.Caption:='0';

label10.Caption:='0';

indicator1.Position:=0;

indicator2.Position:=0;

pb1.Position:=0;pb2.Position:=0;

pb3.Position:=0;pb4.Position:=0;

have1:=false;have2:=false;ripit:=false;

zanyat1:=false;zanyat2:=false;

zanyat3:=false;zanyat4:=false;

TotalTime:=0;TotalMessages:=0;

randomize;

end;

procedure TForm1.N9Click(Sender: TObject);

var c:integer;

begin

c:=application.MessageBox(pchar('Вы уверены в том что хотите завершить работу ???'),pchar('Предупреждение'),4);

if c=6 then halt;

end;

procedure TForm1.Q1Click(Sender: TObject);

begin

form2.PageControl1.ActivePage:=form2.PageControl1.Pages[0] ;

form2.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form2.PageControl1.ActivePage:=form2.PageControl1.Pages[1] ;

form2.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form3.PageControl1.ActivePage:=form3.PageControl1.Pages[0];

form3.showmodal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form3.PageControl1.ActivePage:=form3.PageControl1.Pages[1];

form3.showmodal;

end;

end.

3.2. Модуль 2.

unit Progr2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls, ComCtrls;

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Image1: TImage;

Image2: TImage;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

public

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);

begin

form2.Close;

end;

end.

3.3. Модуль 3.

unit Progr3;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;

type

TForm3 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Memo1: TMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

public

end;

var Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.Button1Click(Sender: TObject);

begin form3.Close;

end;

end.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ.

1. Курс лекций по дисциплине "Основы теории систем и системного анализа" /Преподаватель – В.О.Костин/: ХГТУ: сентябрь – декабрь 2004 г.

2. Костін В.О. Методичні вказівки до виконання курсового проекту з дисципліни "Основи системного аналізу об’єктів і процесів комп’ютеризації". – Херсон: ХДТУ, 2004. – 26 с.

3. Костин В.О., Ходаков В.Е. Учебный терминологический русско-украинско-английский словарь. – Херсон: ХГТУ, 2002.

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

5. Советов В.Я., Яковлев С.А. Моделирование систем: Курсовое проектирование. - М.:Высшая школа, 1988.

6. Советов В.Я., Яковлев С.А. Моделирование систем: Лабораторный практикум. - М.:Высшая школа, 1988.

7. Ивахненко А. Г., Лапа В.Г. Предсказание случайных процессов. К.: "Наукова думка", 1971.

8. Мамиконов А.Г. Основы построения АСУ: Учебник для вузов. – М.: Высш. школа, 1981.

9. Рубенкинг Нейл Дж. Программирование в Delphi для "чайников". 2-е издание — К.: "Диалектика", 1996. — 368с.

Приложение А.

Экранная форма программы.

Приложение Б.

Блок-схема программы.

Да

Нет

Да

Да

Нет

Заявка помещается в К₁ или К₂

Заявка помещается во
2-ю очередь Н₁

Освобождение отработавших каналов, обслуженные заявки покидают систему

Да

Заполнить каналы, если есть детали в соответствующих очередях в Н₁

Нет

Рисунок Б.1.

Приложение В.

Q-схема программы.

Рисунок В.1.

Приложение Г.

А-схема программы.