Министерството на образованието, младежта и науката



страница15/15
Дата25.08.2016
Размер2.48 Mb.
#7254
1   ...   7   8   9   10   11   12   13   14   15



ПРИЛОЖЕНИЕ № 3


Таблица. 3.1.

Температурата на загряване при наваряване по схема „А”

Диаметър на пробното тяло Ø = 80 мм.




Температура – Т, ОС




Граници

Под флюс

Без вибрации

С вибрации

Посока „I”


Г.Г

250

180

170

Д.Г

183

122

113

Посока „II”


Г.Г

90

75

69

Д.Г

76

61

52

Диаметър на пробното тяло Ø = 160 мм.







Температура – Т, ОС




Граници

Под флюс

Без вибрации

С вибрации

Посока „I”


Г.Г

110

90

75

Д.Г

80

65

50

Посока „II”


Г.Г

82

59

52

Д.Г

60

46

41



Таблица 3.2.

Температурата на загряване при наваряване по схема „Б”

Диаметър на пробното тяло Ø = 80 мм.




Температура – Т, ОС




Граници

Под флюс

Без вибрации

С вибрации

Посока „I”


Г.Г

335

287

260

Д.Г

280

240

210

Посока „II”


Г.Г

110

85

77

Д.Г

91

73

64

Диаметър на пробното тяло Ø = 160 мм.







Температура – Т, ОС




Граници

Под флюс

Без вибрации

С вибрации

Посока „I”


Г.Г

132

110

98

Д.Г

106

85

67

Посока „II”


Г.Г

98

68

60

Д.Г

77

52

45



ПРИЛОЖЕНИЕ № 4


Таблица 4.1

Изменение на максималната и минималната дебелина на покритието в зависимост от скоростта на наваряване без вибрации на електродния тел

Наваряване без вибрации на електродния тел




Vт = 1,5 m/min

Vт = 1,8 m/min

Vт = 2,3 m/min

Vн, m/min

min, mm

max, mm

min, mm

max, mm

min, mm

max, mm

0,35

2,2

2,3

2,9

3,0

-

-

0,50

1,6

1,7

2,0

2,3

-

-

0,70

1,1

1,3

1,4

1,7

1,8

1,9

1,00

0,7

1,0

1,0

1,2

1,2

1,4

1,45

0,4

0,8

0,6

1,0

0,8

1,2

2,00

-




0,4

0,7

0,5

0,9



Таблица 4.2

Изменение на максималната и минималната дебелина на покритието в зависимост от скоростта на наваряване под слой от флюс.




Vт = 1,5 m/min

Vт = 1,8 m/min

Vт = 2,3 m/min

Vн, m/min

min, mm

max, mm

min, mm

max, mm

min, mm

max, mm

0,20

3,0

3,1

3,6

3,7

-

-

0,35

2,2

2,3

2,8

2,9

3,1

3,2

0,50

1,7

1,9

2,0

2,1

2,5

2,6

0,70

1,1

1,2

1,5

1,6

1,8

2,0

1,00

0,6

0,8

1,0

1,2

1,4

1,5

1,40

-

-

0,8

1,0

1,0

1,1

1,80

-

-

0,4

0,6

0,6

0,8


Таблица 4.3

Изменение на максималната и минималната дебелина на покритието в зависимост от скоростта на наваряване с вибрации на електродния тел.




Vт = 1,5 m/min

Vт = 1,8 m/min

Vт = 2,3 m/min

Vн, m/min

min, mm

max, mm

min, mm

max, mm

min, mm

max, mm

0,55

2,3

2,4

2,6

2,7

-

-

0,63

1,6

1,8

2,1

2,2

2,4

2,5

0,95

0,9

1,1

1,2

1,4

1,4

1,6

1,23

0,5

0,7

0,7

0,9

1,2

1,4

1,88

-

-

0,4

0,6

0,7

1,0



ПРИЛОЖЕНИЕ № 5










































































ПРИЛОЖЕНИЕ № 6

Софтуер за избор на рационален метод за наваряване

unit Izbor na racionalen metod za nawarqwane;


interface
uses

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

Dialogs, StdCtrls, Buttons, Math;
type

TForm1 = class(TForm)

LNavBox: TComboBox;

DNBox: TComboBox;

DeltaBox: TComboBox;

DtBox: TComboBox;

LNavLabel: TLabel;

DnLabel: TLabel;

DtLabel: TLabel;

DeltaLabel: TLabel;

CalculateBitBtn: TBitBtn;

Rezults: TMemo;

RezultsLabel: TLabel;

Label_cm1: TLabel;

Label_cm2: TLabel;

Label_mm: TLabel;

Label_cm3: TLabel;

Izbor: TLabel;

Selection: TComboBox;

Label1: TLabel; ange(Sender: TObject);

procedure DNBoxChange(Sender: TObject);

procedure DeltaBoxChange(Sender: TObject);

procedure DtBoxChange(Sender: TObject);

