Разработка технологического процесса механической обработки детали «Корона» автоматической восьмипозиционной головки УГ936 (Исследовательский раздел дипломного проекта), страница 6

writeln('введите угол в плане и глубину резания в диапазоне от 1 до 5');

readln(F[i],TT[i]);

writeln('введите cхему резания: если подрезка торца - введите 1,точение напроход - 2, точение в упор - 3');

readln(Sx[i]);

if ((F[i]=90) and (Sx[i] =1)) or ((F[i]=90) and (Sx[i] =3)) then F[i]:=75;

b:=POISK(TT[i],T_M,6);

Case Sx[i] of

1: begin

a:=POISK(F[i],F1,3);

Yv[i]:=Yv1[a,b];

end;

2: begin

a:=POISK(F[i],F2,2);

Yv[i]:=Yv2[b];

end;

3: begin

a:=POISK(F[i],F3,3);

Yv[i]:=Yv3[a,b];

end;

end;

writeln('введите вид заготовки:1 - предварительно обточенная или прокат,2 - поковка,отливка');

readln(c);

if (Sx[i]=1) or (Sx[i]=2) then d:=1

else d:=2;

Yp[i]:=Ypp[c,d];

writeln('введите дополнительную длину резания');

readln(Ld[i]);

Lrx[i]:=Lr[i]+Yv[i]+Yp[i]+Ld[i];

if (mats=1) or (mats=2) then

begin

writeln('введите тип резца на ' ,i, ' ступени:1 - прорезной для неглубоких канавок,',

'2 - прорезной для глубоких и точных канавок,3 - фасонный сложный,',

'4 - фасонный простой,5 - широкий,6 - проходной');

readln(r);

if r=6 then

begin

writeln('введите суммарную глубину обработки');

readln(Ts[i]);

case mats of

1: So[i]:=Sos[POISK(Ts[i],TB,5)];

2: So[i]:=Soc[POISK(Ts[i],TB,5)];

end;

end

else

case mat of

1: So[i]:=Ss[r];

2: So[i]:=Sc[r];

end;

end

else if (mats=3) or (mats=4) then

begin

writeln('введите вид точения:1 - черновая обточка,2 - черновая расточка,3 - чистовая        обточка,4 - чистовая расточка');

readln(vidt);

case mats of

3: So[i]:=Tac[vidt];

4: So[i]:=Tad[vidt];

end;

end;

lym:=Lr[i]/Lrx[i];

Write('Введите количество инструментов в наладке, N инструм.=');

Readln(Ni);

Writeln;

Writeln('Группа наладки:');

Writeln('1 - Диаметры обтачиваемых поверхностей отличаются не более чем в 1,2 раза;');

Writeln('количество фасочных и подрезных резцов не более 20% от общего количества инструмента в наладки.');

Writeln('2 -Диаметры обтачиваемых поверхностей отличаются более чем в 2 раза;');

Writeln('количество фасочных и других инструментов свыше 50% от общего количества инструмента в наладки.');

Writeln('3 - все наладки, не относящиеся к 1 и 2 - ой группам.');

Write('Введите группу наладки:');

Readln(za);

for ik:=1 to 8 do if Ni<=Tm[0,ik] then begin

k:=ik;

ik:=8;

end;

Tp[i]:=lym*Tm[za,k];

ViB_V;

k1:=k1t;

k2:=k2t[PStr(k2t,mat,mmat,13),PSto(k2t,Tp[i],8)];

k3:=k3t;

V[i]:=Vtab*k1*k2*k3;

{определение частоты расчетной}

If vidtoch<>1 then

begin

Write('Введите диаметр ступени: d=');

readln(dst);

end

else dst:=d0;

nchast:=(1000*V[i])/(pi*dst);

{Принятие РР}

For ik:=1 to 22 do

begin

If (Nstank[ik]<=nchast) and (Nstank[ik+1]>=nchast) then nchastp[i]:=Nstank[ik];

If (Sstank[ik]<=So[i]) and (Sstank[ik+1]>=So[i]) then Sop[i]:=Sstank[ik];

end;

{Определение силы резания (табличной)}

For ipz:=2 to 13 do if (Pzt[1,ipz]>=TT[i]) then

begin

k:=ipz;

ipz:=13;

end;

For jpz:=1 to 15 do if (Pzt[jpz-1,1]<=So[i]) and (Pzt[jpz,1]>=So[i]) then

begin

l:=jpz-1;

end;

Pz[i]:=Pzt[l,k];

{расчет поправочных коэффициентов}

For l:=2 to 14 do

begin

if (k1Pzt[1,l]=mat) and (k1Pzt[2,l]<=HB) and (k1Pzt[3,l]>=HB) then a:=l;

end;

Case matI of

1: k1Pz:=k1Pzt[4,a];

2: k1Pz:=k1Pzt[5,a];

end;

Writeln('Введите передний угол РИ: 1 - (-10) град., 2 - (0) град.,3 - (+10) град.');

readln(gamma);

If V[i]<=200 then k2Pz:=k2Pzt[2,gamma+1]

else k2Pz:=k2Pzt[3,gamma+1];

{определение силы резания}

Pz[i]:=Pz[i]*k1Pz*k2Pz;

Nrez[i]:=Pz[i]*V[i]/6120;

{проверка по мощности двигателя станка}

If Nrez[i]>(1.2*10*0.8) then

for ik:=1 to 22 do begin

Nrez[i]:=Pz[i]*pi*dst*nchast/6120000;

If (Nstank[23-ik]<=nchast) and (Nrez[i]<=(1.2*10*0.8)) then

nchastp[i]:=Nstank[ik];

end;

{Опред сумм времени}

Too[i]:=Lrx[i]/(Sop[i]*nchastp[i]);

ToSumm:=ToSumm+Too[i];

V[i]:=pi*dst*nchastp[i]/1000;

end;

{Вывод результатов}

for i:=1 to m do

begin

writeln(i,' ступень:');

writeln('-длина рабочего хода, Lр.х.= ',Lrx[i]:5:1,' мм, подача на оборот Sо= ',Sop[i]:5:2,' мм\об');

writeln('-стоикость инструмента Т= ',Tp[i]:5:1,' мин, скорость V= ',V[i]:5:2,' м/мин');

Writeln('- число оборотов шпинделя n= ',nchastp[i]:5:1,' об\мин');

writeln('-сила резания Рz= ',(Pz[i]*10):5:0,' Н, мощность резания Nрез=',Nrez[i]:5:2,' кВт');

writeln('- суммарное время обработки To',i,'= ',Too[i]:5:1,' мин.');

end;

writeln('Суммарное время обработки To= ',ToSumm:5:1,' мин.');

readln

END.»