doc_act

Р 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.

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

Рис. 2.1. Блок-схема алгоритма расчета геометрии зубчатых цилиндрических передач внешнего зацепления

2.3. Выходные данные выводятся на экран дисплея и распечатываются на АЦПУ в виде таблиц, приведенных на рис. 2.2. и 2.3. В таблицах выводятся расчетные значения геометрических параметров сопрягаемых зубчатых колес, приводимые на рабочих чертежах в соответствии с ГОСТ 2.403-75.

Таблица содержит номинальные размеры зубчатой передачи и зубчатых колес, а также размеры для контроля взаимного положения разноименных профилей зубьев, контроля номинальной поверхности зуба и контроля взаимного положения одноименных профилей зубьев.

2.4. Текст программы расчета геометрии цилиндрических зубчатых передач внешнего зацепления и таблица идентификаторов программы приведены в приложении 1.

2.5. Программа расчета геометрических параметров цилиндрической зубчатой передачи внешнего зацепления имеет следующую характеристику:

наименование программы - GCL;

язык программирования - бейсик-02;

конфигурация ПЭВМ - «Искра-226» в основном комплекте (внешние устройства: НГМД или НМД, АЦПУ);

объем памяти, занимаемой программой, - 57 секторов (? 15 Кбайт).

Загрузка программы осуществляется стандартной командой языка бейсик: LOADDCR{F}«GCL»

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

РИС. 2.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ ЦИЛИНДРИЧЕСКОЙ ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ (ШЕСТЕРНЯ)

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

РИС. 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.

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

Рис. 3.1. Блок-схема алгоритма расчета геометрии зубчатых конических передач с прямыми зубьями

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

РИС. 3.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ КОНИЧЕСКОЙ ПЕРЕДАЧИ С ПРЯМЫМИ ЗУБЬЯМИ (ШЕСТЕРНЯ)

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

рис. 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.

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

Рис. 4.1. Блок-схема алгоритма расчета геометрии зубчатых конических передач с круговыми зубьями

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

РИС. 4.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ КОНИЧЕСКОЙ ПЕРЕДАЧИ С КРУГОВЫМИ ЗУБЬЯМИ (ШЕСТЕРНЯ)

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

РИС. 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».

После загрузки программы пользователь работает с помощью «меню», встроенного в программу.

В «меню» предусмотрена инструкция пользователя по работе с программой.

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

Рис. 5.1. Блок-схема алгоритма расчета геометрии цилиндрических червячных передач

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

РИС. 5.2. РЕЗУЛЬТАТЫ РАСЧЕТА ГЕОМЕТРИИ ЧЕРВЯЧНОЙ ЦИЛИНДРИЧЕСКОЙ ПЕРЕДАЧИ

ПРИЛОЖЕНИЯ

Приложение 1

таблица идентификаторов программы GCL

Р 50-54-20-87 САПР. Программно-методический комплекс расчета геометрических параметров зубчатых и червячных передач

УСЛОВНЫЕ ОБОЗНАЧЕНИЯ ПАРАМЕТРОВ - ПО ГОСТ 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




Реклама: ;


Самые популярные документы раздела



Рейтинг@Mail.ru Яндекс.Метрика