7.3. Программа расчета протяжки шпоночной

program protyagka;

uses crt;

const

dprotmax=18.018; {максимальный диаметр протягиваемого отверстия, мм}

dprotmin=18; {минимальный диаметр протягиваемого отверстия, мм}

Dzag=30; {наружный диаметр заготовки, мм}

Bmax=5.078; {максимальная ширина протягиваемого паза, мм}

Bmin=5.030; {минимальная ширина протягиваемого паза, мм}

t1=2; {глубина протягиваемого паза, мм}

rscr=0.2; {радиус скругления кромок шпоночного паза, мм}

Lprot=25; {длина протягиваемого отверстия, мм}

Q=50; {тяговое усилие станка, кН}

Materializd='Сталь 30ХГСА ГОСТ 4543-71'; {материал изделия}

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

f0=0.36; {высота стрелки}

deltab=0.01; {остаточная деформация шпоночного паза по ширине}

Sz=0.08; {подача на зуб}

m=1.5; {модуль}

Kmin=3; {минимальный коэффициент заполнения впадины}

Cp=250;

x=0.85;

Sax=0.1168494;

Kj=0.85;

Kc=1;

Ku=1.15;

sigmadop=27.5; {допускаемое напряжение рабочей части протяжки}

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

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

Sb=55; {площадь поперечного сечения хвостовика протяжки}

H1=11; {высота хвостовика протяжки}

qkan=2.5;Rkan=4.5;h0kan=3;rcan=1.5;Fakan=7.07; {профиль стружечной канавки}

gamma=20; {передний угол зуба протяжки}

alfa=4; {задний угол зуба протяжки}

fi1=1; {угол бокового поднутрения}

fpodn=1; {расстояние от вершины до начала поднутрения}

Rn=0.2; {радиус перехода режущих кромок}

Nk=1;Sk=1;Hk=0.5;rk=0.2; {количество и размеры стружкоделительных канавок}

var

Hsym, {суммарный подъем протяжки}

Bn, {ширина зубчатой части}

tz, {шаг зубьев}

zi, {наибольшее число одновременно работающих зубьев}

Kz, {коэффициент заполнения впадины}

hrv, {высота режущего выступа}

P, {сила протягивания}

Hz1, {высота сечения по 1-му зубу}

Hn, {высота сечения по последнему режущему зубу}

zp, {количество режущих зубьев}

lp, {длина режущей части}

sigmarast, {напряжение растяжения в материале хвостовика}

Hzk, {высота калибрующих зубьев}

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

lk, {длина калибрующей части}

Lgl, {общая длина гладких частей протяжки}

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

H:real; {глубина паза в направляющей оправке}

procedure isx; {вывод исходных данных}

begin

clrscr;

writeln;

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

writeln(' технический университет');

writeln;writeln;writeln;writeln;writeln;writeln;writeln;

writeln(' Расчет шпоночной протяжки.');

writeln;writeln;writeln;writeln;

writeln(' Выполнила студентка группы ТМ-437: Галлиулина');

writeln;writeln;writeln;writeln;writeln;writeln;

writeln(' Ишимбай-2002 г.');

delay(3000);

readln;

clrscr;

gotoxy(30,2);

writeln('Данные для расчета,мм.');

writeln('Максимальный диаметр протягиваемого отверстия=',dprotmax:8:3);

writeln('Минимальный диаметр протягиваемого отверстия= ',dprotmin);

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

writeln('Максимальная ширина протягиваемого паза= ',Bmax:8:3);

writeln('Минимальная ширина протягиваемого паза= ',Bmin:8:3);

writeln('Глубина паза= ',t1);

writeln('Радиус скругления кромок шпоночного паза= ',rscr:8:3);

writeln('Длина протягиваемого отверстия= ',Lprot);

writeln('Тяговое усилие станка= ',q,' kH');

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

writeln;writeln;

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

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

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

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

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

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

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

end;

begin

clrscr;

isx;

delay(3000);

readln;

clrscr;

gotoxy(25,2);

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

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

Hsym:=dprotmin+t1-dprotmin+f0; {вычисление суммарного подъема протяжки}

writeln('Суммарный подьем зубьев протяжки= ',Hsym:8:3,' мм');

Bn:=Bmax-deltab; {вычисление ширины зубчатой части}

writeln('Ширина зубчатой части= ',Bn:8:3,' мм');

tz:=trunc(m*sqrt(Lprot)); {вычисление шага зубьев}

writeln('Шаг зубьев= ',tz:8:3,' мм');

zi:=trunc(Lprot/tz)+1; {вычисление наибольшего количества одновременно работающих зубьев}

writeln('Передний угол= 20 градусов');

writeln('Задний угол= 5 градусов');

writeln('Наибольшее кол-во одновременно работающих зубьев= ',zi:8:0);

Kz:=Fakan/(Lprot*Sz); {вычисление коэффициента заполнения впадины}

writeln('Коэффициент заполнения впадины= ',Kz:8:3,' мм');

hrv:=1.25*h0kan; {вычисление высоты режущего выступа}

writeln('Высота режущего выступа= ',hrv:8:3,' мм');

P:=round(Cp*Sax*Bmax*Zi*Kj*Kc*Ku); {вычисление силы протягивания}

writeln('Сила протягивания= ',P:8:3,' кН');

Hz1:=P/(Bmax*sigmadop)+h0kan;Hz1:=11; {вычисление высоты сечения по 1-му зубу протяжки}

writeln('Высота сечения по 1-му зубу протяжки= ',Hz1:8:3,' мм');

Hn:=Hz1+Hsym; {вычисление высоты сечения по последнему режущему зубу}

writeln('Высота сечения по последнему режущему зубу= ',Hn:8:3,' мм');

Zp:=trunc(Hsym/Sz+2); {вычисление количества режущих зубьев}

writeln('Количество режущих зубьев= ',Zp:8:0);

Lp:=tz*Zp; {вычисление длины режущей части}

writeln('Длина режущей части= ',Lp:8:3,' мм');

sigmarast:=P/Sb; {вычисление напряжений растяжения в хвостовике}

writeln('Напряжения растяжения в материале хвостовика= ',sigmarast:8:3,' МПа');

Hzk:=Hn; {высота калибрующих зубьев}

writeln('Высота калибрующих зубьев= ',Hzk:8:3,' мм');

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

writeln('Шаг калибрующих зубьев= ',Tk:8:3,' мм');

Lk:=round(Tk*Zk)+9; {длина калибрующей части}

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

Lgl:=186+Lprot; {общая длина гладких частей протяжки для станка 7510}

writeln('Общая длина гладких частей протяжки= ',Lgl:8:3,' мм');

Ln:=Lgl+Lp+Lk; {вычисление общей длины протяжки}

writeln('Общая длина протяжки= ',Ln:8:3,' мм');

H:= H1+f0; {вычисление глубины паза в направляющей оправке}

writeln('Глубина паза в направляющей оправке= ',H:8:3,' мм');

writeln;

if h<=0.5*(dprotmax+sqrt(0.5*sqr(dprotmax)-sqr(Bmax))) then

write('Условие прочности тела направляющей оправки выполняется.')

else write('Условие прочности тела направляющей оправки не выполняется.');

delay(3000);

readln;

end.