n1:=1; repeat
da[n1]:=a[n1]+2*ha1*m; writeln('Значение диаметра вершины
зубьев',n1,'-го колеса da[мм] = ',da[n1]:5:2); df[n1]:=a[n1]-2*(ha1+c)*m; writeln('Значение диаметра впадин
df[мм] = ',df[n1]:5:2); n1:=n1+1;
until n1>n; n1:=1; repeat
aw:=0.5*(a[n1]+a[n1+1]); write('Значение межосевого
расстояния',n1,'-й зубчатой пары '); writeln('aw[мм]=',aw:6:2); n1:=n1+1;
until n1=n; |
|
|
writeln('-------------------------------- |
|
|
------------------ |
'); |
|
writeln('! pciba |
! |
|
Применение |
|
!'); |
writeln('-------------------------------- |
|
|
------------------ |
'); |
|
writeln('! 0.01-0.1 |
! Кинематические и |
|
легконагруженные |
!'); |
|
writeln('! |
|
! |
передачи |
!'); |
|
writeln('-------------------------------- |
|
|
------------------ |
'); |
|
writeln('! 0.1-0.25 |
! Легко и |
|
средненагруженные передачи !'); |
||
writeln('! |
|
! при повышенной |
жесткости валов |
!'); |
|
writeln('--------------------------------
------------------');
writeln('! 0.25-0.40 ! Передачи
повышенной и высокой |
!'); |
||
writeln('! |
|
! |
нагруженности при |
достаточной |
!'); |
|
|
writeln('! |
|
! |
жесткости валов |
!'); |
|
|
|
writeln('--------------------------------
------------------');
write('Выберите значение коэффициента pciba= ');
readln(pci);
b1:=aw*pci;
writeln('Ширина венца зубчатого колеса b[мм]=',b1:5:2);
end;
procedure kosoz; begin
write('Введите шаг[мм] зубчатого колеса
- ');
readln(p);
write('Введите число зубьев 1-го колеса-');
readln(z1);
write('Введите число зубьев 2-го колеса-');
readln(z2);
clrscr;
me:=p/pi;
re:=0.5*me*sqrt(sqr(z1)+sqr(z2)); writeln('Значение внешнего конусного
расстояния re[мм] = ',re:7:4); writeln;
b:=0.3*re;
rm:=re-0.5*b;
writeln('Значение среднего конусного расстояния rm[мм] = ',rm:7:4);
writeln;
dl1:=arctan(z1/z2); dl2:=pi/2-dl1;
writeln('Углы делительных конусов:'); writeln(' dl1[рад] = ',dl1:7:4); writeln(' dl2[рад] =
',dl2:7:4);writeln;
de1:=me*z1;
de2:=me*z2;
writeln('Внешний делительный диаметр
:');
writeln(' de1[мм] = ',de1:7:4); writeln(' de2[мм] = ',de2:7:4); writeln;
ha1:=1;
ha:=ha1*me;
dae1:=de1+2*ha*cos(dl1);
dae2:=de2+2*ha*cos(dl2); writeln('Внешний диаметр вершин :'); writeln(' dae1[мм] = ',dae1:7:4); writeln(' dae2[мм] = ',dae2:7:4); writeln;
c:=0.2;
he:=(2*ha1+c)*me;
writeln('Внешняя высота зуба he[мм] = ',he:7:4);writeln;
b:=sqrt(re*re-sqr(de1/2)); writeln('Расчетное расстояние b[мм] =
',b:7:4);writeln;
u:=z2/z1; writeln('Передаточное число в
конической передаче u = ',u:7:4);
|
end; |
|
|
|
|
|
procedure cherv; |
|
|
||
|
begin |
|
|
|
|
|
clrscr; |
|
|
|
|
|
write('Введите шаг[мм] = '); |
|
|||
|
readln(p);clrscr; |
|
|
||
|
m:=p/pi; |
|
|
|
|
|
writeln('Значение модуля зацепления в |
||||
осевом сечении червяка m =',m:6:3); |
|
||||
|
writeln('ряд 1: 0.10; 0.125; 0.16; 0.2; |
||||
0.25; 0.315; 0.4; 0.5;'); |
|
|
|||
|
writeln(' |
0.63; 0.8 ; 1.0 ; 1.25; |
|||
1.6; |
2.0; |
2.5; 3.15;'); |
|
|
|
|
writeln(' |
4.0; 5.0');writeln; |
|
||
|
writeln('ряд 2: 0.12; 0.15; 0.3; |
|
|||
0.6;1.5;3.0;3.5;4.0;5.0;');writeln; |
|
||||
|
writeln('Вычесленное значение модуля |
|
|||
m[мм]= ',m:5:3);writeln; |
|
|
|||
|
writeln('Выберете стандартный модуль '); |
||||
|
write('используя ряд 1 или ряд 2 -'); |
|
|||
|
readln(m); |
|
|
|
|
|
write('Введите число зубьев колеса ='); |
||||
|
readln(z2); |
|
|
|
|
|
write('Введите число витков червяка ='); |
||||
|
readln(z1); |
|
|
|
|
|
writeln(' |
|
Табл.1 |
||
'); |
|
|
|
|
|
|
writeln('------------------------------ |
|
|
|
|
------------------------ |
|
|
'); |
|
|
|
writeln('! |
m |
! |
q |
|
! |
z1 |
|
!'); |
|
|
|
writeln('------------------------------ |
|
|
|
|
------------------------ |
|
|
'); |
|
|
|
writeln('! |
1.0 |
! |
16 |
|
! |
1 |
|
!'); |
|
|
writeln('! |
! |
20 |
!1;2;4 !'); writeln('------------------------------
------------------------ |
|
'); |
|
|
writeln('! |
1.25 |
! |
|
|
12.5;16;20 |
! |
1;2;4 |
!'); |
|
writeln('------------------------------ |
|
|
|
|
------------------------ |
|
'); |
|
|
writeln('! |
1.6 |
! |
|
|
10;12.5;16;20 |
! |
1;2;4 |
!'); |
|
writeln('------------------------------ |
|
|
|
|
------------------------ |
|
'); |
|
|
writeln('! |
2.0;2.5;3.15 ! |
|
||
8;10;12.5;16 |
! |
1;2;4 |
!'); |
|
writeln('! |
|
! |
20 |
|
! |
|
!'); |
|
|
writeln('------------------------------ |
|
|
|
|
------------------------ |
|
'); |
|
|
writeln('Выберете коэффициенты диаметра червяка q из табл.1');
writeln('в соответствии с модулем m и z1
');
write('q = '); readln(q);clrscr; ha1:=1.0;
c:=0.2;
hf1:=ha1+c;
d1:=m*q;
da1:=d1+2*ha1*m; df1:=d1-2*(ha1+c)*m;
writeln('Значение делительного диаметра червяка d1[мм] = ',d1:8:3);
writeln('Значение диаметра вершин червяка da1[мм] = ',da1:8:3);