Разработка имитационной модели фабричных кладовых.

Содержание

Содержание
Введение
Постановка задачи.
Алгоритм программы
Инструкция к программе.
Исходный код программы
Результаты моделирования
Выводы
Заключение
Список литературы

TrySetOnExecute;
var t:real;
begin
if FFreeStockman > 0 then // Если есть свободные кладовщики
begin
t:= self.FModelTime - ln(Random)*FStockmanBusyTime;
// Получить время окончания обработки
if FStockManFreeTime <= FModelTime then
begin
// Установить время освобождения кладовщика
FStockManFreeTime := t;
end
else
if FStockManFreeTime > t then
begin
FStockManFreeTime := t;
end;
if FCurrentMechanic <= High (FMechanics) then
with FMechanics[FCurrentMechanic] do
begin
NextEventTime := t;
Status := msOnExec;
// Поменять статус
Dec(FFreeStockman);
// Уменьшить количество свободных кладовщиков
end;
end
else
SetOnWait; // Если нет свободных - ждать
end;
procedure TfrmMain.btnFileClick(Sender: TObject);
var Pantry:TPantry;
f:TextFile;
i:integer;
begin
Pantry := TPantry.Create; // Создаём модель
Pantry.FEndTime := 24*60;
// заполняем параметры
Pantry.FMaxFreeStockman := StrToIntDef( edtStockManCount.Text,0);
Pantry.FAppearMechanicsM :=60/StrToIntDef( edtArrival.Text,1);
Pantry.FStockmanBusyTime := StrToIntDef(edtBusy.Text,0);

AssignFile(f,'result.csv');
Rewrite(f);
Writeln(f,'Среднее время пребывания; Среднее число механиков в кладовой; Загрузка кладовой');
// Записываем заголовок в файл
for I := 0 to 499 do
begin
Pantry.Run;
write(f,Pantry.GetAverageWaitTime,';');
write(f,Pantry.GetAverageCount,';');
writeln(f,Pantry.GetP,';');
end;
// Проводим 500 сеансов моделирования и записываем их в файл
CloseFile(f);
Pantry.Free;
end;
procedure TfrmMain.btnModelingClick(Sender: TObject);
var Pantry:TPantry;
begin
Pantry := TPantry.Create; // Создаём модель
Pantry.FEndTime := 24*60;
// заполняем параметры
Pantry.FMaxFreeStockman := StrToIntDef( edtStockManCount.Text,0);
Pantry.FAppearMechanicsM :=60/StrToIntDef( edtArrival.Text,1);
Pantry.FStockmanBusyTime := StrToIntDef(edtBusy.Text,0);
Pantry.Run;
edtWaitTime.Caption := FloatToStr(Pantry.GetAverageWaitTime);
edtCount.Caption := FloatToStr(Pantry.GetAverageCount);
edtP.Caption := FloatToStr (Pantry.GetP);
Pantry.Free;
end;
begin
Randomize;
end.
Результаты моделирования
(Время моделирования – 8 часов, среднее за 500 прогонов)
Вариант Время пребывания Среднее число механиков в кладовой/кладовых Предлагаемый 4,43 2,94 Текущий 5,91 3,96
Выводы
Из результатов моделирования понятно, что предлагаемый вариант выгоднее так как в предлагаемом варианте меньше время пребывания и число механиков в кладовой.
Заключение
В данном курсовом проекте была создана программа, реализующая имитационную модель фабричных кладовых, и проведено исследование зависимости её характеристик от параметров, и принято решение о лучших параметрах системы. Имитационное моделирование — удобный способ решить задачу исследования поведения системы в случае, если провести эксперименты на реальной модели затруднительно, дорого или вовсе невозможно.
Список литературы
1.     Шенном Р. Имитационное моделирование систем — искусство и наука; пер с англ. — Москва: Наука, 1985.— 237 с.
2.    Цифровая имитация автоматизированных систем — Москва: Институт проблем передач информации АН СССР, 1983.— 139 с.
3.    Хомоненко А. Гофман В. Мещеряков Е. Никифоров В. Delphi 7 — Санкт-Петербург: БХВ-Санкт-Петербург, 2006.— 1216 с.
Передвинуть модельное время до времени смены статуса механика.
Изменить статус.
Изменить его время смены статуса в соответствии с новым статусом.
Да
У следующего механика время смены статуса меньше?
Поменять местами текущего и следующего механика
Перейти к следующему
Нет
Да
Да
Выбрать первого необслуженного механика
Нет
Да
Обработать результаты
Конец
Модельное время больше времени окончания моделирования (ModelTime > EndTime)?
Создать необходимое количество механиков
Начало