Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач |
ГОСУДАРСТВЕННЫЙ КОМИТЕТ СССР ПО СТАНДАРТАМ
(Госстандарт СССР)
Всесоюзный научно-исследовательский
институт
по нормализации в машиностроении
(ВНИИНМАШ)
Утверждены
Приказом ВНИИНМАШ № 224
от 17.07.87
САПР.
Программно-методический комплекс
автоматизации раската геометрических
параметров зубчатых червячных передач
Рекомендации
Р 50-54-20-87
Москва 1987
РЕКОМЕНДАЦИИ
САПР.
Программно-методический комплекс |
Р 50-54-20-37 |
Дата введения 01.01.88 г.
Настоящие рекомендации устанавливают правила работы проектировщика на персональной ЭВМ «Искра-226» с программно-методическим комплексом (ПМК), позволяющим проводить один из этапов проектирования зубчатых и червячных передач - расчет геометрических параметров.
1. ОБЩИЕ ПОЛОЖЕНИЯ
Один из главных путей повышения производительности и качества труда проектировщиков состоит в разработке и внедрении систем автоматизированного проектирования в проектно-конструкторских и технологических организациях.
Проектирование передаточных механизмов, к которым относятся зубчатые и червячные передачи, является ответственным и трудоемким этапом проектирования. Данная работа требует выполнения большого количества расчетов и анализа множества параметров.
Автоматизированный расчет передачи позволяет производить расчет характеристик передачи по всем параметрам в зависимости от требований к передаче. При этом время расчета исчисляется секундами. Алгоритмы расчетов геометрических параметров передач выполнены в соответствии с ГОСТ 16532-70; ГОСТ 19326-73; ГОСТ 19624-74 и ГОСТ 19650-74.
Расчеты выполняются на персональной ЭВМ (ПЭВМ) «Искра-226». Язык программирования - бейсик. Режим работы - диалоговый.
Выходные данные программ расчета (значения геометрических параметров зубчатых колес, червяков и червячных колес) можно использовать в качестве исходных данных в программах выпуска рабочих чертежей на АРМ (СМ ЭВМ), применяя для этих целей микропроцессорный контроллер БИФ «Искра-015-87» или другой.
В программах широко использованы «меню», позволяющие работать с ними пользователю, не знакомому с программированием.
Программы, записанные на флоппи-диск, занимают объем 306 секторов (77 Кбайт).
Головные организации по САПР, желающие приобрести программы, могут обратиться по адресу: 127003, .Москва, ул. Шеногина, 4, ВНИИНМАШ.
Программы переписываются на флоппи-диски заказчика (8-дюймовые).
2. РАСЧЕТ ГЕОМЕТРИИ ЦИЛИНДРИЧЕСКИХ ЗУБЧАТЫХ ПЕРЕДАЧ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ
2.1. Входные (исходные) данные.
При работе с программой вводятся в диалоговом режиме следующие исходные данные (параметры):
b - угол наклона зуба;
z1 - число зубьев шестерни;
z2 - число зубьев колеса;
m - модуль;
aw - межосевое расстояние;
bw - рабочая ширина венца;
X1 - коэффициент смещения шестерни;
Х2 - коэффициент смещения колеса.
При известном значении aw, значения X1 и Х2 вводятся нулевыми, и наоборот - при известных значениях X1 и X2 значение аw вводится нулевым (введенные нулевыми значения параметров вычисляются программно).
Параметры стандартного исходного контура соответствуют ГОСТ 13755-61 и представлены в программе константами.
При расчете передачи с нестандартным исходным контуром дополнительно вводятся параметры:
a - угол профиля;
ha* - коэффициент высоты головки;
hl* - коэффициент граничной высоты;
С* - коэффициент радиального зазора.
Все входные параметры имеют ограничения на минимальное и максимальное значения.
2.2. Алгоритм расчета основных геометрических параметров соответствует алгоритму (формулам), приведенному в табл. 2 - 6 ГОСТ 16532-70. В алгоритме учтены все контрольные проверки (качества зацепления, взаимного положения разноименных профилей зубьев).
При невыполнении одного из условий, предусмотренных алгоритмом (подрезание зубьев, интерференция), на экране дисплея выдается сообщение об этом, и предлагается выполнить расчет с измененными данными.
Общая блок-схема алгоритма расчета геометрии цилиндрической зубчатой передачи внешнего зацепления представлена на рис. 2.1.
Условные обозначения в блок-схеме - по ГОСТ 16532-70.
Рис. 2.1. Блок-схема алгоритма расчета геометрии зубчатых цилиндрических передач внешнего зацепления
2.3. Выходные данные выводятся на экран дисплея и распечатываются на АЦПУ в виде таблиц, приведенных на рис. 2.2. и 2.3. В таблицах выводятся расчетные значения геометрических параметров сопрягаемых зубчатых колес, приводимые на рабочих чертежах в соответствии с ГОСТ 2.403-75.
Таблица содержит номинальные размеры зубчатой передачи и зубчатых колес, а также размеры для контроля взаимного положения разноименных профилей зубьев, контроля номинальной поверхности зуба и контроля взаимного положения одноименных профилей зубьев.
2.4. Текст программы расчета геометрии цилиндрических зубчатых передач внешнего зацепления и таблица идентификаторов программы приведены в приложении 1.
2.5. Программа расчета геометрических параметров цилиндрической зубчатой передачи внешнего зацепления имеет следующую характеристику:
наименование программы - GCL;
язык программирования - бейсик-02;
конфигурация ПЭВМ - «Искра-226» в основном комплекте (внешние устройства: НГМД или НМД, АЦПУ);
объем памяти, занимаемой программой, - 57 секторов (? 15 Кбайт).
Загрузка программы осуществляется стандартной командой языка бейсик: LOADDCR{F}«GCL»
РИС. 2.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ ЦИЛИНДРИЧЕСКОЙ ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ (ШЕСТЕРНЯ)
РИС. 2.3. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ ЦИЛИНДРИЧЕСКОЙ ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ (КОЛЕСО)
После загрузки программы пользователь работает с помощью «меню», представляемого программой.
3. РАСЧЕТ ГЕОМЕТРИИ ЗУБЧАТЫХ КОНИЧЕСКИХ ПЕРЕДАЧ С ПРЯМЫМИ ЗУБЬЯМИ
3.1. В качестве входных в программе используются следующие параметры, вводимые в диалоговом режиме:
z1 - число зубьев шестерни;
z2 - число зубьев колеса;
me - внешний окружной модуль;
?- межосевой угол;
do - диаметр зуборезной головки (при необходимости).
Параметры исходного контура соответствуют ГОСТ 13754-81 и представлены в программе как константы.
При расчете передачи с нестандартным исходным контуром дополнительно вводятся параметры:
a - угол профиля;
ha* - коэффициент высоты головки;
С* - коэффициент радиального зазора;
?f* - коэффициент радиуса кривизны переходной кривой в граничной точке профиля.
Входные параметры имеют ограничения на минимальное и максимальное значения. При вводе значений, выходящих за границы ограничений, программа предусматривает повторный ввод параметра.
3.2. Алгоритм расчета геометрии зубчатых конических передач с прямыми зубьями построен по формулам, приведенным в табл. 2.4 ГОСТ 19624-74. Алгоритм предусматривает (кроме расчетов параметров передач и колес) проверку качества зацепления по геометрическим показателям (отсутствие подрезания зубьев, проверка внешней окружной толщины зуба на поверхности вершин, коэффициента торцового перекрытия).
Расчет коэффициента смещения X1 выполняется программно по формуле, полученной методом интерполяции, по данным табл. 1 приложения 2 к ГОСТ 19624-74:
где u - передаточное число.
При желании пользователь сам может задавать значение параметра X1.
Общая блок-схема алгоритма расчета геометрии зубчатых конических передач с прямыми зубьями представлена на рис. 3.1. Условные обозначения в блок-схеме - по ГОСТ 19624-74.
3.3. Выходные данные выводятся на экран дисплея и могут быть распечатаны на АЦПУ в виде таблицы. Выходные формы представлены на рис. 3.2 и 3.3 и оформлены в соответствии с ГОСТ 2.405-75.
Таблицы содержат номинальные размеры зубчатой передачи и зубчатых колес, а также параметры для контроля качества зацепления.
3.4. Текст программы расчета геометрии конических зубчатых передач с прямыми зубьями и таблица идентификаторов приведены в приложении 2.
Рис. 3.1. Блок-схема алгоритма расчета геометрии зубчатых конических передач с прямыми зубьями
РИС. 3.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ КОНИЧЕСКОЙ ПЕРЕДАЧИ С ПРЯМЫМИ ЗУБЬЯМИ (ШЕСТЕРНЯ)
рис. 3.3. РЕЗУЛьтаты расчета геометрии зУБчАтой конической ПЕРЕДАЧИ С ПРЯМЫМИ ЗУБЬЯМИ (КОЛЕСО)
3.5 Описание программы:
наименование программы - GКР;
язык программирования - бейсик 02;
конфигурация ПЭВМ - «Искра-226» в основном комплекте;
объем памяти, занимаемый программой, - 70 секторов (? 17 Кбайт).
Загрузка программы осуществляется командой: LOADDCR{F}«GKP».
После загрузки программы пользователь работает с помощью «меню», предлагаемого программой. Отдельной инструкции для работы с программой не требуется.
4. РАСЧЕТ ГЕОМЕТРИИ ЗУБЧАТЫХ КОНИЧЕСКИХ ПЕРЕДАЧ С КРУГОВЫМИ ЗУБЬЯМИ
4.1. Входные параметры, вводимые в диалоговом режиме;
z1 - число зубьев шестерни;
z2 - число зубьев колеса;
одно из значений модуля:
mn - модуль средний нормальный, или
mt - модуль внешний окружной;
i - осевая форма зуба;
bn- угол наклона зуба, средний;
? - межосевой угол;
Хn1 - коэффициент смещения у шестерни;
МO - метод обработки зубчатых колес (односторонний или двухсторонний).
Для ввода значения Xn1 на экране дисплея в соответствующий момент высвечивается таблица зависимостей Xn1 от z1, передаточного числа u и угла наклона зуба bn.
В зависимости от исходных данных программой автоматически выбирается область рационального применения осевой формы зуба и рассчитывается диаметр зуборезной головки. Пользователю предоставляется возможность изменять данный параметр.
При нестандартном исходном контуре дополнительно вводятся параметры:
an - угол профиля;
ha* - коэффициент высоты головки зуба;
с* - коэффициент радиального зазора;
?f* - коэффициент радиуса кривизны переходной кривой в граничной точке профиля зуба.
Параметры исходного контура по ГОСТ 16202-81 представлены в программе константами.
4.2. Алгоритм расчета геометрии зубчатых конических передач с круговыми зубьями соответствует схеме и расчетным формулам и указаниям ГОСТ 19326-73.
Общая блок-схема алгоритма расчета представлена на рис. 4.1. Условные обозначения - по ГОСТ 19326-73.
4.3. Выходные данные выводятся на экран дисплея и распечатываются на АЦПУ в виде таблиц, приведенных на рис. 4.2 и 4.3. В таблицах даются расчетные значения геометрических параметров сопрягаемых зубчатых колес, приводимых на рабочих чертежах в соответствии с ГОСТ 2.405-75, параметры зубчатой передачи, измерительные размеры зуба и параметры качества зацепления.
4.4. Текст программы расчета геометрии зубчатых конических передач с круговыми зубьями и таблица идентификаторов программы приведены в приложении 3.
Рис. 4.1. Блок-схема алгоритма расчета геометрии зубчатых конических передач с круговыми зубьями
РИС. 4.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ КОНИЧЕСКОЙ ПЕРЕДАЧИ С КРУГОВЫМИ ЗУБЬЯМИ (ШЕСТЕРНЯ)
РИС. 4.3. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ КОНИЧЕСКОЙ ПЕРЕДАЧИ С КРУГОВЫМИ ЗУБЬЯМИ (КОЛЕСО)
4.5. Описание программы:
наименование программы - GKK;
язык программирования - бейсик 02;
конфигурация ПЭВМ - «Искра-226» в основном комплекте;
объем памяти, занимаемый программой, - 136 секторов (? 34 Кбайт).
Загрузка программы осуществляется командой языка бейсик: LOADDCR{F}«GKK».
После загрузки программы в ОЗУ пользователь работает с помощью «меню», предлагаемого программой. «Меню» предоставляет пользователю инструкцию по работе с программой.
5. РАСЧЕТ ГЕОМЕТРИИ ЧЕРВЯЧНЫХ ЦИЛИНДРИЧЕСКИХ ПЕРЕДАЧ
5.1. Основные входные (исходные) данные (параметры), значения которых следует ввести с клавиатуры дисплея в диалоговом режиме:
m - модуль;
q - коэффициент диаметра червяка;
z1 - число витков червяка;
ZA, ZI - вид (тип) червяка (архимедов, эвольвентный);
aw - межосевое расстояние;
X - коэффициент смещения червяка;
z2 - число зубьев колеса;
b1 - длина нарезанной части червяка.
Параметры aw и b1 можно вводить нулевыми. В этом случае они вычисляются программно.
При известном aw нулевым вводится параметр X, который вычисляется программно.
Параметры стандартного исходного контура заданы в программах константами.
При нестандартном исходном контуре дополнительно вводятся параметры:
a - угол профиля;
h* - коэффициент высоты витка;
ha* - коэффициент высоты головки;
S* - коэффициент расчетной толщины;
?f* - коэффициент радиуса кривизны переходной кривой.
5.2. Алгоритм расчета геометрии червячных цилиндрических передач соответствует схеме и расчетным формулам и указаниям ГОСТ 19650-74 (таблицы 1 - 4) и ГОСТ 19036-81 (СТ СЭВ 226-76).
Блок-схема укрупненного алгоритма расчета приведена на рис. 2.1. Условные обозначения - по ГОСТ 19650-74.
5.3. Выходные данные распечатываются на АЦПУ в виде двух таблиц, представленных на рис. 2.2. В таблицы вносят параметры, приводимые на рабочих чертежах червяка и червячного колеса в соответствии с ГОСТ 2.406-76.
5.4. Текст программы по расчету геометрии червячных цилиндрических передач и таблица идентификаторов программ приведены в приложении.
5.5. Описание программы:
наименование программы - GCН;
язык программирования - бейсик-02;
занимаемый объём памяти - 43 сектора (11 Кбайт);
конфигурация ПЭВМ - «Искра-226» в основном комплекте.
Загрузка программы осуществляется командой языка бейсик: LOADDCR{F}«GCH».
После загрузки программы пользователь работает с помощью «меню», встроенного в программу.
В «меню» предусмотрена инструкция пользователя по работе с программой.
Рис. 5.1. Блок-схема алгоритма расчета геометрии цилиндрических червячных передач
РИС. 5.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЧЕРВЯЧНОЙ ЦИЛИНДРИЧЕСКОЙ ПЕРЕДАЧИ
ПРИЛОЖЕНИЯ
Приложение 1
таблица идентификаторов программы GCL
УСЛОВНЫЕ ОБОЗНАЧЕНИЯ ПАРАМЕТРОВ - ПО ГОСТ 16532-70
10 % -----------------------------------------------------------------------------------------------------
20 % ПРОГРАММА РАСЧЕТА ГЕОМЕТРИИ ЦИЛИНДРИЧ. ЗУБЧАТОЙ ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛ.
30 % РАЗРАБОТЧИК - ВНИИНМАШ. 01.12.86.
40 % -----------------------------------------------------------------------------------------------------
50 СОМ J1%: IF S%>0 ТНЕN 70
60 РRINТ НЕХ(03):РRINТ «ЖЕЛАЕТЕ ОЗНАКОМИТЬСЯ С ИНСТРУКЦИЕЙ? (+ ДА, - НЕТ): INPUТ С¤:IF С¤:«+» ТНЕN 3560
70 CLEAR N:DIM В¤40, С¤40, К¤48, А¤25, Н¤45
80 В¤=«ОШИБЛИСЬ ПРИ ВВОДЕ, ПОЭТОМУ ПОДРЕЗАНИЕ*»
90 G¤=«НАЖМИТЕ КЛАВИШУ СR/LF И ПОВТОРИТЕ ВВОД»
100 К¤=«НЕВЕРНО ВВЕДЕН ОДИН ИЗ ПАРАМЕТРОВ 21, 22, М ИЛИ А»
110 А¤=«ПОВТОРИТЕ ВВОД ПАРАМЕТРА»IF S%>0 ТНЕN 530
120 РRINТ НЕХ(03); «ВЫ РАБОТАЕТЕ С ПРОГРАММОЙ ДЛЯ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ»
130 РРINТ «ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ», НЕХ(0А)
140 РРINТ НЕХ(12); «ВВЕДИТЕ ИСХОДНЫЕ ПАРАМЕТРЫ ПЕРЕДАЧИ», НЕХ(0А)
150 РRINТ НЕХ(11)
160 С=1; D=2; Е=.25; А2=20
170 INРUT «ИСХОДНЫЙ КОНТУР СТАНДАРТНЫЙ? (+ ДА; - НЕТ)»; Н1¤IF Н1¤=«+» ТНЕN 280
180 РRINТ «ВВЕДИТЕ ДАННЫЕ ДЛЯ НЕСТАНДАРТНОГО ИСХОДНОГО КОНТУРА»
190 INРUT «КОЭФФ. ВЫСОТЫ ГОЛОВКИ ..... НA=», С
200 INPUT «КОЭФФ. грАничн.высоты ..... HL=», D
210 INPUТ «КОЭФФ. РАДИАЛЬН.ЗАЗОРА .... С=», Е
220PRINT «УГОЛ ПРОФИЛЯ ГРAДУСЫ (15-25) ... A2=», A2
230IF A2<15 ОR A2>30 ТНЕN 220
240 INPUТ «МИНУТЫ(0-60) ... =», Y5
250 IF Y5<0 ОR Y5>60 ТНЕN 230
260INPUT «CЕКУНДЫ(0-60) ... =», Y6
270IF Y6<0 OR Y6>60 ТНЕN 260
280 INPUТ «УГОЛ НАКЛОНА ЗУБА (0-40) ГРАДУСЫ =», Y1
290IF Y1<0 ОR Y1>40 ТНЕN 280
300INPUТ «(0-60) МИНУТЫ =», Y2
310IF Y2<0 OR Y2>60 ТНЕN 300
320INPUT «(0-60) СЕКУНДЫ =», Y3
330IF Y3<0 ОR Y3>60 ТНЕN 320
340PRINT «МОДУЛЬ (1-50) ...... =», М
350IF М<1 OR М>50 ТНЕN 340
360INPUT «ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ(8-200) .. =», Z1
370IF Z1<8 ОR Z1>200 ТНЕN 360
380INPUT «ЧИСЛО ЗУБЬЕВ КОЛЕСА (8-200) ... =», Z2
390IF Z2<8 OR Z2>200 ТНЕN 380
400 INPUT «РАБОЧАЯ ШИРИНА ВЕНЦА(5-1000) ... =», В1
410 IF В1<5 ОR B1>1000 ТНЕN 400
420 INРUТ «ПЕРЕДАЧА СО СМЕЩЕНИЕМ ИСХ. КОНТУРА? (+ ДА; - НЕТ)», Н2¤
430 IF Н2¤=«+» ТНЕN 440: Х1=0; Х2=0; GOТО 490
440 РRINТ «ЕСЛИ ИЗВЕСТНЫ КОЭФФ. СМЕЩЕНИЙ, ВВЕДИТЕ ИХ; ИНАЧЕ ВВЕДИТЕ Х1=0, Х2=0»
450 INPUТ «КОЭФФ. СМЕЩЕНИЯ ШЕСТЕРНИ(-2 - +2) ... Х1=», Х1
460 IF Х1<-2 OR Х1>2 ТНЕN 450
470 INPUT «КОФФ. СМЕЩЕНИЯ КОЛЕСА(-2 - +2) ... Х2=», Х2
480 IF X2<-2 ОR Х2>2 ТНЕN 470
490 INPUT «МЕЖОСЕВОЕ РАССТОЯНИЕ(0 - 5000) … =», А:А(1)=А
500IF А<0 OR A>5000 THEN 490: IF H2¤=«+» AND X1=0 AND X21=0 AND A=0 THEN 510: GOTO 520
510 РRINТ «В ПЕРЕДАЧЕ СО СМЕЩЕНИЕМ ЗАДАЙТЕ ИЛИ X1, Х1 ИЛИ AW»: GОТО 420
52019=#PI/180: В=(Y1 + Y2/60 + Y3/3600) * I9:A2=(A2 + Y5/60 + Y6/3600)*19
530 С¤=НЕХ(03):D¤=НЕХ(12):Е¤=HЕХ(11):F¤=НЕХ(07):SЕLЕСТ R
540Z3=Z1 + Z2: A3=Z3*М/(2*СOS(В))
550R1=ТAN(R2)/СOS(В):A4=ARСТAN(R1):A5=ТAN(A4)-A4
560 Х5=В-С-Z1*(SIN(A4))^2/(2*СOS(В)):Х5=ROUND(Х5,3)
570 Х6=B-С-Z2*(SIN(A4))^2/(2*СOS(В)):Х6=ROUND(Х6,3)
580IF A=0 ТНЕN 710
590A1=A3/A*СOS(A4): IF A1>1 ТНЕN 610
600A6=ARCCOS(A1): A7=ТAN(A6)-A6: IF Н2¤=«+»ТНЕN 640: A=A3: GOТO 770
610 РRINТ С¤,F¤
620PRINT AT(10,5):PRINT D¤, K¤: PRINT AT(12,18): PRINT G¤,E¤
630INPUT I: IF I<99 ТHЕN 70
640 IF Х1=0 AND Х2=0 ТНЕN 650: GОТО 710
650 Х3=Z3*(A7-A5)/(2*ТAN(A2)):A3=ROUND(X3,3)
660 РRINT С¤: РRINТ AТ(9,5): РRINТ «СУММА КОЭФФИЦИЕНТОВ СМЕЩЕНИЙ Х1+Х2=»; X3: РRINТ: IF Х3>3 OR X3<-3 ТНЕN 700
670 РRINТ «МИНИМАЛЬНЫЕ ЗНАЧЕНИЯ КОЭФФ. СМЕЩЕНИЙ: Х1(МIN)=»; Х5
680 РRINТ «Х2(MIN)=»; Х6: РRINТ
690 INРUТ «ВВЕДИТЕ ЗНАЧЕНИЕ Х1=», Х1:Х2=Х3-Х1: GOТO 780
700 РRINТ «НЕВЕРНО ВВЕДЕНО МЕЖОСЕВОЕ РАССТОЯНИЕ, ПОВТОРИТЕ ВВОД»: PRINT: GOТО 160
710X3=Х1+Х2: A7=2*Х3*ТAN(A2)/Z3+A5
720 Е1=.00001:A0=(3*A7)^(1/3)
730 С0=ТAN(A0)-A0:D5=A7-С0:D6=D5/A0^2
740D6=D6*/63:A0=A0+D6
750IF AВS(D6)>Е1 ТНЕN 730
760A6=A0:A=Z3*М*СOS(A4)/(2*СOS(В)*СOS(A6))
770 Х3=Х1+Х2
780 Z5=2*(D-С-Х1)*СOS(В)/SIN(A4)^2:Z5=ROUND(Z5,4)
790 Z6=2*(D-С-Х2)*СОS(В)/SIN(A4)^2:Z6=ROUND(Z6,4)
800 IF Х5>Х1 AND Х6>Х2 ТНЕN 840
810 IF Х5>Х1 AND Х6<Х2 ТНЕN 870
820 IF Х6>Х2 AND Х5<Х1 ТНЕN 900
830 GOТO 930
840 PRINT С¤, F¤
850 PRINТ AТ(10,2): РRINТ D¤,В¤; «ХМIN1>Х1, ХMIN2>Х2»
860 РRINТ AТ(12,10): РRINТ G¤,Е¤: INPUТ I: IF I<999 ТHЕN 70
870 РRINТ С¤, F¤
880 РRINТ AТ(10,5): РRINТ D¤,В¤: «XMIN1>Х1»
890 РRINТ AТ(12,10): РRINТ G¤,Е¤: INРUТ I: IF I<999 ТНЕN 70
900 РRINТ С¤, F¤
910PRINT AT(10,5): PRINT D¤; B¤; «XMIN2>X2»
920 РRINT AТ(12,10): РRINТ G¤,Е¤: INРUТ I: IF I<999 ТНЕN 70
930IF Z5>Z1 AND Z6<Z2 ТНЕN 970
940IF Z6>Z2 AND Z5<Z1 ТНЕN 1000
950IF Z5>Z1 AND Z6>Z2 ТHЕN 1030
960GOTO 1060
970 РRINТ C¤, F¤
980 РRINТ AТ(10,5): РRINТ D¤, В¤: «ZMIN1>Z1»
990 РRINТ AТ(12,10): РРINТ G¤, Е¤: INPUТ I: IF I<999 ТНЕN 70
1000 РRINТ С¤, F¤
1010 РRINТ AТ(10,5): РRINТ D¤, B¤; «ZMIN2>Z2»
1020 РRINТ AТ(12,10): РRINТ G¤, Е¤: INPUT I: IF I<999 ТHЕN 70
1030 РRINТ С¤, F, F¤
1040PRINT AT(10,5): PRINT: D¤, E¤; «ZMIN1>Z1, ZMIN2>Z2»
1050 РRINТ AТ(12,10): РRINТ G¤, Е¤: INPUТ I: IF I<999 ТHEN 70
1060 Т=М/СOS(B): D1=Z1*Т: D2=Z2*Т
1070U=Z2/Z1: D3=2*A/(U+1): D4=D3*U
1080Y=(A-A3)/Н
1090 Y7=Х3-Y
1100 D5=D1+2*(С+Х1-Y7)*М
1110 D6=D2+2*(C+X2-Y7)*M
1120 D7=D1-2*(С+Е-Х1)*М
1130 D8=D2-2*(С+Е-Х2)*M
1140G1=D1*СOS(A4):G2=D2*СOS(A4)
1150G3=G1/D5:A8=ARССOS(G3)
1160G4=G2/D6:A9=ARССOS(G4)
1170G5=ТAN(A8)-A8:G6=ТAN(A9)-A9
1180P1=A*SIN(A6)-.3*G2*ТAN(A9)
1190 Р2=A*SIN(A6)-.5*G1*ТAN(A8)
1200N1=2*P1/G1:N2=P2*2/G2
1210 Р3=SIN(B)*СOS(A2):Р4=ARCSIN(Р3)
1220 Р5=2*A2
1230S1=(#РI/2*СOS(A2)^2+Х1*SIN(Р5))*M
1240S2=(#РI/2*СOS(A2)^2+Х2*SIN(Р5))*М
1250S3=.5*(G1*ТAN(A4)+S1*СOS(Р4)/СOS(A2))
1260 S4=.5*(G2*ТAN(A4)+S2*СOS(Р4)/СOS(A2))
1270IР S3>Р1 AND S4>Р2 ТHЕN 1330
1280 РRINТ С¤, F¤
1290 РRINТ AТ(10,5): РRINТ «РАДИУС КРИВИЗНЫ ПРОФИЛЕЙ ЗУБА В ТОЧКАХ, ОПРЕДЕЛЯЮЩИХ»
1300 РRINТ AТ(11,5): РRINТ «ПОСТ. ХОРДУ МЕНЬШЕ РАДИУСА КРИВИЗНЫ АКТИВНОГО ПРОФИЛЯ»
1310PRINT AT(12,10): PRINT «ЗУБА В НИЖНЕЙ ТОЧКЕ ROS<ROР»
1320 РRINТ AТ(14,10): РRINТ D¤; G¤, Е¤: INРUT I: IF I<999 ТНЕN 70
1330 Н1=.5*(D5-D1-S1*ТAN(A2)):Н2=.5*(D6-D2-S2*ТAN(A2))
1340Z7=Z1*СOS(A4)/(Z1+2*X1*СOS(B))
1350L1=ARССOS(Z7)
1360Z0=Z2*COS(A4)/(Z2+2*X2*COS(B))
1370L2=ARССOS(Z0)
1380Z8=Z1/#РI*(ТAN(L1)/СOS(Р4)-2*Х1*TAN(A2)/Z1-A5)+.5
1390Z9=Z2/#РI*(ТAN(L2)/СOS(Р4)-2*Х2*ТAN(A2)/Z2-A5)+.5
1400Z8=RОUND(Z8,0)
1410Z9=ROUND(Z9,0): IF Z7>1 ТНЕN 1420: GOТO 1430
1420Z8=3
1430W1=(#РI*(Z8-.5)+2*Х1*ТAN(A2)+Z1*A5)*М*СOS(A2)
1440IF Z0>1 ТНЕN 1450: GОТО 1460
1450Z9=3
1460W2=(#РI*(Z9-.5)+2*Х2*TAN(A2)+Z2*A5)*M*СOS(A2)
1470W3=.5*W1/СOS(Р4): W4=.5*W2/СOS(Р4)
1480W5=.5*D5*SIN(A8): W6=.5*D6*SIN(A9)
1490IF Р1<W5 AND Р2<W6 ТНЕN 1510
1500W1=0: W2=0: Z8=0: Z9=0: GОТО 1650
1510IF Р1<W3 ТНЕN 1530
1520Z8=Z8+1: GOТO 1430
1530IF Р2<W4 ТНЕN 1550
1540Z9=Z9+1: GOTO 1460
1550IF W3<W5 ТНЕN 1570
1560Z8=Z8-1: GOТO 1430
1570IF W4<W6 ТНЕN 1590
1580Z9=Z9-1: GOТO 1460
1590IF В=0 ТНЕN 1650
1600 Н=В1/SIN(P4)
1610IF H>W1 THЕN 1630
1620W1=0:Z8=0
1630IF Н>W2 THЕN 1650
1640W2=0:Z9=0
1650S5=(#РI/2+2*Х1*ТAN(A2))*М
1660S6=(#Р1/2+2*Х2*ТAN(A2))*М
1670L3=#PI*М*СOS(A2)
1680IF B>0 THEN 1700
1690 Р6=0: GОТО 1710
1700 Р6=#PI*M/SIN(B):Р7=Z1*Р6:P8=Z2*Р6
1710L4=.5*D1*SIN(A4)-((D-С-Х1)/SIN(A4))*M
1720L5=.5*D2*SIN(A4)-((D-C-X2)/SIN(A4))*M
1730 H¤=«НЕВЕРНЫЕ ИСХОДНЫЕ ПАРАМЕТРЫ*****ИНТЕРФЕРЕНЦИЯ*****»
1740IF L4<0 AND L5>0 THЕN 1780
1750IF L5<0 AND L4>0 THЕN 1780
1760IF L4<0 AND L5<0 THЕN 1780
1770GОТО 1810
1780 РRINТ C¤; F¤
1790 РRINТ AТ(22,20): РRINТ D¤, B¤
1800 РRINТ AТ(23,20): РRINТ G¤, Е¤:I=:INРUT I: IF 1<999 ТНЕN 70
1810IF L4>Р1 AND L5<Р2 THЕN 1850
1820IF L5>Р2 AND L4<Р1 ТНЕN 1850
1830IF L4>Р1 AND L5>Р2 THЕN 1850
1840GОТО 1880
1850 РRINТ С¤; F¤
1860 РRINT F78XWKKVWE7C9E AT(23,5): PRINT В¤; Н¤
1870 РRINТ AТ(24,20): РRINT G¤, Е¤:I NРUT I: IF I<909 ТНЕN 70
1880T2=(A1*TAN(A8)+Z2*TAN(A9)-Z3*TAN(A6))/(2*#PI): E3=0: IF B=0 THEN 1900
1890 Е3=B1/Р6
1900 Е4=Е2+Е3
1910 B2=D5/D1*ТAN(В):В3=ARСТAN(В2)
1920 В4=D6/D2*ТAN(В):В5=ARСТAN(В4)
1930S7=D5*((#РI/2+2*X1*ТAN(A2))/Z1+A5-G5)*COS(В3)
1940S8=D6*((#Р1/2+2*X2*TAN(A2))/Z+A5-G6)*СOS(В5)
1950 В6=B1+2: B7=В6+3
1960G9=180/#РI
1970A4=A4*G9:A6=A6*G9:В=В*G9:A2=A2*G9
1980I8=B:B%=B: IF В-B%>.99999 ТНЕN 1990: GOTO 2000
1990I8=ROUND(18,0):B%=В%+1
2000I7=I8-B%: I6=I7*60:I5=I6: I6%=I6: I4=I5-I6%
2010I3=I4*60: I3=ROUND(I3,0)
2020J8=A2 A2%=A2: J7=J8-A2%:J6=J7*60: J5=J6: J6%=J6: J4=J5-J6%: J3=J4*60: J3%=J3
2030A3=ROUND(A3,3): A=ROUND(A,3): X1=ROUND(X1,3): X2=ROUND(Х2,3): Х5=ROUND(A5,3)
2040X6=ROUND(X6,3): D1=ROUND(D1,3): D2=ROUND(D2,3): U=ROUND(U,3): W2=RОUND(W2,3)
2050D4=ROUND(D4,3): D3=ROUND(D3,3): V=ROUND(V,3): V7=ROUND(V7,3): D5=ROUND(D5,3)
2060D6=ROUND(D6,3): D7=ROUND(D7,3): D8=RUOND(D8,3): Р1=ROUND(Р1,3)
2070P2=ROUND(P2,3): S1=ROUND(S1,3): S2=ROUND(S2,3): H1=ROUND(H1,3)
2080H2=ROUND(H2,3): Z8=ROUND(Z8,3): Z9=ROUND(Z9,3): W1=ROUND(W1,3)
2090L3=ROUND(L3,3): P6=ROUND(P6,3): H7=ROUND(H7,3): P8=ROUND(P8,3)
2100L4=ROUND(L4,3): L5=ROUND(L5,3): Е2=ROUND(Е2,3)
2110E3=ROUND(E3,3): E4=ROUND(E4,3): S5=ROUND(S5,3): S6=ROUND(S6,3): G1=ROUND(G1,3): G2=ROUND(G2,3): P4=ROUND(P4,3)
2120 Р4=Р4*G9: F1=P4: Р4%=Р4: F2=F1-Р4%:
F3=F2*60: F4=F3: F3%=F3: F5=F4-F3%: F6=F5*60: F6%=F6
2130N1=N1*G9: F(1)=N1: N1%=N1: F(2)=F(1)-N1%: F(3)=F(2)*60: F(4)=F(3): F%(3)=F(3): F(5)=F(4)-F%(3): F(6)=F(5)*60: F%(6)=F(6)
2140N2=N2*G9: N(1)=N2: N2%=N2: N(2)=N(1)-N2%: N(3)=N(2)*60: N(4)=N(3): N%(3)=N(3): N(5)=N(4)-N%(3): N(6)=N(5)*60: N%(6)=N(6)
2150 РRINT С¤
2160 РRINT D¤; «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ ПЕРЕДАЧИ»; Е¤: РRINТ»
2170 РRINТ «ДЕЛИТ. МЕЖОС. РАССТ. А=»; А3; ТАВ(40); «МЕЖОСЕВОЕ РАССТОЯНИЕ AW=»; А
2180 РRINТ «КОЭФ. СМЕЩ. ШЕСТЕР. Х1=»; Х1; ТАВ(40); «КОЭФ. СМЕЩ. КОЛЕСА Х2=»; Х2
2190 РRINТ «КОЭФ. ВОСПР. СМЕЩ. Y=»; ТАВ(40); «КОЭФ. УРАВНИТ. СМЕЩЕН. Y1=»; Y1
2200 РRINТ «УГОЛ наклона ВЕТ=»; В%; «ГР»; 16%; «?»; I3; «??»; ТАВ(40); «ПЕРЕДАТОЧНОЕ ЧИСЛО U=»; U
2210 РRINТ «ДЕЛИТЕЛЬНЫЙ ДИАМЕТР D1=»; D1; ТАВ(40); «************ D2=»; D2
2220 РRINТ «ДИАМЕТР ВЕРШИН ЗУБА DA1=»; D5; ТAВ(40); «************ DA2=»; D6
2230 РRINT «ДИАМЕТР ВПадиН DF1=»; В7; ТФВ(40); «************ DF2=»; D8
2240 РRINТ «НАЧАЛЬНЫЙ ДИАМЕТР DW1=»; D3; ТAВ(40); «************ DW2=»; D4
2250 РRINТ «ПОСТОЯННАЯ ХОРДА SС1=»; SC1; ТAВ(40); «************ SС2=»; S2
2260 РRINТ «ВЫСОТА ДО ПОСТ. ХОРДЫ НС1=»; Н1; ТАВ(40); «************ НС2=»; Н2
2270 РRINT «ДЛИНА ОБЩЕЙ НОРМАЛИ W1»; W1; ТAB(40), «************ W2=»; W2
2280 РRINТ «РАСЧ. ЧИСЛО ЗУБЬЕВ В ДЛИНЕ"
2290 РRINТ «ОБЩЕЙ НОРМАЛИ ZNR1=»; Z8; ТAВ(40); «************ ZNR2=»; Z9
2300 РRINТ «ШАГ ЗАЦЕПЛЕНИЯ РALFA=»; L3; ТАВ(40); «ОСЕВОЙ ШАГ РХ=»; Р6
2310 РRINТ «»; «»; «»: STOP «для ДАЛЬНЕЙШЕГО ПРОСМОТРА НАЖМИТЕ КЛАВИШУ СОNTINUЕ»
2320 РRINТ С¤
2330 РRINT «ХОД ЗУБА РZ1=»; Р7; ТАВ(40); «*************РZ2=»; Р8
2340 РRINТ «РАДИУС КРИВИЗНЫ В ГРАНИЧ.»
2350 РRINТ «ТОЧКЕ ПРОФИЛЯ RL1=»; L4; ТAВ(40); «*************RL2=»; L5
2360 РRINТ «РАДИУС КРИВИЗНЫ АКТИВ.»
2370 РRINТ «ПРОФИЛЯ ЗУБА RP1=»; Р1; ТАВ(40); «*************RР2=»; Р2
2380 РRINТ «КОЭФФ. ТОРЦОВОГО ПЕРЕКРЫТИЯ «******************** ЕРALF=»; Е2
2390 РRINТ «КОЭФФ. ОСЕВОГО ПЕРЕКРЫТИЯ *********************** ЕРВЕТ=»; Е3
2400 РRINТ «КОЭФФИЦИЕНТ ПЕРЕКРЫТИЯ ******************** ЕРNY=»; Е4
2410 РRINТ «»; «»: РRINТ D¤, «ВАШИ ИСХОДНЫЕ ДАННЫЕ», Е¤
2420 РRINТ «ВЕЕТ=»; В%; «ГР»; I6%; «?»; I3; «??»; «Z1=»"; Z1; «Z2=»; Z2; «М=»; М
2430 РRINТ «ВW=»; В1; «AW=»; R1(1); «Х1=»; Х1; «Х2=»; Х2
2440 РRINТ AТ(20,5)
2450 РRINТ AТ(22,1): PRINТ D¤; «ДЛЯ ПРОСМОТРА НАЧАЛА ВЫХ. ФОРМЫ НАБЕРИТЕ 1 И нажмитЕ ?CR/LF»
2460 РRINТ «ДЛЯ ВЫВОДА РЕЗУЛЬТ. НА ПЕЧАТЬ НАЖМИТЕ СR/LF»; Е¤
2470I=0: INРUТ I: IF I=1 ТНЕN 2150
2480 INPUТ «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА ШЕСТЕРНИ», М¤: INPUТ «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА КОЛЕСА», М1¤
2490 IF В=0 ТНЕN 2520
2500 INPUТ «НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ШЕСТЕРНИ (ПРАВОЕ, ЛЕВОЕ)», М2¤
2510 IF М2¤=«ПРАВОЕ» ТНЕN 2520: GОТО 2530
2520 М3¤=«ЛЕВОЕ»: GOТO 2540
2530 М3¤=«ПРАВОЕ»
2540 IF 52%>1 ТHЕN 2560
2550 INPUТ «СТЕПЕНЬ ТОЧНОСТИ», М4¤
2560 SЕLECT PRINT0C
2570 РRINT «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЦИЛИНДРИЧЕСКОЙ»
2580 РRINT «ЗУБЧАТОЙ ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ»
2590 РRINТ «ШЕСТЕРНЯ»
2600 РRINТ «!-------------------------------------------------!"
2610 PRINT «!МОДУЛЬ ......!М !»; М; ТАВ(49); «!»
2620 РRINT «!ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ !Z1 «; Z1; ТAВ(49); «!»
2630 IF В=0 ТНЕN 2660
2640 РRINТ «!УГОЛ НАКЛОНА ЗУБА . . . !ВЕТА !»; В%; «Г»; I6%; «?»; I3; «?»; ТАВ(49); «!»
2650 РRINТ «!НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ! !»; М2¤; ТАВ(49); «!»
2660 IF Н1¤=«+» ТНЕN 2670: GOТO 2680
2670 РRINТ «!НОРМАЛЬН. ИСХОДНЫЙ КОНТУР! !ГОСТ 13755-81 !»: GОТО 2730
2680 РRINТ «! ПАРАМЕТРЫ ИСХ. КОНТУРА! ! !»
2690 РRINТ «! УГОЛ ПРОФИЛЯ !ALFA !»; А2%; «Г»; J6%; «?»; J3%; «??»; ТАВ(49); «!»
2700 РRINТ «! КОЭФФ. ВЫСОТЫ ГОЛОВКИ !НА !»; С; ТАВ(49); «!»
2710 РRINТ «! КОЭФФ. ГРАНИЧНОЙ ВЫСОТЫ !НL !»; D; ТАВ(49); «!»
2720 РRINТ «! КОФФ. РАДИАЛЬН. ЗАЗОРА !С !»; Е; ТАВ(49); «!»
2730 РRINТ «! МЕЖОСЕВОЕ РАССТОЯНИЕ !AW !»; А, ТАВ(49); «!»
2740 РRINТ «! ДЕЛИТ. МЕЖОС. РАССТОЯНИЕ !А !»; А3; ТАВ(49); «!»
2750 РRINТ «! КОЭФФИЦИЕНТ СМЕЩЕНИЯ !Х1 !»; Х1; ТАВ(49); «!»
2760 РRINТ «! СТЕПЕНЬ ТОЧНОСТИ ! !»; М4¤; ТАВ(49); «!»
2770 РRINТ «!------------------------------------------------!»
2780 РRINТ «! ПОСТОЯННАЯ ХОРДА ЗУБА !SС1 !»; S1; ТAВ(49) «!»
2790 РRINТ «! ВЫСОТА ДО ПОСТОЯНН. ХОРДЫ !НС1 !»; Н1; ТАВ(49); «!»
2800 PRINТ «! ДЛИНА ОБЩЕЙ НОРМАЛИ !W1 !»; W1; ТAВ(49); «!»
2810 РRINТ «! РАСЧЕТНОЕ ЧИСЛО ЗУБЬЕВ ! ! !»
2820 РRINТ «! В ДЛИНЕ ОБЩЕЙ НОРМАЛИ !ZNR1 !»; Z8; ТАВ(49); «!»
2830 РRINТ «!---------------------------------------------------!»
2840 РRINТ «! РАБОЧАЯ ШИРИНА ВЕНЦА !ВW !»; В1; ТАВ(49); «!»
2850 РRINТ «! ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D1 !»; D1; ТАВ(49); «!»
2860 РRINТ «! ОСНОВНОЙ ДИАМЕТР !DВ1 !»; G1; ТAВ(49); «!»
2870 РRINТ «! ДИАМЕТР ВЕРШИН ЗУБА !М1 !"; Р5; ТЯВ<49); "!"
2880 РRINT «! НАЧАЛЬНЫЙ ДИАМЕТР !DR1 !»; D5; ТAВ(49); «!»
2890 РRINТ «! НОРМАЛЬНАЯ ТОЛЩИНА ЗУБА !SN1 !»; S5; ТAВ(49); «1»
2900 РRINТ «! РАДИУС КРИВИЗ. АКТИВНОГО ! !»; ТАВ(49); «!»
2910 РRINТ «! ПРОФИЛЯ ЗУБА В НИЖ. ТОЧКЕ !R1 !»; Р1; ТАВ(49); «!»
2920 РRINТ «! УГОЛ РАЗВЕРНУТОСТИ АКТИВ ! !»; ТАВ(49); «!»
2930 РRINТ «! ПРОФИЛЯ ЗУБА В НИЖ. ТОЧКЕ !NUР1 !»; N1%; «Г»; F%(3); «??»; ТАВ(49); «!»
2940 РRINТ «! ОСНОВНОЙ УГОЛ НАКЛОНА !ВЕТВ !»; Р4%; «Г»; F3%; «?»; F6%; «??»; ТАВ(49); «!»
2950 РRINТ «! ШАГ ЗАЦЕПЛЕНИЯ !РАLFA!»; L3; ТАВ(49); «!»
2960 РRINТ «! ОСЕВОЙ ШАГ !РХ !»; Р6; ТАВ(49); «!»
2970 РRINТ «КОД ЗУБА !РZ1 !»; Р7; ТАВ(49); «!»
2980 РRINТ «!------------------------------------------------!»
2990 РRINТ «! ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СОП-!»; ТАВ(49); «!»
3000 РRINТ «! РЯГАЕМОГО ЗУБЧАТ. КОЛЕСА !»; М1¤; ТАВ(49); «!»
3010 РRINТ «!----------------------------------------------!»
3020 РRINТ «КОЛЕСО»
3030 РRINТ «!-------------------------------------------------!»
3040 РRINТ «! МОДУЛЬ !М !»; М; ТАВ(49); «!»
3050 РRINТ «! ЧИСЛО ЗУБЬЕВ КОЛЕСА !Z2 !»; Z2; ТАВ(49); «!»
3060 IF В=0 ТНЕN 3090
3070 РRINT «!УГОЛ НАКЛОНА ЗУБА !ВЕТА !», В%; «Г», I6%; «?»; I3; «??»; ТАВ(49); «!»
3080 РRINТ «! НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ! !»; М3¤; ТАВ(49); «!»
3090 IF Н1¤=«+» ТНЕN 3100: GOТO 3110
3100 РRINТ «НОРМАЛЬН. ИСХОДНЫЙ КОНТУР! ! ГОСТ 13755-61 !»: GОТО 3160
3110 РRINТ «! ПАРАМЕТРЫ ИСХ. КОНТУРА ! !»
3120 РRINТ «! УГОЛ ПРОФИЛЯ !ALFA !»; А2%; «Г»; J6%; «?»; J3%; «??»; ТАВ(49); «!»
3130 РRINТ «! КОЭФФ. ВЫСОТЫ ГОЛОВКИ !НА !»; С; ТАВ(49); «!»
3140 РRINТ «! КОЭФФ. ГРАНИЧНОЙ ВЫСОТЫ !НL !»; D; ТАВ(49); «!»
3150 РRINТ «! КОЭФФ. РАДИАЛЬН. ЗА3ОРА !С !»; Е; ТАВ(49); «!»
3160 РRINТ «! МЕЖОСЕВОЕ РАССТОЯНИЕ !AW !»; А; ТАВ(49); «!»
3170 РRINТ «! ДЕЛИТ. МЕЖОС. РАССТОЯНИЕ !А !Р3; ТАВ(49); «!»
3180 РRINТ «! КОЭФФИЦИЕНТ СМЕЩЕНИЯ !Х2 !»; Х2; ТАВ(49); «!»
3190 РRINТ «! СТЕПЕНЬ ТОЧНОСТИ ! !»; М4¤; ТАВ(49); «!»
3200 РRINТ «!------------------------------------------------!»
3210 РRINТ «! ПОСТОЯННАЯ ХОРДА ЗУБА !SС2 !»; S2; ТАВ(49); «!»
3220 РRINТ «! ВЫСОТА ДО ПОСТОЯНН. ХОРДЫ !НС2 !»; Н2; ТАВ(49); «!»
3230 РRINT «! ДЛИНА ОБЩЕЙ НОРМАЛИ !W2 !»; W2; ТАВ(49); «!»
3240 РRINТ «! РАСЧЕТНОЕ ЧИСЛО ЗУБЬЕВ ! ! !»
3250 РRINТ «! В ДЛИНЕ ОБЩЕЙ НОРМАЛИ !ZA2 !»; Z9; ТАВ(49); «!»
3260 РRINТ «!------------------------------------------------»
3270 РRINТ «! РАБОЧАЯ ШИРИНА ВЕНЦА !ВW !»; В1; ТАВ(49); «!»
3280 РRINТ «! ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D2 !»; D2; ТАВ(49); «!»
3290 РRINТ «! ОСНОВНОЙ ДИАМЕТР !DВ2 !»; G2; ТАВ(49); «!»
3300 РRINТ «! ДИАМЕТР ВЕРШИН ЗУБА !DA2 !»; D6; ТАВ(49); «!»
3310 РRINT «! НАЧАЛЬНЫЙ ДИАМЕТР !DW2 !»; D4; ТАВ(49); «!»
3320 РRINТ «! НОРМАЛЬНАЯ ТОЛЩИНА ЗУБА !SW2 !»; S6; ТАВ(49); «!»
3330 РRINТ «! РАДИУС КРИВИЗНЫ АКТИВНОГО ! !»; ТАВ(49); «!»
3340 РRINT «! ПРОФИЛЯ ЗУБА В НИЖ. ТОЧКЕ !R2 !»; Р2; ТАВ(49), «!»
3350 РRINТ «! УГОЛ РАЗВЕРНУТОСТИ АКТИВА ! !»; ТАВ(49); «!»
3360 РRINТ «! ПРОФИЛЯ ЗУБА В НИЖ. ТОЧКЕ !NUР2 !»; N2%; «Г»; N%(3); «?»; N%(6); «??»; ТFВ(49); «!»
3370 РRINТ «! ОСНОВНОЙ УГОЛ НАКЛОНА !БЕТВ !»; Р4%; «Г»; F3%; "?"; F6%; «??»; ТАВ(49); «!»
3380 РRINТ «! ШАГ ЗАЦЕПЛЕНИЯ !РALРHA!»; L3; ТАВ(49); «!»
3390 РRINТ «! ОСЕВОЙ ШАГ !Р%; !»; Р6; ТАВ(49); «!»
3400 РRINТ «! ХОД ЗУБА !РZ2 !»; Р8; ТАВ(49); «!»
3410 РRINТ «!------------------------------------------------!»
3420 РRINТ «! ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СОП-!»; ТАВ(49); «!»
3430 РRINТ «! РЯГАЕМОГО ЗУБЧАТ. КОЛЕСА!»; М¤; ТАВ(49); «!»
3440 РRINТ «!------------------------------------------------!»
3450 SЕLЕСТ РRINТ05
3460 РRINТ HЕХ(03)
3470 INPUТ «БУДЕТЕ ЕЩЕ РАБОТАТЬ С ЭТОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤
3480IF I¤=«+» ТНЕN 50
3490 INPUТ «БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤
3500IF I¤=«+» ТНЕN 3510: GOТO 3540
3510IF J1%=0 ТHЕN 3520: LOAD DСR«GEOM»: GОТО 3530
3520 LОAD DС F«GЕОM»
3530 ЕND
3540 РRINT НЕX(03): РRINТ AТ(12,23): РRINТ «СПАСИБО ЗА РАБОТУ ДО СВИДАНИЯ!»
3550 ЕND
3560 PRINT HЕX(03)
3570 РRINТ «КРАТКАЯ ИНСТРУКЦИЯ ПО РАБОТЕ С ПРОГРАММОЙ»: РRINТ «»
3580 РRINT «1. БУДЬТЕ ВНИМАТЕЛЬНЫ ПРИ ВВОДЕ ИСХОДНЫХ ДАННЫХ.»
3590 РRINТ «2. ДРОБНУЮ ЧАСТЬ ЧИСЛА ОТДЕЛЯЙТЕ ТОЧКОЙ (НЕ ЗАПЯТОЙ).»
3600 РRINТ «3. МОЖНО ВВОДИТЬ НУЛЕВЫМИ СЛЕДУЮЩИЕ ПАРАМЕТРЫ»
3610 РRINТ «- МЕЖОСЕВОЕ РАССТОЯНИЕ AW ; »
3620 РRINТ «- КОЭФФ.СМЕЩЕНИЯ X1 И Х2 ; »
3630 РRINТ «4. ЕСЛИ ИЗВЕСТНЫ КОЭФФ. СМЕЩЕНИЯ X1 И Х2, МЕЖОСЕВОЕ»
3640 РRINТ «РАССТОЯНИЕ AW МОЖНО ВВОДИТЬ НУЛЕВЫМ (РАССЧИТЫВАЕТСЯ ПРОГРАМ
3680SЕLЕCT PRINT05
3690PRINT «»: PRINT«»
3700PRINT «нажмите кЛ. сR/LF и нАчинАйТЕ РАБотАть. жЕлАю УспЕХоВ !»
3710 РRINТ «ДЛЯ ВЫВОДА ИНСТРУКЦИИ НА ПЕЧАТЬ НАБЕРИТЕ 1 И КЛ.СR/LF»
3720I=0: INPUT I: IF I<1 THEN 60
3730 SЕLEСТ РRINТ0С: GОТО 3570
Приложение 2
тАБЛИЦА идентификаторов программы Gкр
Z1 = Z1 |
d0 = D9 |
?a2 = Т6 |
= S7 |
dvtl1 = V1 |
Z2 = Z2 |
Uvb = U1 |
?f1 = Т7 |
= A5 |
dvtl2 = V2 |
me = M |
Zvb1 = Z8 |
?f2 = Т8 |
lx1 = D(2) |
davtl1 = V3 |
? = S |
hal1 = Н1 |
dl1 = D5 |
lx2 = D(3) |
davtl2 = V4 |
? = A2 |
hal2 = Н2 |
dl2 = D6 |
dyl2 = D(1) |
atal1 = В6 |
ha* = Н |
hfl1 = Н3 |
dal1 = D7 |
Rx1 = D(4) |
atal2 = В7 |
С* = С |
hfl2 = Н4 |
dal2 = D8 |
Rx2 = D(5) |
S*al1 = S8 |
?1* = R1 |
hl1 = Н5 |
B1 = В2 |
Sx1 = D(6) |
S*al2 = S9 |
Zc = Z3 |
hl2 = Н6 |
B2 = B3 |
Sx2 = D(7) |
?a = Е1 |
Re = R2 |
Sl1 = S1 |
= S3 |
= D(8) |
?b = Е2 |
b = В1 |
Sl2 = S2 |
= S4 |
= D(9) |
?c = Е3 |
R = R |
Xl1 = Х3 |
= H7 |
= D(10) |
?? = Е4 |
m = M1 |
Xl = Х1 |
= H8 |
= D(11) |
|
d1 = D1 |
X2 = X2 |
?l1 = Р1 |
= D(12) |
|
d2 = D2 |
?f1 = Т1 |
?l2 = Р2 |
dyx2 = D(13) |
|
mi = М2 |
?f2 = T2 |
= S5 |
hayx2 = D(14) |
|
?1 = D3 |
?a1 = T3 |
= S6 |
Z1min = Z4 |
|
?2 = D4 |
?a1 = Т4 |
= A3 |
Zvt1 = Z5 |
|
u = U |
?a1 = Т5 |
= A4 |
Zvt2 = Z6 |
|
УСЛОВНЫЕ ОБОЗНАЧЕНИЯ ПАРАМЕТРОВ - ПО ГОСТ 19624-74
10 ! %---------------------------------------------------------------------
20 %ПРОГРАММА РАСЧЕТА ГЕОМЕТРИИ ЗУБЧ. КОНИЧЕСКИХ ПЕРЕДАЧ С ПРЯМЫМИ ЗУБЬЯМИ
30 %РАЗРАБОТЧИК - ВНИИНМАШ 01.12.86 * ПО ГОСТ 19624-74 *
40%---------------------------------------------------------------------
50 СОМ J1%:РRINT НЕX(03)
60 INРUТ «ЖЕЛАЕТЕ ОЗНАКОМИТЬСЯ С ИНСТРУКЦИЕЙ ? (+ ДА, - НЕТ)», С¤:IF С¤=«+» ТНЕN 2790
70 СLEAR N
80DIM A¤52, В¤10, Н¤10, G¤63, К¤40, W¤25, O(10), Т(10), Т%(10), W%(10), A%(10), A(10), W(16), J(10), С(10), A(10), B(30), D(14)
90 W¤=«ПОВТОРИТЕ ВВОД ПАРАМЕТРА»
100 А¤=«ПОДРЕЗАНИЕ, НАЖМИТЕ СR/LF И ВВЕДИТЕ ДРУГИЕ ДАННЫЕ»
110 В¤=«(XМIN1>X1)»: Н¤=«ZМIN1>Z1)»
120 G¤=«ВЫ РАБОТАЕТЕ С ПРОГРАММОЙ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТЫХ КОНИЧЕСКИХ»
130 К¤=«ПЕРЕДАЧ С ПРЯМЫМИ ЗУБЬЯМИ»
140 С¤=НЕХ(03): D¤=НЕX(12): Е¤=НЕХ(11): F¤=НЕХ(07)
150 A2=20: Н=1: С=.2: R1=.2
160 РRINТ С¤
170PRINT AT(2,1): PRINT D¤; G¤; Е¤: PRINT AT(3,15): PRINT D¤; К¤; Е¤
180 РRINТ «ВВЕДИТЕ ИСХОДНЫЕ ДАННЫЕ»
190 РRINТ «(ВВОД ПАРАМЕТРА ЗАВЕРШАЙТЕ НАЖАТИЕМ КЛАВИШИ СR/LF)»
200 РRINТ ««INPUT «ИСХОДНЫЙ КОНТУР СТАНДАРТНЫЙ? (+ ДА; - НЕТ)», С1¤
210 IF С1¤=«+» ТНЕN 220: GОТО 230
220 Y7=1:GOТO 360
230 РRINТ « УГОЛ ПРОФИЛЯ»
240 Н7=0: INPUТ « ГРАДУСЫ(15-25) =»,А2:А2(1)=А2
250IF A2<15 ОR A2>25 ТНЕN 230
260INPUT «минуты (0-60)=», Y5
270IF Y5<0 ОR Y5>60 ТНЕN 260
280INPUT « СЕКУНДЫ(0-60) =», Y6
290IF Y6<0 OR Y6>60 THЕN 280
300 INPUТ «КОЭФ. ВЫСОТЫ ГОЛОВКИ(.5-1.5) НА=», Н
310 IF Н<.5ORН>1.5ТНЕN300
320 INРUТ «КОЭФ. РАДИАЛЬН. ЗАЗОРА(0.1-0.3) С=», С
330 IF С<.1 OR С>.3 ТНЕN 320
340 INРUT «КОЭФ. РАДИУСА КРИВИЗНЫ(0.1-0.3) R =», R1
350IF R1<.1 OR R1>.3 ТНЕN 340
360 INPUТ «ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ(8-200) Z1=», Z1%
370IF Z1%<80 OR Z1%>200 THЕN 360
380 INPUT « ЧИСЛО ЗУБЬЕВ КОЛЕСА (8-200) Z2=», Z2%
390IF Z2%<8 OR Z%>200 ТНЕN 380
400 INРUТ « ВНЕШНИЙ ОКРУЖНОЙ МОДУЛЬ(1-50) МЕ=», М
410IF M<1 OR M>50 THЕN 400
420 РRINТ «МЕЖОСЕВОЙ УГОЛ»
430 PRINT «ГРАДИУСЫ(10-170) =», Y1
440IF Y1<10 OR Y1>170 ТНЕN 430
450INPUТ «МИНУТЫ (0-60) =», Y2
460IF Y2<0 ОR Y2>60 ТНЕN 450
470INPUT «СЕКУНДЫ(0-60) =», Y3
480IF Y3<0 ОR Y3>60 ТНЕN 470
490 INРUT « ШИРИНА ЗУБЧАТОГО ВЕНЦА (0-200) В=», В1%
500 РRINТ «ЕСЛИ ЗУБЬЯ НАРЕЗАЮТСЯ ЗУБОРЕЗНЫМИ ГОЛОВКАМИ МЕТОДОМ ОБКАТКИ»
510 РRINТ «ВВЕДИТЕ ВЕЛИЧИНУ ДИАМЕТРА ГОЛОВКИ D0(MM), ИНАЧЕ ВВЕДИТЕ D0=0»
520 INPUT «ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ D0=», D0: GОТО 530
530W=#Р1/180: SЕLЕСТ R: A2=A2+Y5/60+Y6/3600
540 S=Y1+Y2/60+Y3/3600: A2=A2*W: S=S*W
550Z3=1/SIN(S)*SQR(Z1%^2+2*Z1%*Z2%*СOS(S5)):Z1=Z1%:Z2=Z2%
560 R2=.5*M*Z3: IF В1%>1 ТНЕN 580
570 В1=.3*R2:В1%=В1
580 R=R2-.5*В1%:М1=M*R/R2:D1=М1*Z1%:D2=M1*Z2:
590N2=М*(R2-В1%)/R2: D3=ARCTAN(SIN(S)/(Z2%+СOS(S)))
600D4=S-D3: U=Z2%/Z1%: U1=U: W(15)=ROUND(D3/W,2): W(16)=ROUND(D4/W,2)
610IF D3/W<50 OR D3/W>85 OR D4/W<5 OR D4/W>85 ТНЕN 620: GОТО 670
620 РRINT С¤: РRINТ AТ(10,1): РRINТ D¤;
630 РRINТ «УГЛЫ ДЕЛИТЕЛЬНЫХ КОНУСОВ DЕLТ1=», W(16); Е¤
640PRINT D¤; « DELT2=»; W(16); E¤
650 РRINТ AТ(12,1): РRINТ D¤; «ВНЕ ДОПУСТИМЫХ ГРАНИЦ (5-85 ГР)»; Е¤
660PRINT AT(14,10): PRINT «НАЖМИТЕ КЛ. CR/LF И ВВЕДИТЕ ДРУГИЕ ДАННЫЕ»: INPUT J: IF J<990 ТНЕN 70
670IF Y1>90 OR Y1<90 ТНЕN 680: GОТО 700
680U1=SQR(U*СOS(D3)/СOS(D4))
690Z1=Z1%/СOS(D3)*U1/SQR(1+U1^2)
700 IF Y7=1 ТНЕN 760
710 В(1)=COS(A2): В(2)=SIN(A2)^2: В(3)=U(1)^2: В(4)=В(3)/B(3)-1: В(5)=В(3)+1
720 В(6)=Z1/U1*SQR(В(5): В(7)=.5*В(2)*В(4)*В(6): В(8)=SQR(В(7)^2+Н^2): В(9)=В(8)-В(7): В(10)=.5*В(6): В(11)=В(3)*В(10): В(12)=В(10)+Н+В(9): В(13)=В(11)+Н-В(9)
730 В(15)=ARCCOS(В(1)*В(10)/В(12)): В(17)=ARCCOS(В(1)*В(11)/В(13)): В(18)=В(15)-A2: В(19)=В(17)-A2: В(20)=1-СОS(В(18)): В(21)=1-СОS(В(19)): B(22)=В(12)*В(20)
740 В(23)=В(13)*В(21): В(24)=Н-В(22): В(25)=Н-В(23): В(26)=В(22)-В(23): В(27)=В(7)-.5*В(26): В(28)=В(26)*В(27): В(29)=В(7)*В(26)+В(28): В(30)=SQR(В(27)^2+В(29))
750 Х1=В(30)-В(27): Х1=ROUND(Х1,2): GOТO 830
760 Х1=-(4.84/(Z1-4/75)+.083)/U1^2+(1.428/(Z1-5.1)-.12)/U1+8.48/(Z1+5.9)+.11
770 Х1=ROUND(X1,2)
780IF Z1>=18 AND Z1<=30 ТНЕN 800
790 GОТО830
800IF U1>=2.5 ТНЕN 810: IF U1<1.8 ТНЕN 820: GOТO 830
810 Х1=Х1+.02: GOТO 830
820 Х1=X1-.01
830 Х2=-Х1: IF U1<2.5 ТНЕN 850
840 Х3=.03+.008*(U1-2.5)
850 РRINТ НEХ(03): РRINТ AТ(10,2)
860 РRINТ «РАСЧЕТНОЕ ЗНАЧЕНИЕ КОЭФФ. СМЕЩЕНИЯ Х1=»; Х1
870 PRINT «Если вы согласны, нАЖмитЕ CR/LF»
880 INPUТ «ИНАЧЕ НАБЕРИТЕ НОВОЕ ЗНАЧЕНИЕ X1 И НАЖМИТЕ СR/LF», Х1
890 Н1=(Н+Х1)*М: Н2=2*Н*М-Н1: Н3=Н2+С*М: Н4=Н1*С*М
900 РRINТ НЕХ(03): РRINТ AТ(10,2)
910 РRINТ «РАСЧЕТНОЕ ЗНАЧЕНИЕ КОЭФФ. ИЗМЕНЕНИЯ РАСЧЕТН. ТОЛЩИНЫ ХТАU1=»; Х3
920 РRINТ «ЕСЛИ ВЫ СОГЛАСНЫ, НАЖМИТЕ СR/LF»
930 INPUT «ИНАЧЕ НАБЕРИТЕ НОВОЕ ЗНАЧЕНИЕ ХТАU1 И НАЖМИТЕ СR/LF», Х3
940 Н5=Н1+Н3: Н6=Н2+Н4
950 S1=(#РI/2+2*Х1*ТAN(A2)+Х3)*М: S2=#РI*M-S1
960 Т1=ARCCTAN(Н3/R2): Т2=ARCCTAN(H4/R2)
970 Т3=Т2: Т4=Т1: Т5=D3+Т3: Т6=D4+Т4
980 Т7=D3-Т1: Т8=D4-Т2
990 D5=М*Z1: D6=M*Z2
1000 D7=D5+2*Н1*СOS(D3): D8=D6+2*Н2*СOS(D4)
1010 В2=R2*СOS(D3)-Н1*SIN(D3)
1020 В3=R2*СOS(D4)-Н2*SIN(D4)
1030S3=S1*(СOS(A2))^2: S4=S2*(СOS(A2))^2
1040 Н7=Н1-.25*S1*SIN(2*A2): Н8=Н2-.25*S2*SIN(2*A2)
1050 Р1=S1*СOS(D3)/D5: Р2=S2*СOS(D4)/D6
1060S5=D5/СOS(D3)*SIN(Р1): S6=D6/COS(D4)*SIN(Р2)
1070A3=Н1+.25*S1*Р1: A4=Н2+.25*S2*Р2
1080D1=D6-М*СOS(D4): S7=D6/СOS(D4)*SIN(Р2)+М*ТAN(A2)
1090R0=С*М/(1-SIN(A2))
1100A5=Н2+.25*S2*Р2+.5*М
1110 R0=С*М/(1-SIN(A2))
1120D(2)=/5*(D7-D7/1.031)*((1-TAN(T5))+TAN(D3))*COS(D3): D(3)=.5*(D8-D8/1.031)*((1-TAN(T6))+TAN(D4))*COS(D4): D(4)=R2-D(2): D(5)=R2-D(3): D(6)=S1*D(4)/R2: D(7)=S2*D(5)/R2: D(8)=D5*D(4)*SIN(H1)/R2/COS(D3): D(9)=D6*D(5)*SIN(H2)/R2COS(D4)
1130 D(10)=Н1+.25*D(6)*Р1-D(2)*ТAN(Т3): D(11)=Н2+.25*D(7)*Р2-D(3)*ТAN(Т4)
1140D(12)=D6*D(5)*SIN(P2) R2/COS(D4)+M*TAN(A2): D(13)=D6*D(5)/R2-M*COS(D4)
1150D(14)=Н2+.25*D(7)*Р2-D(3)*ТAN(Т4)+.5*M
1160D(1)=ROUND(D(1),4): D(2)=ROUND(D(2)/4): D(3)=ROUND(D(3),4): D(8)=ROUND(D(8),4): D(9)=ROUND(D(9),4): D(10)=RОUND(D(10),4): D(11)=RОUND(D(11),4): D(12)=RОUND(D(12),4): D(13)=RОUND(D(13),4): D(14)=RОUND(D(14),4)
1170IF D0=0 TНЕN 1190
1180W5=В1%^2*СOS(A2)/(4*D0*М1): GOТ0 1200
1190W5=0
1200Z4=2*(Н-X1+W5)*СOS(D3)/SIN(A2)^2
1210 Х4=Н-Z1*SIN(A2)^2/2/СOS(D3)+W5
1220IF Z4>Z1 ТHЕN 1240
1230 IF X4>Х1 ТНЕN 1270: GОТО 1300
1240 РRINT С¤
1250PRINT AT(10,2): PRINT D¤; A¤; H¤
1260I=0: INРUT I: IF I<999 ТНЕN 70
1270 РRINТ С¤
1280 РRINТ AТ(10,2): РRINT D¤; A¤; B¤
1290I=0: INРUT I: IF I<999 ТНЕN 70
1300Z5=Z1/COS(D3): Z6=Z2/COS(D4)
1310 V1=Z5*М: V2=Z6*М
1320 V3=V1+2*Н1: V4=V2+2*Н2
1330 В6=ARССOS(V1/V3*СOS(A2))
1340 В7=ARССOS(V2/V4*СOS(A2))
1350A8=TAN(A2)-A2: A6=ТAN(B6)-В6: A7=ТAN(B7)-В7
1360S8=V3/M*(S1/V1+A8-A6): S9=V4/M*(S2/V2+A8-A7)
1370IF S8<.3 ОR S9<.3 ТНЕN 1380: GОТО 1430
1380 РRINТ С¤
1390 РRINТ AТ(10,2): РRINT D¤: «ВНЕШНЯЯ ОКРУЖНАЯ ТОЛЩИНА ЗУБА НА ПОВЕРХНОСТИ»; Е¤
1400 РRINT AТ(11,2): РRINТ D¤; «ВЕРШИН (В ДОЛЯХ МОДУЛЯ) SAЕ<0.3»; Е¤
1410 РRINТ «»
1420 SТOР «ДЛЯ ПРОДОЛЖЕНИЯ РАБОТЫ НАЖМИТЕ СОNTINUE, ИНАЧЕ - RUN И СR/LF»
1430Z7=(Z5/2+Н1/М)^2: Z8=(Z5/2*СOS(A2))^2
1440Z0=(Z6/2+Н2/М)^2: Z9=(Z6/2*СOS(A2))^2
1450 Е9=1/#РI/СOS(A2): Е1=E9*SQR(Z7-Z8)
1460 Е2=Е9*SQR(Z0-Z9)
1470 Е3=(Z5+Z6)/2/3.1415926*ТAN(A2)
1400 Е4-Е1+Е2-Е3
1490 К=180/#РI: D3=D3*K: D4=D4*K: Т(1)=Т1*К: Т(2)=К*T2: Т(3)=Т3*K: Т(4)=Т4*K: Т(5)=Т5*К
1500 Т(6)=Т6*К: Т(7)=Т7*К: Т(8)=T8*К: Т(9)=D3: Т(10)=D4: R2=A2*К: A2%=A2
1510Z3=ROUND(23,4): R2=ROUND(R2,4): R=ROUND(R,4): M1=ROUND(M1,4): M2=ROUND(M2,4)
1320D1=ROUND(D1,4): D2=ROUND(D2,4): Z1=ROUND(Z1,4)
1530U=ROUND(U,4): U1=ROUND(U1,4): Z8=ROUND(Z8,4): X3=ROUND(X3,4): H1=ROUND(H1,4)
1540 Н2=ROUND(H2,4): Н3=ROUND(H3,4): Н4=ROUND(H4,4): Н5=ROUND(H5,4)
1550 Н6=ROUND(H6,4): S1=ROUND(S1,4): S2=ROUND(S2,4)
1560D5=ROUND(D5,4)
1570D6=ROUND(D6,4): D7=ROUND(D7,4): D8=ROUND(D8,4): В2=ROUND(В2,4)
1580B3=ROUND(В3,4): S3=ROUND(S3,4): S4=ROUND(S4,4): Н7=ROUND(Н7,4)
1590H8=ROUND(H8,4): P1=ROUND(P1,5): P2=ROUND(P2,5): S5=ROUND(S5,4)
1600S6=ROUND(S6,4): A3=ROUND(A3,4): A4=ROUND(A4,4): E4=ROUND(E4,4): S7=ROUND(S7,4): A5=ROUND(A5,4)
1610FOR I=1 TO 10: O(I)=T(I): T%(I)=T(I): Q(I)=O(I)-T%(I)
1620MAT W=(60)*Q: J(I)=W(I): W%(I)=W(I): C(I)=J(I)-W%(I)
1630MAT A=(60)*C: A%(I)=A(I)
1640NЕХТ I
1650 РRINТ С¤
1660 РRINТ AT(5,1): PRINT D¤; «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ КОНИЧЕСКОЙ»
1670 РRINТ «ПЕРЕДАЧИ С ПРЯМЫМИ ЗУБЬЯМИ», Е¤: РRINТ «»
1680 РRINТ «ЧИСЛО ЗУБЬЕВ Z1=»; Z1%; «Z2=»; Z2%
1690 PRINT «ВНЕШНИЙ ОКРУЖНОЙ МОДУЛЬ МЕ=»; М
1700 РRINТ «ЧИСЛО ЗУБЬЕВ ПЛОСКОГО КОЛЕСА ZС=»; Z3
1710 РRINТ «ВНЕШНЕЕ КОНУСНОЕ РАССТОЯНИЕ RЕ=»; R2
1720 РRINТ «ШИРИНА ЗУБЧАТОГО ВЕНЦА В1=»; В1%
1730 РRINТ «СРЕДНЕЕ КОНУСНОЕ РАССТОЯНИЕ R=»; R
1740 РRINT «СРЕДНИЙ ОКРУЖНОЙ МОДУЛЬ М=»; М1
1750 РRINT «ВНУТРЕННИЙ ОКРУЖНОЙ МОДУЛЬ МI=»; М2
1760 РRINТ «СРЕДНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР D1=»; D1; «D2=»; D2
1770 РRINT «УГОЛ ДЕЛИТЕЛЬНОГО КОНУСА ШЕСТЕРНИ DELT1=»; T%(9); «ГРАД.»; W%(9); «МИН.»; A%(9); «СЕК.»
1780 РRINТ «УГОЛ ДЕЛИТЕЛЬНОГО КОНУСА КОЛЕСА DELT2=»; Е%(10); «ГРАД.»; W%(10); «МИН.»; A%(10); «СЕК.»
1790 РRINТ «ПЕРЕДАТОЧНОЕ ЧИСЛО U=»; U
1800 IF Y1=90 ТНЕN 1030
1810 РRINТ «ПЕРЕДАТ. ЧИСЛО ЭКВИВАЛЕНТ. ЦИЛИНДР. ПЕРЕДАЧИ UVB=»; U1
1820 РRINТ «ЧИСЛО ЗУБЬЕВ ЭКВИВАЛЕНТ. ЦИЛИНДР. ШЕСТЕРНИ ZVB1=»; Z1
1830 РRINТ «КОЭФФИЦИЕНТ СМЕЩЕНИЯ Х1=»; Х1
1840 РRINТ «КОЭФФ. ИЗМЕНЕНИЯ ТОЛЩИНЫ ЗУБА ШЕСТЕРНИ XT1=»; Х3
1850 STOP «ДЛЯ ДАЛЬНЕЙШЕГО ПРОСМОТРА НАЖМИТЕ КЛ. CONTINUE»
1860 РRINТ «ВНЕШНЯЯ ВЫСОТА ГОЛОВКИ ЗУБА НAЕ1=»; H1; «НAЕ2=»; Н2
1870 РRINТ «ВНЕШНЯЯ ВЫСОТА НОЖКИ ЗУБА HFЕ1=»; Н3; «НFЕ2=»; Н4
1880 РRINТ «ВНЕШНЯЯ ВЫСОТА ЗУБА НЕ1=»; Н5; «НЕ2=»; Н6
1890 РRINТ «ВНЕШНЯЯ ОКРУЖНАЯ ТОЛЩИНА ЗУБА SЕ1=»; S1; «ZЕ2=»; S2
1900 РRINТ «УГОЛ НОЖКИ ЗУБА ШЕСТЕРНИ ТF1=»; Т%(1); «ГРАД.»; W%(1); «МИН.»; A%(1); «СЕК.»
1910 РRINТ «УГОЛ НОЖКИ ЗУБА КОЛЕСА ТF2=»; Т%(2); «ГРАД.»; W%(2); «МИН.»; A%(1); «СЕК.»
1920 РRINТ «УГОЛ ГОЛОВКИ ЗУБА ШЕСТЕРНИ ТA1=»; Т%(3); «ГРАД.»; W%(3); «МИН.»; A%(3); «СЕК.»
1930 РRINТ «УГОЛ ГОЛОВКИ ЗУБА КОЛЕСА ТA2=»; Т%(4); «ГРАД.»; W%(4); «МИН.»; A%(4); «СЕК.»
1940 РRINТ «УГОЛ КОНУСА ВЕРШИН ШЕСТЕРНИ DEL1=»; Т%(5); «ГРАД.»; W%(5); «МИН.»; A%(5); «СЕК.»
1950 РRINТ «УГОЛ КОНУСА ВЕРШИН КОЛЕСА DEL2=»; Т%(6); «ГРАД.»; W%(6); «МИН.»; A%(6); «СЕК.»
1960 РRINТ «УГОЛ КОНУСА ВПАДИН ШЕСТЕРНИ DFР1=»; Т%(7); «ГРАД.»; W%(7); «МИН.»; A%(7); «СЕК.»
1970 РRINТ «УГОЛ КОНУСА ВПАДИН КОЛЕСА DF2=»; Т%(8); «ГРАД.»; W%(8); «МИН.»; A%(8); «СЕК.»
1980 РRINТ «ВНЕШНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР DЕ1=»; D5; «DЕ2=»; D6
1990 РRINТ «ВНЕШНИЙ ДИАМЕТР ВЕРШИН ЗУБЬЕВ DAЕ1=»; D7; «DAЕ2=»; D8
2000 РRINТ «РАССТ. ОТ ВЕРШИНЫ ДО ПЛОСК. ВНЕШ. ОКРУЖ. B1=»; В2; «В2=»; В3
2010 РRINТ «ВНЕШНЯЯ ПОСТОЯННАЯ ХОРДА ЗУБА SСЕ1=»; S3; «SСЕ2=»; S4
2020 РRINТ «ВЫСОТА ДО ВНЕШНЕЙ ПОСТОЯННОЙ ХОРДЫ НСЕ1»; Н7; «НСЕ2=»; Н8
2030 РRINТ «ПОЛОВИНА ВНЕШ. УГЛОВОЙ ТОЛЩИНЫ ЗУБА РSIЕ1=»; Р1; «РSIЕ2=»; Р2
2040 РRINТ «ВНЕШНЯЯ ДЕЛИТ. ТОЛЩИНА ЗУБА ПО ХОРДЕ SЕ1=»; S5; «SЕ2=»; S6
2050 РRINТ «ВЫСОТА ДО ВНЕШ. ДЕЛИТ. ХОРДЫ ЗУБА НAЕ1=»; A3; «НAЕ2=»; A4
2060 РRINТ «КОЭФФ. ТОРЦОВОГО ПЕРЕКРЫТИЯ ЕРSALF=»; Е4
2070 PRINT «»
2080 РRINТ D¤, «ДЛЯ ПРОСМОТРА НАЧАЛА НАБЕРИТЕ 1 И CR/LF»; I=0
2090 РRINТ «ДЛЯ ВЫВОДА НА ПЕЧАТЬ НАЖМИТЕ КЛ. CR/LF»: INPUT I
2100IF I>=1 ТНЕN 1650
2110 INPUТ «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА ШЕСТЕРНИ», М¤: INPUТ «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА КОЛЕСА», М1¤
2120 INPUT «СТЕПЕНЬ ТОЧНОСТИ», М2¤
2130 SELЕСТ PRINTOС(120)
2140 РRINТ «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ КОНИЧЕСКОЙ ПЕРЕДАЧИ»
2150 РRINТ «с пряМЫМи ЗУБЬЯМИ»
2160 РRINТ «»
2170 РRINТ «!----------------------------! !--------------------------!»
2180 РRINТ «!ВНЕШНИЙ ОКРУЖНОЙ МОДУЛЬ !МЕ !»; М; ТAВ(57); «!»; ТAБ(60); «!»; «ВНЕШНИЙ ОКРУЖНОЙ МОДУЛЬ !МЕ !»; М; ТAВ(116); «!»
2190 РRINТ «!ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ, !Z1 !» Z1%; ТAВ(57); «!»; ТAВ(60); «!»; «ЧИСЛО ЗУБЬЕВ КОЛЕСА !Z2 !»; Z2%; ТAB(116); «!»
2200 РRINТ «!ТИП ЗУБА ! - ! ПРЯМОЙ», ТAВ(57); «!»; ТAВ(6); «!»; «ТИП ЗУБА ! - ! ПРЯМОЙ»; ТAВ(116); «!»
2210 IF Y7=0 TНЕN 2230
2220 РRINТ «ИСХОДНЫЙ КОНТУР ! - ! ГОСТ 13754-68 - ! ИСХОДНЫЙ КОНТУР ! - ГОСТ 13754-68»; ТAВ(116); «!»: GOTO2280
2230 РRINТ «! ПАРАМЕТРЫ ИСХОДН. КОНТУРА ! - !»; ТAВ(57); «!»; ТAВ(60); «!»; «параметры исходН. контУра ! - !»; TAВ(116); «!»
2240 РRINТ «! УГОЛ ПРОФИЛЯ !ALFN !»; A2%; «Г»; Y5; «»; Y6; «??»; ТAВ(57); «!»; ТAВ(60); «!»; «УГОЛ ПРОФИЛЯ !ALFN !»; A2%; «Г»; Y5; «?»; Y6; «??»; TAВ(116); «!»
2250 РRINТ «! КОЭФФ. ВЫСОТЫ ГОЛОВКИ ЗУБА !НA !»; Н; ТAВ(57); «!»; ТAВ(60); «!»; «КОЭФФ. ВЫСОТЫ ГОЛОВКИ ЗУБА !НA !»; Н; ТAB(116); «!»
2260 РRINТ «! КОЭФФ. РАДИАЛЬНОГО ЗАЗОРА !С !»; С; ТAВ(57); «!»; ТAB(60); «!»; «КОЭФФ. РАДИАЛЬНОГО ЗАЗОРА !С !»; С; ТAВ(116); «!»
2270 РRINТ «! КОЭФФ. РАДИУСА КРИВИЗНЫ !R !»; R1; ТAВ(57); «!»,ТAB(60); «!»; «КОЭФФ. РАДИУС КРИВИЗНЫ !R !», R1; ТAВ(116); «!»
2280 PRINТ «! КОЭФФИЦИЕНТ СМЕЩЕНИЯ !Х1 !»; Х1, ТAВ(57); «!»; ТAB(60); «!»; «КОЭФФИЦИЕНТ СМЕЩЕНИЯ !Х2 !»; Х2; ТAB(116); «!»
2290 РRINТ «!КОЭФФ. ИЗМЕНЕНИЯ ТОЛЩИНЫ ЗУБА !ХТAU1!»; Х3; ТAВ(57); «!»; ТAВ(60); «!»; «КОЭФФ. ИЗМЕНЕНИЯ ТОЛЩИНЫ ЗУБА !ХТAU2!»; -Х3; ТAВ(116); «!»
2300 РRINТ «!УГОЛ ДЕЛИТЕЛЬНОГО КОНУСА !DЕLТ1!»; Т%(9); «Г»; W%(9); «?»; A%(9); «??»; ТAВ(57); «!»; ТAВ(60); «!»; «УГОЛ ДЕЛИТЕЛЬНОГО КОНУСА !DЕLT2!»; Т%(10); «Г»; W%(10); «?»; A%(10); «??»; ТAВ(116); «!»
2310 РRINТ «!СТЕПЕНЬ ТОЧНОСТИ ! - !»; М2¤; ТAВ(57); «!»; ТAB(60); «!»; «СТЕПЕНЬ ТОЧНОСТИ ! - !»; М2¤; ТAВ(116); «!»
2320 РRINТ «!--------------------------------------------------------!»
2330 IF Х1>.4 ТНЕN 2430
2340 РRINТ «!ВНЕШН. ПОСТОЯННАЯ ХОРДА ЗУБА !SСЕ1 !»; S3; ТAВ(57); «!»; ТAB(60); «!»; «ВНЕШН. ПОСТОЯННАЯ ХОРДА ЗУБА !SСЕ2 !»; S4; ТAВ(116); «!»
2350 РRINТ «!ВЫСОТА ДО ВНЕШ. ПОСТОЯН. ХОРДЫ !НСЕ1 !»; Н7; ТAВ(57); «!»; ТAВ(60); «!»; «ВЫСОТА ДО ВНЕШ. ПОСТОЯН. ХОРДЫ !НСЕ2 «!»; Н8; ТAВ(116); «!»
2360 РRINТ «!ВНЕШН. ДЕЛИТ. ТОЛЩ. ЗУБА ПО ХОРДЕ !SЕ1 !»; S5; ТAВ(57); «!», ТAB(60); «!»; «ВНЕШН. ДЕЛИТ. ТОЛЩ. ЗУБА ПО ХОРДЕ !SЕ2 !»; S6; ТAB(116); «!»
2370 РRINТ «ВЫСОТА ДО ВНЕШН. ДЕЛИТ. ХОРДЫ ЗУБА !НAЕ1 !»; А3; ТАВ(57); «!»; ТАВ(60); «!»; «ВЫСОТА ДО ВНЕШ. ДЕЛИТ. ХОРДЫ ЗУБА !НАЕ2 !»; А4; ТАВ(116); «!»
2380 РRINТ «!ВЕЛИЧИНА ПРЕДНАМЕР. СМЕЩ. ИЗМ. СЕН. !LX1 !»; D(2); ТAВ(57); «!»; ТАВ(60); «"»; «ВЕЛИЧИНА ПРЕДНАМЕР. СМЕЩ. ИЗМ. СЕЧ. !LX2 !»; D(3); ТAВ(116); «!»
2390 РRINТ «ТОЛЩИНА ЗУБА ПО ХОРДЕ В ! !»; ТАВ(57), «!»; ТАВ(60); «!»; «ТОЛЩИНА ЗУБА ПО ХОРДЕ В ! !»; ТАВ(116); «!»
2400 РRINТ «ИЗМЕРИТЕЛЬНОМ СЕЧЕНИИ !SХ1 !»; D(8); ТAВ(57); «!»; ТАВ(60); «!»; «ИЗМЕРИТЕЛЬНОМ СЕЧЕНИИ !SX2 !»; D(9); ТAВ(116); «!»
2410 РRINТ «!ВЫСОТА ЗУБА ДО ХОРДЫ ! !»; ТАВ(57); «!»; ТАВ(60); «!»; «ВЫСОТА ЗУБА ДО ХОРДЫ ! !»; ТАВ(116); «!»
2420 РRINТ «В ИЗМЕРИТЕЛЬНОМ СЕЧЕНИИ НАХ1 !»; D(10); ТAВ(57); «!»; ТАВ(60); «!»; «В ИЗМЕРИТЕЛЬНОМ СЕЧЕНИИ !НАХ2 !»; D(11); ТAВ(116); «!»: GОТО 2510
2430 РRINТ «ВНЕШН. ПОСТОЯННАЯ ХОРДА ЗУБА !SСЕ1 !»; S3; ТAВ(57); «!»; ТАВ(60); «!»; «ВНЕШН. ТОЛЩ. ЗУБА ПО ХОРДЕ НА КОН-! !»; ТАВ(116); «!»
2440 РRINТ «!ВЫСОТА ДО ВНЕШ. ПОСТОЯН. ХОРДЫ НСЕ1 !»; Н7; ТАВ(57); «!»; ТАВ(60); «!»; «ЦЕНТРИЧЕСКОЙ ОКРУЖН. D=»; D(1); ТAВ(93); «!»; «SYЕ2 !»; S7; ТFВ(116); «!»
2450 РRINТ «ВНЕШН. ДЕЛИТ. ТОЛЩ. ЗУБА ПО ХОРДЕ !SЕ1 !»; S5; ТAВ(57); «!»; ТАВ(60), «!»; «ВЫСОТА ДО ВНЕШ. ХОРДЫ ЗУБА НА КОН! !»; ТАВ(116); «!»
2460 РRINТ «!ВЫСОТА ДО ВНЕШН. ДЕЛИТ. ХОРДЫ ЗУБА! НАЕ1 !»; А3; ТАВ(57); «!»; ТАВ(60); «!»; «ЦЕНТРИЧЕСКОЙ ОКРУЖН. D; =»; D(1); ТAВ(93); «!»; «НAYЕ2!»; A5; ТAB(116); «!»
2470 РRINТ «!ТОЛЩИНА ЗУБА ПО ХОРДЕ В ! !»; ТАВ(57); «!»; ТАВ(60); «!»; «ТОЛЩ. ЗУБА ПО ХОРДЕ НА КОНЦ. ОКРУЖ! !»; ТАВ(116); «!»
2480 РRINТ «ИЗМЕРИТЕЛЬНОМ СЕЧЕНИИ !SX1 !»; D(8); ТAВ(57); «!»; ТАВ(60); «!»; «НОСТИ В ИЗМЕР. СЕЧЕН.D=»; D(13); ТAB(93); «!»; «SYХ2 !»; D(12); ТAВ(116); «!»
2490 РRINТ «ВЫСОТА ЗУБА ДО ХОРДЫ ! !»; ТАВ(57); «!»; ТАВ(60); «!»; «ВЫСОТА ЗУБА ДО ХОРДЫ НА КОНЦ.ОКР! !»; ТАВ(116); «!»
2500 РRINТ «В ИЗМЕРИТЕЛЬНОМ СЕЧЕНИИ !НАХ1 !»; D(10); ТAВ(57); «!»; ТАВ(60); «!»; «УЖН. В ИЗМЕР. СЕЧЕН. D=»; D(13); ТAВ(93); «!»; «НAYX2!»; D(14); ТAВ(116); «!»
2510 РRINT «!--------------------------------------------------------!»
2520 РRINТ «МЕЖОСЕВОЙ УГОЛ ПЕРЕДАЧИ !SUМ !»; Y1; «Г»; Y2, «?»; Y3; «??»; ТАВ(57); «!»; ТАВ(60); «!»; «МЕЖОСЕВОЙ УГОЛ ПЕРЕДАЧИ ! SUM !»; Y1; «Г»; Y2; «?»; Y3; «??»; ТАВ(116); «!»
2530 РRINТ «!СРЕДНИЙ ОКРУЖНОЙ МОДУЛЬ !М !»; М1; ТАВ(57); «!»; ТАВ(60); «!»; «СРЕДНИЙ ОКРУЖНОЙ МОДУЛЬ ! М !»; М1; ТАВ(116); «!»
2540 IF Y7=1 ТНЕN 2550
2550 РRINТ «ВНЕШНЕЕ КОНУСНОЕ РАССТОЯНИЕ !RЕ !»; R2; ТFВ(57); «!»; ТАВ(60); «!»; «ВНЕШНЕЕ КОНУСНОЕ РАССТОЯНИЕ RЕ !»; R2; ТAВ(116); «!»
2560 РRINТ «СРЕДНЕЕ КОНУСНОЕ РАССТОЯНИЕ ! R!»; R; ТAВ(57); «!»; ТАВ(60); «!»; «СРЕДНЕЕ КОНУСНОЕ РАССТОЯНИЕ !R !»; R; ТAВ(116); «!»
2570 РRINТ «СРЕДНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D1 !»; D1; ТAВ(57); «!»; ТАВ(60); «!»; «СРЕДНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D2 !»; D2; ТAВ(116); «!»
2580 РRINТ «ВНЕШН. ДИАМЕТР ВЕРШИН ЗУБЬЕВ !DAЕ1 !»; D7; ТAВ(57); «!»; ТАВ(60); «!»; «ВНЕШН. ДИАМЕТР ВЕРШИН ЗУБЬЕВ !SAЕ2 !»; D8; ТAВ(116); «!»
2590 РRINТ «ШИРИНА ЗУБЧАТОГО ВЕНЦА !В !»; В1%; ТАВ(57); «!»; ТАВ(60); «!»; «ШИРИНА ЗУБЧАТОГО ВЕНЦА !В !»; В1%; ТАВ(116); «!»
2600 РRINТ «УГОЛ КОНУСА ВЕРШИН !DELA1!»; Т%(5); «Г»; W%(5), «?»; А%(5); «??»; ТАВ(57); «!»; ТАВ(60); «!»; «УГОЛ КОНУСА ВЕРШИН !DELA2 !»; Т%(6); «Г»; W%(6); «?»; А%(6); «??»; ТАВ(116); «!»
2610 РRINТ «УГОЛ КОНУСА ВПАДИН !DЕLF1!»; Т%(7); «Г»; W%(7); «?»; А%(7); «??»; ТАВ(57); «!»; ТАВ(60); «!»; «УГОЛ КОНУСА ВПАДИН !DELF2 !»; Т%(8); «Г»; W%(8); «?», А%(8); «??»; ТАВ(116); «!»
2620 РRINТ «ВНЕШНЯЯ ВЫСОТА ЗУБА! НЕ1 !»; Н5; ТАВ(57); «!»; ТАВ(60); «!»; «ВНЕШНЯЯ ВЫСОТА ЗУБА !НЕ2 !»; Н6; ТАВ(116); «!»
2630 РRINТ «ВНЕШНЯЯ ВЫСОТА ГОЛОВКИ ЗУБА !НАЕ1 !»; Н1; ТАВ(57); «!»; ТАВ(60); «!», «ВНЕШНЯЯ ВЫСОТА ГОЛОВКИ ЗУБА !НАЕ2 !»; Н2; ТАВ(116); «!»
2640 РRINТ «ВНЕШНЯЯ ОКРУЖНАЯ ТОЛЩИНА ЗУБА !SЕ1=»; S1; ТAВ(57); «!»; ТАВ(60); «!»; «ВНЕШНЯЯ ОКРУЖНАЯ ТОЛЩИНА ЗУБА !SЕ2 !»; S2; ТАВ(116); «!»
2650 РRINТ «!--------------------------------------------------------!»
2660 РRINТ «!ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СОПРЯЖЕННОГО!»; ТАВ(57); «!»; ТАВ(60); «!»; «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СОПРЯЖЕННОГО!»; ТАВ(116); «!»
2670 РRINТ «ЗУБЧАТОГО КОЛЕСА !»; М1¤; ТАВ(57); «!»; ТАВ(60); «!»; «ЗУБЧАТОГО КОЛЕСА !»; М¤; ТАВ(116); «!»
2680 РRINТ «!--------------------------------------------------------!»
2690 SЕLЕСТ РRINТ05
2700 РRINТ С¤; F¤
2710 INРUT «БУДЕТЕ РАБОТАТЬ ЕЩЕ С ЭТОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤
2720IF I¤=«+» ТНЕN 10
2730 INРUТ « БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤
2740IF I¤=«+» ТНЕN 2750: GОТО 2780
2750IF J1%=0 ТНЕN 2760: LOAD DС R«DM»: GOТO 2770
2760 LOAD DС F«DМ»
2770 ЕND
2780 РRINТ С¤; F¤: РRINТ AТ(12,23): РRINТ «СПАСИБО ЗА РАБОТУ, ДО СВИДАНИЯ»: GОТО 2770
2790 РRINТ НЕX(03): PRINТ «КРАТКАЯ ИНСТРУКЦИЯ ПО РАБОТЕ С ПРОГРАММОЙ»
2800 РRINТ «1. БУДЬТЕ ВНИМАТЕЛЬНЫ ПРИ ВВОДЕ ИСХОДНЫХ ПАРАМЕТРОВ»
2810 РRINТ «ДРОБНУЮ ЧАСТЬ ЧИСЛА ОТДЕЛЯЙТЕ ТОЧКОЙ (НЕ ЗАПЯТОЙ)»
2820 РRINТ «2. ВВОД ПАРАМЕТРА ЗАКАНЧИВАЙТЕ НАЖАТИЕМ КЛАВИШИ СR/LF»
2830 РRINТ «3. ЧИСЛА ЗУБЬЕВ ВЫБИРАЙТЕ ИЗ СЛЕДУЮЩЕЙ ТАБЛИЦЫ (ГОСТ 19624-74)»
2840 РRINТ «--------------------------------------------------»
2850 РRINТ «ЧИСЛО ЗУБЬЕВ ШЕСТЕР. !М1N ЧИСЛО ЗУБЬЕВ СОПР. КОЛЕСА»
2860 РRINТ «--------------------------------------------------»
2870 РRINT « 12 ! 30»
2880 РRINТ « 13 ! 26»
2890 РRINТ « 14 ! 20»
2900 РRINТ « 15 ! 19»
2910 РRINT « 16 ! 18»
2920 РRINТ « 17 ! 17»
2930 РRINТ «--------------------------------------------------»
2940 РRINТ «4. МОЖНО ПРОИЗВОДИТЬ РАСЧЕТЫ ПЕРЕДАЧИ С НЕСТАНДАРТ. ИСХОДНЫМ»
2950 РRINT « КОНТУРОМ И НЕОРТОГОНАЛЬНЫЕ ПЕРЕДАЧИ»
2960 РRINТ « 5. ШИРИНУ ЗУБЧАТОГО ВЕНЦА МОЖНО ЗАДАВАТЬ НУЛЕВЫМ»: PRINТ
2970 INPUТ «НАЖМИТЕ КЛ. СR/LF И НАЧИНАЙТЕ РАБОТАТЬ», I: IF I<999 ТНЕN 70
Приложение 3
ТАБЛИЦА ИДЕНТИФИКАТОРОВ ПРОГРАММЫ GКК
Z1 = Z1 |
Xn1 = Х1 |
Dhfl2 = T9 |
dal1 = G4 |
lx2 = H7 |
Z2 = Z2 |
Xn2 = X2 |
Dhfl1 = F0 |
dal2 = G5 |
Rx1 = R3 |
Mn = M1 |
Xr1 = Х3 |
Dhfl2 = F1 |
B1 = G6 |
Rx2 = R4 |
Mtl = М2 |
W2 = W2 |
ha1 = F2 |
B2 = G7 |
Stx1 = R5 |
bn = B |
?hf = D1 |
ha2 = F3 |
= S1 |
Stx2 = R6 |
? = S |
ll = L3 |
hal1 = F4 |
= S2 |
bnx1 = R7 |
a = A2 |
Kl = K0 |
hal2 = F5 |
= S3 |
bnx2 = R8 |
h*l = H |
hf1 = D2 |
hfl1 = F6 |
= S4 |
?nx1 = H8 |
С* = С |
hf2 = D3 |
hfl2 = F7 |
?n1 = S5 |
?nx2 = H9 |
?*f = R1 |
Sn1 = D4 |
hl1 = F8 |
?n2 = S6 |
K?nx1 = A3 |
Z? = Z3 |
Sn2 = D5 |
hl2 = F9 |
K?n1 = S7 |
K?nx2 = A4 |
R = R |
?fz = N5 |
?a1 = G0 |
K?n2 = S8 |
= A5 |
R2 = R2 |
?f1 = T1 |
?a2 = G1 |
= S0 |
= A6 |
?1 = L1 |
?f2 = T2 |
?f1 = G2 |
= S9 |
Khx1 = A7 |
?2 = L2 |
?a1 = T3 |
?f2 = G3 |
= H1 |
Khx2 = A8 |
b = B1 |
?a2 = T4 |
d1 = D6 |
= H2 |
= A0 |
U = U |
?ha1 = T5 |
d2 = D7 |
bnl = H3 |
= A9 |
Uvb = U1 |
?ha2 = T6 |
dl1 = D8 |
bni = H4 |
bnai1 = U4 |
Zvb1 = U3 |
Dhal1 = T8 |
dl2 = D9 |
lx1 = H6 |
bnai2 = U5 |
Stl1 = U5 |
Kv2 = Y7 |
dvt1 = Z6 |
dvti1 = M5 |
eb = E2 |
Sti1 = J1 |
vd1 = Y8 |
dvt2 = Z7 |
dvti2 = M6 |
ec = E3 |
Stl2 = J2 |
dd2 = Y9 |
davt1 = Z8 |
hai1 = M7 |
ea = E8 |
Sti2 = J3 |
aед = B2 |
davt2 = Z9 |
hai2 = M8 |
eb = E9 |
Snal1 = J4 |
ati = B3 |
atl1 = С3 |
davtl1 = M9 |
eg = E7 |
Snal2 = J5 |
at = B4 |
atl2 = С4 |
davtl2 = M0 |
= T(12) |
Snai1 = J6 |
hfi1 = B5 |
bna1 = C5 |
davti1 = P0 |
= T(13) |
Snai2 = J7 |
hfi2 = B6 |
bna2 = C6 |
davti2 = P5 |
= T(14) |
invatl = J8 |
h?fl1 = B7 |
invat = C7 |
atal1 = P6 |
= T(15) |
invatal1 = J9 |
h?fl2 = B8 |
invata1 = C8 |
atal2 = P7 |
= T(16) |
invatal2 = L4 |
?fl = R0 |
invata2 = C9 |
atai1 = P8 |
= T(17) |
invati = L5 |
h?fi1 = C1 |
S*na1 = U8 |
atai2 = P9 |
|
invatai1 = L6 |
h?fi2 = C2 |
S*na2 = U9 |
bnal1 = U2 |
|
invatai2 = L7 |
Zvt1 = Z4 |
dvtl1 = M3 |
bnal2 = U3 |
|
Kv1 = Y2 |
Zvt2 = Z5 |
dvtl2 = M4 |
ea = E1 |
|
УСЛОВНЫЕ ОБОЗНАЧЕНИЯ ПАРАМЕТРОВ - по ГОСТ 19326-73
10%-------------------------------------------------------------
20 % ПРОГРАММА РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТЫХ КОНИЧ. ПЕРЕДАЧ С КРУГОВ. ЗУБЬЯМИ
30 % РАЗРАБОТЧИК - ВНИИНМАШ. 01.12.06. * ПО ГОСТ 19326-73
40%-------------------------------------------------------------------
50 СОМ J1%
60 РRINТ НЕХ(03); «ЖЕЛАЕТЕ ОЗНАКОМИТЬСЯ С ИНСТРУКЦИЕЙ? (+ ДА; - НЕТ)»
70 INPUТ К¤
80 IF K¤=«+» THЕN6370: Gото 90
90DIM G¤60, K¤(2), W¤28, V(36), B(10), V¤40, V1¤40, D(37), R0(2), B1(12), T(17), T(11), Q(11), G(11), W(11), W%(11), J(11), C(11), A(12), A%(11), D0(2)
100 СLЕAR N
110 С¤=НЕХ(03): D¤=НЕХ(12): Е¤=НЕХ(11): W¤=«ПОВТОРИТЕ ВВОД ПАРАМЕТРА»
120 G¤=«РАБОТАЕТ ПРОГРАММА РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТЫХ КОНИЧЕСКИХ»
130 V¤=«ПОДРЕЗАНИЕ ПО ВНЕШН. ВЫСОТЕ НОЖКИ ЗУБА»: V1¤=«ПОДРЕЗАНИЕ ПО ВНУТР. ВЫСОТЕ НОЖКИ ЗУБА»
140 А2=20: Н=1: С=.25: R1=.25
150 РRINТ С¤: РRINТ D¤; G¤
160 РRINТ AТ(3,22): РRINТ «ПЕРЕДАЧ С КРУГОВЫМИ ЗУБЬЯМИ»; Е¤
170 РRINТ AТ(5,20): РRINТ «ВВЕДИТЕ ИСХОДНЫЕ ДАННЫЕ»
180 РRINТ «»: INРUТ «ИСХОДНЫЙ КОНТУР СТАНДАРТНЫЙ? (+ ДА; - НЕТ)», К¤
190 IF К¤<«+» OR К¤>«-» ТНЕN 180
200 IF К¤=«+» ТНЕN 290
210 РRINТ «»: PRINТ «ВВЕДИТЕ ДАННЫЕ НЕСТАНДАРТН. ИСХОДН. КОНТУР.:»
220 PRINT «»: INPUT «УГОЛ ПРОФИЛЯ ALFAN ГРАДУСЫ=», A2
230 INPUТ « МИНУТЫ=», В1(4)
240 INPUТ « СЕКУНДЫ=», В1(12)
250 INPUT « КОЭФФ. ВЫСОТЫ ГОЛОВКИ ЗУБА HA=», Н
260 INPUT « КОЭФФ. РАДИАЛЬНОГО ЗАЗОРА С¤=», С
270 РRINТ « КОЭФФ. РАДИУСА КРИВИЗНЫ ПЕРЕХОДНОЙ»
280 INPUТ « КРИВОЙ В ГРАНИЧНОЙ ТОЧКЕ ПРОФИЛЯ ЗУБА ROF=», R1
290 РRINТ «МЕТОД ОБРАБОТКИ КОЛЕСА»
300 INPUТ «(1 - ОДНОСТОРОННИЙ; 2 - ДВУХСТОРОННИЙ) =», О%
310 IF О%<1 OR О%>2 ТНЕN 290
320 INPUТ «ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ (6-200) Z1=», Z1%
330IF Z1%<6 ОR Z1%>200 ТНЕN 320
340 INРUТ «ЧИСЛО ЗУБЬЕВ КОЛЕСА (6-200) Z2=», Z2%
350IF Z2%<6 ОR Z2%>200 ТНЕN 340
360 РRINТ «МЕЖОСЕВОЙ УГОЛ(10-150)SUM»
370INPUТ «0 ГРАДУСЫ=», S
380 INPUT «минуты =», В1(7)
390 INPUT «СЕКУНДЫ=», В1(8)
400IF S<10 ОR S>150 ТНЕN 360
410 INPUТ «ВВЕДИТЕ ОДНО ИЗ ЗНАЧЕНИЙ МОДУЛЯ(СРЕДНИЙ НОРМ. ИЛИ ВНЕШНИЙ ОКРУЖНОЙ)»
420 INPUТ «МОДУЛЬ СРЕДНИЙ НОРМАЛЬНЫЙ (0-25) МN=» М1: D(18)=M1
430IF М1<0 ОR М1>25 ТНЕN 410
440 INPUТ «МОДУЛЬ ВНЕШНИЙ ОКРУЖНОЙ (0-25) МТЕ=», М2: В(19)=М2
450IF М2<0 ОR M2>25 ТНЕN 440
460 INPUT «ОСЕВАЯ ФОРМА ЗУБА (1,2,3) I =», I%
470IF I%<1 ОR I%>3 TНЕN 460
480 PRINT «угол наклона зуБА средн. (0-45)BEТN»
490 INPUТ «ГРАДУСЫ=», В1(9)
500 INPUТ «МИНУТЫ =», В1(5)
510INPUТ «СЕКУНДЫ=», В1(6)
520IF B1(9)<0 OR B1(9)>45 THEN 480: IF I%=3 AND B1(9)<25 THEN 580: IF Z1%=6 AND B1(9)<42 ТНЕN530: IF Z1%=0 AND B1(9)<40 THEN 550: IF Z1%=0 AND B1(9)<38 THEN 560: IF Z1%=0 AND B1(9)<35 THEN 570: GOTO 600
530 РRINТ С¤: РRINТ «ПРИ Z1=6 ВЕТN Д. БЫТЬ НЕ МЕНЕЕ 42 ГРАДУСОВ»
540 РRINТ «ПОВТОРИТЕ ВВОД, НАЧИНАЯ С Z1»: РRINТ «»: GОТО 320
550 РRINТ С¤: РRINТ «ПРИ Z1=7 ВЕТN Д. БЫТЬ НЕ МЕНЕЕ 40 ГРАДУСОВ»: GОТО 540
560 РRINТ С¤: РRINТ «ПРИ Z1=8 ВЕТN Д. БЫТЬ НЕ МЕНЕЕ 38 ГРАДУСОВ»: GОТО 540
570 РRINТ С¤: РRINT «ПРИ Z1=9 ВЕТN Д. БЫТЬ НЕ МЕНЕЕ 35 ГРАДУСОВ: GОТО 540
580 РRINТ D¤; «ПРИ ОСЕВОЙ ФОРМЕ ЗУБА III ВЕТN ДОЛЖНО БЫТЬ НЕ МЕНЕЕ 25 ГРАДУСОВ»
590 РRINТ W¤; Е¤: GОТО460
600W=#РI/180: SЕLЕСТ R: В=В1(9) +В1(5)/60+В1(6)/3600: A2=A2+В1(4)/60+В1(12)/3600: S=S+В1(7)/60+В1(8)/3600: B=B*W: S=S*W: B(1)=B: A2=A2*W
610Z3=1/SIN(S)*SQR(Z1%^2+Z2%^2+2*Z1%*СOS(S))
620IF М1=0 ТНЕN 640
630R=М1*Z3/2/СOS(В): GOТO 650
640R2=M2*Z3/2
650L1=ARСТAN(S1N(S)/(Z%/Z1%+СOS(S))): L2=S-L1
660IF М1=0 ТНЕN 680
670IF B/W<20 OR М1<=2 OR I%=3 THEN 690: В1=.35*R-3: GOTO 710
680IF B/W<20 OR M2<=2 OR I%=3 THEN 70: В1=.3*R2-3: GOТO 710
690 В1=.3*R: GOТO 710
700 В1=.25*R2
710 В1=ROUND(В1,0): U=Z2%/Z1%: U=ROUND(U,3): U1=U: Z1=Z1%
720IF S/W-90>.0001 OR S/W-90<-.0001 ТHЕN 40
730U1=SQR(U*COS(L1)/COS(L2)): Z1=Z1%*U1/COS(L1)/SQR(1+U1^2): U1=ROUND(U1^): Z1=ROUND(1,2)
740IF К¤= «+» ТНЕN 750: GOТO 770
750IF B/W>=0 AND B/W<=15 THEN 830
760IF B/W>15 AND B/W<=29 THEN 890: GОТО 1230
770J=COS(B)^3
780U2=COS(A2): U3=SIN(A2)^2: U4=U1!2/(U1^2-1): U5=U1!2+1: U6=Z1*SQR(U5)/U1/J
790U7=.5*U3*U4*U6: U8=SQR(U7!2+Н!2): U9=U8-U7: М3=.5*U6: М4=U!2*М3: М5=М3+Н+V9+Н
800 М6=M4+Н-U9: M7=ARCCOS(U2/М5*М3): М8=ARCCOS(U2/М6*М4): М9=М7-A2: Е5=М8-A2
810 Е6=1-COS(M9): Е7=1-COS(Е5): Е8=М5*Е6: Е9=М6*Е7: Е0=Н-Е8: Р5=Н-Е9: Р6=Е8-Е9
820P7=U7-.5*Р6: Р8=Е0*Р5: Р9=U7*Р6+Р8: Р0=SQR(Р7^2+Р9): Х1=Р0-Р7: Х1=ROUND(X1^2): X2=-Х1: GOTO 1600
830 Х1=-(4.84/(Z1-4.75) + .083)/U!2+(1,428/(Z1-5.1)-.12)/U+8.48/(Z1+5.9)+.11
840 Х1=ROUND(Х1,2): IF Z1<=18 AND Z1=30 THEN 850: GOTO 880
850IF U>=2.5 THEN 860: IF U<1.8 THEN 870: GOTO 880
860 Х1=Х1+.02: Х2=-Х1: GOTO 1600
870 Х1=Х1-.01: Х2=-Х1: GOTO 1600
880 Х2=-Х1: GOTO 1600
890 РRINТ С¤; «КОЭФФИЦИЕНТ СМЕЩЕНИЯ ДЛЯ КОНИЧЕСКИХ ЗУБЧ. ПЕРЕДАЧ С КРУГОВ.»
900 РRINТ « ЗУБЬЯМИ С ИСХОДНЫМ КОНТУРОМ ПО ГОСТ 16202-70»
910 РRINТ D¤; « Z1=»; Z1; «U=»; U1; «ВЕТN=»; В1(9); «ГР»: РRINТ Е¤
920 РRINТ «--------------------------------------------------------------»
930 РRINT «ЧИСЛО ЗУБЬЕВ! ЗНАЧЕНИЯ КОФФ. СМЕЩЕНИЯ ХN1 ПРИ ПЕРЕДАТОЧНОМ»
940 РRINТ «ШЕСТЕРНИ Z1! ЧИСЛЕ ПЕРЕДАЧИ U (ДЛЯ ВЕТN>15 И <=29)»
950 РRINТ «!----------------------------------------------------»
960 РRINТ «! 1 ! 1.12 ! 1.25 ! 1.40 ! 1.60 ! 1.80 ! 2.00 ! 2.50 ! 3.15 ! 4.00 ! 5.00 ! 6.3 И ВЫШЕ»
970 РRINТ «------------!---!----!----!----!--!----!----!----!----!----»
980IF Z1>=10 AND Z1<=12 ТНЕN 990: IF Z1>12 AND Z1<=14 ТНЕN 1030: IF Z1>14 AND Z1<=16 ТНЕN 1060: IF Z1>16 AND Z1<=18 ТНЕN 1090: IF Z1>18 AND Z1<=25 ТНЕN 1100: GOTO 1150
990 РRINТ«10(BЕТ N>=28)! - ! - ! - ! - ! - ! - ! - ! - ! .49 ! .52 ! .53 ! .54»
1000 РRINТ«11(ВЕТ N>=.25)! - ! - ! - ! - ! - ! - ! - ! - ! .48 ! .49 ! .51 ! .52»
1010 РRINТ«12(ВЕТ Т>=20)! - ! - ! - ! - ! - ! - ! - ! .42 ! .46 ! .48 ! .49! .50»
1020IF Z1<=12 ТНЕN 1170
1030PRINT «13 ! - ! - ! - ! - ! - ! .33 ! .37 ! .40 ! .43 ! .45 ! .47 ! .48»
1040PRINT «14 ! - ! - ! - ! .21 ! .26 ! .32 ! .36 ! .39 ! .42! .44 ! .45 ! .46»
1050IF Z1<=14 THEN 1170
1660PRINT «15 ! - ! - ! .14 ! .20 ! .25 ! .30 ! .34 ! .37 ! .40 ! .42 ! .43 ! .43»
1070 РRINТ «16 ! - ! .07 ! .14 ! .20 ! .24 ! .29 ! .32 ! .35 ! .38 ! .40 ! .41! .42»
1080IF Z1<=16 ТНЕN 1170
1090 РRINТ «17 ! 0 ! .06 ! .13 ! .19 ! .23 ! .28 ! .31 ! .34 ! .37 ! .39 ! .40 ! .41»
1100 РRINТ «18 ! 0 ! .06 ! .12 ! .18 ! .22 ! .27 ! .30 ! .33 ! .36 ! .38 ! .39 ! .39»
1110IF Z1<=18 ТНЕN 1170
1120 РRINТ «20 ! 0 ! .05 ! .11 ! .16 ! .21 ! .24 ! .26 ! .29 ! .33 ! .35 ! .36! .36»
1130 РRINТ «25 ! 0 ! .05 ! .10 ! .14 ! .18 ! .20 ! .23 ! .25 ! .28 ! .30 ! .31! .32»
1140IF Z1<=25ТНЕN1170
1150 РRINТ «30 ! 0 ! .04 ! .08 ! .12 ! .15 ! .18 ! .20 ! .22 ! .25 ! .26 ! .27 ! .27»
1160 РRINT «40 ! 0 ! .03 ! .05 ! .06 ! .12 ! .14 ! .16 ! .18 ! .20 ! .20 ! .21 ! .22»
1170 РRINТ «------------------------------------------------------------»
1180 РRINТ «НАБЕРИТЕ ЗНАЧЕНИЕ ХN1 И НАЖМИТЕ КЛ. СR/LF»
1190 РRINТ AТ(21,50): РRINT D¤; : INРUТ «ХN1=»,Х1: РRINT Е¤
1200IF X1<0 OR X1>.7 ТНЕN 220
1210GОTO 1600
1220 РRINТ W¤: GОТО 1190
1230 РRINТ С¤;
1240 РRINТ «КОЭФФ. СМЕЩЕНИЯ ДЛЯ КОНИЧЕСКИХ ЗУБЧ. ПЕРЕДАЧ С КРУГОВЫМИ»
1250 РRINT « ЗУБЬЯМИ С ИСХОД. КОНТУРОМ ПО ГОСТ 16202-70»
1260 РRINТ D¤; «Z1=»; Z1; «U=»; U; «В=»; В1(9); «ГР»: РRINТ Е¤
1270 РRINТ «------------------------------------------------------------»
1280 РRINТ «ЧИСЛО ЗУБЬЕВ! ЗНАЧЕН. КОЭФФ. СМЕЩЕНИЯ XN1 ПРИ ПЕРЕДАТ. ЧИСЛЕ ПЕРЕДАЧИ U»
1290 РRINТ «ШЕСТЕРНИ Z1 !-----------------------------------------------»
1300 РRINТ « ! 1 ! 1.12 ! 1.25 ! 1.40 ! 1.60 ! 1.80 ! 2.00 ! 2.50 ! 3.15 ! 4.0 ! 5.00 ! 6.3 И ВЫШЕ»
1310 РRINТ «-------!----!-----!-------!------!----!----!----!----!»
1320IF Z1>=6 AND Z1<=10 THEN 1330: IF Z1>10 AND Z1<=12 THEN 1390: IF Z1>12 AND Z1<=5 THEN 1420: IF Z1>15 AND Z1<=18 THEN 1460: IF Z1>18 AND Z1<=25 THEN 1470: GOTO 1520
1330 РRINТ«6(BЕТN>=42) ! - ! - ! - ! - ! - ! - ! - ! - ! - ! - ! 70»
1340 РRINТ «7(ВЕТN>=40) ! - ! - ! - ! - ! - ! - ! - ! - ! - ! - ! .65 ! .66»
1250PRINТ «8(BЕТN>=38) ! - ! - ! - ! - ! - ! - ! - ! - ! - ! .51 ! .53 ! .54»
1360 РRINТ «9(ВЕТN>=35) ! - ! - ! - ! - ! - ! - ! - ! .46 ! .49 ! .50 ! .52»
1370 РRINТ«10(ВЕТN>=32) ! - ! - ! .- ! - ! - ! - ! - ! - ! .44 ! .47 ! .47 ! .48»
1380IF Z1<=10 ТHЕN 1540
1390 РRINТ «11 ! - ! - ! - ! - ! - ! - ! .38 ! .41 ! .44 ! .45 ! .45»
1400PRINT «12 ! - ! - ! - ! - ! - ! - ! .32 ! .37 ! .39 ! .41 ! .42 ! .43»
1410IF Z1<=12 THEN 1540
1420PRINT «13 ! - ! - ! - ! - ! - ! .27 ! .30 ! .35 ! .27 ! .39 ! .40 ! .41»
1430PRINT «14 ! - ! - ! - ! .18 ! .23 ! .26 ! .29 ! .33 ! .35 ! .37 ! .38 ! .38»
1440PRINT «15 ! - ! - ! .12 ! .17 ! .22 ! .25 ! .27 ! .31 ! .33 ! .35 ! .36 ! .37»
1450IF Z1<=15 THEN 1540
1460PRINT «16 ! - ! .06 ! .11 ! .16 ! .21 ! .24 ! .26 ! .30 ! .32 ! .34 ! .35 ! .35»
1470 РRINТ «18 ! 0 ! .05 ! .10 ! .15 ! .19 ! .22 ! .24 ! .27 ! .30 ! .32 ! .32 ! .33»
1480IF Z1<=18 ТНЕN 1540
1490 РRINТ «20 ! 0 ! .05 ! .09 ! .13 ! .17 ! .20 ! .22 ! .26 ! .28 ! .29 ! .29 ! .30»
1500 РRINT «25 ! 0 ! .04 ! .08 ! .11 ! .15 ! .17 ! .19 ! .21 ! .24 ! .25 ! .25 ! .26»
1510IF Z1<=25 ТНЕN 1540
1520 РRINТ «30 ! 0 ! .03 ! .07 ! .09 ! .11 ! .15 ! .16 ! .18 ! .21 ! .22 ! .22 ! .23»
1530 РRINТ «40 ! 0 ! .03 ! .05 ! .07 ! .09 ! .11 ! .11 ! .14 ! .16 ! .17 ! .17 ! .18»
1540 РRINТ «-------------------------------------------------------------»
1550 РRINТ «НАБЕРИТЕ ЗНАЧЕНИЕ XN1 И НАЖМИТЕ КЛ. CR/LF»
1560 РRINТ AТ(21-50): РRINТ D¤: INРUТ «XN1=», X1: PRINT Е¤: X2=X1
1570IF X1<0 OR Х1>.8 ТНЕN 1590
1580GOTO 1600
1590 РRINТ W¤: GОТО 1560
1600IF М1=0 ТНЕN 1620
1610IF M1>2 AND U>=2.5 ТНЕN 1630: GОТО 1680
1620 М1=(М2-В1/Z3)*COS(B): GOТO 1610
1630IF B>=0 AND B/W<=15 THEN 1650: IF D/W>15 AND B/W<=29 THEN 1660: IF B/W>29 AND B/W<=40 THEN 1670: IF B/W>40 THEN 1640
1640X3=.15+.012*(U1-2.5): GОТО 1690
1650X3=.03+.008*(U1-2.5): GОТО 1690
1660X3=.07+.01*(U1-2.5): GОТО 1690
1670X3=.11+.01*(U1-2.5): GOТO 1690
1680X3=0
1690D(21)=20: D(22)=25: D(23)=32: D(24)=40: D(25)=60: D(26)=80: D(27)=100: D(28)=125: D(29)=160: D(30)=200: D(31)=250: D(32)=315: D(33)=400: D(34)=500: D(35)=630: D(36)=800: D(37)=1000
1700IF М2=0 ТНЕN 1710: R=.42*M2*Z3
1710IF I%=1 ТНЕN 1720: GОТО 1750
1720IF B/W>27 THEN 1730: GOTO 1740
1730B(2)=.44: B(3)=.32*(B/W/10)^2-1.03-B/W/10+3.33: GOTO 1600
1740B(2)=.122*(B/W/10)*2-.645*B/W/10+1.3: B(3)=.04*(B/W/10)^2-.4*B/W*.53: GОТO 1800
1750IF I%=2 THEN 1760: GOTO 1770
1760B(2)=.35; B(3)=.05606*(B/W/10)^2-.5647*B/W/10+2.02: GOTO 1800
1770IF B/W>35 THEN 1780: GOTO 1790
1780B(2)=.05686*(B/W/10))^2-.5647*B/W/10+2.0: B(3)=.1*(B/W/10)^2-1.03*B/W/10+3.38: GOTO 1800
1790B(2)=.05606*(B/W/10)^2-.5647*B/W/10+2.02: B(3)=1
1800D0(1)=R/B(2): D0(2)=R/B(3): D(20)=D0(1)+D0(2))/2: D0(1)=ROUND(D0(1),0): D0(2)=ROUND(D(2),0)
1810FOR I=21 TO 37
1820IF D(20)<=D(1) THEN 1870
1830IF D(20)>(D(I)+D(I+1))/20 AND D(20)<=D(I+1) THEN 1880
1840IF D(20)>D(I) AND D(20)<=(D(I)+D(I+1))/2 THEN 1870
1850IF D(20)>D(37) THEN 1890
1860NEXT 1
1870D(20)=D(I): GOTO 1900
1880D(20)=D(I+1): GОТО 1900
1890 D(28)=D(37)
1900 PRINT С¤; «ВЫБОР НОМИН. ДИАМЕТРА ЗУБОРЕЗНОЙ ГОЛОВКИ D0»: PRINT «»
1910 РRINТ «ДЛЯ ВЫБРАННЫХ ПАРАМЕТРОВ ПЕРЕДАЧИ ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ»
1920 РRINТ «(ШЛИФОВАЛЬНОГО КРУГА) D0 НАХОДИТСЯ В ПРЕДЕЛАХ»
1930 РRINТ D¤; РRINТ «D0(MAX)=»; D0(1): РRINТ Е¤
1940 РRINТ D¤; PRINT «D0(MIN)=» D0(2): РRINТ Е¤: РRINТ «»
1950 РRINТ «СТАНДАРТНЫЙ РЯД D0:»
1960 РRINT «------------------------------------------------------------»
1970 РRINТ «! 20 ! 25 ! 32 ! 40 !60 ! 80 ! 100 !. 125 ! 160 ! 200 ! 250 ! 315 ! 400 ! 500 ! 630 ! 800 ! 1000!»
1980 РRINТ «--------------------------------------------------------------------»
1990 РRINТ «»: PRINТ « ПРОГРАММОЙ ВЫБРАНО D0=»; D(20): D0=D(20)
2000 PRINT «Если вы согласны, нАжмитЕ кл. CR/LF»
2010 INPUТ «ИЛИ НАЗНАЧЬТЕ ДРУГОЕ ЗНАЧЕНИЕ D0=», D0
2020IF D0<20 ОR D0>1000 THEN 1900
2030IF I%=1 OR I%=3 THЕN 2040: GOTO 2060
2040 IF В1>D0/5 ТНЕN 2050: GOТO 2080
2050 В1=D0/5: GOТO 2080
2060IF D1>0.4 ТНЕN 2070: GOTO 2080
2070 В1=D0/4
2080 В1=ROUND(В1,0)
2090 V(1)=.2: V(2)=.25: V(3)=.32: V(4)=.4: V(5)=.5: V(6)=.6: V(7)=.7: V(8)=.8: V(9)=.9: V(10)=1: V(11)=1.1: V(12)=1.3: V(13)=1.4: V(14)=1.6: V(15)=1.8: V(16)=2: V(17)=2.2: V(18)=2.6: V(19)=2.8: V(20)=3.2: V(21)=3.6: V(22)=4: V(23)=4.6: V(24)=5.2: V(25)=6: V(26)=6.5: V(27)=7
2100V(28)=8: V(29)=9: V(30)=10: V(31)=12: V(32)=13: V(33)=14: V(34)=16: V(35)=18: V(36)=20
2110IF D(19)>0 THЕN 2360
2120 W2=M1*(.5*3.1415926-2*(Н+С)*ТAN(A2)+X3): W3=W2
2130FОR К=1 ТO 36
2140IF W2<=V(K) TНЕN 2190
2150IF W2>(V(К)+V(K+1))/2 AND W2<=V(K+1) ТНЕN 2200
2160IF W2 AND W2<=(V(K)+V(K+1))/2 THEN 2190
2170IF W2>V(36) THEN 2210
2180NEXT K
2190W2=V(K): GOTO 2220
2200W2=V(K+1): GOTO 2220
2210W2=V(36)
2220IF D(19)>0 ТНЕN 2390
2230W4=W3-W2: W5=.5*W4*TAN(1.5707963-A2)
2240IF Х3=0 AND М1>1 THEN 2280
2250IF Х3=0 AND M1<=1 ТНЕN 2290
2260IF Х3>0 OR Х3<0 AND M1>=2 ТНЕN 2310
2270GOTO 2350
2280D1=W5: IF W4>.06*М1 OR W4<-.02*М1 ТНЕN 2340: GOТO 2350
2290D1=W5: IF W4>.1*W1 OR W4<-.02*М1 ТНЕN 2340
2300 GОТО 2350
2310 Х3=W2/М1-.5*3.1415926+2*(H+С)*ТAN(A2)
2320IF W4>.05*M1 OR W4<-.05*M1 THEN 2340
2330 GОТО 2350
2340 М1=W2/(1.5707963-2*(Н+С)*ТAN(A2)+Х3)
2350L3=.5*D1: R2=R+L3: V2=2*R2/Z3: GOTO 2570
2360 К0=1
2370 IF Х5>0 OR Х5<0 ТНЕN 2400
2380W5=1.5707963-2*(Y+C)*TAN(A2)+X3: W2=(V2-R0/Z3*B1)*W5*COS(B): W3=W2: GOTO 2130
2390W4=W2-W3: IF W4=0 THEN 2500: GOTO 2420
2400W5=W6+X3: L0=(M2*W5*COS(B)-W2)/(B1/Z3*W5*COS(B): IF K(0)>=.0 AND K0<1.21 TНЕN 2500
2410 GОТО 2530
2420 W6=1.5707963-2*(Н+С)*TAN(A2): W7=М2-К0*В1/Z3
2430X4=(W2-W7*W6*COS(B))/W7/COS(B): X5=X4-X3: IF X5>0 AND X5>0.05 THEN 2440: GOTO 2450
2440X3=X3+.05: GOTO 2400
2450IF X5>0 ТНЕN 2470
2460 IF X5<-.05 ТНЕN 2480: Х3=Х3+Х5: GOТО 2500
2470 Х3=Х3+Х5: GОТO 2500
2480 Х3=Х3+.05: GOТO 2400
2490 GОТО 2445
2500 М1=(М2-K0+В1/Z3)*СOS(В)
2510GОТО 2570
2520 Х3=Х4: GOТ0 2500
2530PRINT С¤: PRINT AT(10,5): PRINT D¤: «K0=»: K0: PRINT Е¤
2540 PRINT «ВЕЛИЧИНА K0 ДОЛЖНА НАХОДИТЬСЯ В ПРЕДЕЛАХ 0.8-1.2»
2550 РRINТ «ИЗМЕНИТЕ ВХОДНЫЕ ПАРАМЕТРЫ (НАПРИМЕР ВЕТN)»
2560INPUT « НАЖМИТЕ КЛ. CR/LF», I: CLEAR N: IF I<9999999999 ТHЕN 90
2570 R=М1*Z3/2/COS(В): L3=R2-R
2580 %============================================
2590 %РАСЧЕТ ПАРАМЕТРОВ ЗУБЧАТЫХ КОЛЕС
2600 %============================================
2610 D2=(Н+С-Х1)*М1+D1: D3=(Н+С+Х1)*М1+D1
2620 D4=(1.5707963+2*Х1*TAN(A2)-Х3)*М1: D5=3.1415926*M1-D4
2630IF I%=1 ОR I%=3 ТНЕN 2910
2640IF В>0 ТНЕN 2720
2650 Т0=10800/Z3TAN(A2): IF Т0>900 ТНЕN 2670
2660GОТО 2880
2670 РRINТ С¤: PRINТ AТ(10,2)
2680 РRINТ D¤; «СУММА УГЛОВ НОЖЕК ЗУБЬЕВ ШЕСТЕРНИ И КОЛЕСА БОЛЕЕ 900 МИН»
2690 РRINT «СЛЕДУЕТ ПЕРЕЙТИ НА ОСЕВУЮ ФОРМУ ЗУБА 1 ИЛИ 3»
2700 РRINТ «»: PRINТ « НАЖМИТЕ НА КЛАВИШУ CR/LF)»
2710INPUT I: CLEAR V: IF I<99999 ТНЕN 90
2720K=10800*TAN(B)/Z3/TAN(A2)*(1-2*R*SIN(B)/D0)
2730 IF M1<2 THEN 2770
2740 К1=К/20: К1%=К1: К2=К1-K1%: IF K2>=.5 ТНЕN 2760
2750 K1=K1%+20: GOTO 2780
2760 К1=К1%+1: К=К1+20
2770IF K>500 THEN 2790: IF K<=0 THEN 2850
2780T0=К/SIN(B): GOTO 2880
2790PRINT C¤: PRINT AT(1,15): PRINT D¤; PRINT «ВНИМАНИЕ !»: PRINT E¤
2800 PRINT «КОФФ. K>500. СЛЕДУЕТ УМЕНЬШИТЬ ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ»
2810 РRINТ « И/ИЛИ ПЕРЕЙТИ НА ОСЕВУЮ ФОРМУ ЗУБА !»
2820 РRINТ «»: РRINТ «ДЛЯ ВЫБОРА НОВОГО D0 НАЖМИТЕ НА ФУНКЦИОНАЛЬНУЮ КЛАВИШУ 0»
2830 РRINТ «ДЛЯ ПЕРЕХОДА НА ДРУГУЮ ОСЕВУЮ ФОРМУ НАЖМИТЕ КЛ. CR/LF»
2840INPUT I: CLEAR N: IF I<99999999999 ТНЕN 90: GОТО 2880
2850 РRINТ C¤: РRINТ AТ(1,15): РRINТ D¤; РRINТ «ВНИМАНИЕ !»: РRINТ Е¤
2860 РRINТ «КОЭФФ. К<6, СЛЕДУЕТ УВЕЛИЧИТЬ ДИАМЕТР ЗУБОРЕЗ. ГОЛОВКИ D0»
2870 РRINТ « ИЛИ ПЕРЕЙТИ НА ОСЕВУЮ ФОРМУ В»: GOТO 2820
2880T1=T0*(.5-2/3.1415926*X1*TAN(A2)): T2=T0-N1: N0=T0/60*W: T1=T1/60*W: T2=T2/60*W
2890 Т3=Т2: Т4=Т1
2900T5=(B1-L3)*(TAN(T2)-TAN(T3)): T6=(B1-L3)*TAN(T1)-TAN(T4)): GOTO 2940
2910IF I%=1 ТНЕN 2930: IF I%=3 ТНЕN 2920: GОТО 2940
2920T0=0: Т1=0: Т2=0: Т3=0: Т4=0: Т5=0: Т6=0: T8=0: Т9=0: F0=0: F1=0: GОТО2950
2930 Т1=ARCTAN(D2/R): Т2=ARCTAN(D3/R): T3=Т2: T4=Т1: T5=0: Т6=0
2940 Т0=L3*TAN(Т3): Т9=L3*TAN(Т4): F0=L3*TAN(Т1): F1=L3*TAN(Т2)
2950 F2=(Н+Х1)*М1-Т5: F3=(Н-X1)*M1-Т6
2960F4=F2+Т0: F5=F3+Т9: F6=D2+F0: F7=D3+F1
2970F8=F4+F6: F9=F5+F7: G0=L1+T3: G1=L2+Т4
2980G2=L1-Т1: G3=L2-Т2
2990D6=М1*Z1%/COS(B): D7=М1*Z2%/COS(В)
3000G8=М2*Z1%: D9=М2*Z2%: G4=D8+2*F4*COS(L1): G5=D9+2*F5*COS(L2)
3010G6=R2*COS(L1)-F4*SIN(L1): G7=R2*COS(L2)-F5*SIN(L2)
3020%=====================================================
3030 %РАСЧЕТ ПОСТОЯН. ХОРДЫ ЗУБА И ВЫСОТЫ ДО ПОСТ. ХОРДЫ
3040%=====================================================
3050S1=D4*COS(A2)^2: S2=D5*COS(A2)^2
3060S3=F2-.25*D4*SIN(2*A2): S4=F3-.25*D5*SIN(2*A2)
3070S5=D4*COS(L1)*COS(B)^3/М1/Z1%: S6=D5*COS(L2)*COS(B)^3/M1/Z2%
3080S7=1-S5^2/6: S8=1-S6^2/6: S8=D4*S7: S9=D5*S8
3090 Н1=F2+.25*D*S5: H2=F3+.25*D5*S6
3100 %================================================
3110 %РАСЧЕТ ДЕЛИТЕЛЬНОЙ ТОЛЩИНЫ ЗУБА
3120% ================================================
3130IF (R/R2*SIN(B)+(R2/R/R2)*R/D0)>1 ТHЕN 3140: GОТО 3160
3140 РRINТ «НЕВЕРНЫ ИСХОДНЫЕ ПАРАМЕТРЫ»
3150 РRINТ «НАЖМИТЕ КЛ. [СОNТINUЕ] И ВВЕДИТЕ ПРАВИЛЬНЫЕ ДАННЫЕ»: SТOР :GОТО 90
3160IF (R/(R2-B1)*SIN(B)+((R2-B1)/R-R/(R2-B1))*R/D0)>1 ТНЕN 3140
3170H3=ARCSIN(R/R2*SIN(B)+(R2/R-R/R2)*R/D0)
3180H4=ARCSIN((R/(R2-B1))*SIN(B)+((R2-B1)/R-R/(R2-B1))*R/D0)
3190H5=.5*R2*SIN(H3)*COS(H3)/R/COS(B): H6=H5*D4: H7=H5*D5
3200R3=R2-H6: R4=R2-H7
3210R7=ARCSIN(R/R3*SIN(B)+(R3/R-R/R3)*R/D0)
3220R9=ARCSIN(R/R4*SIN(B)+(R4/R-R/R4)*R/D0)
3230IF D%=1 ТНЕN 3270
3240R5=(W2+2*(F7-H6*TAN(T2))*TAN(A2))/COS(R7)
3250R6=3.1415926*M1*R4/COS(B)/R-(W2+2*(F7-H7*TAN(T2))*TAN(A2))/COS(R8)
3260GОТО 3280
3270R5=R3/R*D4/COS(B)): R6=R4/R*D5/COS(B)
3280H8=R5*R2*COS(L1)*COS(R7)^3/R3/D8: H9=R6*R2*COS(L2)*COS(R8)^3/R4/D9
3290A3=1-H8^2/6: A4=1-H9^2/6: A5=R5*A3*COS(R7): A6=R6*A4*COS(R8)
3300A7=.25*COS(R7): A8=.25*COS(R8)
3310A0=R4+R5*A7*H8-H6*TAN(T3): A9=F5+R6*A8*H9-H7*TAN(T4)
3320%===============================================
3330%ПРОВЕРКА ОТСУТСТВИЯ ПОДРЕЗАНИЯ ЗУБЬЕВ
3340%===============================================
3350B2=ARCTAN(TAN(A2)/COS(H3)): B3=ARCTAN(TAN(A2/COS(H4))
3360B4=ARCTAN(TAN(A2)/COS(B)): B5=F6-B1*TAN(T1): B6=F7-B1*TAN(T2)
3370Z4=Z1%/COS(L1): Z5=Z2%/COS(L2): Z6=Z4*M1/COS(B): Z7=Z5*M1/COS(B)
3380Z8=Z6+2*F2: Z9=Z7+2*F3
3390C3=ARCCOS(Z6*COS(B4)/Z8): C4=ARCCOS(Z7*COS(B4)/Z9)
3400C5=ARCTAN(Z8*TAN(B)/Z6): C6=ARCTAN(Z9*TAN(B)/Z7)
3410C7=TAN(B4)-B4: C8=TAN(C3)-C3: C9=TAN(C4)-C4
3420 U8=Z8/M1*(D4/Z6/COS(B)+С7-С8)*COS(С5): U9=Z9/M1*(D5/Z7/COS(B)+С7-С9)*COS(С6)
3430IF U8<.30 OR U9<.3 ТНЕN 3440: GОТO 3490
3440 РRINТ C¤: PRINT AT(1,15); РRINТ D¤; РRINТ «ВНИМАНИЕ !»: РRINТ Е¤
3450 РRINТ «НОРМАЛЬН. ТОЛЩИНА ЗУБА НА ПОВЕРХН. ВЕРШИН В РАСЧЕТНОМ СЕЧЕНИИ»
3460 РRINТ «(В ДОЛЯХ МОДУЛЯ) МЕНЬШЕ РЕКОМЕНДУЕМОГО»
3470 РRINТ «НАЖМИТЕ КЛ. CR/LF И ВВЕДИТЕ ДРУГИЕ ДАННЫЕ (УВЕЛИЧЬТЕ ВЕТN)»
3480INPUT I: CLEAR N: IF I<9999999999 ТНЕN 90: GOТO 3490
3490M3=Z6*R2/R: M4=Z7*R2/R: M5=Z6/R*(R2-B1): M6=Z7/R*(R2-B1)
3500M7=F4-B1*TAN(T3): M8=F5-B1*TAN(T4)
3510M9=M3+2*F4: M0=M4+2*F5: P0=M5+2*M7: P5=M6+2*M8
3520P6=ARCCOS(M3*COS(B2)/M9): Р7=ARCCOS(M4*COS(B2)/M0)
3530P8=ARCCOS(M5*COS(B3)/P0): P9=ARCCOS(M6*COS(B3)/P5)
3540U2=ARCTAN(M9*TAN(H3)/M3): U3=ARCTAN(M0*TAN(H3)/M4)
3550U4=ARCTAN(P0*TAN(H4)/M5): U5=ARCTAN(P5*TAN(H4)/M6)
3560D(1)=M3-2*F6: D(2)=M4-2*F7: D(3)=M5-2*B5: D(4)=M6-2*B6
3570D(5)=.5*M3*(TAN(P6)-TAN(B2))*COS(B2): D(6)=.5*M4*(TAN(P7)-TAN(B2))*COS(B2): D(7)=.5*M5*(TAN(P8)-TAN(B3))*COS(B3): D(8)=.5*M6*(TAN(P9)-TAN(B3))+COS(B3)
3580D(9)=2*2(.25*M3^2+D(6)^2-M3*D(6)*SIN(B2)): D(10)=2*SQR(.25*M4^2+D(5)^2-M4*D(5)*SIN(B2))
3590D(11)=2*SQR(.25*M5^2+D(8)^2-M5*D(8)*SIN(B3)): D(12)=2*SQR(.25*M6^2+D(7)^2-M6*D(7)*SIN(B3))
3600D(13)=(D(9)-D(1))/2/(1-SIN(A2): D(14)=(D(11)-D(3))/2/(1-SIN(A2)): D(15)=(D(10)-D(2))/2/(1-SIN(A2): D(16)=(D(12)-D(4))/2(1-SIN(A2)
3610IF D(13)<=D(14) THEN 3620: R0(1)=D(14): GOTO 3630
3620R0(1)=D(13)
3630IF D(15)<=D(16) THEN 3640: R0(2)=D(16): GOTO 3650
3640R0(2)=D(15)
3650 В7=R2*TAN(L1)*SIN(B2)^2+R0(1)*(1-SIN(A2))
3660 В8=R2*TAN(L2)*SIN(В2)^2+R(2)*(1-SIN(A2))
3670IF В7<F6 OR В8<F7 ТНЕN 3710
3680 С1=(R2-В1)*TAN(L1)*SIN(В3)^2+R0(1)*(1-SIN(A2))
3690 С2=(R2-В1)*TAN(L2)*SIN(В3)^2+R0(2)*(1-SIN(A2))
3700 IF С1<В5 ОR С2<В6 ТНЕN 3750: GОТО 3800
3710 РRINТ С¤; РRINТ AТ(1,15): РRINТ D¤; РRINТ «ВНИМАНИЕ !» PRINТ Е¤
3720 РRINТ AТ(3,20): РRINТ V¤
3730 РRINТ AT(5,10): РRINТ «ПОСЛЕ НАЖАТИЯ КЛ. CR/LF ВВЕДИТЕ ДРУГИЕ ИСХОД. ДАНННЫЕ»
3740 INPUТ I: CLEAR N: IF 1<999999999 ТНЕN 90: GOТO 3770
3750 РRINТ С¤; PRINТ AТ(1,15): РRINT D¤: РRINT «ВНИМАНИЕ»: РRINT Е¤
3760 РRINТ AТ(3,20): РRINТ V1¤: GOТO 3730
3770%=====================================================
3780 %ПРОВЕРКА НОРМАЛЬНОЙ ТОЛЩИНЫ ЗУБА НА ПОВЕРХН. ВЕРШИН
3790%=====================================================
3800IF D%=1 ТНЕN 3820
3810U6=(W2+2*F7*TAN(A2))/COS(H3): J1=(W2+2*B6*TAN(A2))/COS(H4): GOTO 363
3820U6=D4*R2/COS(B)/R: J1=D4/COS(B)/R*(R2-B1)
3830J2=3.1415926*M1*R2/COS(B)/R-U6: J3=3.1415926*M1/COS(B)/R*(R2-B1)-J1
3840J8=TAN(B2)-B2: J9=TAN(P6)-P6: L4=TAN(P7)-P7: L5=TAN(B3)-B3: L6=TAN(P8): L7=TAN(P9)-P9
3850IF Z4>150 ТНЕN 3880
3860J4=M9*COS(U2)*(U6/M3+J8-J9): J6=P0*COS(U4)*(J1/M5+L5-L6)
3870J5=M0*COS(U3)*(J2/M4+J8-L4): J7=P5*COS(U5)*(J3/M6+L5-L7): GOTO 3920
3880J4=U6*COS(H3)-2*P4*TAN(A2): J6=J1*COS(H4)-2*M7*TAN(A2)
3890IF Z5>150 ТНЕN 3910
3900J5=M0*COS(U3)*(J2/M4+J8-L4): J7=P5*COS(U5)*(J3)/M6+L5-L7): GOTO 3920
3910J5=J2*COS(Н3)-2*F5*TAN(A2): J7=J3*СOS(H4)-2*M8*ТAN(A2)
3920Y2=J4/J6
3930IF Y2<.7 OR Y2>1.3 ТНЕN 3940: GOТO 4010
3940 РRINТ С¤: РRINТ AТ(1,15): РRINТ D¤; РRINТ «ВНИМАНИЕ!»: РRINТ Е¤
3950 РRINТ «КОЭФФ. СУЖЕНИЯ НОРМАЛЬНОЙ ТОЛЩИНЫ ЗУБА ШЕСТЕРНИ KNU1=»; Y2
3960 РRINТ «ЕСЛИ КNU<0.7 СЛЕДУЕТ УВЕЛИЧИТЬ ДИАМЕТР ЗУБОРЕЗН. ГОЛОВКИ D0»
3970 РRINТ « И/ИЛИ УМЕНЬШИТЬ УГОЛ НАКЛОНА ЗУБА ВЕТN»
3980 РRINТ «ЕСЛИ КNU1>1.3 СЛЕДУЕТ ПОСТУПИТЬ НАОБОРОТ: УМЕНЬШИТЬ D0 И УВЕЛИЧ. BЕТN»
3990 РRINТ «»: РRINТ «НАЖМИТЕ КЛАВИШУ СR/LF И ПОВТОРИТЕ ВВОД ПАРАМЕТРОВ»
4000INPUТ I: CLEAR N: IF I<999999999 ТНЕN 90: GOТO 4080
4010Y7=J5/J7
4020IF Y7<.7 OR Y7>1.3 ТНЕN 4039: GOТO 4080
4030 РRINТ С¤: РRINТAT(1,15): РRINТ D¤; : РRINТ «ВНИМАНИЕ!»: PRINТ Е¤
4040 РRINТ «КОЭФФ. СЛИЯНИЯ НОРМАЛЬНОЙ ТОЛЩИНЫ ЗУБА КОЛЕСА KNU2=»; Y7
4050 РRINТ «ЕСЛИ KNU2<0.7 СЛЕДУЕТ УВЕЛИЧИТЬ ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ D0»
4060 РRINТ « И/ИЛИ УМЕНЬШИТЬ УГОЛ НАКЛОНА ЗУБА ВЕТN»
4070 РRINT «ЕСЛИ КNU2>1.3 СЛЕДУЕТ ПОСТУПИТЬ НАОБОРОТ: УМЕНЬШИТЬ D0 И УВЕЛИЧ. BЕТN»: GOTО 3990
4080 Y8=(J6-J4)*СOS(В)/В1: Y9=(J7-J5)*СOS(B)/В1: Y8=ROUND(Y8,3): Y9=ROUND(Y9,3)
4090IF Y8<-.05 OR Y9<.05 OR Y8>.7 OR Y9>.07 ТНЕN 4100: GOТO 4110
4100 РRINТ«NUA1=»; Y8; «NUA2=»; Y9: SТOР «УГОЛ СУЖЕНИЯ НОРМ. ТОЛЩ. ЗУБА НА ПОВЕРХНОСТИ ВЕРШИН Д.Б. В ПРЕДЕЛАХ -0.05 - +0.07»
4110 Е0=1.3.1415926/COS(В4)
4120Е1=Е0*SQR((Z4/2+F2*COS(B)/M1)^2-(Z4/2*COS(В4))^2)
4130 Е2=Е0*SQR((Z5/2+F3*COS(B)/M1)^2-(Z5/2*COS(В4))^2)
4140 Е3=(Z4+Z5)*ТAN(В4)/2/3.1415926
4150 Е8=Е1+Е2-Е3: Е9=В1*SIN(B)/#РI/М1: Е9=ROUND(Е9,3)
4160IF В/W>20 AND Е9<1.25 ТНЕN 4170: GOТO 4230
4170 РRINТ С¤: РRINT AТ(1,15): РRINТ D¤: РRINТ «ВНИМАНИЕ!»: РRINТ Е¤
4180 РRINТ AТ(3,8): РRINТ «КОЭФФ. ОСЕВОГО ПЕРЕКРЫТИЯ ЕРSВ<1.25.(ЕРSВ=»; Е9; «)»
4190 РRINТ «СЛЕДУЕТ УВЕЛИЧИТЬ УГОЛ НАКЛОНА ЗУБА ВЕТN»
4200 РRINТ «НАЖМИТЕ КЛАВИШУ СR/LF И ВВЕДИТЕ ДРУГИЕ ДАННЫЕ»
4210INPUТ I: СLЕAR N: IF I<999999999 ТНЕN 4220
4220 РRINТ С¤: GОТО90
4230 Е7=SQR(Е8^2+Е9^2)
4240 Т(14)=D7-М1*СOS(L2): Т(12)=D5*S8+М1*ТAN(A2): Т(13)=F3+.25*D5*S6+.5*M1
4250 Т(16)=R6*СOS(R8)*A4+М1*ТAN(A2): Т(17)=F5+R6*A8*Н9-Н7*ТAN(Т4)+.5*М1
4260T(15)=D7*R4/R-М1*СOS(L2)
4270 К1=1/W: G0=G0*К1: G1=G1*К1: G2=G2*К1: G3=G3*К1: L1=L1*K1: L2=L2*К1: Т0=Т0*K1: Т1=Т1*К1: Т2=Т2*К1: Т3=Т3*К1: Т4=Т4*К1: S=S*К1: G0=RОUND(G0,8): G1=ROUND(G1,8): G2=ROUND(G,8): G3=ROUND(G3,8): L1=ROUND(L1,8): L2=ROUND(L2,8): A2=A2*K1: A2=ROUND(A2,0)
4280 Т(1)=G0: Т(2)=G1: T(3)=G2: T(4)=G3: Т(5)=L1: Т(6)=L2: Т(7)=Т0: Т(8)=Т1: Т(9)=Т2: Т(10)=Т3: T(11)=Т4
4290 Т(14)=D7-М1*СOS(L2): Т(12)=D5*S8+М1*ТAN(A2): Т(13)=F3+.25*D5*S6+.5*М1
4300 Т(16)=R6*СOS(R8)*A4+М1*ТAN(A2): Т(17)=F5+R6*A8*Н9-Н7*ТAN(Т4)+.5*M1
4310T(15)=D7*R4/R-M1*СOS(L2)
4320M1=ROUND(M1,4): М2=ROUND(М2,4): Z3=ROUND(Z3,4): R=ROUND(R,4): R2=ROUND(R2,4): L3=ROUND(L3,4): D2=ROUND(D2,4): D3=ROUND(D3,4): D4=ROUND(D4,4): D5=ROUND(D5,4): T8=ROUND(T8,4): T9=ROUND(T9,4): F0=ROUND(F0,4): F1=ROUND(F1,4): T5=ROUND(T5,4): T6=ROUND(T6,4)
4330F2=ROUND(F2,4): F3=ROUND(F3,4): F4=ROUND(F4,4): F5=ROUND(F5,4): F6=ROUND(F6,4): F7=ROUND(F7,4): F8=ROUND(F8,4): F9=ROUND(F9,4): G0=ROUND(G0,4): G1=ROUND(G1,4): G3=ROUND(G3,4): D6=ROUND(D6,4): D7=ROUND(D7,4): D8=ROUND(D8,4):
4340D9=ROUND(D9,4): G4=ROUND(G4,4): G5=ROUND(G5,4): G6=ROUND(G6,4): G7=ROUND(G7,4): S1=ROUND(S7,4): S2=ROUND(S2,4): S3=ROUND(S3,4): S4=ROUND(S4,4): S5=ROUND(S5,4): S6=ROUND(S6,4): S7=ROUND(S7,4): S8=ROUND(S8,4): S0=ROUND(S8,4): S0=ROUND(S0,4): S9=ROUND(S9,4)
4350 Н1=ROUND(Н1,4): Н2=ROUND(H2,4): Н6=ROUND(Н6,4): Н7=ROUND(Н7,4): R3=ROUND(R3,4): R4=ROUND(R4,4): R5=ROUND(R5,4): R6=ROUND(R6,4): Н8=ROUND(Н8,4): Н9=ROUND(Н9,4)
4360A3=ROUND(A3,4): A4=ROUND(A4,4): A5=ROUND(A5,4): A6=ROUND(A6,4): A7=ROUND(A7,4): A8=ROUND(A8,4): A0=ROUND(A0,4): A9=ROUND(A9,4): U8=ROUND(U8,4): U9=ROUND(U9,4)
4370Y2=ROUND(Y2,2): Y7=ROUND(Y7,2): Y8=ROUND(Y8,2): Y9=ROUND(Y9,2): Е8=ROUND(E8,2): E7=ROUND(E7,2): Т(12)=ROUND(T(12,4): Т(13)=ROUND(T(13),4): Т(14)=ROUND(T(14),4): Т(15)=ROUND(T(15),4)
4380X1=ROUND(X1,2): X3=ROUND(X3,2): D8=ROUND(D8,4): D9=ROUND(D9,4): D1=ROUND(D1,3)
4390FОR I=1 TO 11: O(I)=Т(I): Т%(I)=Т(I): Q(I)=O(I)-T%(I)
4400MAТ W=(60)*Q: J(I)=W(I): W%(I)=W(I): С(I)=J(I)-W%(I)
4410 МAТA=(60)*С: A%(I)=A(I)
4420NEXT I
4430 Т(16)=ROUND(T(16),4): Т(17)=ROUND(D(17),4): S=ROUND(S,0)
4440 РRINТ НЕX(03) «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ КОНИЧЕСКОЙ ЗУБЧАТОЙ ПЕРЕДАЧИ»
4450 РRINТ AТ(2,25): РRINТ «С КРУГОВЫМИ ЗУБЬЯМИ»: РRINТ «»
4460 РRINТ «ЧИСЛО ЗУБЬЕВ Z1=»; Z1%; «Z2=»; Z2%
4470 РRINТ «МОДУЛЬ МN=»; М1; «МТЕ=»; М2
4480 РRINТ «УГОЛ НАКЛОНА ЗУБА СРЕДНИЙ ВЕТТ=»; В1(9); «ГР»; В1(5); «?»; В1(6); «??»
4490 РRINТ «МЕЖОСЕВОЙ УГОЛ SUM=»; S; «ГР»; В1(7); «?»; В1(8); «??»
4500 РRINТ «СРЕДНЕЕ КОНУСНОЕ РАССТОЯНИЕ R=»; R
4510 РRINТ «ВНЕШНЕЕ КОНУСНОЕ РАССТОЯНИЕ RЕ=»; К2
4520 РRINТ «НОМИНАЛЬНЫЙ ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ D0=»; D0
4530 РRINТ «ШИРИНА ЗУБЧАТОГО ВЕНЦА ........ В=»; В1
4540 РRINТ «ПЕРЕДАТОЧНОЕ ЧИСЛО ....... U=»; U
4550 РRINТ «КОЭФФ. СМЕЩЕНИЯ У ШЕСТЕРНИ ...... XN1=»; Х1
4560 РRINТ «КОЭФФ. ИЗМЕНЕНИЯ ТОЛЩИНЫ ЗУБА ШЕСТЕРНИ ХТAU1=»; Х3
4570 РRINТ «ПОПРАВКА НА ВЫСОТУ НОЖКИ ЗУБА DЕLНF=»; D1
4580 РRINТ «Развод РЕЗЦОВ ЗУБОРЕЗ. ГОЛОВКИ .... W2=»; W2
4590 РRINТ «РАССТОЯНИЕ ОТ ВНЕШНЕГО ТОРЦА»
4600 РRINТ «ДО РАСЧЕТНОГО СЕЧЕНИЯ ....... LЕ=»; L3
4610 РRINТ «НОРМАЛЬНАЯ ТОЛЩИНА ЗУБА В РАСЧ. СЕЧЕНИИ SN1=»; D4; «SN2=»; D5
4620 РRINТ «ВНЕШНЯЯ ВЫСОТА ЗУБА ........ HЕ1=»; F8; «НЕ2=»; F9
4630 РRINТ ..... «»: SТОР «НАЖМИТЕ КЛ. СОNTINUЕ»
4640 РRINТ НЕX(03); : РRINТ AТ(1,1)
4650 РRINТ «УГОЛ КОНУСА ВЕРШИН ШЕСТЕРНИ ..... DЕLA1=»; Т%(1); «ГР»; W%(1); «?»; А%(1); «??»
4660 РRINТ «-----------------КОЛЕСА ..... DЕLA2=»; Т%(2); «ГР»; W%(2); «?»; А%(2); «??»
4670 РRINТ «УГОЛ КОНУСА ВПАДИН ШЕСТЕРНИ ..... DELF1=»; Т%(3); «ГР»; W%(3); «?»; А%(3); «??»
4680 РRINТ «----------------- КОЛЕСА ..... DЕLF2=»; Т%(4); «ГР»; W%(4); «?»; А%(4); «??»
4690 РRINТ «СУММА УГЛОВ НОЖЕК ЗУБЬЕВ ШЕСТ. И КОЛЕСА ТЕТFS=»; Т%(7); «ГР»; W%(7); «?»; А%(7); «??»
4700 РRINТ «УГОЛ НОЖКИ ЗУБА ШЕСТЕРНИ ..... ТЕТF1=»; Т%(8); «ГР»; W%(8); «?»; A%(8); «??»
4710 РRINТ «------------- КОЛЕСА .....ТЕТF2=»; Т%(9); «ГР»; W%(9); «?»; А%(9); «??»
4720 РRINТ «УГОЛ ГОЛОВКИ ЗУБА ШЕСТЕРНИ ..... ТЕТА1=»; Т%(10); «ГР»; W%(10); «?»; A%(10); «??»
4730 РRINТ «----------- КОЛЕСА ..... ТЕТА2=»; Т%(11); «ГР»; W%(11); «?»; А%(11); «??»
4740 РRINТ «УГОЛ ДЕЛИТЕЛЬНОГО КОНУСА ШЕСТЕРНИ .. DЕLТ1=»; Е%(5); «ГР»; W%(5); «?»; А%(5); «??»
4750 РRINТ «----------------------КОЛЕСА .. DЕLТ2=»; Т%(6); «ГР»; W%(6); «?»; А%(6); «??»
4760 РRINТ «ВНЕШН. ВЫСОТА ГОЛОВКИ ЗУБА ..... НАЕ1»; F4; «НАЕ2=»; F5
4770 РRINТ «ВНЕШН. ВЫСОТА НОЖКИ ЗУБА ..... НFЕ1=»; F6; «НFЕ2=»; F7
4780 РRINТ «СРЕДНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР ..... D1=»; D6; «D2=»; D7
4790 РRINТ «ВНЕШНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР ..... DЕ1=»; D8; «DЕ2=»; D9
4800 РRINТ «ВНЕШНИЙ ДИАМЕТР ВЕРШИН ЗУБЬЕВ .... DAЕ1=»; G4; «DAЕ2=»; G5
4810 РRINТ «»: SТOР «НАЖМИТЕ КЛ. СОNТINUЕ»
4820 РRINТ С¤
4830 РRINТ «РАССТОЯНИЕ ОТ ВЕРШИНЫ ДО ПЛОСКОСТИ»
4840 РRINТ «ВНЕШНЕЙ ОКРУЖНОСТИ ВЕРШИН ЗУБЬЕВ ...... В1=»; G6; «В2=»; G7
4850 РRINТ «ПОСТОЯННАЯ ХОРДА ЗУБА ........ SС1=»; S1; «SС2=»; S2
4860 РRINТ «ВЫСОТА ДО ПОСТОЯН. ХОРДЫ ЗУБА ....... НС1=»; S3; «НС2=»; S4
4870 РRINТ «ДЕЛИТЕЛЬН. ТОЛЩ. ЗУБА ПО ХОРДЕ В РАСЧ. СЕЧЕН ... SN1=»; S0; «SN2=»; S9
4880 РRINТ «ВЫСОТА ДО ДЕЛИТ. ХОРДЫ ЗУБА В РАСЧ. СЕЧЕНИИ ... НА1=»; Н1; «НА2=»; Н2
4890 РRINТ «ТОЛЩИНА ЗУБА КОЛЕСА ПО ХОРДЕ НА КОНЦЕНТР.»
4900 РRINТ «ОКРУЖНОСТИ ДИАМЕТРОМ DY2=»; Т(14); «SAY2=»; Т(12)
4910 РRINТ «ВЫСОТА ДО ХОРДЫ ЗУБА КОЛЕСА ПО КОНЦЕНТРИЧ.»
4920 РRINT «ОКРУЖН. В РАСЧ. СЕЧЕН. ДИАМЕТРОМ DY2=»; Т(14); «НAY2=»; Т(13)
4930 РRINТ «РАССТОЯНИЕ ОТ ВНЕШ. ТОРЦА ДО ИЗМЕРИТ. СЕЧЕНИЯ LX1=»; Н6; «LX2=»; Н7
4940 РRINТ «ВЫСОТА ДО ДЕЛИТЕЛЬНОЙ ХОРДЫ ЗУБА .... НАХ1=»; А0; «НАХ2=»; А9
4950 РRINТ «ТОЛЩ. ЗУБА КОЛЕСА ПО ХОРДЕ НА КОНЦЕНТРИЧ.»
4960 РRINТ «ОКРУЖН. В ИЗМЕРИТ. СЕЧЕНИИ ДИАМЕТРОМ DYX2=»; Т(15); «SNYX2=»; Т(16)
4970 рRINт «высотА до Хорды зУБА колЕСА НА концентр.»
4970 РRINТ «высота до хорды зУБА колЕсА нА концентр.»
4980 РRINТ «ОКРУЖН. В ИЗМЕРИТ. СЕЧЕНИИ ДИАМЕТРОМ DYX2=»; Т(15); «НАYX2=»; Т(17)
4990 РRINТ «КОЭФФ. ТОРЦОВОГО ПЕРЕКРЫТИЯ ........ ЕРSA=»; Т8
5000 РRINТ «КОЭФФ. ОСЕВОГО ПЕРЕКРЫТИЯ ......... ЕРSВ=»; Т9
5010 РRINТ «»
5020 РRINТ «ДЛЯ ВЫВОДА ТАБЛИЦЫ НА ПЕЧАТЬ ВКЛЮЧИТЕ АЦПУ И НАЖМИТЕ КЛ. СR/LF»
5030 РRINТ «ДЛЯ ПРОСМОТРА НАЧАЛА ТАБЛИЦЫ НАЖМИТЕ 1 И СR/LF»
5040I=0: INРUТ I: IF I<1 ТНЕN 5050: GOТO 4440
5050 РRINТ С¤: INРUT «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА ШЕСТЕРНИ?», V¤
5060 INРUТ «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА КОЛЕСА?», V1¤
5070 INРUТ «НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ШЕСТЕРНИ (ЛЕВОЕ, ПРАВОЕ)», Е¤
5080 INPUT «СТЕПЕНЬ точности», D¤
5090 IF Е¤= «ЛЕВОЕ» ТНЕN 5100: GОТО 5110
5100 С¤= «ПРАВОЕ»: GOTO 5120
5110 С¤= «ЛЕВОЕ»
5120 SЕLЕСТ РRINТ0С
5130 РRINТ «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ КОНИЧЕСКОЙ»
5140 РRINТ «ПЕРЕДАЧИ С КРУГОВЫМИ ЗУБЬЯМИ»
5150 РRINТ «ШЕСТЕРНЯ»
5160 РRINТ «!-----------------------------------------------------------!»
5170 РRINТ «! МОДУЛЬ СРЕДНИЙ НОРМАЛЬНЫЙ !NN !»; М1; ТАВ(60); «!»
5180 РRINТ «! ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ !Z1 !»; Z%; ТAВ(60); «!»
5190 РRINТ «! ТИП ЗУБА !-! КРУГОВОЙ»
5200 РRINТ «! ОСЕВАЯ ФОРМА ЗУБА ПО ГОСТ 19325-73 ! - !»; !; ТАВ(60); «!»
5210 РRINT «УГОЛ НАКЛОНА ЗУБА СРЕДНИЙ !ВЕТN !»; В1(9); «Г»; В1(5); «?»; B1(6); «??»; ТАВ(60); «!»
5220 РRINТ «!НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ! - !»; Е¤; ТАВ(60); «!»
5230 IF К¤= «+» ТНЕN 5240: GOTO 5250
5240 РRINT «ИСХОДНЫЙ КОНТУР ! - ! ГОСТ 16202-70!»: GОТО 5310
5250 РRINТ «! ВИД ИСХОДНОГО КОНТУРА ! - !СРЕДНИЙ НОРМАЛЬН!»
5260 РRINТ «! УГОЛ ПРОФИЛЯ !ALFAN!»; А2; «Г»; В1(4); «?»; В1(12); «??»; ТАВ(60); «!»
5270 PRINТ «! КОЭФФИЦИЕНТ ВЫСОТЫ ГОЛОВКИ ЗУБА !НА !»; Н; ТАВ(60); «!»
5280 РRINТ « КОЭФФИЦИЕНТ РАДИАЛЬНОГО ЗАЗОРА !С* !»; С; ТАВ(60); «!»
5290 РRINТ « КОЭФФИЦИЕНТ РАДИУСА КРИВИЗНЫ ПЕРЕ- ! !»; ТАВ(60); «!»
5300 РRINТ «! ХОДНОЙ КРИВОЙ В ГРАНИЧНОЙ ТОЧКЕ !RОF !»; R1; ТAВ(60); «!»
5310 PRINТ «! КОЭФФИЦИЕНТ СМЕЩЕНИЯ !XN1 !»; Х1; ТАВ(60); «!»
5320 РRINТ «! КОЭФФ. ИЗМЕНЕНИЯ РАСЧЕТ. ТОЛЩИНЫ ЗУБА !ХТ1 !»; Х3; ТАВ(60); «!»
5330 РRINТ «! УГОЛ ДЕЛИТЕЛЬНОГО КОНУСА !DЕLТ1 !»; Т%(5); «Г»; W%(5); «?»; А%(5); «??»; ТАВ(60); «!»
5340 РRINT «! НОМИНАЛЬ. ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ !D0 !»; D0; ТАВ(60); «!»
5350 PRINТ «! РАЗВОД РЕЗЦОВ ЗУБОРЕЗНОЙ ГОЛОВКИ !W2 !»; W2; ТAВ(60); «!»
5360 РRINТ «! СТЕПЕНЬ ТОЧНОСТИ ! - !»; D¤; ТАВ(60); «!»
5370 PRINT «!--------------------------------------------------------!»
5380 РRINТ «! ПОСТОЯННАЯ ХОРДА ЗУБА !SС1 !»; S1; ТFВ(60); «!»
5390 РRINT «! ВЫСОТА ДО ПОСТОЯННОЙ ХОРДЫ ЗУБА !НС1 !»; S3; ТAВ(60); «!»
5400 РRINТ «! ВЫСОТА ДО ДЕЛИТЕЛЬНОЙ ХОРДЫ ЗУБА !НАХ1 !»; А0; ТАВ(60); «!»
5410 РRINТ «! ВНЕШНЯЯ ВЫСОТА ГОЛОВКИ ЗУБА !НАЕ1 !»; F4; ТAВ(60); «!»
5420 РRINT «! ВНЕШНЯЯ ВЫСОТА НОЖКИ ЗУБА !НFЕ1 !»; F6; ТАВ(60); «!»
5430 PRINT «!-------------------------------------------------------------------!»
5440 РRINТ «! МЕЖОСЕВОЙ УГОЛ !SUM !»; S; «Г»; В1(7); «?»; В1(8); «??»; ТАВ(60); «!»
5450 РRINТ «! МОДУЛЬ ВНЕШНИЙ ОКРУЖНОЙ !МТЕ !»; М2; ТАВ(60); «!»
5460 РRINТ «! ВНЕШНЕЕ КОНУСНОЕ РАССТОЯНИЕ !RЕ !»; R2; ТAВ(60); «!»
5470 РRINТ «! СРЕДНЕЕ КОНУСНОЕ РАССТОЯНИЕ !R !»; R; ТAВ(60); «!»
5480 рRINт «! ширинА зУБЧАтого ВЕнцА !в !»; В1; тАв(60); «!»
5490 РRINТ «! СРЕДНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D1 !»; D6; ТAВ(60); «!»
5500 РRINТ «! ВНЕШНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !DЕ1 !»; D8; ТАВ(60); «!»
5510 РRINТ «! ВНЕШНИЙ ДИАМЕТР ВЕРШИН ЗУБЬЕВ !DAЕ1 !»; G4; ТAВ(60); «!»
5520 РRINТ «! РАССТОЯНИЕ ОТ ВЕРШИНЫ ДО ПЛОСКОСТИ ! !»; ТАВ(60); «!»
5530 РRINТ «! ВНЕШНЕЙ ОКРУЖНОСТИ ВЕРШИН ЗУБЬЕВ !В1 !»; G6; ТAB(60); «!»
5540 РRINТ «! УГОЛ КОНУСА ВЕРШИНЫ !DЕLA1!»; Т%(1); «Г»; W%(1); «?»; A%(1); «??»; ТAВ(60); «!»
5550 РRINТ «! УГОЛ КОНУСА ВПАДИН !DЕLF1!»; Т%(3); «Г»; W%(3); «?»; А%; «??»; ТАВ(60); «!»
5560 РRINТ «ВНЕШНЯЯ ВЫСОТА ЗУБА !НЕ1 !»; F8; ТAВ(60); «!»
5570 РRINТ «! ДЕЛИТЕЛЬНАЯ ТОЛЩИНА ЗУБА ! !»; ТАВ(60); «!»
5580 РRINТ «! ПО ХОРДЕ В РАСЧЕТНОМ СЕЧЕНИИ !SN1 !»; S0; ТAВ(60); «!»
5590 РRINТ «! ВЫСОТА ДО ДЕЛИТЕЛЬНОЙ ХОРДЫ ! !»; ТАВ(60); «!»
5600 РRINТ «! ЗУБА В РАСЧЕТНОМ СЕЧЕНИИ !НА1 !»; Н1; ТАВ(60); «!»
5610 РRINТ «! РАССТ. ОТ ВНЕШ. ТОРЦА ДО РАСЧ. СЕЧЕНИЯ !LЕ !»; L3; ТAВ(60); «!»
5620 РRINТ «! РАССТ. ОТ ВНЕШ. ТОРЦА ДО ИЗМЕР. СЕЧЕНИЯ !LX1 !»; Н6; ТАВ(60); «!»
5630 РRINТ «! НОРМАЛЬН. ТОЛЩИНА ЗУБА В РАСЧ. СЕЧЕНИИ !SN1 !»; D4; ТАВ(60); «!»
5640 РRINТ «! ----------------------------------------------------------- »
5650 РRINТ «! ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СОПРЯЖЕННОГО !»; ТАВ(60); «!»
5660 РRINТ «! ЗУБЧАТОГО КОЛЕСА !»; V¤
5670 РRINT «!----------------------------------------------------------»
5680PRINT НЕX (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)
5690PRINT HEX (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)
5700PRINT HEX (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)
5710 РRINT «КОЛЕСО»
5720 РRINT «!-------------------------------------------------------------»
5730 РRINТ «! МОДУЛЬ СРЕДНИЙ НОРМАЛЬНЫЙ !MN !»; М1; ТАВ(60); «!»
5740 РRINT «! ЧИСЛО ЗУБЬЕВ !Z2 !»; Z2%; ТAВ(60); «!»
5750 РRINТ «! ТИП ЗУБА ! - ! КРУГОВОЙ»
5760 РRINТ «! ОСЕВАЯ ФОРМА ЗУБА ПО ГОСТ 19325-73 ! - !»; I%; ТAВ(60); «!»
5770 РRINT «! УГОЛ НАКЛОНА ЗУБА СРЕДНИЙ ВЕТN !»; B1(9); «Г»; В1(5); «?»; В1(6); «??»; ТАВ(60); «!»
5780 РRINТ «НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ! - !»; С¤; ТАВ(60); «!»
5790 IF К¤= «+» ТНЕN 5800: GOТО 5810
5800 РRINТ «! ИСХОДНЫЙ КОНТУР ! - ! ГОСТ 16202-70»; GOТO 5870
5810 РRINТ «! ВИД ИСХОДНОГО КОНТУРА ! - ! СРЕДНИЙ НОРМАЛЬН»
5820 РRINТ «! УГОЛ ПРОФИЛЯ !ALFAN!»; А2; «Г»; В1(4); «?»; В1(12); «??»; ТАВ(60); «!»
5830 PRINТ «! КОЭФФИЦИЕНТ ВЫСОТЫ ГОЛОВКИ ЗУБА !НА !»; Н; ТАВ(60); «!»
5840 РRINТ «! КОЭФФИЦИЕНТ РАДИАЛЬНОГО ЗАЗОРА !С* !»; С; ТАВ(60); «!»
5850 PRINТ «! КОЭФФИЦИЕНТ РАДИУСА КРИВИЗНЫ ПЕРЕ- ! !»; ТАВ(60); «!»
5860 РRINТ «! МОДНОЙ КРИВОЙ В ГРАНИЧНОЙ ТОЧКЕ !RОF !»; R1; ТAВ(60); «!»
5870 РRINТ «! КОЭФФИЦИЕНТ СМЕЩЕНИЯ !ХN1 !»; -Х1; ТАВ(60); «!»
5880 РRINТ «! КОЭФФ. ИЗМЕНЕНИЯ РАСЧЕТ. ТОЛЩИНЫ ЗУБА !ХТ1 !»; -Х3; ТАВ(60); «!»
5890 РRINТ «! УГОЛ ДЕЛИТЕЛЬНОГО КОНУСА !DЕLТ2 !»; Т%(6); «Г»; W%(6); «?»; А%(6); «??»; ТАВ(60); «!»
5900 РRINТ «! НОМИНАЛЬ. ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ !D0!»; D0; ТАВ(60); «!»
5910 РRINТ «РАЗВОД РЕЗЦОВ ЗУБОРЕЗНОЙ ГОЛОВКИ !W2 !»; W2; ТАВ(60); «!»
5920 РRINТ «! СТЕПЕНЬ ТОЧНОСТИ ! - !»; D¤; ТAB(60); «!»
5930 РRINТ «!-----------------------------------------------------------!»
5940 IF Х1>.4 ТНЕN 5980
5950 РRINТ «! ПОСТОЯННАЯ ХОРДА ЗУБА !SС2 !»; S2; ТAВ(60); «!»
5960 РRINТ «! ВЫСОТА ДО ПОСТОЯННОЙ ХОРДЫ ЗУБА !НС2 !»; S4; ТAВ(60); «!»
5970 РRINТ «! ВЫСОТА ДО ДЕЛИТЕЛЬНОЙ ХОРДЫ ЗУБА !НАХ2 !»; А9; ТАВ(60); «!»
5980 РRINТ «! ВНЕШНЯЯ ВЫСОТА ГОЛОВКИ ЗУБА !НАЕ2 !»; F5; ТAВ(60); «!»
5990 РRINТ «! ВНЕШНЯЯ ВЫСОТА НОЖКИ ЗУБА !НFЕ2 !»; F7; ТAВ(60); «!»
6000 РRINТ «!----------------------------------------------------------»
6010 РRINТ «! МЕЖОСЕВОЙ УГОЛ !SUM !»; S; «Г»; В1(7); «?»; В1(8); «??»; ТАВ(60); «!»
6020 РRINТ «! МОДУЛЬ ВНЕШНИЙ ОКРУЖНОЙ !МТЕ !»; М2; ТАВ(60); «!»
6030 РRINТ «! ВНЕШНЕЕ КОНУСНОЕ РАССТОЯНИЕ !RЕ !»; R2; ТAВ(60); «!»
6040 РRINТ «! СРЕДНЕЕ КОНУСНОЕ РАССТОЯНИЕ !R !»; R; ТAВ(60); «!»
6050 РRINТ «! ШИРИНА ЗУБЧАТОГО ВЕНЦА !В !»; В1; ТАВ(60); «!»
6060 РRINТ «! СРЕДНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D2 !»; D7; ТAВ(60); «!»
6070 РRINТ «! ВНЕШНИЙ ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !DЕ2 !»; D9; ТAВ(60); «!»
6080 РRINТ «! ВНЕШНИЙ ДИАМЕТР ВЕРШИН ЗУБЬЕВ !DAЕ2 !»; G5; ТAВ(60); «!»
6090 РRINТ «! РАССТОЯНИЕ ОТ ВЕРШИНЫ ДО ПЛОСКОСТИ ! !»; ТАВ(60); «!»
6100 РRINТ «! ВНЕШНЕЙ ОКРУЖНОСТИ ВЕРШИН ЗУБЬЕВ !В2 !»; G7; ТAВ(60); «!»
6110 РRINТ «УГОЛ КОНУСА ВЕРШИНЫ !DELA2 !»; Т%(2); «Г»; W%(2); «?»; A%(2); «??»; ТAВ(60); «!»
6120 РRINТ «! УГОЛ КОНУСА ВПАДИН !DЕLF2 !»; Т%(4); «Г»; W%(4); «?»; A%(4); «??»; ТAB(60); «!»
6130 РRINТ «! ВНЕШНЯЯ ВЫСОТА ЗУБА !НЕ2 !»; F9; ТAВ(60); «!»
6140 IF Х1>.4 ТНЕN 6190
6150 РRINТ «! ДЕЛИТЕЛЬНАЯ ТОЛЩИНА ЗУБА ! !»; ТАВ(60); «!»
6160 РRINТ «! ПО ХОРДЕ В РАСЧЕТНОМ СЕЧЕНИИ !SN2 !»; S9; ТAВ(60); «!»
6170 РRINТ «! ВЫСОТА ДО ДЕЛИТЕЛЬНОЙ ХОРДЫ ! !»; ТАВ(6); «!»
6180 РRINТ «! ЗУБА В РАСЧЕТНОМ СЕЧЕНИИ !НА2 !»; Н2; ТАВ(60); «!»
6190 РRINТ «! РАССТ. ОТ ВНЕШ.ТОРЦА ДО РАСЧ. СЕЧЕНИЯ !LЕ !»; L3; ТAВ(60); «!»
6200 РRINТ «! РАССТ. ОТ ВНЕШ.ТОРЦА ДО ИЗМЕР. СЕЧЕНИЯ!LХ2 !»; Н7; ТАВ(60); «!»
6210 РRINТ «! НОРМАЛЬН. ТОЛЩИНА ЗУБА В РАСЧ. СЕЧЕНИИ !SN2 !»; D5, ТAВ(60); «!»
6220 IF Х1<=.4 ТНЕN 6320
6230 РRINТ «! ТОЛЩ. ЗУБА ПО ХОРДЕ НА КОНЦЕНТРИЧЕСК.!»; ТАВ(60); «!»
6240 IF X1<=.4 ТНЕN 6320
6250 РRINТUSING «!ОКРУЖНОСТИ ДИАМЕТРОМ DY=####.#### !SEY2 !###.#### !», Т(14), Т(12)
6260 РRINТ «! ВЫСОТА ДО ХОРДЫ ЗУБА НА КОНЦЕНТРИЧ. ! !»; ТАВ(60); «!»
6270 РRINТUSING «! ОКРУЖ. DY=####.#### В РАСЧЕТН. СЕЧЕНИИ! НAY2 !###.####)», Т(14), Т(13)
6280 РRINТ «! ТОЛЩИНА ЗУБА ПО ХОРДЕ НА КОНЦЕНТРИЧ. ! !»; ТАВ(60); «!»
6290 РRINTUDSING «! ОКРУЖ. DYХ2=####.#### В ИЗМЕРИТ. СЕЧЕН !SNYХ !###.####!», Т(15), Т(16)
6300 РRINТ «! ВЫСОТА ДО ХОРДЫ ЗУБА НА КОНЦЕНТРИЧ. ! !»; ТАВ(60); «!»
6310 РRINТUSING «! ОКРУЖ. DYХ2=####.####В ИЗМЕРИТ. СЕЧЕН. !НAYХ !###.####)!», Т(15), Т(17)
6320 РRINТ «!----------------------------------------------------------»
6330 РRINT «! ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СОПРЯЖЕННОГО !»; ТАВ(60); «!»
6340 РRINТ «! ЗУБЧАТОГО КОЛЕСА !», V1¤
6350 РRINТ «!-----------------------------------------------------------!»
6360 SЕLЕСТ РRINT05: GOTO 6480
6370 РRINТ С¤: РRINТ «КРАТКАЯ ИНСТРУКЦИЯ ПО РАБОТЕ С ПРОГРАММОЙ»
6380 РRINТ «»: РRINТ «1. БУДЬТЕ ВНИМАТЕЛЬНЫ ПРИ ОТВЕТАХ НА ВОПРОСЫ ЭВМ»
6390 РRINТ «2. ЦИФРЫ НАБИРАЙТЕ НА ЦИФРОВОЙ КЛАВИАТУРЕ, ДРОБНУЮ ЧАСТЬ ЧИСЛА ОТДЕЛЯЙТЕ ТОЧКОЙ»
6400 РRINТ «3. ПОСЛЕ НАБОРА ЧИСЛА НАЖИМАЙТЕ КЛАВИШУ СR/LF»
6410 РRINТ «4. В УГЛОВЫХ ВЕЛИЧИНАХ ВВОДЯТСЯ ОТДЕЛЬНО: ГРАДУСЫ, МИНУТЫ, СЕКУНДЫ»
6420 РRINТ «5. ОДНО ИЗ НЕИЗВЕСТНЫХ ЗНАЧЕНИЙ МОДУЛЯ МN ИЛИ МТЕ ВВОДИТСЯ НУЛЕВЫМ»
6430 РRINТ «6. БУДЬТЕ ВНИМАТЕЛЬНЫ ПРИ ВЫБОРЕ КОЭФФ. СМЕЩЕНИЯ С ЭКРАННОЙ ТАБЛИЦЫ: НАЛИЧИЕ»
6440 РRINТ «ПРОБЕЛА В КЛЕТКЕ ТАБЛИЦЫ ОЗНАЧАЕТ, ЧТО ПРИ ДАННОМ ПЕРЕДАТ. ЧИСЛЕ СЛЕДУЕТ УВЕЛИЧИТЬ Z1 (СOOТВ. И Z2)»
6450 РRINТ «7. ПРИ ВОЗНИКНОВЕНИИ НЕПОНЯТНОЙ СИТУАЦИИ (ДЛЯ ПОВТОРЕНИЯ РАСЧЕТОВ) НАЖМИТЕ ПОСЛЕДОВАТЕЛЬНО КЛАВИШИ: RЕSЕТ, RUN, И СR/LF И ПОВТОРИТЕ ВВОД ДАННЫХ»
6460 РRINТ « 8. НАЖМИТЕ КЛ. СR/LF И НАЧИНАЙТЕ РАБОТАТЬ»
6470INPUТ « ЖЕЛАЮ УСПЕХОВ !», I: IF I<999 ТНЕN 90
6480 PRINТ НЕX(03)
6490 INPUТ «БУДЕТЕ РАБОТАТЬ ЕЩЕ С ЭТОЙ ПРОГРАММОЙ ? (+ ДА; - НЕТ)», I¤
6500IF I¤=«+» THЕN 90
6510 INPUТ «БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤
6520IF I¤= «+» ТНЕN 6530: GOТO 6560
6530IF J1%=0 THEN 6540: LOAD DС R«ВМ»: GOTO 6550
6540 LOAD DС F«DМ»
6550 ЕND
6560 РRINТ С¤: РRINТ AТ(12,23): РRINТ «СПАСИБО ЗА РАБОТУ, ДО СВИДАНИЯ !»
Приложение 4
ТАБЛИЦА ИДЕНТИФИКАТОРОВ ПРОГРАММЫ GСH
m = М |
?f* = R1 |
da1 = D5 |
q = Q |
d1 = D1 |
da2 = D6 |
z1 = Z1 |
d2 = D2 |
dam2 = D7 |
z2 = Z2 |
dw1 = D4 |
?f1 = R |
аw = a3 |
? = G1 |
P1 = Р1 |
x = X |
?w = G2 |
Pz1 = Р2 |
b1 = В1 |
?b G3 |
= S1 |
u = U |
db = D3 |
= Н4 |
a = A1 |
h1 = Н3 |
D = D1(1) |
ha* = Н1 |
ha1 = Н2 |
М1 = M1 |
s* = S |
b2 = В2 |
|
УСЛОВНЫЕ ОБОЗНАЧЕНИЯ ПАРАМЕТРОВ - ПО ГОСТ 19650-74
10 %-----------------------------------------------
20 % ПРОГРАММА РАСЧЕТА ГЕОМЕТРИИ ЧЕРВЯЧНЫХ ПЕРЕДАЧ
30 % РАЗРАБОТЧИК - ВНИИНМАШ; 01.12.86.
40 %----------------------------------------------
50 СОМ J1%
60 РRINТ НЕХ(03): РRINТ «ЖЕЛАЕТЕ ОЗНАКОМИТЬСЯ С ИНСТРУКЦИЕЙ? (+ ДА; - НЕТ)»
70 INPUТ К¤: IF К¤= «+» ТНЕN 2240
80 СLEAR N: DIМ D(24), A¤20, G(5), Р(5,2), D1(10)
90D(1)=.17: D(2)=.232: D(3)=.291: D(4)=.343: D(5)=.433: D(6)=.572: D(7)=.724: D(8)=.866: D(9)=1.157: D(10)=1.441: D(11)=1.732: D(12)=2.217: D(13)=2.886: D(14)=3.468: D(15)=4.400: D(16)=5.493: D(17)=8.282: D(18)=8.767: D(19)=10.95: D(20)=16.565: D(21)=17.362: D(22)=21.863
100D(23)=28.25: D(24)=35.5
110 G(1)=-0.5: G(2)=-0.01: G(3)=0: G(4)=0.5: G(5)=1.0
120 Р(1,1)=11: Р(2,1)=8: Р(3,1)=11: P(4,1)=12: Р(5,1)=13: Р(1,2)=11: Р(2,2)=10: Р(3,2)=13: Р(4,2)=13: Р(5,2)=14
130 В¤=НЕХ(12): С¤=НЕX(11): D¤=НЕХ(12): Е¤=НЕХ(03)
140 A¤=«ПОВТОРИТЕ ВВОД ПАРАМЕТРА»
150 РRINТ Е¤; «ВЫ РАБОТАЕТЕ С ПРОГРАММОЙ ДЛЯ РАСЧЕТА ГЕОМЕТРИИ»
160 РRINТ «ЧЕРВЯЧНОЙ ЦИЛИНДРИЧЕСКОЙ ПЕРЕДАЧИ», НЕХ(0А)
170 РRINТ AТ(4,10): РRINТ В¤; «ВВЕДИТЕ ИСХОДНЫЕ ПАРАМЕТРЫ ПЕРЕДАЧИ», С¤
180 РRINТ «»
190 INPUТ «ВИД ЧЕРВЯКА (Z1-ЭВOЛЬВЕНТНЫЙ, ZA-АРХИМЕДОВ)»; F¤: IF F¤= «ZI» TНЕN 210
200 В3=1: GOТ0 220
210 В3=2
220 INPUТ «ИСХОДНЫЙ КОНТУР СТАНДАРТНЫЙ? (+ДА; -НЕТ)», К¤: IF К¤= «+»ТНЕN 230: GOТО 240
230 A=20: Н1=1: S=1.571: R1=.3: GOТO 310
240 РRINТ «ВВЕДИТЕ ДАННЫЕ ДЛЯ НЕСТАНДАРТНОГО ИСХОДНОГО КОНТУРА»
250 INPUТ «УГОЛ ПРОФИЛЯ, (ГРАД.) ..... ALFX=», А
260 INPUТ «(МИНУТЫ) ..... =», А4
270 INPUТ «(СЕКУНДЫ) ..... =», А5
280 INPUт «коЭФФ. высоты головки ..... нА=», Н1
290 INPUт «коЭФФ. рАсчЕтной толщины ..... S=», S
300 INPUТ «КоЭФФ. радиУса кривизнЫ ..... ROF=», R1
310 INPUТ «МОДУЛЬ (0.1 - 25) ........ М=», М
320IF М<0.1 OR М>25 ТНЕN 310
330 INPUТ «КОЭФФ. ДИАМЕТРА ЧЕРВЯКА (5 - 20) ... Q=», Q
340IF Q<50 OR Q>20 ТНЕN 330
350 INPUТ «ЧИСЛО ВИТКОВ ЧЕРВЯКА (1 - 4) .... Z1=», Z1
360IF Z1<1 OR Z1>4 ТНЕN 350
370 INPUТ «ЧИСЛО ЗУБЬЕВ КОЛЕСА (20 - 350) ... Z2=», Z2
380IF Z2<20 OR Z2>350 TНЕN 370
390IF Z1>1 AND Z2<26 ТНЕN 520
400IF Z1=1 AND Z2<22 ТНЕN 550
410 IF B3<1 OR B3>3 тHEN 390
420 INPUТ «МЕЖОСЕВОЕ РАССТОЯНИЕ (0 - 250) ... AW=», А3
430 IF A3<0 OR A3>250 тнЕN 420
440 INPUT «коэФФ. смЕЩЕния ЧЕРВЯКа (-1 - +1) ... х=», х
450 IF X<-1 OR X>1 THEN 440
460 INPUТ «ДЛИНА НАРЕЗАННОЙ ЧАСТИ ЧЕРВЯКА (0 - 150) В1=», В1
470 IF B1<0 ОR В1>150 ТНЕN 460
480 PRINТ «ВИД ОБРАБОТКИ (1- ТОКАРН. ОБР., 2-ШЛИФОВ.»
490 INPUТ «И ФРЕЗЕРОВАНИЕ) =», В2
500U=Z2/Z1: U%=U
510U=Z2/Z1: GOTO 570
520 РRINT F¤
530 РRINТ В¤; «ОШИБКА; ПРИ Z1>1, Z2 Д.Б. НЕ МЕНЕЕ 26»
540 INPUТ «НАЖМИТЕ СR/LF И ПОВТОРИТЕ ВВОД», I: IF I<99 ТНЕN 80
550 РRINТ F¤
560 РRINТ В¤; «ОШИБКА, ПРИ Z1=1, Z2 Д.Б. НЕ МЕНЕЕ 22»: GOТO 540
570 R=#РI/180; А1=(А+А4/60+А5/3600)*R: SЕLЕСТ R
580IF A3<0.001 ТНЕN 600
590X=A3/M-0.5*(Z2+Q): GOТO 610
600A3=0.5*(Z2+Q+2*Х)*М
610D1=Q*М: D2=Z2*М: D4=(Q+2*Х)*M: G1=ARCTAN(Z1/Q): G2=ARCTAN(Z1*М/D4)
620IF B3<>2 ТНЕN 640
630G3=ARCCOS(A1)*СOS(G1)): D3=Z1*М/ТAN(G3))
640 Н2=Н1*М: D5=D1+2*Н1*М: D6=D2+2*(Н1+X)*M
650IF В3=2 OR G1>=0.4637 ТНЕN 680
660 С1=0.2
670 GОТО 690
680 С1=0.2*СOS(G1)
690 Н=2.0+С1: Н3=Н*М
700 D7=D6+(6*М/(Z1+2)): D7=ROUND(D7,0): R=R1*М
710IF В1>0.001 ТНЕN 900
720IF В2=1 ТНЕN 760
730IF М<10 ТНЕN 770
740IF М>10 AND М<=16 ТНЕN 780
750IF М>16 ТНЕN 790
760L1=0: GOТO 800
770L1=25: GОТО 800
780L1=35: GOТO 800
790L1=50
800 FОR I=1ТO5
810L=I
820IF Х<=G(I) ТНЕN 840
830 NЕХТ I
840IF Z1>2 ТНЕN 880
850J=1
860IF L=1 ТНЕN 890
870B1=(P(L,J)+0.1*Z2)*M+L1: B1=ROUND(B1,0): GОТО 900
880J=2: GOТO 860
890 В1=(Р(L,J)+Z1)*М+L1: B1=ROUND(B1,0)
900IF Z1<=3 ТНЕN 920
910B4=0.65*D5: GОТО 930
920B4=0.75*D5
930 Р1=#РI*М: Р2=Р1*Z1: S1=S*М*СOS(G1)
940 Н4=Н1*М+0.5*S1*ТAN(0.5*ARCSIN(S*SIN(G1)^2/D1))
950D1(1)=1.7*M
960 FОR I=1ТO24
970IF D(I)>=D1(1) TНЕN 990: IF D1(1)>D(24) ТНЕN 1000
980 NЕХТ I
990D1(1)=D(I): GOТO 1010
1000D1(1)=D(24)
1000D1(1)=D(24)
1010IF B3=1 ТНЕN 1030
1020A1=0.3491
1030A1=ARCSIN(SIN(0.3491)*СOS(G1))
1040 М1=D1-(Р1-S*М)*С0S(G1)/ТAN(A1)+D1(1)*(1/SIN(A1)+1)
1050A2=ARCTAN(ТAN(A1))/СOS(A)
1060E=(SQR(D6^2-D2^2*COS(A2))^2)-D2*SIN(A2)+(2*M)(H1-X))/SIN(A2))/(*#PI*M*COS(A2))
1070 Е=0
1080G8=180/#РI: Т(1)=G1*G8: Т(2)=G2*G8: Т(3)=G3*G8
1090FOR I=1ТO3: G(I)=T(I): T%(I)=T(I): Y(I)=O)I)-T%(I)
1100MAT W=(60)*Y: J(I)=W(I): W%(I)=W(I): K(I)=J(I)-W%(I)
1110MAT A=(60)*K: A%(I)=A(I)
1120NЕXТ I
1130 Х=ROUND(X,3)
1140A3=ROUND(A3,4): D1=ROUND(D1,4): D2=ROUND(D2,4): D3=ROUND(D3,4): H3=ROUND (H3,4)
1150 Н2=ROUND(Н2,4): D5=ROUND(D5,4): D6=ROUND(D6,4): D7=ROUND(D7,4): R=ROUND(R,4)
1160 Р1=ROUND(P1,4): P2=ROUND(Р2,4): S1=ROUND(S1,4): Н4=ROUND(Н4,4): M1=ROUND(M1,4)
1170 РRINТ Е¤
1180 РRINТ D¤; «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЧЕРВЯЧНОЙ ЦИЛИНДРИЧЕСКОЙ ПЕРЕдачи»; с¤: рRINт «»
1190 РRINТ «ЧИСЛО ВИТКОВ ЧЕРВЯКА Z1=»; Z1; ТАВ(40); «ЧИСЛО ЗУБЬЕВ КОЛЕСА Z2=»; Z2
1200 PRINТ «КОЭФФ. ДИАМЕТРА Q=»; Q; ТAВ(40); «МЕЖОСЕВОЕ РАССТОЯНИЕ AW=»; А3
1210 РRINТ «КОЭФФ. СМЕЩЕНИЯ Х=»; Х; ТАВ(40); «МОДУЛЬ М=»; М
1220 РRINТ «ДЕЛИТЕЛЬНЫЙ ДИАМЕТР D1=»; D1; ТAВ(40); «********* D2=»; D2
1230 РRINТ «ДЕЛИТ. УГОЛ ПОДЪЕМА GAМ=»; Т%(1); «Г»; W%(1); «?»; A%(1); «??»; ТАВ(42); «ОСНОВНОЙ ДИАМЕТР ЧЕРВ. DВ=»; D3
1240 IF В3<>2 ТНЕN 270
1250 РRINТ «НАЧАЛЬ. УГОЛ ПОДЪЕМА GAМW=»; Т%(2); «Г»; W%(2); «?»; А%(2); «??»
1260 РRINТ «ОСНОВН. УГОЛ ПОДЪЕМА GAМB=»; Т%(3); «Г»; W%(3); «?»; А%(3); «??»
1270 РRINT «ВЫСОТА ВИТКА ЧЕРВЯКА Н1=»; Н3; ТАВ(40); «ВЫСОТА ГОЛОВКИ ВИТКА НА1=»; Н2
1280 РRINТ «ДИАМЕТР ВЕРШИН DA1=»; D5; ТAB(40); « ******* DA2=»; D6
1290 РRINТ «НАИБ. ДИАМ. ЧЕРВ. КОЛЕСА DAМ2=»; D7; ТAВ(40); «R КРИВИЗ. ПЕРЕХ. КРИВОЙ ROF1=»; R
1300 РRINТ «ДЛИНА НАРЕЗ. ЧАСТИ ЧЕРВ. В1=»; В1; ТАВ(40); «ШИРИНА ВЕНЦА КОЛЕСА В2=»; В4
1310 РRINТ «РАСЧЕТН. шаг ЧЕРВЯКА Р1=»; Р1; ТАВ(40); «ХОД ВИТКА PZ1=»; Р2
1320 РRINТ «ДЕЛИТ. ТОЛЩ. ПО ХОРДЕ ВИТКАSA1=»; S1; ТAВ(40); «ВЫСОТА ДО ХОРДЫ ВИТКА НА1=»; Н4
1330 РRINТ «ДИАМЕТР ИЗМЕРИТЕЛЬ. РОЛИКОВ D=»; D1(1); ТAВ(40); «РАЗМЕР ЧЕРВ. ПО РОЛИК. М1»; М1
1340 I=: РRINТ AТ(20,5): INРUТ «ДЛЯ ВЫВОДА НА ПЕЧАТЬ ВКЛЮЧИТЕ АЦПУ И НАЖМИТЕ СR/LF», I: IF I<999 ТНЕN 1350
1350 INPUТ «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА ЧЕРВЯКА»; М¤: INPUT «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА КОЛЕСА», М1¤
1360 INPUТ «НАПРАВЛЕНИЕ ЛИНИИ ВИТКА ЧЕРВЯКА (ЛЕВОЕ, ПРАВОЕ)»; F1¤
1370 INPUТ «СТЕПЕНЬ ТОЧНОСТИ»; F5¤
1380 SЕLЕСТ РRINТ0С
1390 РRINТ «РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЧЕРВЯЧНОЙ ПЕРЕДАЧИ»: РRINТ «»
1400 PRINТ «ЧЕРВЯК»
1410 РRINТ «!------------------------------------------------!»
1420 РRINТ «! МОДУЛЬ !М!»; М; ТАВ(49); «!»
1430 РRINТ «! ЧИСЛО ВИТКОВ !Z1 !»; Z1; ТAВ(49); «!»
1440 РRINТ «! ВИД ЧЕРВЯКА ! - !»; F¤; ТAВ(49); «!»
1450IF F¤=«Z1» ТНЕN 1480
1460 РRINТ «! ДЕЛИТЕЛЬНЫЙ УГОЛ ПОДЬЕМА !GAМ !»; Т%(1); «Г»; W%(1); «?»; А%(1); «??»; ТАВ(49); «!»; GОТJ 1490
1470IF F¤=«ZA» ТНЕN 1490
1480 РRINТ «! ОСНОВНОЙ УГОЛ ПОДЪЕМА !GAMВ !»; Т%(3); «Г»; W%(3); «?»; А%(3); «??»; ТАВ(49); «!»
1490 РRINТ «! НАПРАВЛЕНИЕ ЛИНИИ ВИТКА ! !»; F1¤; ТAВ(49); «!»
1500 IF F1¤= «ЛЕВОЕ» ТНЕN 1510: GОТО 1520
1510 F2¤= «ПРАВОЕ»: GOТO 1540
1520 F2¤= «ЛЕВОЕ»
1530 IF К¤=«+» ТНЕN 1540: GOТO 1550
1540 РRINТ «! ИСХОДНЫЙ ЧЕРВЯК ! - ! ГОСТ 19036-81 !»: GОТО 1610
1550 РRINТ «! ИСХОДНЫЙ ЧЕРВЯК ! - ! !»
1560 РRINТ «! УГОЛ ПРОФИЛЯ !ALFA !»; А; ТАВ(49); «!»
1570 РRINТ «! КОЭФФ. ВЫСОТЫ ГОЛОВКИ !НА !»; Н1; ТАВ(49); «!»
1580 РRINT «! КОЭФФ. РАСЧЕТНОЙ ТОЛЩИНЫ !S !»; S; ТАВ(49); «!»
1590 РRINТ «! КОЭФФ. РАДИУСА КРИВИЗНЫ ! !»; ТАВ(49); «!»
1600 РRINТ «! ПЕРЕХОДНОЙ КРИВОЙ !ROF !»; ТАВ(49); «!»
1610 РRINТ «! СТЕПЕНЬ ТОЧНОСТИ ! - !»; F5¤; ТAВ(49); «!»
1620 РRINТ «!------------------------------------------------!»
1630 РRINТ «! ДЕЛИТ. ТОЛЩИНА ПО ХОРДЕ !SA1 !»; S1; ТAВ(49); «!»
1640 РRINТ «! ВЫСОТА ДО ХОРДЫ ВИТКА !НА1 !»; Н4; ТАВ(49); «!»
1650 РRINТ «! РАЗМЕР ЧЕРВЯКА ПО РОЛИКАМ !М1 !»; М1; ТАВ(49); «!»
1660 РRINТ «! ДИАМЕТР ИЗМЕРИТ. РОЛИКОВ !D !»; D1(1); ТAВ(49); «!»
1670 РRINТ «!------------------------------------------------!»
1680 РRINT «! ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D1 !»; D1; ТAВ(49); «!»
1690 РRINТ «! РАСЧЕТНЫЙ ШАГ !Р1 !»; Р1; ТАВ(49); «!»
1700 РRINТ «! ХОД ВИТКА !PZ1 !»; Р2; ТАВ(49); «!»
1710 РRINТ «! МЕЖОСЕВОЕ РАССТОЯНИЕ !AW !»; А3; ТАВ(49); «!»
1720 РRINТ «! КОФФ. ДИАМЕТРА ЧЕРВЯКА !Q !»; Q; ТАВ(49); «!»
1730 PRINТ «! ВЫСОТА ВИТКА !Н1 !»; Н3; ТАВ(49); «!»
1740IF F¤=«ZA» ТНЕN 1760
1750 РRINТ «! ОСНОВНОЙ ДИАМЕТР !DВ !»; D3; ТAB(49); «!»
1760 РRINТ «! ДИАМЕТР ВЕРШИН ВИТКА !DA1 !»; D5; ТAВ(49); «!»
1770 PRINТ «! ДЛИНА НАРЕЗАННОЙ ЧАСТИ !В1 !»; В1; ТАВ(49); «!»
1780 РRINТ «! РАДИУС КРИВИЗНЫ ! !»; ТАВ(49); «!»
1790 РRINТ «! ПЕРЕХОДНОЙ КРИВОЙ ВИТКА ! ROF1!»; R; ТAВ(49); «!»
1800 РRINТ «! ЧИСЛО ЗУБЬЕВ СОПРЯЖЕННОГО ! !»; ТАВ(49); «!»
1810 РRINТ «! ЧЕРВЯЧНОГО КОЛЕСА !Z2 !»; Z2; ТAВ(49); «!»
1820 РRINТ «!-------------------------------------------------!»
1830 РRINТ «! ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СО- !»; ТАВ(49); «!»
1840 РRINТ «! ПРЯЖЕННОГО ЧЕРВЯЧ. КОЛЕСА !»; М1¤; ТАВ(49); «!»
1850 РRINТ «!------------------------------------------------!»
1860 РRINТ «ЧЕРВЯЧНОЕ КОЛЕСО»
1870 РRINT «!------------------------------------------------!»
1880 РRINТ «! МОДУЛЬ !М !»; М; ТАВ(49); «!»
1890 РRINТ «! ЧИСЛО ЗУБЬЕВ !Z2 !»; Z2; ТAВ(49); «!»
1900 РRINТ «! НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ! !»; F2¤; ТAВ(49); «!»
1910 РRINТ «! КОЭФФ. СМЕЩЕНИЯ ЧЕРВЯКА !Х !»; Х; ТАВ(49); «!»
1920 IF К¤=«+» ТНЕN 930: GОТО 1940
1930 РRINТ «! ИСХОДНЫЙ ПРОИЗВОД. ЧЕРВЯК - ! ГОСТ 19036-81»: GОТO 2010
1940 РRINT «! ИСХОДНЫЙ ПРОИЗВОД. ЧЕРВЯК ! - ! !»
1950 РRINT «! УГОЛ ПРОФИЛЯ !ALFA !»; A; ТАВ(49); «!»
1960 РRINТ «! КОЭФФ. ВЫСОТЫ ГОЛОВКИ !НА !»; Н1; ТАВ(49), «!»
1970 РRINТ «! КОЭФФ. РАСЧЕТНОЙ ТОЛЩИНЫ !S !»; S; ТAВ(49); «!»
1980 РRINТ «! КОЭФФ.РАДИУСА КРИВИЗНЫ ! !»; ТАВ(49); «!»
1990 РТRIN «! ПЕРЕХОДНОЙ КРИВОЙ !RОF !»; ТАВ(49); «!»
2000 РRINТ «! СТЕПЕНЬ ТОЧНОСТИ ! - !»; F5¤; ТFВ(49); «!»
2010 РRINТ «!------------------------------------------------ !»
2020 РRINТ «! МЕЖОСЕВОЕ РАССТОЯНИЕ !AW !»; А3; ТАВ(49); «!»
2020 РRINТ «! ДЕЛИТЕЛЬНЫЙ ДИАМЕТР !D2 !»; D2; ТAВ(49); «!»
2040 РRINT «! ДИАМЕТР ВЕРШИН ЗУБЬЕВ !DA2 !»; D6(49); «!»
2050 РRINТ «! НАИБОЛЬШИЙ ДИАМЕТР !DAМ2 !»; D7; ТАВ(49), «!»
2060 РRINТ «! ШИРИНА ВЕНЦА !В2 !»; В4; ТАВ(49); «!»
2070 РRINТ «! ВИД СОПРЯЖЕННОГО ЧЕРВЯКА ! - !»; F¤; ТAВ(49); «!»
2080 РRINТ «! ЧИСЛО ВИТКОВ СОПР. ЧЕРВЯКА! Z1 !»; Z1; ТAВ(49); «!»
2090 РRINТ «!------------------------------------------------!»
2100 РRINТ «! ОБОЗНАЧЕНИЕ ЧЕРТЕЖА СО- !»; ТАВ(49); «!»
2110 РRINТ «! ПРЯЖЕННОГО ЧЕРВЯКА !»; М¤; ТАВ(49) «!»
2120 РRINТ «!------------------------------------------------!»
2130 SЕLЕСТ РRINТ05
2140 РRINТ Е¤
2150 INРUТ «БУДЕТЕ ЕЩЕ РАБОТАТЬ С ЭТОЙ ПРОГРАММОЙ ? (+ ДА, - НЕТ)»; I¤
2160IF I¤=«+» ТНЕN 80
2170 INРUТ «БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ? (+ ДА, - НЕТ ); I¤
2180IF I¤=«+» ТНЕN 2190: GOТO 2220
2190IF J1%=0 ТНЕN 2200: LOAD DС R«DM»: GОТО 2210
2200 LОAD DС F«DМ»
2210 ЕND
2220 РRINТ Е¤: РRINТ AТ(12,23): РRINТ «СПАСИБО ЗА РАБОТУ, ДО СВИДАНИЯ!»
2230 ЕND
2240 РRINТ НЕХ(03)
2250 РRINТ «КРАТКАЯ ИНСТРУКЦИЯ ПО РАБОТЕ С ПРОГРАММОЙ»: PRINТ «»
2260 РRINТ «1. БУДЬТЕ ВНИМАТЕЛЬНЫ ПРИ ВВОДЕ ИСХОДНЫХ ПАРАМЕТРОВ.»
2270 РRINТ «ДРОБНУЮ ЧАСТЬ ЧИСЛА ОТДЕЛЯЙТЕ ОТ ЦЕЛОЙ ТОЧКОЙ.»
2280 РRINТ «2. НЕОБХОДИМО ВВОДИТЬ ОДНО ИЗ ДВУХ ЗНАЧЕНИЙ - ЛИБО МЕЖОСЕВОЕ»
2290 РRINТ «РАССТОЯННЕ ЛИБО КОЭФФ. СМЕЩЕНИЯ ЧЕРВЯКА. НЕИЗВЕСТНЫЙ»
2300 РRINТ «ПАРАМЕТР ВВОДИТСЯ НУЛЕВЫМ.»
2310 РRINТ «3. ЕСЛИ НЕ ИЗВЕСТНА ДЛИНА НАРЕЗАННОЙ ЧАСТИ ЧЕРВЯКА. ЕЁ»
2320 РRINТ «ЗНАЧЕНИЕ ТАКЖЕ ВВОДИТСЯ НУЛЕВЫМ.»
2330 РRINТ «4. ЛИНЕЙНЫЕ РАЗМЕРЫ - В (ММ), УГЛОВЫЕ - В ГРАД., МИН., СЕК.»
2340 РRINТ «5. ПРИ НЕПОНЯТНОЙ СИТУАЦИИ ПОСЛЕДОВАТЕЛЬНО НАЖМИТЕ»
2350 РRINT «КЛАВИШИ ?RЕSЕТ?, ?RUN? И СRLF И ВВЕДИТЕ ДАННЫЕ ЗАНОВО»
2360 РRINТ «»
2370 РRINТ «НАЖМИТЕ КЛ. СR/LF И НАЧИНАЙТЕ РАБОТАТЬ. ЖЕЛАЮ УСПЕХОВ»; INPUT I: IF I<999 THEN 80
ИНФОРМАЦИОННЫЕ ДАННЫЕ
1. РАЗРАБОТАН и ВНЕСЕН Государственным комитетом СССР по стандартам
ИСПОЛНИТЕЛИ:
Е.С. Бурковский, канд. техн. наук; И.С. Воронова; Л.В. Королева; Э.Г. Лившиц, канд. техн. наук; М.М. Рахманкулов, канд. техн. наук (руководитель темы): П.А. Шалаев, канд. техн. наук, В.З. Мельников.
2. УТВЕРЖДЕН И ВВЕДЕН В ДЕЙСТВИЕ Приказом ВНИИНМАШ № 224 от 17.7.87 г.
3. ССЫЛОЧНЫЕ ДОКУМЕНТЫ
Обозначение документа, на который дана ссылка |
Номер пункта, подпункта, перечисления, приложения |
ГОСТ 16532-70 |
1, 2.2 |
ГОСТ 19624-74 |
1, 3.2 |
ГОСТ 19326-73 |
1, 4.2 |
ГОСТ 13755-81 |
2.1 |
ГОСТ 2.403-75 |
2.3 |
ГОСТ 13754-68 |
3.1 |
ГОСТ 2.405-75 |
3.3, 4.3 |
ГОСТ 16202-70 |
4.1 |
СОКРАЩЕНИЯ:
ПЭВМ - персональная ЭВМ;
НГМД - накопитель на гибких магнитных дисках;
НМД - накопитель на жестких магнитных дисках;
АЦПУ - алфавитно-цифровое печатающее устройство;
АРМ - автоматизированное рабочее место;
ОЗУ - оперативное запоминающее устройство.
СОДЕРЖАНИЕ
1. Общие положения. 1 2. Расчет геометрии цилиндрических зубчатых передач внешнего зацепления. 2 3. Расчет геометрии зубчатых конических передач с прямыми зубьями. 5 4. Расчет геометрии зубчатых конических передач с круговыми зубьями. 8 5. Расчет геометрии червячных цилиндрических передач. 11 Приложение 1. 14 Приложение 2. 23 Приложение 3. 31 Приложение 4. 48 Сокращения. 54 |