В ходе выполнения курсовой работы разработана модель системы обслуживания робототехнического комплекса производства деталей ЭВА.
На данной модели возможно проанализировать эффективность СМО при различных дисциплинах очереди: в порядке поступления заявок (бесприоритетное обслуживание), с относительными, абсолютными и смешанными приоритетами. Эффективность СМО зависит от ожидании обслуживания, которое ведет к возникновению стоимостных потерь, связанных с простоями технических средств.
Следовательно, данная модель поможет подобрать оптимальную дисциплину очереди и параметры входного потока однородных событий.
1 Черняев В.Н. Технология производства интегральных микросхем и микропроцессоров: учебник для вузов -2-е изд.-М.Радио и связь, 1987.-464с.,ил.
2 Нишельский АЯ. Технология спецматериалов электронной техники. М. "Металлургия", 1993. 368с., ил.
3 Ушаков НЛ. Технология производства ЭВМ: учебник для вузов, М.Высшая школа, 1987 г.
4 Вейцман Э.В., Венбрин В.Д. Технологическая подготовка производства радиоэлектронной аппаратуры. - М. Радио и связь, 1989.
5 Готра З.Ю. Технология микроэлектронных устройств: Справочник.- М.: Радио и связь, 1991.-528с.:ИЛ.
6 Мокеев О.К Романов А.С. Химическая обработка и фотолитография в производстве полупроводниковых приборов и микросхем.2-е изд.-М.Высшая школа,1985.-312с.
7 Корячко В.П., Курейчик В.М., Норенков И.П. Теоретические основы САПР. Москва, Энергоиздат, 1987г
8 Курейчик В.М. Математическое обеспечение конструкторского и технологического проектирования с применением САПР. Москва, Радио и связь, 1990 г
9 А.П.Гордиенко Разработка графического пользовательского интерфейса методами чисто функционального программирования. //Материалы научной конференции. Пользовательский интерфейс в современных компьютерных системах. – Орел: ОрелГТУ. 1999. – С. 98-103
Приложение
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
GroupBox1: TGroupBox;
Button1: TButton;
GroupBox2: TGroupBox;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
l, c, b, p, R, svo2,svo3,B4,t,N,T4,X,svo4: array [1..4] of real;
constS, ls1, svp1,b21,svo1, Vrem1, sp1, Vrem2,ssvo2,sp2,Vrem3:real;
ssvo3,sp3,q,sum,ssvo4,sp4 :real;
i: integer;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
{Включение кнопок}
Button2.Enabled:=true;
Button3.Enabled:=true;
Button4.Enabled:=true;
Button5.Enabled:=true;
N12.Enabled:=true;
N13.Enabled:=true;
N14.Enabled:=true;
N15.Enabled:=true;
N16.Enabled:=true;
N17.Enabled:=true;
N18.Enabled:=true;
N19.Enabled:=true;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ls1:=0;
Vrem3:=0;
ssvo3:=0;
svp1:=0;
b21:=0;
sp3:=0;
For i:=1 to 4 do
begin
ls1:=ls1+l[i];
b[i]:=constS/l[i];
p[i]:=l[i]*b[i]*b[i];
end;
For i:=1 to 4 do
begin
Vrem3:= Vrem3+l[i]*l[i]*l[i]/constS*constS;
if i=1 then R[i]:=p[i] else R[i]:=R[i-1]+p[i];
if i=1 then svo3[i]:= Vrem3/2*(1-R[i])
else svo3[i]:= Vrem3/2*(1-R[i-1])*(1-R[i]);
svp1:= svp1+l[i]*c[i]/ls1;
b21:=b21+l[i]*l[i]*l[i]/(ls1*constS*constS);
end;
For i:=1 to 4 do sp3:=sp3+l[i]*c[i]*svo3[i];
Form7.ShowModal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ls1:=0;
svp1:=0;
b21:=0;
Vrem1:=0;
svo1:=0;
sp1:=0;
For i:=1 to 4 do ls1:=ls1+l[i];
For i:=1 to 4 do
begin
svp1:= svp1+l[i]*c[i]/ls1;
b21:=b21+l[i]*l[i]*l[i]/(ls1*constS*constS);
Vrem1:=Vrem1+l[i]*l[i]/constS;
end;
For i:=1 to 4 do svo1:= ls1*b21/(2*(1-Vrem1));
sp1:= ls1*svp1*svo1;
Form3.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form2.ShowModal;
{Включение кнопок}
Button2.Enabled:=true;
Button3.Enabled:=true;
Button4.Enabled:=true;
Button5.Enabled:=true;
N12.Enabled:=true;
N13.Enabled:=true;
N14.Enabled:=true;
N15.Enabled:=true;
N16.Enabled:=true;
N17.Enabled:=true;
N18.Enabled:=true;
N19.Enabled:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ls1:=0;
Vrem2:=0;
ssvo2:=0;
svp1:=0;
b21:=0;
sp2:=0;
For i:=1 to 4 do
begin
ls1:=ls1+l[i];
b[i]:=constS/l[i];
p[i]:=l[i]*b[i]*b[i];
Vrem2:= Vrem2+l[i]*l[i]*l[i]/constS*constS;
end;
For i:=1 to 4 do
begin
if i=1 then R[i]:=p[i] else R[i]:=R[i-1]+p[i];
if i=1 then svo2[i]:= Vrem2/2*(1-R[i])
else svo2[i]:= Vrem2/2*(1-R[i-1])*(1-R[i]);
svp1:= svp1+l[i]*c[i]/ls1;
b21:=b21+l[i]*l[i]*l[i]/(ls1*constS*constS);
end;
For i:=1 to 4 do sp2:=sp2+l[i]*c[i]*svo2[i];
Form6.ShowModal;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
B4[1]:=0;
B4[2]:=0;
B4[3]:=0;
B4[4]:=0;
sum:=0;
ssvo4:=0;
ls1:=0;
Vrem3:=0;
svp1:=0;
For i:=1 to 4 do
begin
b[i]:=constS/l[i];
t[i]:=b[i]/2;
p[i]:=l[i]*b[i]*b[i];
if i=1 then R[i]:=p[i] else R[i]:=R[i-1]+p[i];
end;
For i:=1 to 4 do B4[1]:=B4[1]+p[i]*t[i]*t[i]/(2*b[i]);
For i:=2 to 4 do B4[2]:=B4[2]+(p[1]*p[i]/(1-R[1]))*