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

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)?

Создать необходимое количество механиков

Начало