procedure CalculateBitBtnClick(Sender: TObject);

procedure ExitBitBtnClick(Sender: TObject);

procedure SelectionChange(Sender: TObject);

procedure FormCreate(Sender: TObject);

private


{ Private declarations }

public


Pi,LNav, Dt, Dn, Delta:real;

Gnav, Gama, Dm, Lelmin, Lelmax, Tnavmin, Tnavmax, Vnavmin, Vnavmax:real;

Zmin, Zmax, Gnavmin, Gnavmax, Velmin, Velmax:real;

Sel:string;

Select:integer;

{ Public declarations }

end;
var

Form1: TForm1;


implementation
{$R *.dfm}
procedure TForm1.LNavBoxChange(Sender: TObject);

begin


LNav:=

end;
procedure TForm1.DNBoxChange(Sender: TObject);

begin

Dn:=StrtoFloat(DNBox.Text);


end;
procedure TForm1.DeltaBoxChange(Sender: TObject);

begin


Delta:=StrtoFloat(DeltaBox.Text)/10;
end;
procedure TForm1.DtBoxChange(Sender: TObject);

begin


Dt:=RoundTo(StrtoFloat(DtBox.Text),-2);

end;
procedure TForm1.CalculateBitBtnClick(Sender: TObject);


begin

Rezults.Clear;

if Select=0 then

begin


ZMin:=1.04; Zmax:=1.07;Velmin:=150; Velmax:=250;

end


else

begin


ZMin:=1.06; Zmax:=1.12;Velmin:=150; Velmax:=230;

end;


end;

if Select=1 then

begin

if (Dt-0.12)<0.1 then



begin

ZMin:=1.03; Zmax:=1.06;Velmin:=150; Velmax:=300;

end

end;


if Select=2 then

begin


if (Dt-0.12)<0.1 then

begin


ZMin:=1.01; Zmax:=1.02;Velmin:=150; Velmax:=250;

end


else

begin


ZMin:=1.01; Zmax:=1.02;Velmin:=130; Velmax:=230;

end;


end;
Pi:=3.14;

Dm:=Dn-Delta*2;

Gama:=7.8;

Gnav:=RoundTo((Pi*LNav*Gama*(sqr(Dn)-sqr(Dm)))/4,-2);

Gnavmin:=RoundTo(Gnav*Zmin,-2);

Gnavmax:=RoundTo(Gnav*Zmax,-2);

Lelmin:=RoundTo((4*Gnavmin)/(Pi*sqr(Dt)*Gama),-2);

Lelmax:=


Vnavmin:=RoundTo((Lnav*Pi*Dn)/(2.5*Dt*Tnavmax),-2);

Vnavmax:=RoundTo((Lnav*Pi*Dn)/(2.5*Dt*Tnavmin),-2);


Rezults.Lines.Add(' За избрания диаметър на електрода - '+FloatToStr(RoundTo(Dt*10,-1))+' mm');

Rezults.Lines.Add(' са получени следните резултати:');

Rezults.Lines.Add('');

Rezults.Lines.Add('Количество метал (Gнав.min) '+FloatToStr(Gnavmin)+' g');

Rezults.Lines.Add('Количество метал (Gнав.max) '+FloatToStr(Gnavmax)+' g');

Rezults.Lines.Add('Дължина на електродния тел (Lел.min)'+FloatToStr(Lelmin)+'cm');

Rezults.Lines.Add('Дължина на електродния тел (Lел.max) '+FloatToStr(Lelmax)+' cm');

Rezults.Lines.Add('Време за наваряване (Тнав.min)'+FloatToStr(Tnavmin)+' min');

Rezults.Lines.Add('Време за наваряване (Tнав.max)'+FloatToStr(Tnavmax)+' min');

Rezults.Lines.Add('Скорост на наваряване (Vнав.min)'+FloatToStr(Vnavmin)+' cm/min');

Rezults.Lines.Add('Скорост на наваряване (Vнав.max)'+FloatToStr(Vnavmax)+' cm/min');

end;
procedure TForm1.SelectionChange(Sender: TObject);

begin

Select:=Selection.ItemIndex;


end;
procedure TForm1.FormCreate(Sender: TObject);

begin


Select:=0;

Dt:=0.12;

Lnav:=4;

Dn:=2;


Delta:=0.5;

end;
end.





Каталог: files -> dissertation
files -> Рецептура на лекарствените форми рецептурни бланки и тяхната валидност
files -> Прогностични възможности на тестовете, използвани за подбор на млади футболисти
files -> Правила за реда за ползване, стопаниване и управление на стадион "христо ботев" благоевград глава първа общи положения
dissertation -> Министерство на образованието, младежта и науката
dissertation -> Изследване процеса на сработване и износване с модификатори на триене


Сподели с приятели:
1   ...   7   8   9   10   11   12   13   14   15




©obuch.info 2024
отнасят до администрацията

    Начална страница