Материал: Расчет и проектирование механизмов радиоэлектронных средств. Андреев И.В

Поэтому в сильно нагруженном соединении рекомендуется устанавливать в корпус по посадке H7/p6 и H7/r6 стальную втулку с внутренней резьбой. Наружный диаметр втулки берѐтся равным dв 2d, где d – наружный диаметр сопряжѐнной с втулкой резьбовой детали. Втулка фиксируется от поворота кернением. Диаметр резьбовой детали для соединения корпуса по разъѐму определяют по формуле d 0,9 3 6мм и округляют до ближайшего стандартного номинального значения наружного диаметра метрической резьбы. Крепѐжные детали для соединения крышки с корпусом располагают по периметру их сопряжения с шагом fн=(12 15) d, а глубина завинчивания в резьбовое отверстие корпуса выбирается равной L (1,5 2) d. Толщину фланцев берут равной h (2 4) , а ширину b (5 6) . Для штампованных корпусных деталей за технологическую базу принимают расстояние между двумя отверстиями, от которых идѐт простановка остальных размеров детали. На чертеже обычно указывают толщину детали как справочный размер и несопрягаемые размеры выполняют с квалитетами H14, h14; IT14/2.

8.5. Программы расчета

К программам расчета относятся текстовые программы: Zub.pas, hard.pas и fric.pas. Программы составлены для версии языка Turbo pascal 7.0 и работают с любым персональным компьютером класса Pentium с обьемом оперативной памяти 8 мегабайт. В программе Zub.pas создается экран и программа ожидает одно из восьми возможных событий главного меню:

“1. Внешний вид механизма.

2.Расчет геометрии механизма.

3.Прочностной расчет передачи.

4.Расчет КПД механизма.

5.Силовой расчет механизма.

6.Расчет вала на прочность.

7.Сведения об авторах.

8.Выход из программы.”

При вводе внешнего вида дается краткое описание геометрии, а затем при расчете выбирается тип передачи: 1 – прямозубая, 2 – косозубая, 3 – червячная. Вводится шаг, определяется модуль и выбирается стандартный модуль,

вводится число колес и зубьев и автоматически рассчитывается геометрия передачи. В программе Zub.pas демонстрируется также основные приемы расчета прочности, силового расчета, коэффициент полезного действия различных зубчатых передач с использованием входных файлов: mechan.dat, mechan1.dat, mechan2.dat, mechan3.dat задающих стандартные значения модуля, коэффициента формы YF (mechan.dat) в зависимости от числа зубьев (mechan1.dat) и значение стандартного межосевого расстояния (mechan3.dat). работа программы заключается в воде определенных стандартных параметров, необходимых для расчета геометрии, силовых характеристик, динамических параметров и прочности зацеплений на контактные напряжения и изгиб. Выполнение любого из возможных 8 событий начинается с нажатия заданной цифры и клавиши “Enter”, переводящей экран к активному режиму, а при нажатии цифры 8 обеспечивается выход из программы. Программа Zub.pas требует наличия файлов qraph.tpu и eqavqa.bgi, находящихся в библиотеке Turbo pascal 7.0.

Программа hard.pas и fric.pas производит расчет геометрии фрикционных передач с жесткой и гибкой связями, их силовой расчет и расчет зацеплений на прочность. Основной пункт главного “меню” включает:

“1. Расчет кинематики.

2.Силовой расчет.

3.Расчет зацеплений на прочность.

4.Выход из программы.”

Нажатием соответствующей клавиши (номера), обеспечивается ввод в соответствующий пункт расчета, а при нажатии клавиши “4” – выход из программы.

Листинг программы Zub.pas

program zub; uses graph,crt;

var gd,gm:integer; key:char;

procedure box(x1,y1,x2,y2,color:integer); begin

setfillstyle(1,color);

bar(x1,y1,x2,y2);

setlinestyle(0,1,3);

moveto(x1+7,y1+5); lineto(x1+7,y2-5); lineto(x2-7,y2-5); lineto(x2-7,y1+5); lineto(x1+7,y1+5);

end;

procedure title; begin

setbkcolor(black);

setcolor(red);

settextjustify(1,1);

settextstyle(1,0,5); outtextxy(310,100,'РАСЧЕТ'); setcolor(green); outtextxy(310,150,'ЗУБЧАТОЙ'); outtextxy(310,200,'ПЕРЕДАЧИ'); repeat until keypressed; key:=readkey;

clearviewport;

end;

procedure point_1; const

pi=3.1416; var

flag:boolean;

arccoords:arccoordstype;

i,j,st_ang,end_ang, x1,x2,y1,y2,x0,y0,l,c:integer;

d,z,ang_0,s1_ang,s1_s_ang,s2_s_ang,x_center:ar ray [1..2] of integer;

t,s1,s1_s,s2_s,d1,d2:array [1..2] of real; ang: array [1..20,1..2] of integer;

begin d[1]:=200; z[1]:=20; z[2]:=10;

{Вычисление дополнительных параметров} d[2]:=trunc(d[1]*z[2]/z[1]);

for i:=1 to 2 do begin t[i]:=d[i]*pi/z[i]; d1[i]:=d[i]+0.6*t[i]; d2[i]:=d[i]-0.4*t[i]; s1[i]:=0.5*t[i]; s1_ang[i]:=trunc(180/z[i]); end;

clearviewport; l:=trunc(d1[1]+d2[2]+2) div 2; x_center[1]:=trunc(320+l/2); x_center[2]:=x_center[1]-l;

ang_0[1]:=180-trunc(s1_ang[1]/2); ang_0[2]:=270-s1_ang[1];

setbkcolor(black);

setcolor(green);

for i:=0 to 1 do begin setactivepage(i); setcolor(white);

setbkcolor(black);

end;

for i:=1 to 2 do begin s1_s[i]:=0.6*s1[i];

s1_s_ang[i]:=trunc(360*s1_s[i]/(d1[i]*pi));

s2_s[i]:=0.6*s1[i];

s2_s_ang[i]:=trunc(360*s2_s[i]/(d2[i]*pi)); end;

repeat

for j:=0 to 1 do begin

if j=0 then

begin setactivepage(0); setvisualpage(1); end

else begin

setactivepage(1);

setvisualpage(0);

end;

cleardevice;

setcolor(white);

settextjustify(1,1); outtextxy(330,30,'Геометрия зубчатой

передачи'); setcolor(white);

for c:=1 to 2 do begin flag:=false;

for i:=1 to z[c] do begin