Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Оптимизация режимов резания при токарной обработке металлов. Монография
.pdf
if t<=3 then s:=1.75;
if (t>3) and (t<=5) then s:=1.55;
if (t>5) and (t<=8) then s:=1.2;
if (t>8) and (t<=12) then s:=1.15;
if t>12 then s:=1.05;
end;
if (d>1000) and (d<=2500) then begin
if t<=3 then s:=2;
if (t>3) and (t<=5) then s:=1.8;
if (t>5) and (t<=8) then s:=1.6;
if (t>8) and (t<=12) then s:=1.5;
if t>12 then s:=1.45;
end;
end;
end;
Rz:=0;
end;
if ComboBox1.Text='ɑɢɫɬɨɜɚɹ ɨɛɪɚɛɨɬɤɚ' then begin
if ComboBox2.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɲɟɪɨɯɨɜɚɬɨɫɬɶ ɩɨɜɟɪɯɧɨɫɬɢ Ra');
if ComboBox2.Text<>'' then begin
if ComboBox2.Text='3.2' then begin
if r<=0.4 then s:=0.07;
if (r>0.4) and (r<=0.8) then s:=0.1;
if (r>0.8) and (r<=1.2) then s:=0.12;
if (r>1.2) and (r<=1.6) then s:=0.14;
if (r>1.6) and (r<=2) then s:=0.15;
if (r>2) and (r<=2.5) then s:=0.17;
end;
if ComboBox2.Text='6.3' then begin
71
if r<=0.4 then s:=0.1;
if (r>0.4) and (r<=0.8) then s:=0.13;
if (r>0.8) and (r<=1.2) then s:=0.165;
if (r>1.2) and (r<=1.6) then s:=0.19;
if (r>1.6) and (r<=2) then s:=0.21;
if (r>2) and (r<=2.5) then s:=0.23;
end;
if ComboBox2.Text='10' then begin
if r<=0.4 then s:=0.144;
if (r>0.4) and (r<=0.8) then s:=0.2;
if (r>0.8) and (r<=1.2) then s:=0.246;
if (r>1.2) and (r<=1.6) then s:=0.29;
if (r>1.6) and (r<=2) then s:=0.32;
if (r>2) and (r<=2.5) then s:=0.35;
end;
if ComboBox2.Text='20' then begin
if r<=0.4 then s:=0.25;
if (r>0.4) and (r<=0.8) then s:=0.33;
if (r>0.8) and (r<=1.2) then s:=0.42;
if (r>1.2) and (r<=1.6) then s:=0.49;
if (r>1.6) and (r<=2) then s:=0.55;
if (r>2) and (r<=2.5) then s:=0.60;
end;
if ComboBox2.Text='40' then begin
if r<=0.4 then s:=0.35;
if (r>0.4) and (r<=0.8) then s:=0.51;
if (r>0.8) and (r<=1.2) then s:=0.63;
if (r>1.2) and (r<=1.6) then s:=0.72;
if (r>1.6) and (r<=2) then s:=0.8;
if (r>2) and (r<=2.5) then s:=0.87;
72
end;
if ComboBox2.Text='80' then begin
if r<=0.4 then s:=0.47;
if (r>0.4) and (r<=0.8) then s:=0.66;
if (r>0.8) and (r<=1.2) then s:=0.81;
if (r>1.2) and (r<=1.6) then s:=0.94;
if (r>1.6) and (r<=2) then s:=1.04;
if (r>2) and (r<=2.5) then s:=1.14;
end;
RZ:=ComboBox2.Text;
end;
if RadioButton1.Checked then begin
if StrToInT(sigma)<700 then
s:=s*0.45;
if (StrToInT(sigma)>=700) and (StrToInT(sigma)<900) then
s:=s;
if StrToInT(sigma)>900 then
s:=s*1.25;
end;
end;
end;
procedure TDann.Button7Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Kpv:=1;
1: begin
if RadioButton3.Checked then
Kpv:=0.9
else
73
case ComboBox3.ItemIndex of
0: Kpv:=0.9;
1: begin Kpv:=0.8;
end;
2: begin
if ComboBox4.Text='ɇɨɪɦɚɥɶɧɚɹ ɤɨɪɤɚ' then
Kpv:=0.83;
if ComboBox4.Text='ɋɢɥɶɧɨ ɡɚɝɪɹɡɧɟɧɧɚɹ ɤɨɪɤɚ' then
Kpv:=0.83;
if ComboBox4.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɫɨɫɬɨɹɧɢɟ ɤɨɪɤɢ');
end;
else
ShowMessage('ɍɤɚɠɢɬɟ ɜɢɞ ɡɚɝɨɬɨɜɤɢ');
end;
end;
else
ShowMessage('ɍɤɚɠɢɬɟ ɫɨɫɬɨɹɧɢɟ ɩɨɜɟɪɯɧɨɫɬɢ ɡɚɝɨɬɨɜɤɢ');
end;
end;
procedure TDann.Button6Click(Sender: TObject);
begin
if Edit1.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɝɥɭɛɢɧɭ ɪɟɡɚɧɢɹ');
if RadioButton4.Checked then
ShowMessage('ɍɤɚɠɢɬɟ ɤɚɬɟɝɨɪɢɸ ɦɚɬɟɪɢɚɥɚ');
if rezh=' ' then
ShowMessage('ȼɵɛɟɪɢɬɟ ɦɚɬɟɪɢɚɥ ɪɟɠɭɳɟɣ ɱɚɫɬɢ');
if (Edit1.Text<>'') then begin
74
if RadioButton1.Checked then begin
x:=0.15;
m:=0.2;
if s<=0.3 then begin
Cv:=350;
y:=0.35;
end;
if (s>0.3) and (s<=0.7) then begin
Cv:=290;
y:=0.35;
end;
if s>0.7 then begin
Cv:=280;
y:=0.45;
end;
if rezh='Ɍ5Ʉ10' then
Kiv:=0.65;
if rezh='Ɍ14Ʉ8' then
Kiv:=0.8;
if rezh='Ɍ15Ʉ6' then
Kiv:=1;
if rezh='Ɍ30Ʉ4' then
Kiv:=1.4;
if rezh='ȼɄ8' then
Kiv:=0.4;
if rezh='Ɋ6Ɇ5' then
Kiv:=1;
step:=750/StrToInT(sigma);
Kmv:=Power(step,1);
Kmv:=RoundTo(Kmv,-2);
75
end;
if RadioButton2.Checked then begin
if rezh='ȼɄ8' then
Kiv:=0.83;
if rezh='ȼɄ6' then
Kiv:=1;
if rezh='ȼɄ4' then
Kiv:=0.85;
if rezh='ȼɄ3' then
Kiv:=1.15;
if (h[1]='ɋ') and (h[2]='ɑ') then begin
x:=0.15;
m:=0.2;
if s<=0.4 then begin
Cv:=292;
y:=0.2;
end;
if s>0.4 then begin
Cv:=243;
y:=0.4;
end;
if vh='Ȼɵɫɬɪɨɪɟɠɭɳɚɹ ɫɬɚɥɶ'then
nv:=1.7;
if vh='Ɍɜɟɪɞɵɣ ɫɩɥɚɜ'then
nv:=1.25;
step:=190/StrToInT(sigma);
Kmv:=Power(step,nv);
Kmv:=RoundTo(Kmv,-2);
end;
if (h[1]='Ʉ') and (h[2]='ɑ') then begin
76
x:=0.15;
m:=0.2;
if s<=0.4 then begin
Cv:=317;
y:=0.2;
end;
if s>0.4 then begin
Cv:=215;
y:=0.45;
end;
if vh='Ȼɵɫɬɪɨɪɟɠɭɳɚɹ ɫɬɚɥɶ'then
nv:=1.7;
if vh='Ɍɜɟɪɞɵɣ ɫɩɥɚɜ'then
nv:=1.25;
step:=150/StrToInT(sigma);
Kmv:=Power(step,nv);
Kmv:=RoundTo(Kmv,-2);
end;
end;
if RadioButton3.Checked then begin
if rezh='ȼɄ6' then
Kiv:=2.7;
if rezh='ȼɄ4' then
Kiv:=2.4;
if rezh='Ɋ6Ɇ5' then
Kiv:=1;
if splav='Ɇɟɞɧɵɣ ɫɩɥɚɜ' then begin
x:=0.12;
m:=0.23;
if s<=0.2 then begin
77
Cv:=270;
y:=0.25;
end;
if s>0.2 then begin
Cv:=182;
y:=0.3;
end;
Kmv:= 1;
end;
if splav='Ⱥɥɸɦɢɧɢɟɜɵɣ ɫɩɥɚɜ' then begin
x:=0.12;
m:=0.28;
if s<=0.2 then begin
Cv:=485;
y:=0.25;
end;
if s>0.2 then begin
Cv:=328;
y:=0.5;
end;
if h[1]='Ⱦ' then
Kmv:= 1.2
else
Kmv:= 1;
end;
end;
t:=StrToFloat(Edit1.Text);
d:=StrToFloat(Edit2.Text);
v:=(Kpv*Kiv*Kmv*Cv)/(Power(60,m)*Power(t,x)*Power(s,y));
v:=RoundTo(v,-2);
78
end;
end;
procedure TDann.Button11Click(Sender: TObject);
begin
n:=(1000*v)/(Pi*d);
if Edit3.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɦɢɧɢɦɚɥɶɧɭɸ ɱɚɫɬɨɬɭ ɜɪɚɳɟɧɢɹ ɲɩɢɧɞɟɥɹ');
if Edit4.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɦɚɤɫɢɦɚɥɶɧɭɸ ɱɚɫɬɨɬɭ ɜɪɚɳɟɧɢɹ ɲɩɢɧɞɟɥɹ');
if Edit5.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɡɧɚɦɟɧɚɬɟɥɶ ɪɹɞɚ ɮɢ');
if (Edit3.Text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'') then begin
ffi:=StrTofloat(Edit5.Text);
nd1:=nmin;
repeat
nd:=nd1*ffi;
f:=nd/nd1;
nd:=Round(nd);
nd1:=nd;
until (nd<=n) and (n/nd<ffi);
end;
if nd>nmax then nd:=nmax;
if nd<=125 then
nd:=Round(nd);
if (nd>125) and (nd<=800) then
nd:=RoundTo(nd,1);
if nd>800 then
nd:=RoundTo(nd,2);
79
end;
procedure TDann.Button12Click(Sender: TObject);
begin
vd:=(Pi*d*nd)/1000;
vd:=RoundTo(vd,-2);
end;
procedure TDann.Button13Click(Sender: TObject);
begin
if Edit1.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɝɥɭɛɢɧɭ ɪɟɡɚɧɢɹ');
if (Edit1.Text<>'') then begin
if RadioButton1.Checked then begin
sigmap:=strToInt(sigma);
skobka:=sigmap/750;
if vh='Ɍɜɟɪɞɵɣ ɫɩɥɚɜ'then begin
Cp:=243;
xp:=0.9;
yp:=0.6;
np:=-0.3;
Cpz:=300;
xpz:=1;
ypz:=0.75;
npz:=-0.15;
Kmp:=Power(skobka,0.75);
Kmp:=RoundTo(Kmp,-2);
end;
80
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]