Смекни!
smekni.com

Расчет и анализ системы обслуживания робототехнического комплекса производства деталей ЭВА (стр. 4 из 5)

В ходе выполнения курсовой работы разработана модель системы обслуживания робототехнического комплекса производства деталей ЭВА.

На данной модели возможно проанализировать эффективность СМО при различных дисциплинах очереди: в порядке поступления заявок (бесприоритетное обслуживание), с относительными, абсолютными и смешанными приоритетами. Эффективность СМО зависит от ожидании обслуживания, которое ведет к возникновению стоимостных потерь, связанных с простоями технических средств.

Следовательно, данная модель поможет подобрать оптимальную дисциплину очереди и параметры входного потока однородных событий.


Список литературы

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]))*