Разработка имитационной модели сборочного участника цеха.

');

end;


procedure TForm1.Button2Click(Sender: TObject);
//процедура для имитации скорректированной модели
var i,j,k,m : Integer;
ttime : Integer;
ttime_detail:Integer;
count_detail:Integer;
ttime_one:Integer;
ttime_work:Integer;
ttime_stop:Integer;
count_izdelie:Integer;
begin
DeleteFile(ExtractFilePath(Application.ExeName)+'\resultat_kor.csv');
AssignFile(f,ExtractFilePath(Application.ExeName)+'\resultat_kor.csv');
Rewrite(f);
writeln(f,'N прогона;Количество изделий;Время простоя (мин.);');

//цикл до количества прогонов
for i:=1 to SpinEdit6.Value do
begin
m:=1;
ttime:=0;
count_detail:=0;
ttime_one:=0;
ttime_work:=0;
ttime_stop:=0;
count_izdelie:=0;
//цикл до окончания суток (24 часов, например)
while ttime<=SpinEdit5.Value*60 do
begin
//рассчитаем время поступления партии по экспоненциальному распределению
randomize;
ttime_detail:=round((-1.0)*SpinEdit2.Value*Ln(random)); //время до появления детали;

//проверим закончился или нет процесс предыдущей сборки
if (ttime_one>ttime_detail) then
begin
//если сборка не закончилась, то к общему времени прибавим время предыдущей сборки и увеличим общее время простоя
ttime:=ttime+ttime_one;
ttime_stop:=ttime_stop+ttime_one-ttime_detail;
end
else
ttime:=ttime+ttime_detail; //общее время с начала суток

ttime_one:=ttime_detail;
count_detail:=count_detail+SpinEdit1.Value;
ttime_one:=SpinEdit4.Value;
count_izdelie:=count_izdelie+1;
end;

writeln(f,IntToStr(i)+';'+IntToStr(count_izdelie)+';'+
IntToStr(ttime_stop)+';');

end;//for

CloseFile(f);
ShowMessage('Расчет скоррективанной модели закончен!');
end;

end.
Результаты моделирования
На рис. 2 приведен фрагмент файла с результатами моделирования. В связи с тем, что время поступления партии деталей является случайной величиной время ожидания деталей в очереди также будет случайной величиной. Очередь из партии деталей образуется в том случае, если новая партия деталей поступает раньше, чем закончилась сборка предыдущей партии. Кроме того, сборка предыдущей партии увеличивается на время предварительной обработки половины деталей, что также приводит к увеличению времени ожидания в очереди.


Рис. 2. Фрагмент файла Microsoft Excel с результатами моделирования

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



Рис. 3. Фрагмент файла Microsoft Excel с результатами моделирования скорректированной системы

Выводы
В курсовом проекте разработана программа в среде Borland Delphi 7, позволяющая получить результаты имитационного моделирования сборочного участка цеха. Время поступления партии деталей для сборки является случайной величиной, имеющей экспоненциальное распределение.
Поступление партии обработанных деталей позволит уменьшить время ожидания в очереди деталей и тем самым увеличить количество собранных изделий.
Заключение
Разработанное в курсовом проекте клиентское приложение позволяет получить результаты имитационного моделирования для системы с необработанными деталями и для скорректированной системы, в которой для сборки поступают все обработанные детали.
Анализ полученных результатов имитационного моделирования может помочь при проектировании реальной системы. Для обеспечения наибольшую производительности работы необходимо уменьшить времени ожидания в очередях, для чего необходимо для сборки подавать только предварительно обработанные детали.


Список использованной литературы
Шеннон, Р. Имитационное моделирование систем — искусство и наука: пер с англ. — М: Наука, 1985.— 237 с.
Гмурман, В. Е. Теория вероятностей и математическая статистика: Учеб. пособие для вузов / В. Е. Гмурман. — 9-е изд., стер. — М.: Высш. шк., 2003. — 479 с: ил. - ISBN 5-06-004214-6.
Архангельский, А.Я. Программирование в Delphi 7 / А.Я. Архангельский – Бином-Пресс, 2003. – 1152 с. - ISBN 5-9518-0042-0.
Карпов, Б. Delphi: специальный справочник / Б. Карпов – СПб.: Питер, 2002. – 688 с.: ил. - ISBN 5-272-00353-5.
Фленов, М.Е. Программирование в Delphi глазами хакера. / М.Е. Фленов – СПб.: БХВ-Петербург, 2005. – 368 с.: ил. - ISBN 5-94157-351-0.

















16












Запись результатов в файл

ttime_one:=ttime_work+ время сборки;
count_izdelie:=count_izdelie+1;

ttime_work:=round(int(количество деталей /2))* время предвар.обработки ;

ttime_work:=round(количество деталей /2)*время предвар.обработки count_detail:=count_detail+SpinEdit1.Value;

Нет

Да

count_detail mod 2=0

ttime_one:=ttime_detail;
count_detail:=count_detail+количество деталей
count_detail:=count_detail+SpinEdit1.Value;

Нет

Да

ttime:=ttime+ttime_detail; //общее время с начала суток

ttime:=ttime+ttime_one; ttime_stop:=ttime_stop+ttime_one-ttime_detail;

ttime_one>ttime_detail

Вычисление ttime_detail (времени поступления партии по экспоненц.распредел.)

ttime<=времени моделирования (сутки)

i:=1,500

Ввод параметров моделирования


ttime:=0; count_detail:=0;
ttime_one:=0;ttime_work:=0;
ttime_stop:=0;
count_izdelie:=0;

начало