Моделирование многостаночного обслуживания

Курсовая работа по имитационному моделированию

dfm}procedure TForm1.StartClick(Sender: TObject);vari,j: integer;beginIf Start.Caption='Start' thenbeginfor i:=0 to 3 dofor j:=0 to 4 do timeStopStan[i,j]:=0; //обнуляемзначениявременипростояfor i:=0 to 3 dofor j:=0 to 4 do stanok_mas[i,j]:=1; //всестанкидоступныиработаютfor i:=0 to 3 dofor j:=0 to 4 do AlltimeStopStanok[i,j]:=0; //обнуляемзначениявременипростояfor i:=0 to 3 do ResultGrid.Rows[i].Clear;ResultGrid.Visible:=false;time_exp:=0; //началосменывсекxTkach:=0;yTkach:=0;tkachfree:=true;targetx:=0;targety:=0; Timer1.Enabled:=true;Start.Caption:='Stop'; Label6.Visible:=false; Label7.Visible:=false;endelsebegin Timer1.Enabled:=false; Label6.Visible:=true; Label7.Caption:='Времясмены: '+IntToStr(time_exp)+' c'; Label7.Visible:=true;Start.Caption:='Start';ResultGrid.Visible:=true;for i:=0 to 3 dofor j:=0 to 4 dobegin if timestopStan[i,j]<>0 then AlltimeStopStanok[i,j]:=AlltimeStopStanok[i,j]+(time_exp-timestopStan[i,j]);ResultGrid.Cells[j,i]:=IntToStr(Round((AlltimeStopStanok[i,j]*100)/time_exp));end;end;end;procedure TForm1.Timer1Timer(Sender: TObject);vari,j:integer;t: integer;beginrandomize;inc(time_exp);i:=random(4);j:=random(5);ifstanok_mas[i,j]=1 thenbeginiftimeStopStan[i,j]=0 thenbeginifexp((StrToFloat(ELyamda.Text)*(-1)*time_exp))<0.1 thenbeginstanok_mas[i,j]:=0;timeStopStan[i,j]:=time_exp;end;endelsebegin if exp((StrToFloat(ELyamda.Text)*(-1)*(time_exp-timestopStan[i,j])))<0.1 then stanok_mas[i,j]:=0;end;end;iftkachfree thenfor i:=0 to 3 dofor j:=0 to 4 dobeginiftimeStopStan[i,j]<>0 thenbegintargetx:=i;targety:=j;tkachfree:=false;ifyTkach=targety thenbeginifxTkach>targetx then S:=(xTkach-targetx)*5else S:=(targetx-xTkach)*5;endelsebeginifyTkach>targety then S:=(xTkach+targetx)*5+(yTkach-targety)*5else S:=(xTkach+targetx)*5+(targety-yTkach)*5;end;tzamnit:=StrToInt(ETao.Text)+Random(StrToInt(EOtklon_tao.Text));tt:=0;if not(tkachfree) then break;end;if not(tkachfree) then break;endelsebeginif S>0 then S:=S-StrToInt(EVtkach.Text)elsebeginiftt<>tzamnit then inc(tt)elsebeginAlltimeStopStanok[targetx,targety]:=AlltimeStopStanok[targetx,targety]+(time_exp-timestopStan[targetx,targety]);xTkach:=targetx;yTkach:=targety;timeStopStan[targetx,targety]:=0;stanok_mas[targetx,targety]:=1;tkachfree:=true;end;end;end;end;end.Глава 5: Анализ полученных результатов.В результате работы описанной ранее программы, имитирующей работу ткачихи по обслуживанию многостаночного оборудования получаем результаты, показывающие процентное соотношение времени простоя за период смены.Пример результата работы программы приведен на рис. 4.Рис. 4. Результат работы программы.В результате анализа полученных результатов, можно сделать вывод, что время простоя станков напрямую зависит от скорости передвижения ткачихи и времени, необходимое на связывание нити. Полученные результаты позволяют предположить, что для уменьшения времени простоя станков необходимо либо снизить количество обслуживаемых одной ткачихой станков, либо изменить алгоритм прохода ткачихи между станками. Также возможна оптимизация алгоритма работы программы, при котором ткачиха будет идти к ближайшему к ней остановившемуся станку, но это может повлечь за собой увеличение времени простоя самого дальнего от текущего положения ткачихи станка.ЗаключениеВ результате курсовой работы произведена программная реализация моделирования многостаночного оборудования. Данная программная реализация может быть использована при моделировании работы ткацкого цеха для возможной оптимизации работы ткачихи, а также возможного снижения нагрузки на одну ткачиху.