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

	Информационно-образоательный портал
	Рефераты, курсовые, дипломы, научные работы,



МЕНЮ\|

поиск

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

Заключение

При разработке технологических процессов и выборе их рациональных режимов необходимо иметь возможность анализа СМО, при изменяемых начальных условиях работы системы. В большинстве случаев исследование технологии методом натурального эксперимента неприемлемо по затратам и из-за необходимости вмешательства в производственный цикл. Поэтому широко используется имитационный подход, основанный на статистическом моделировании с применением ЭВМ. Сущность этого подхода состоит в построении для исследуемого процесса моделирующего алгоритма, который позволит имитировать функционирование элементов технологического процесса и взаимодействие между ними с учетом статистических характеристик входного потока и канала обслуживания СМО. Имитационное моделирование позволяет программно изменять значения параметров и начальные условия при автоматизированном исследовании схемы. Для моделирования входных потоков и каналов, а также механизма обслуживания используется алгоритмы генерирования случайных последовательностей.

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

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

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

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

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

((t[i]*t[i]-t[1]*t[1])/(2*b[i]));

For i:=3 to 4 do

begin

if i=3 then B4[3]:=(p[1]*p[i]/(1-R[1]))*

Продолжение приложения А

((t[i]*t[i]-t[1]*t[1])/(2*b[i]))

else

begin

B4[3]:=(p[1]*p[i]/(1-R[1]))*

((t[i]*t[i]-t[1]*t[1])/(2*b[i]));

q:=B4[3]/(1-R[2]);

B4[3]:=B4[3]+B4[3]/(1-R[2]);

end;

B4[4]:=(p[1]*p[4]/(1-R[1]))*

((t[4]*t[4]-t[1]*t[1])/(2*b[4]));

B4[4]:=B4[4]+q;

B4[4]:=B4[4]+(p[1]*p[3]/(1-R[3]))*

((t[4]*t[4]-t[3]*t[3])/(2*b[4]))/(1-R[4]);

For i:=1 to 4 do N[i]:=R[i]*(t[i+1]-t[i])/(1-R[i]);

T4[1]:=N[1];

For i:=2 to 4 do T4[i]:=T4[i-1]+N[i];

For i:=1 to 4 do sum:=sum+p[i]*t[i]*t[i]/(2*b[i]);

{--------------------------------------------3расч}

For i:=1 to 4 do

begin

ls1:=ls1+l[i];

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

end;

{--------------------------------------------}

{расчет СВО}

X[1]:=svo3[1]*p[1];

For i:=2 to 4 do X[i]:=X[i-1]+svo3[i]*p[i];

For i:=1 to 4 do

begin

svo4[i]:=X[i]*sum*B4[i]*T4[i];

Продолжение приложения А

sp4:=sp4+svo4[i];

end;

Form8.ShowModal;

end;

end.

unit Unit2;

interface

uses

Unit1, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Edit9: TEdit;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

c[1]:=StrToFloat(Edit1.Text);

c[2]:=StrToFloat(Edit2.Text);

c[3]:=StrToFloat(Edit3.Text);

c[4]:=StrToFloat(Edit4.Text);

l[1]:=StrToFloat(Edit5.Text);

l[2]:=StrToFloat(Edit6.Text);

l[3]:=StrToFloat(Edit7.Text);

l[4]:=StrToFloat(Edit8.Text);

constS:=StrToFloat(Edit9.Text);

close;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm3.FormActivate(Sender: TObject);

begin

Edit1.Text:=FloatToStr(svp1);

Edit2.Text:=FloatToStr(svo1);

Edit3.Text:=FloatToStr(sp1);

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm4 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

StaticText2: TStaticText;

Button1: TButton;

Panel1: TPanel;

Image1: TImage;

StaticText1: TStaticText;

GroupBox2: TGroupBox;

StaticText3: TStaticText;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

close;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm5 = class(TForm)

Button1: TButton;

Panel1: TPanel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

close;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm6 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

Edit5: TEdit;

GroupBox3: TGroupBox;

Label5: TLabel;

Label6: TLabel;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.FormActivate(Sender: TObject);

begin

Edit1.Text:=FloatToStr(svo2[1]);

Edit2.Text:=FloatToStr(svo2[2]);

Edit3.Text:=FloatToStr(svo2[3]);

Edit4.Text:=FloatToStr(svo2[4]);

Edit5.Text:=FloatToStr(sp2);

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm7 = class(TForm)

Button1: TButton;

GroupBox1: TGroupBox;

GroupBox3: TGroupBox;

Label5: TLabel;

Label6: TLabel;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.FormActivate(Sender: TObject);

begin

Edit1.Text:=FloatToStr(svo3[1]);

Edit2.Text:=FloatToStr(svo3[2]);

Edit3.Text:=FloatToStr(svo3[3]);

Edit4.Text:=FloatToStr(svo3[4]);

Edit5.Text:=FloatToStr(sp3);

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

close;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm8 = class(TForm)

Button2: TButton;

GroupBox1: TGroupBox;

GroupBox3: TGroupBox;

Label5: TLabel;

Label6: TLabel;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

procedure Button1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm8.FormActivate(Sender: TObject);

begin

Edit1.Text:=FloatToStr(svo4[1]);

Edit2.Text:=FloatToStr(svo4[2]);

Edit3.Text:=FloatToStr(svo4[3]);

Edit4.Text:=FloatToStr(svo4[4]);

Edit5.Text:=FloatToStr(sp4);

end;

end.

Страницы: 1, 2, 3

© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент.