7.2. Программа расчета протяжки круглой

program prot;

uses crt,graph;

const

Materialprot='Сталь ХВГ по ГОСТ 5950-88'; {материал протяжки}

Materializd='Сталь Х13 по ГОСТ 1050-88'; {материал изделия}

D1=25; {диаметр хвостовика}

Fx=291; {наименьшая площадь поперечного сечения хвостовика}

sigmadopxv=300; {допускаемое напряжение в материале хвостовика}

Q=18000; {усилие, допускаемое тяговой силой станка}

Pdop=72750; {допускаемое усилие}

D0=29; {диаметр сверления}

D=29.979; {максимальный диаметр по M7}

T=15; {шаг черновых зубьев}

Dmax=30;

L=50; {длина протягиваемого участка}

L1=215; {длина протяжки до первого зуба}

Fkan=23.8; {площадь поперечного сечения стружечной канавки}

Kmin=2.2; {минимальный коэффициент заполнения стружечных

канавок}

gamma=20; {передний угол}

alfa=2; {задний угол}

Cp=1000;

Sxz4=0.25461;

Kgamma=0.86;

Ku=1.15; {поправочные коэффициенты}

Kc=1.34;

Ao=0.995; {общий припуск на протягивание}

Aon=0.22; {припуск на переходные зубья}

Ip=8; {число переходных секций}

Aocht=0.1; {припуск на чистовые зубья}

Zxc1=2; {количество зубьев в первой черновой секции}

Znc=2; {количество переходных зубьев в секции}

Szcht=0.01; {подача на чистовых зубьях}

alfaka=1; {задний угол калибрующих зубьев}

F=0.2; {прямая ленточка на вершинах калибрующих зубьев}

Rn=30; {радиусы выкружек}

Rb=36;

delta=0.005;

Zk=6; {количество калибрующих зубьев}

L1sh=215; {длина протяжки до первого зуба}

qstr=3;Rstr1=7;hstr=3;rstr2=1.5;Fa=7.07; {размеры стружечных канавок для чистовых и калибрующих зубьев}

var

h0:real; {максимальная глубина стружечной канавки}

Zi:byte; {наибольшее количество одновременно работающих зубьев}

Sz4:real; {подача на черновых секциях}

k:real; {фактический коэффициент заполнения впадин}

Z4c:real; {количество зубьев в черновых секциях}

Aoch:real; {припуск на черновые зубья}

Aoch1:real; {припуск на двузубую черновую секцию}

I4:real; {количество зубьев в черновой секции без первой}

Z4:real; {количество зубьев в черновой секции}

l4:real; {длина черновой части}

Szp1:real; {подача на первой переходной секции}

Szp2:real; {подача на последней переходной секции}

Zn:real; {количество переходных зубьев}

lper:real; {длина переходной части}

Zxn:real; {количество чистовых зубьев}

tcht:real; {шаг чистовых зубьев}

tk:real; {шаг калибрующих зубьев}

Lcht:real; {длина чистовой части}

Lpez:real; {длина режущей части}

Dk:real; {диаметр калибрующих зубьев}

Lk:real; {длина калибрующей части}

Bb:real; {ширина режущих выступов между выкружками}

n:real; {количество выкружек}

B4:real; {ширина выкружек}

Ln:real; {общая длина протяжки}

L3h:real; {длина задней направляющей}

procedure start;

Var grDriver : Integer;

grMode : Integer;

ErrCode : Integer;

Begin

grDriver:=Detect;

InitGraph(grDriver, grMode, '');

outtextxy(130,5,'Уфимский государственный авиационный');

outtextxy(210,20,'технический университет');

outtextxy(150,130,'Расчет круглой протяжки');

outtextxy(30,200,'Выполнил студент группы ТМ-437: Логинов Д.Г.');

outtextxy(200,310,''Ишимбай-2002 г.');

delay(3000);

readln;

closegraph;

end;

begin

start;

writeln(' Исходные данные');

writeln;

writeln('Материал изделия ',materializd);

writeln('Длина протягиваемого участка ',L);

writeln('Протягиваемое отверстие 30 M7');

writeln('Наружный диаметр заготовки 65');

writeln('Протяжной станок 7520');

writeln;writeln;writeln;

writeln(' Выбираем прогрессивную схему резания, так как подъем у протяжек');

writeln(' прогрессивных конструкций производится не на каждый зуб, а на');

writeln(' группы зубьев или секции. Вследствие уменьшения ширины среза,');

writeln(' подача, приходящаяся на секцию у таких протяжек принимается');

writeln(' значительно большей, чем у протяжек обычной конструкции,а это');

writeln(' приводит к снижению удельной силы резания. Длина прогрессивных');

writeln(' протяжек получается меньше, а стойкость больше');

delay(3000);

readln;

writeln(' Результаты расчета протяжки (мм)');

writeln('Материал протяжки ',materialprot);

h0:=0.5*(D0-1.1*sqrt(Pdop/sigmadopxv));h0:=5.9;{максимальная глубина стружечной канавки}

writeln('Максимальная глубина стружечной канавки ',h0:8:2);

Zi:=trunc(l/t)+1; {Наибольшее количество одновременно работающих зубьев}

writeln('Наибольшее количество одновременно работающих зубьев ',Zi);

Sz4:=Fkan/(L*Kmin);Sz4:=0.2; {Подача на черновых секциях}

writeln('Подача на черновых секциях ',Sz4:2:1);

K:=Fkan/(L*Sz4); {Фактический коэффициент заполнения стружечной канавки}

writeln('Фактический коэффициент заполнения стружечной канавки ',k:8:2);

writeln('Передний угол на черновых зубьях (градусы) ',gamma);

writeln('Задний угол на черновых зубьях (градусы) ',alfa);

Z4c:=(Cp*pi*D*Sxz4*Zi*Ku*Kgamma*Kc)/Pdop;Z4c:=2; Количество зубьев в секции }

writeln('Количество зубьев в секции ',Z4c:8:0);

Aoch:=Ao-(Aon+Aocht); {Припуск на черновые зубья }

writeln('Припуск на черновые зубы ',Aoch:8:3);

Aoch1:=(2*0.2)/2; {Припуск на первую двузубую черновую секцию}

writeln('Припуск на первую двузубую черновую секцию ',Aoch1:8:1);

14:=(Aoch-Aoch1)/(2*Sz4);I4:=2; {Количество зубьев в черновой секции без первой}

writeln('Количество зубьев в черновой секции без первой ',I4:8:0);

Z4:=Z4c+2; {Количество зубьев в черновой секции}

writeln('Количество зуьев в черновой секции ',Z4:8:0);

L4:=Z4*t; {Длина черновой части}

writeln('Длина черновой части ',L4:8:0);

writeln('Подача на первой переходной секции ',Sz4/2:8:1);

writeln('Подача на последней переходной секции 0.03');

Zn:=Znc*ip; {количество переходных зубьев}

writeln('Количество переходных зубьев ',Zn:8:0);

Ln:=Zn*t; {длина переходной части}

writeln('Длина переходной части ',L4:8:0);

Zxn:=Aocht/(2*Szcht); {количество чистовых зубьев}

writeln('Количество чистовых зубьев ',Zxn:8:0);

tcht:=0.7*t;tcht:=10;tk:=tcht; {шаг чистовых и калибрующих зубьев}

writeln('Шаг чистовых и калибрующих зубьев ',tk:8:1);

Lcht:=Zxn*tcht; {длина чистовой части}

writeln('Длина чистовой части ',Lcht:8:0);

Lpez:=l4+Ln+Lcht; {длина режущей части}

writeln('Длина режущей части ',lpez:8:0);

Dk:=Dmax-delta; {диаметр калибрующих зубьев}

writeln('Диаметр калибрующих зубьев ',Dk:8:3);

Lk:=Zk*tk; {длина калибрующей части}

writeln('Длина калибрующей части ',Lk:8:0);

delay(3000);

readln;

clrscr;

Bb:=1.18*sqrt(D); {ширина режущих выступов между выкружками}

writeln('Ширина режущих выступов между выкружками ',Bb:8:1);

n:=(pi*D0)/(Z4c*Bb); {количество выкружек}

writeln('Количество выкружек ',n:8:0);

B4:=(pi*D0)/n*((Z4c-1)/Z4c); {ширина выкружек}

writeln('Ширина выкружек ',B4:8:1);

writeln('Радиус круга 30');

writeln('Радиус выкружки 36');

writeln('Диаметр передней направляющей 28');

writeln('Длина передней направляющей 60');

writeln('Длина переходного конуса 20');

writeln('Диаметр задней направляющей ',D:8:3);

l3h:=0.5*L; {длина задней направляющей}

writeln('Длина задней направляющей ',L3h:8:0);

Ln:=L1sh+Lpez+60+L3h; {общая длина протяжки}

delay(3000);

readln;

end.