Крупнейшая бесплатная информационно-справочная система онлайн доступа к полному собранию технических нормативно-правовых актов РФ. Огромная база технических нормативов (более 150 тысяч документов) и полное собрание национальных стандартов, аутентичное официальной базе Госстандарта. GOSTRF.com - это более 1 Терабайта бесплатной технической информации для всех пользователей интернета. Все электронные копии представленных здесь документов могут распространяться без каких-либо ограничений. Поощряется распространение информации с этого сайта на любых других ресурсах. Каждый человек имеет право на неограниченный доступ к этим документам! Каждый человек имеет право на знание требований, изложенных в данных нормативно-правовых актах!

  


 

ГОСУДАРСТВЕННЫЙ КОМИТЕТ СССР ПО СТАНДАРТАМ
(Госстандарт СССР)

Всесоюзный научно-исследовательский институт
по нормализации в машиностроении
(ВНИИНМАШ)

Утверждены

Приказом ВНИИНМАШ № 224

от 17.07.87

 

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

Рекомендации

 

Р 50-54-20-87

 

 

Москва 1987

 

РЕКОМЕНДАЦИИ

Дата введения 01.01.88 г.

Настоящие рекомендации устанавливают правила работы проектировщика на персональной ЭВМ «Искра-226» с программно-методическим комплексом (ПМК), позволяющим проводить один из этапов проектирования зубчатых и червячных передач - расчет геометрических параметров.

1. ОБЩИЕ ПОЛОЖЕНИЯ

Один из главных путей повышения производительности и качества труда проектировщиков состоит в разработке и внедрении систем автоматизированного проектирования в проектно-конструкторских и технологических организациях.

Проектирование передаточных механизмов, к которым относятся зубчатые и червячные передачи, является ответственным и трудоемким этапом проектирования. Данная работа требует выполнения большого количества расчетов и анализа множества параметров.

Автоматизированный расчет передачи позволяет производить расчет характеристик передачи по всем параметрам в зависимости от требований к передаче. При этом время расчета исчисляется секундами. Алгоритмы расчетов геометрических параметров передач выполнены в соответствии с ГОСТ 16532-70; ГОСТ 19326-73; ГОСТ 19624-74 и ГОСТ 19650-74.

Расчеты выполняются на персональной ЭВМ (ПЭВМ) «Искра-226». Язык программирования - бейсик. Режим работы - диалоговый.

Выходные данные программ расчета (значения геометрических параметров зубчатых колес, червяков и червячных колес) можно использовать в качестве исходных данных в программах выпуска рабочих чертежей на АРМ (СМ ЭВМ), применяя для этих целей микропроцессорный контроллер БИФ «Искра-015-87» или другой.

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

Программы, записанные на флоппи-диск, занимают объем 306 секторов (77 Кбайт).

Головные организации по САПР, желающие приобрести программы, могут обратиться по адресу: 127003, .Москва, ул. Шеногина, 4, ВНИИНМАШ.

Программы переписываются на флоппи-диски заказчика (8-дюймовые).

2. РАСЧЕТ ГЕОМЕТРИИ ЦИЛИНДРИЧЕСКИХ ЗУБЧАТЫХ ПЕРЕДАЧ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ

2.1. Входные (исходные) данные.

При работе с программой вводятся в диалоговом режиме следующие исходные данные (параметры):

b - угол наклона зуба;

z1 - число зубьев шестерни;

z2 - число зубьев колеса;

m - модуль;

aw - межосевое расстояние;

bw - рабочая ширина венца;

X1 - коэффициент смещения шестерни;

Х2 - коэффициент смещения колеса.

При известном значении aw, значения X1 и Х2 вводятся нулевыми, и наоборот - при известных значениях X1 и X2 значение аw вводится нулевым (введенные нулевыми значения параметров вычисляются программно).

Параметры стандартного исходного контура соответствуют ГОСТ 13755-61 и представлены в программе константами.

При расчете передачи с нестандартным исходным контуром дополнительно вводятся параметры:

a - угол профиля;

ha* - коэффициент высоты головки;

hl* - коэффициент граничной высоты;

С* - коэффициент радиального зазора.

Все входные параметры имеют ограничения на минимальное и максимальное значения.

2.2. Алгоритм расчета основных геометрических параметров соответствует алгоритму (формулам), приведенному в табл. 2 - 6 ГОСТ 16532-70. В алгоритме учтены все контрольные проверки (качества зацепления, взаимного положения разноименных профилей зубьев).

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

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

Условные обозначения в блок-схеме - по ГОСТ 16532-70.

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

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

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

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

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

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

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

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

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

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

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

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

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

3. РАСЧЕТ ГЕОМЕТРИИ ЗУБЧАТЫХ КОНИЧЕСКИХ ПЕРЕДАЧ С ПРЯМЫМИ ЗУБЬЯМИ

3.1. В качестве входных в программе используются следующие параметры, вводимые в диалоговом режиме:

z1 - число зубьев шестерни;

z2 - число зубьев колеса;

me - внешний окружной модуль;

- межосевой угол;

do - диаметр зуборезной головки (при необходимости).

Параметры исходного контура соответствуют ГОСТ 13754-81 и представлены в программе как константы.

При расчете передачи с нестандартным исходным контуром дополнительно вводятся параметры:

a - угол профиля;

ha* - коэффициент высоты головки;

С* - коэффициент радиального зазора;

ρf* - коэффициент радиуса кривизны переходной кривой в граничной точке профиля.

Входные параметры имеют ограничения на минимальное и максимальное значения. При вводе значений, выходящих за границы ограничений, программа предусматривает повторный ввод параметра.

3.2. Алгоритм расчета геометрии зубчатых конических передач с прямыми зубьями построен по формулам, приведенным в табл. 2.4 ГОСТ 19624-74. Алгоритм предусматривает (кроме расчетов параметров передач и колес) проверку качества зацепления по геометрическим показателям (отсутствие подрезания зубьев, проверка внешней окружной толщины зуба на поверхности вершин, коэффициента торцового перекрытия).

Расчет коэффициента смещения X1 выполняется программно по формуле, полученной методом интерполяции, по данным табл. 1 приложения 2 к ГОСТ 19624-74:

где u - передаточное число.

При желании пользователь сам может задавать значение параметра X1.

Общая блок-схема алгоритма расчета геометрии зубчатых конических передач с прямыми зубьями представлена на рис. 3.1. Условные обозначения в блок-схеме - по ГОСТ 19624-74.

3.3. Выходные данные выводятся на экран дисплея и могут быть распечатаны на АЦПУ в виде таблицы. Выходные формы представлены на рис. 3.2 и 3.3 и оформлены в соответствии с ГОСТ 2.405-75.

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

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

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

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

рис. 3.3. РЕЗУЛьтаты расчета геометрии зУБчАтой конической ПЕРЕДАЧИ С ПРЯМЫМИ ЗУБЬЯМИ (КОЛЕСО)

3.5 Описание программы:

наименование программы - GКР;

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

конфигурация ПЭВМ - «Искра-226» в основном комплекте;

объем памяти, занимаемый программой, - 70 секторов (≈ 17 Кбайт).

Загрузка программы осуществляется командой: LOADDCR{FGKP».

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

4. РАСЧЕТ ГЕОМЕТРИИ ЗУБЧАТЫХ КОНИЧЕСКИХ ПЕРЕДАЧ С КРУГОВЫМИ ЗУБЬЯМИ

4.1. Входные параметры, вводимые в диалоговом режиме;

z1 - число зубьев шестерни;

z2 - число зубьев колеса;

одно из значений модуля:

mn - модуль средний нормальный, или

mt - модуль внешний окружной;

i - осевая форма зуба;

bn - угол наклона зуба, средний;

∑ - межосевой угол;

Хn1 - коэффициент смещения у шестерни;

МO - метод обработки зубчатых колес (односторонний или двухсторонний).

Для ввода значения Xn1 на экране дисплея в соответствующий момент высвечивается таблица зависимостей Xn1 от z1, передаточного числа u и угла наклона зуба bn.

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

При нестандартном исходном контуре дополнительно вводятся параметры:

an - угол профиля;

ha* - коэффициент высоты головки зуба;

с* - коэффициент радиального зазора;

ρf* - коэффициент радиуса кривизны переходной кривой в граничной точке профиля зуба.

Параметры исходного контура по ГОСТ 16202-81 представлены в программе константами.

4.2. Алгоритм расчета геометрии зубчатых конических передач с круговыми зубьями соответствует схеме и расчетным формулам и указаниям ГОСТ 19326-73.

Общая блок-схема алгоритма расчета представлена на рис. 4.1. Условные обозначения - по ГОСТ 19326-73.

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

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

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

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

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

4.5. Описание программы:

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

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

конфигурация ПЭВМ - «Искра-226» в основном комплекте;

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

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

После загрузки программы в ОЗУ пользователь работает с помощью «меню», предлагаемого программой. «Меню» предоставляет пользователю инструкцию по работе с программой.

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{FGCH».

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

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

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

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

ПРИЛОЖЕНИЯ

Приложение 1

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

УСЛОВНЫЕ ОБОЗНАЧЕНИЯ ПАРАМЕТРОВ - ПО ГОСТ 16532-70

10 % -----------------------------------------------------------------------------------------------------

20 % ПРОГРАММА РАСЧЕТА ГЕОМЕТРИИ ЦИЛИНДРИЧ. ЗУБЧАТОЙ ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛ.

30 % РАЗРАБОТЧИК - ВНИИНМАШ. 01.12.86.

40 % -----------------------------------------------------------------------------------------------------

50 СОМ J1%: IF S%>0 ТНЕN 70

60 РRINТ НЕХ(03):РRINТ «ЖЕЛАЕТЕ ОЗНАКОМИТЬСЯ С ИНСТРУКЦИЕЙ? (+ ДА, - НЕТ): INPUТ С¤:IF С¤:«+» ТНЕN 3560

70 CLEAR N:DIM В¤40, С¤40, К¤48, А¤25, Н¤45

80 В¤=«ОШИБЛИСЬ ПРИ ВВОДЕ, ПОЭТОМУ ПОДРЕЗАНИЕ*»

90 G¤=«НАЖМИТЕ КЛАВИШУ СR/LF И ПОВТОРИТЕ ВВОД»

100 К¤=«НЕВЕРНО ВВЕДЕН ОДИН ИЗ ПАРАМЕТРОВ 21, 22, М ИЛИ А»

110 А¤=«ПОВТОРИТЕ ВВОД ПАРАМЕТРА»IF S%>0 ТНЕN 530

120 РRINТ НЕХ(03); «ВЫ РАБОТАЕТЕ С ПРОГРАММОЙ ДЛЯ РАСЧЕТА ГЕОМЕТРИИ ЗУБЧАТОЙ»

130 РРINТ «ПЕРЕДАЧИ ВНЕШНЕГО ЗАЦЕПЛЕНИЯ», НЕХ(0А)

140 РРINТ НЕХ(12); «ВВЕДИТЕ ИСХОДНЫЕ ПАРАМЕТРЫ ПЕРЕДАЧИ», НЕХ(0А)

150 РRINТ НЕХ(11)

160 С=1; D=2; Е=.25; А2=20

170 INРUT «ИСХОДНЫЙ КОНТУР СТАНДАРТНЫЙ? (+ ДА; - НЕТ)»; Н1¤IF Н1¤=«+» ТНЕN 280

180 РRINТ «ВВЕДИТЕ ДАННЫЕ ДЛЯ НЕСТАНДАРТНОГО ИСХОДНОГО КОНТУРА»

190 INРUT «КОЭФФ. ВЫСОТЫ ГОЛОВКИ ..... НA=», С

200 INPUT «КОЭФФ. грАничн.высоты ..... HL=», D

210 INPUТ «КОЭФФ. РАДИАЛЬН.ЗАЗОРА .... С=», Е

220 PRINT «УГОЛ ПРОФИЛЯ ГРAДУСЫ (15-25) ... A2=», A2

230 IF A2<15 ОR A2>30 ТНЕN 220

240 INPUТ «МИНУТЫ(0-60) ... =», Y5

250 IF Y5<0 ОR Y5>60 ТНЕN 230

260 INPUT «CЕКУНДЫ(0-60) ... =», Y6

270 IF Y6<0 OR Y6>60 ТНЕN 260

280 INPUТ «УГОЛ НАКЛОНА ЗУБА (0-40) ГРАДУСЫ =», Y1

290 IF Y1<0 ОR Y1>40 ТНЕN 280

300 INPUТ «(0-60) МИНУТЫ =», Y2

310 IF Y2<0 OR Y2>60 ТНЕN 300

320 INPUT «(0-60) СЕКУНДЫ =», Y3

330 IF Y3<0 ОR Y3>60 ТНЕN 320

340 PRINT «МОДУЛЬ (1-50) ...... =», М

350 IF М<1 OR М>50 ТНЕN 340

360 INPUT «ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ(8-200) .. =», Z1

370 IF Z1<8 ОR Z1>200 ТНЕN 360

380 INPUT «ЧИСЛО ЗУБЬЕВ КОЛЕСА (8-200) ... =», Z2

390 IF 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)=А

500 IF А<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

520 19=#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

540 Z3=Z1 + Z2: A3=Z3*М/(2*СOS(В))

550 R1=Т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)

580 IF A=0 ТНЕN 710

590 A1=A3/A*СOS(A4): IF A1>1 ТНЕN 610

600 A6=ARCCOS(A1): A7=ТAN(A6)-A6: IF Н2¤=«ТНЕN 640: A=A3: GOТO 770

610 РRINТ С¤,F¤

620 PRINT AT(10,5):PRINT D¤, K¤: PRINT AT(12,18): PRINT G¤,E¤

630 INPUT 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

710 X3=Х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

740 D6=D6*/63:A0=A0+D6

750 IF AВS(D6)>Е1 ТНЕN 730

760 A6=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¤

910 PRINT AT(10,5): PRINT D¤; B¤; «XMIN2>X2»

920 РRINT AТ(12,10): РRINТ G¤,Е¤: INРUТ I: IF I<999 ТНЕN 70

930 IF Z5>Z1 AND Z6<Z2 ТНЕN 970

940 IF Z6>Z2 AND Z5<Z1 ТНЕN 1000

950 IF Z5>Z1 AND Z6>Z2 ТHЕN 1030

960 GOTO 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¤

1040 PRINT 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*Т

1070 U=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

1140 G1=D1*СOS(A4):G2=D2*СOS(A4)

1150 G3=G1/D5:A8=ARССOS(G3)

1160 G4=G2/D6:A9=ARССOS(G4)

1170 G5=ТAN(A8)-A8:G6=ТAN(A9)-A9

1180 P1=A*SIN(A6)-.3*G2*ТAN(A9)

1190 Р2=A*SIN(A6)-.5*G1*ТAN(A8)

1200 N1=2*P1/G1:N2=P2*2/G2

1210 Р3=SIN(B)*СOS(A2):Р4=ARCSIN(Р3)

1220 Р5=2*A2

1230 S1=(#РI/2*СOS(A2)↑2+Х1*SIN(Р5))*M

1240 S2=(#РI/2*СOS(A2)↑2+Х2*SIN(Р5))*М

1250 S3=.5*(G1*ТAN(A4)+S1*СOS(Р4)/СOS(A2))

1260 S4=.5*(G2*ТAN(A4)+S2*СOS(Р4)/СOS(A2))

1270 IР S3>Р1 AND S4>Р2 ТHЕN 1330

1280 РRINТ С¤, F¤

1290 РRINТ AТ(10,5): РRINТ «РАДИУС КРИВИЗНЫ ПРОФИЛЕЙ ЗУБА В ТОЧКАХ, ОПРЕДЕЛЯЮЩИХ»

1300 РRINТ AТ(11,5): РRINТ «ПОСТ. ХОРДУ МЕНЬШЕ РАДИУСА КРИВИЗНЫ АКТИВНОГО ПРОФИЛЯ»

1310 PRINT 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))

1340 Z7=Z1*СOS(A4)/(Z1+2*X1*СOS(B))

1350 L1=ARССOS(Z7)

1360 Z0=Z2*COS(A4)/(Z2+2*X2*COS(B))

1370 L2=ARССOS(Z0)

1380 Z8=Z1/#РI*(ТAN(L1)/СOS(Р4)-2*Х1*TAN(A2)/Z1-A5)+.5

1390 Z9=Z2/#РI*(ТAN(L2)/СOS(Р4)-2*Х2*ТAN(A2)/Z2-A5)+.5

1400 Z8=RОUND(Z8,0)

1410 Z9=ROUND(Z9,0): IF Z7>1 ТНЕN 1420: GOТO 1430

1420 Z8=3

1430 W1=(#РI*(Z8-.5)+2*Х1*ТAN(A2)+Z1*A5)*М*СOS(A2)

1440 IF Z0>1 ТНЕN 1450: GОТО 1460

1450 Z9=3

1460 W2=(#РI*(Z9-.5)+2*Х2*TAN(A2)+Z2*A5)*M*СOS(A2)

1470 W3=.5*W1/СOS(Р4): W4=.5*W2/СOS(Р4)

1480 W5=.5*D5*SIN(A8): W6=.5*D6*SIN(A9)

1490 IF Р1<W5 AND Р2<W6 ТНЕN 1510

1500 W1=0: W2=0: Z8=0: Z9=0: GОТО 1650

1510 IF Р1<W3 ТНЕN 1530

1520 Z8=Z8+1: GOТO 1430

1530 IF Р2<W4 ТНЕN 1550

1540 Z9=Z9+1: GOTO 1460

1550 IF W3<W5 ТНЕN 1570

1560 Z8=Z8-1: GOТO 1430

1570 IF W4<W6 ТНЕN 1590

1580 Z9=Z9-1: GOТO 1460

1590 IF В=0 ТНЕN 1650

1600 Н=В1/SIN(P4)

1610 IF H>W1 THЕN 1630

1620 W1=0:Z8=0

1630 IF Н>W2 THЕN 1650

1640 W2=0:Z9=0

1650 S5=(#РI/2+2*Х1*ТAN(A2))*М

1660 S6=(#Р1/2+2*Х2*ТAN(A2))*М

1670 L3=#PI*М*СOS(A2)

1680 IF B>0 THEN 1700

1690 Р6=0: GОТО 1710

1700 Р6=#PI*M/SIN(B):Р7=Z1*Р6:P8=Z2*Р6

1710 L4=.5*D1*SIN(A4)-((D-С-Х1)/SIN(A4))*M

1720 L5=.5*D2*SIN(A4)-((D-C-X2)/SIN(A4))*M

1730 H¤=«НЕВЕРНЫЕ ИСХОДНЫЕ ПАРАМЕТРЫ*****ИНТЕРФЕРЕНЦИЯ*****»

1740 IF L4<0 AND L5>0 THЕN 1780

1750 IF L5<0 AND L4>0 THЕN 1780

1760 IF L4<0 AND L5<0 THЕN 1780

1770 GОТО 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

1810 IF L4>Р1 AND L5<Р2 THЕN 1850

1820 IF L5>Р2 AND L4<Р1 ТНЕN 1850

1830 IF L4>Р1 AND L5>Р2 THЕN 1850

1840 GОТО 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

1880 T2=(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)

1930 S7=D5*((#РI/2+2*X1*ТAN(A2))/Z1+A5-G5)*COS(В3)

1940 S8=D6*((#Р1/2+2*X2*TAN(A2))/Z+A5-G6)*СOS(В5)

1950 В6=B1+2: B7=В6+3

1960 G9=180/#РI

1970 A4=A4*G9:A6=A6*G9:В=В*G9:A2=A2*G9

1980 I8=B:B%=B: IF В-B%>.99999 ТНЕN 1990: GOTO 2000

1990 I8=ROUND(18,0):B%=В%+1

2000 I7=I8-B%: I6=I7*60:I5=I6: I6%=I6: I4=I5-I6%

2010 I3=I4*60: I3=ROUND(I3,0)

2020 J8=A2 A2%=A2: J7=J8-A2%:J6=J7*60: J5=J6: J6%=J6: J4=J5-J6%: J3=J4*60: J3%=J3

2030 A3=ROUND(A3,3): A=ROUND(A,3): X1=ROUND(X1,3): X2=ROUND(Х2,3): Х5=ROUND(A5,3)

2040 X6=ROUND(X6,3): D1=ROUND(D1,3): D2=ROUND(D2,3): U=ROUND(U,3): W2=RОUND(W2,3)

2050 D4=ROUND(D4,3): D3=ROUND(D3,3): V=ROUND(V,3): V7=ROUND(V7,3): D5=ROUND(D5,3)

2060 D6=ROUND(D6,3): D7=ROUND(D7,3): D8=RUOND(D8,3): Р1=ROUND(Р1,3)

2070 P2=ROUND(P2,3): S1=ROUND(S1,3): S2=ROUND(S2,3): H1=ROUND(H1,3)

2080 H2=ROUND(H2,3): Z8=ROUND(Z8,3): Z9=ROUND(Z9,3): W1=ROUND(W1,3)

2090 L3=ROUND(L3,3): P6=ROUND(P6,3): H7=ROUND(H7,3): P8=ROUND(P8,3)

2100 L4=ROUND(L4,3): L5=ROUND(L5,3): Е2=ROUND(Е2,3)

2110 E3=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

2130 N1=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)

2140 N2=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»; Е¤

2470 I=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¤

3480 IF I¤=«+» ТНЕN 50

3490 INPUТ «БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤

3500 IF I¤=«+» ТНЕN 3510: GOТO 3540

3510 IF 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 МОЖНО ВВОДИТЬ НУЛЕВЫМ (РАССЧИТЫВАЕТСЯ ПРОГРАМ

3680 SЕLЕCT PRINT05

3690 PRINT «»: PRINT«»

3700 PRINT «нажмите кЛ. сR/LF и нАчинАйТЕ РАБотАть. жЕлАю УспЕХоВ

3710 РRINТ «ДЛЯ ВЫВОДА ИНСТРУКЦИИ НА ПЕЧАТЬ НАБЕРИТЕ 1 И КЛ.СR/LF»

3720 I=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

80 DIM 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Т С¤

170 PRINT 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

250 IF A2<15 ОR A2>25 ТНЕN 230

260 INPUT «минуты (0-60)=», Y5

270 IF Y5<0 ОR Y5>60 ТНЕN 260

280 INPUT « СЕКУНДЫ(0-60) =», Y6

290 IF 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

350 IF R1<.1 OR R1>.3 ТНЕN 340

360 INPUТ «ЧИСЛО ЗУБЬЕВ ШЕСТЕРНИ(8-200) Z1=», Z1%

370 IF Z1%<80 OR Z1%>200 THЕN 360

380 INPUT « ЧИСЛО ЗУБЬЕВ КОЛЕСА (8-200) Z2=», Z2%

390 IF Z2%<8 OR Z%>200 ТНЕN 380

400 INРUТ « ВНЕШНИЙ ОКРУЖНОЙ МОДУЛЬ(1-50) МЕ=», М

410 IF M<1 OR M>50 THЕN 400

420 РRINТ «МЕЖОСЕВОЙ УГОЛ»

430 PRINT «ГРАДИУСЫ(10-170) =», Y1

440 IF Y1<10 OR Y1>170 ТНЕN 430

450 INPUТ «МИНУТЫ (0-60) =», Y2

460 IF Y2<0 ОR Y2>60 ТНЕN 450

470 INPUT «СЕКУНДЫ(0-60) =», Y3

480 IF 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

530 W=#Р1/180: SЕLЕСТ R: A2=A2+Y5/60+Y6/3600

540 S=Y1+Y2/60+Y3/3600: A2=A2*W: S=S*W

550 Z3=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:

590 N2=М*(R2-В1%)/R2: D3=ARCTAN(SIN(S)/(Z2%+СOS(S)))

600 D4=S-D3: U=Z2%/Z1%: U1=U: W(15)=ROUND(D3/W,2): W(16)=ROUND(D4/W,2)

610 IF 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); Е¤

640 PRINT D¤; « DELT2=»; W(16); E¤

650 РRINТ AТ(12,1): РRINТ D¤; «ВНЕ ДОПУСТИМЫХ ГРАНИЦ (5-85 ГР)»; Е¤

660 PRINT AT(14,10): PRINT «НАЖМИТЕ КЛ. CR/LF И ВВЕДИТЕ ДРУГИЕ ДАННЫЕ»: INPUT J: IF J<990 ТНЕN 70

670 IF Y1>90 OR Y1<90 ТНЕN 680: GОТО 700

680 U1=SQR(U*СOS(D3)/СOS(D4))

690 Z1=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)

780 IF Z1>=18 AND Z1<=30 ТНЕN 800

790 GОТО 830

800 IF 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)

1030 S3=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

1060 S5=D5/СOS(D3)*SIN(Р1): S6=D6/COS(D4)*SIN(Р2)

1070 A3=Н1+.25*S1*Р1: A4=Н2+.25*S2*Р2

1080 D1=D6-М*СOS(D4): S7=D6/СOS(D4)*SIN(Р2)+М*ТAN(A2)

1090 R0=С*М/(1-SIN(A2))

1100 A5=Н2+.25*S2*Р2+.5*М

1110 R0=С*М/(1-SIN(A2))

1120 D(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)

1140 D(12)=D6*D(5)*SIN(P2) R2/COS(D4)+M*TAN(A2): D(13)=D6*D(5)/R2-M*COS(D4)

1150 D(14)=Н2+.25*D(7)*Р2-D(3)*ТAN(Т4)+.5*M

1160 D(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)

1170 IF D0=0 TНЕN 1190

1180 W5=В1%2*СOS(A2)/(4*D0*М1): GOТ0 1200

1190 W5=0

1200 Z4=2*(Н-X1+W5)*СOS(D3)/SIN(A2)↑2

1210 Х4=Н-Z1*SIN(A2)↑2/2/СOS(D3)+W5

1220 IF Z4>Z1 ТHЕN 1240

1230 IF X4>Х1 ТНЕN 1270: GОТО 1300

1240 РRINT С¤

1250 PRINT AT(10,2): PRINT D¤; A¤; H¤

1260 I=0: INРUT I: IF I<999 ТНЕN 70

1270 РRINТ С¤

1280 РRINТ AТ(10,2): РRINT D¤; A¤; B¤

1290 I=0: INРUT I: IF I<999 ТНЕN 70

1300 Z5=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))

1350 A8=TAN(A2)-A2: A6=ТAN(B6)-В6: A7=ТAN(B7)-В7

1360 S8=V3/M*(S1/V1+A8-A6): S9=V4/M*(S2/V2+A8-A7)

1370 IF 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»

1430 Z7=(Z5/2+Н1/М)2: Z8=(Z5/2*СOS(A2))↑2

1440 Z0=(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

1510 Z3=ROUND(23,4): R2=ROUND(R2,4): R=ROUND(R,4): M1=ROUND(M1,4): M2=ROUND(M2,4)

1320 D1=ROUND(D1,4): D2=ROUND(D2,4): Z1=ROUND(Z1,4)

1530 U=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)

1560 D5=ROUND(D5,4)

1570 D6=ROUND(D6,4): D7=ROUND(D7,4): D8=ROUND(D8,4): В2=ROUND(В2,4)

1580 B3=ROUND(В3,4): S3=ROUND(S3,4): S4=ROUND(S4,4): Н7=ROUND(Н7,4)

1590 H8=ROUND(H8,4): P1=ROUND(P1,5): P2=ROUND(P2,5): S5=ROUND(S5,4)

1600 S6=ROUND(S6,4): A3=ROUND(A3,4): A4=ROUND(A4,4): E4=ROUND(E4,4): S7=ROUND(S7,4): A5=ROUND(A5,4)

1610 FOR I=1 TO 10: O(I)=T(I): T%(I)=T(I): Q(I)=O(I)-T%(I)

1620 MAT W=(60)*Q: J(I)=W(I): W%(I)=W(I): C(I)=J(I)-W%(I)

1630 MAT A=(60)*C: A%(I)=A(I)

1640 NЕХТ 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

2100 IF 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); «!»: GOTO 2280

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¤

2720 IF I¤=«+» ТНЕN 10

2730 INРUТ « БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤

2740 IF I¤=«+» ТНЕN 2750: GОТО 2780

2750 IF 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

fl1 = B7

invat = C7

atal1 = P6

 = T(15)

invatal1 = J9

fl2 = B8

invata1 = C8

atal2 = P7

 = T(16)

invatal2 = L4

ρfl = R0

invata2 = C9

atai1 = P8

 = T(17)

invati = L5

fi1 = C1

S*na1 = U8

atai2 = P9

 

invatai1 = L6

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ЕN 6370: Gото 90

90 DIM 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%

330 IF Z1%<6 ОR Z1%>200 ТНЕN 320

340 INРUТ «ЧИСЛО ЗУБЬЕВ КОЛЕСА (6-200) Z2=», Z2%

350 IF Z2%<6 ОR Z2%>200 ТНЕN 340

360 РRINТ «МЕЖОСЕВОЙ УГОЛ (10-150)SUM»

370 INPUТ «0 ГРАДУСЫ=», S

380 INPUT «минуты =», В1(7)

390 INPUT «СЕКУНДЫ=», В1(8)

400 IF S<10 ОR S>150 ТНЕN 360

410 INPUТ «ВВЕДИТЕ ОДНО ИЗ ЗНАЧЕНИЙ МОДУЛЯ(СРЕДНИЙ НОРМ. ИЛИ ВНЕШНИЙ ОКРУЖНОЙ)»

420 INPUТ «МОДУЛЬ СРЕДНИЙ НОРМАЛЬНЫЙ (0-25) МN=» М1: D(18)=M1

430 IF М1<0 ОR М1>25 ТНЕN 410

440 INPUТ «МОДУЛЬ ВНЕШНИЙ ОКРУЖНОЙ (0-25) МТЕ=», М2: В(19)=М2

450 IF М2<0 ОR M2>25 ТНЕN 440

460 INPUT «ОСЕВАЯ ФОРМА ЗУБА (1,2,3) I =», I%

470 IF I%<1 ОR I%>3 TНЕN 460

480 PRINT «угол наклона зуБА средн. (0-45)BEТN»

490 INPUТ «ГРАДУСЫ=», В1(9)

500 INPUТ «МИНУТЫ =», В1(5)

510 INPUТ «СЕКУНДЫ=», В1(6)

520 IF 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

600 W=#Р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

610 Z3=1/SIN(S)*SQR(Z1%↑2+Z2%↑2+2*Z1%*СOS(S))

620 IF М1=0 ТНЕN 640

630 R=М1*Z3/2/СOS(В): GOТO 650

640 R2=M2*Z3/2

650 L1=ARСТAN(S1N(S)/(Z%/Z1%+СOS(S))): L2=S-L1

660 IF М1=0 ТНЕN 680

670 IF B/W<20 OR М1<=2 OR I%=3 THEN 690: В1=.35*R-3: GOTO 710

680 IF 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%

720 IF S/W-90>.0001 OR S/W-90<-.0001 ТHЕN 40

730 U1=SQR(U*COS(L1)/COS(L2)): Z1=Z1%*U1/COS(L1)/SQR(1+U12): U1=ROUND(U1↑): Z1=ROUND(1,2)

740 IF К¤= «+» ТНЕN 750: GOТO 770

750 IF B/W>=0 AND B/W<=15 THEN 830

760 IF B/W>15 AND B/W<=29 THEN 890: GОТО 1230

770 J=COS(B)↑3

780 U2=COS(A2): U3=SIN(A2)↑2: U4=U1!2/(U1↑2-1): U5=U1!2+1: U6=Z1*SQR(U5)/U1/J

790 U7=.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

820 P7=U7-.5*Р6: Р8=Е0*Р5: Р9=U7*Р6+Р8: Р0=SQR(Р72+Р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

850 IF 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Т «------------!---!----!----!----!--!----!----!----!----!----»

980 IF 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»

1020 IF Z1<=12 ТНЕN 1170

1030 PRINT «13 ! - ! - ! - ! - ! - ! .33 ! .37 ! .40 ! .43 ! .45 ! .47 ! .48»

1040 PRINT «14 ! - ! - ! - ! .21 ! .26 ! .32 ! .36 ! .39 ! .42! .44 ! .45 ! .46»

1050 IF Z1<=14 THEN 1170

1660 PRINT «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»

1080 IF 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»

1110 IF 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»

1140 IF 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 Е¤

1200 IF X1<0 OR X1>.7 ТНЕN 220

1210 GО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Т «-------!----!-----!-------!------!----!----!----!----!»

1320 IF 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»

1250 PRINТ «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»

1380 IF Z1<=10 ТHЕN 1540

1390 РRINТ «11 ! - ! - ! - ! - ! - ! - ! .38 ! .41 ! .44 ! .45 ! .45»

1400 PRINT «12 ! - ! - ! - ! - ! - ! - ! .32 ! .37 ! .39 ! .41 ! .42 ! .43»

1410 IF Z1<=12 THEN 1540

1420 PRINT «13 ! - ! - ! - ! - ! - ! .27 ! .30 ! .35 ! .27 ! .39 ! .40 ! .41»

1430 PRINT «14 ! - ! - ! - ! .18 ! .23 ! .26 ! .29 ! .33 ! .35 ! .37 ! .38 ! .38»

1440 PRINT «15 ! - ! - ! .12 ! .17 ! .22 ! .25 ! .27 ! .31 ! .33 ! .35 ! .36 ! .37»

1450 IF Z1<=15 THEN 1540

1460 PRINT «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»

1480 IF 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»

1510 IF 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¤: IUТ «XN1=», X1: PRINT Е¤: X2=X1

1570 IF X1<0 OR Х1>.8 ТНЕN 1590

1580 GOTO 1600

1590 РRINТ W¤: GОТО 1560

1600 IF М1=0 ТНЕN 1620

1610 IF M1>2 AND U>=2.5 ТНЕN 1630: GОТО 1680

1620 М1=(М2-В1/Z3)*COS(B): GOТO 1610

1630 IF 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

1640 X3=.15+.012*(U1-2.5): GОТО 1690

1650 X3=.03+.008*(U1-2.5): GОТО 1690

1660 X3=.07+.01*(U1-2.5): GОТО 1690

1670 X3=.11+.01*(U1-2.5): GOТO 1690

1680 X3=0

1690 D(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

1700 IF М2=0 ТНЕN 1710: R=.42*M2*Z3

1710 IF I%=1 ТНЕN 1720: GОТО 1750

1720 IF B/W>27 THEN 1730: GOTO 1740

1730 B(2)=.44: B(3)=.32*(B/W/10)↑2-1.03-B/W/10+3.33: GOTO 1600

1740 B(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

1750 IF I%=2 THEN 1760: GOTO 1770

1760 B(2)=.35; B(3)=.05606*(B/W/10)↑2-.5647*B/W/10+2.02: GOTO 1800

1770 IF B/W>35 THEN 1780: GOTO 1790

1780 B(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

1790 B(2)=.05606*(B/W/10)↑2-.5647*B/W/10+2.02: B(3)=1

1800 D0(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)

1810 FOR I=21 TO 37

1820 IF D(20)<=D(1) THEN 1870

1830 IF D(20)>(D(I)+D(I+1))/20 AND D(20)<=D(I+1) THEN 1880

1840 IF D(20)>D(I) AND D(20)<=(D(I)+D(I+1))/2 THEN 1870

1850 IF D(20)>D(37) THEN 1890

1860 NEXT 1

1870 D(20)=D(I): GOTO 1900

1880 D(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

2020 IF D0<20 ОR D0>1000 THEN 1900

2030 IF 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

2060 IF 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

2100 V(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

2110 IF D(19)>0 THЕN 2360

2120 W2=M1*(.5*3.1415926-2*(Н+С)*ТAN(A2)+X3): W3=W2

2130 FОR К=1 ТO 36

2140 IF W2<=V(K) TНЕN 2190

2150 IF W2>(V(К)+V(K+1))/2 AND W2<=V(K+1) ТНЕN 2200

2160 IF W2 AND W2<=(V(K)+V(K+1))/2 THEN 2190

2170 IF W2>V(36) THEN 2210

2180 NEXT K

2190 W2=V(K): GOTO 2220

2200 W2=V(K+1): GOTO 2220

2210 W2=V(36)

2220 IF D(19)>0 ТНЕN 2390

2230 W4=W3-W2: W5=.5*W4*TAN(1.5707963-A2)

2240 IF Х3=0 AND М1>1 THEN 2280

2250 IF Х3=0 AND M1<=1 ТНЕN 2290

2260 IF Х3>0 OR Х3<0 AND M1>=2 ТНЕN 2310

2270 GOTO 2350

2280 D1=W5: IF W4>.06*М1 OR W4<-.02*М1 ТНЕN 2340: GOТO 2350

2290 D1=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)

2320 IF W4>.05*M1 OR W4<-.05*M1 THEN 2340

2330 GОТО 2350

2340 М1=W2/(1.5707963-2*(Н+С)*ТAN(A2)+Х3)

2350 L3=.5*D1: R2=R+L3: V2=2*R2/Z3: GOTO 2570

2360 К0=1

2370 IF Х5>0 OR Х5<0 ТНЕN 2400

2380 W5=1.5707963-2*(Y+C)*TAN(A2)+X3: W2=(V2-R0/Z3*B1)*W5*COS(B): W3=W2: GOTO 2130

2390 W4=W2-W3: IF W4=0 THEN 2500: GOTO 2420

2400 W5=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

2430 X4=(W2-W7*W6*COS(B))/W7/COS(B): X5=X4-X3: IF X5>0 AND X5>0.05 THEN 2440: GOTO 2450

2440 X3=X3+.05: GOTO 2400

2450 IF 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(В)

2510 GОТО 2570

2520 Х3=Х4: GOТ0 2500

2530 PRINT С¤: PRINT AT(10,5): PRINT D¤: «K0=»: K0: PRINT Е¤

2540 PRINT «ВЕЛИЧИНА K0 ДОЛЖНА НАХОДИТЬСЯ В ПРЕДЕЛАХ 0.8-1.2»

2550 РRINТ «ИЗМЕНИТЕ ВХОДНЫЕ ПАРАМЕТРЫ (НАПРИМЕР ВЕТN

2560 INPUT « НАЖМИТЕ КЛ. 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

2630 IF I%=1 ОR I%=3 ТНЕN 2910

2640 IF В>0 ТНЕN 2720

2650 Т0=10800/Z3TAN(A2): IF Т0>900 ТНЕN 2670

2660 GОТО 2880

2670 РRINТ С¤: PRINТ AТ(10,2)

2680 РRINТ D¤; «СУММА УГЛОВ НОЖЕК ЗУБЬЕВ ШЕСТЕРНИ И КОЛЕСА БОЛЕЕ 900 МИН»

2690 РRINT «СЛЕДУЕТ ПЕРЕЙТИ НА ОСЕВУЮ ФОРМУ ЗУБА 1 ИЛИ 3»

2700 РRINТ «»: PRINТ « НАЖМИТЕ НА КЛАВИШУ CR/LF

2710 INPUT I: CLEAR V: IF I<99999 ТНЕN 90

2720 K=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

2770 IF K>500 THEN 2790: IF K<=0 THEN 2850

2780 T0=К/SIN(B): GOTO 2880

2790 PRINT C¤: PRINT AT(1,15): PRINT D¤; PRINT «ВНИМАНИЕ !»: PRINT E¤

2800 PRINT «КОФФ. K>500. СЛЕДУЕТ УМЕНЬШИТЬ ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ»

2810 РRINТ « И/ИЛИ ПЕРЕЙТИ НА ОСЕВУЮ ФОРМУ ЗУБА !»

2820 РRINТ «»: РRINТ «ДЛЯ ВЫБОРА НОВОГО D0 НАЖМИТЕ НА ФУНКЦИОНАЛЬНУЮ КЛАВИШУ

2830 РRINТ «ДЛЯ ПЕРЕХОДА НА ДРУГУЮ ОСЕВУЮ ФОРМУ НАЖМИТЕ КЛ. CR/LF»

2840 INPUT I: CLEAR N: IF I<99999999999 ТНЕN 90: GОТО 2880

2850 РRINТ C¤: РRINТ AТ(1,15): РRINТ D¤; РRINТ «ВНИМАНИЕ !»: РRINТ Е¤

2860 РRINТ «КОЭФФ. К<6, СЛЕДУЕТ УВЕЛИЧИТЬ ДИАМЕТР ЗУБОРЕЗ. ГОЛОВКИ D

2870 РRINТ « ИЛИ ПЕРЕЙТИ НА ОСЕВУЮ ФОРМУ В»: GOТO 2820

2880 T1=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

2900 T5=(B1-L3)*(TAN(T2)-TAN(T3)): T6=(B1-L3)*TAN(T1)-TAN(T4)): GOTO 2940

2910 IF I%=1 ТНЕN 2930: IF I%=3 ТНЕN 2920: GОТО 2940

2920 T0=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

2960 F4=F2+Т0: F5=F3+Т9: F6=D2+F0: F7=D3+F1

2970 F8=F4+F6: F9=F5+F7: G0=L1+T3: G1=L2+Т4

2980 G2=L1-Т1: G3=L2-Т2

2990 D6=М1*Z1%/COS(B): D7=М1*Z2%/COS(В)

3000 G8=М2*Z1%: D9=М2*Z2%: G4=D8+2*F4*COS(L1): G5=D9+2*F5*COS(L2)

3010 G6=R2*COS(L1)-F4*SIN(L1): G7=R2*COS(L2)-F5*SIN(L2)

3020 %=====================================================

3030 %РАСЧЕТ ПОСТОЯН. ХОРДЫ ЗУБА И ВЫСОТЫ ДО ПОСТ. ХОРДЫ

3040 %=====================================================

3050 S1=D4*COS(A2)↑2: S2=D5*COS(A2)↑2

3060 S3=F2-.25*D4*SIN(2*A2): S4=F3-.25*D5*SIN(2*A2)

3070 S5=D4*COS(L1)*COS(B)↑3/М1/Z1%: S6=D5*COS(L2)*COS(B)↑3/M1/Z2%

3080 S7=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 % ================================================

3130 IF (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

3160 IF (R/(R2-B1)*SIN(B)+((R2-B1)/R-R/(R2-B1))*R/D0)>1 ТНЕN 3140

3170 H3=ARCSIN(R/R2*SIN(B)+(R2/R-R/R2)*R/D0)

3180 H4=ARCSIN((R/(R2-B1))*SIN(B)+((R2-B1)/R-R/(R2-B1))*R/D0)

3190 H5=.5*R2*SIN(H3)*COS(H3)/R/COS(B): H6=H5*D4: H7=H5*D5

3200 R3=R2-H6: R4=R2-H7

3210 R7=ARCSIN(R/R3*SIN(B)+(R3/R-R/R3)*R/D0)

3220 R9=ARCSIN(R/R4*SIN(B)+(R4/R-R/R4)*R/D0)

3230 IF D%=1 ТНЕN 3270

3240 R5=(W2+2*(F7-H6*TAN(T2))*TAN(A2))/COS(R7)

3250 R6=3.1415926*M1*R4/COS(B)/R-(W2+2*(F7-H7*TAN(T2))*TAN(A2))/COS(R8)

3260 GОТО 3280

3270 R5=R3/R*D4/COS(B)): R6=R4/R*D5/COS(B)

3280 H8=R5*R2*COS(L1)*COS(R7)↑3/R3/D8: H9=R6*R2*COS(L2)*COS(R8)↑3/R4/D9

3290 A3=1-H8↑2/6: A4=1-H9↑2/6: A5=R5*A3*COS(R7): A6=R6*A4*COS(R8)

3300 A7=.25*COS(R7): A8=.25*COS(R8)

3310 A0=R4+R5*A7*H8-H6*TAN(T3): A9=F5+R6*A8*H9-H7*TAN(T4)

3320 %===============================================

3330 %ПРОВЕРКА ОТСУТСТВИЯ ПОДРЕЗАНИЯ ЗУБЬЕВ

3340 %===============================================

3350 B2=ARCTAN(TAN(A2)/COS(H3)): B3=ARCTAN(TAN(A2/COS(H4))

3360 B4=ARCTAN(TAN(A2)/COS(B)): B5=F6-B1*TAN(T1): B6=F7-B1*TAN(T2)

3370 Z4=Z1%/COS(L1): Z5=Z2%/COS(L2): Z6=Z4*M1/COS(B): Z7=Z5*M1/COS(B)

3380 Z8=Z6+2*F2: Z9=Z7+2*F3

3390 C3=ARCCOS(Z6*COS(B4)/Z8): C4=ARCCOS(Z7*COS(B4)/Z9)

3400 C5=ARCTAN(Z8*TAN(B)/Z6): C6=ARCTAN(Z9*TAN(B)/Z7)

3410 C7=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)

3430 IF 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

3480 INPUT I: CLEAR N: IF I<9999999999 ТНЕN 90: GOТO 3490

3490 M3=Z6*R2/R: M4=Z7*R2/R: M5=Z6/R*(R2-B1): M6=Z7/R*(R2-B1)

3500 M7=F4-B1*TAN(T3): M8=F5-B1*TAN(T4)

3510 M9=M3+2*F4: M0=M4+2*F5: P0=M5+2*M7: P5=M6+2*M8

3520 P6=ARCCOS(M3*COS(B2)/M9): Р7=ARCCOS(M4*COS(B2)/M0)

3530 P8=ARCCOS(M5*COS(B3)/P0): P9=ARCCOS(M6*COS(B3)/P5)

3540 U2=ARCTAN(M9*TAN(H3)/M3): U3=ARCTAN(M0*TAN(H3)/M4)

3550 U4=ARCTAN(P0*TAN(H4)/M5): U5=ARCTAN(P5*TAN(H4)/M6)

3560 D(1)=M3-2*F6: D(2)=M4-2*F7: D(3)=M5-2*B5: D(4)=M6-2*B6

3570 D(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)

3580 D(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))

3590 D(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))

3600 D(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)

3610 IF D(13)<=D(14) THEN 3620: R0(1)=D(14): GOTO 3630

3620 R0(1)=D(13)

3630 IF D(15)<=D(16) THEN 3640: R0(2)=D(16): GOTO 3650

3640 R0(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))

3670 IF В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 %=====================================================

3800 IF D%=1 ТНЕN 3820

3810 U6=(W2+2*F7*TAN(A2))/COS(H3): J1=(W2+2*B6*TAN(A2))/COS(H4): GOTO 363

3820 U6=D4*R2/COS(B)/R: J1=D4/COS(B)/R*(R2-B1)

3830 J2=3.1415926*M1*R2/COS(B)/R-U6: J3=3.1415926*M1/COS(B)/R*(R2-B1)-J1

3840 J8=TAN(B2)-B2: J9=TAN(P6)-P6: L4=TAN(P7)-P7: L5=TAN(B3)-B3: L6=TAN(P8): L7=TAN(P9)-P9

3850 IF Z4>150 ТНЕN 3880

3860 J4=M9*COS(U2)*(U6/M3+J8-J9): J6=P0*COS(U4)*(J1/M5+L5-L6)

3870 J5=M0*COS(U3)*(J2/M4+J8-L4): J7=P5*COS(U5)*(J3/M6+L5-L7): GOTO 3920

3880 J4=U6*COS(H3)-2*P4*TAN(A2): J6=J1*COS(H4)-2*M7*TAN(A2)

3890 IF Z5>150 ТНЕN 3910

3900 J5=M0*COS(U3)*(J2/M4+J8-L4): J7=P5*COS(U5)*(J3)/M6+L5-L7): GOTO 3920

3910 J5=J2*COS(Н3)-2*F5*TAN(A2): J7=J3*СOS(H4)-2*M8*ТAN(A2)

3920 Y2=J4/J6

3930 IF 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 СЛЕДУЕТ УВЕЛИЧИТЬ ДИАМЕТР ЗУБОРЕЗН. ГОЛОВКИ D

3970 РRINТ « И/ИЛИ УМЕНЬШИТЬ УГОЛ НАКЛОНА ЗУБА ВЕТN»

3980 РRINТ «ЕСЛИ КNU1>1.3 СЛЕДУЕТ ПОСТУПИТЬ НАОБОРОТ: УМЕНЬШИТЬ D0 И УВЕЛИЧ. BЕТN»

3990 РRINТ «»: РRINТ «НАЖМИТЕ КЛАВИШУ СR/LF И ПОВТОРИТЕ ВВОД ПАРАМЕТРОВ»

4000 INPUТ I: CLEAR N: IF I<999999999 ТНЕN 90: GOТO 4080

4010 Y7=J5/J7

4020 IF 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 СЛЕДУЕТ УВЕЛИЧИТЬ ДИАМЕТР ЗУБОРЕЗНОЙ ГОЛОВКИ D

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)

4090 IF 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)

4160 IF В/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 И ВВЕДИТЕ ДРУГИЕ ДАННЫЕ»

4210 INPUТ 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

4260 T(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

4310 T(15)=D7*R4/R-M1*СOS(L2)

4320 M1=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)

4330 F2=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):

4340 D9=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)

4360 A3=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)

4370 Y2=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)

4380 X1=ROUND(X1,2): X3=ROUND(X3,2): D8=ROUND(D8,4): D9=ROUND(D9,4): D1=ROUND(D1,3)

4390 FОR I=1 TO 11: O(I)=Т(I): Т%(I)=Т(I): Q(I)=O(I)-T%(I)

4400 MAТ W=(60)*Q: J(I)=W(I): W%(I)=W(I): С(I)=J(I)-W%(I)

4410 МAТ A=(60)*С: A%(I)=A(I)

4420 NEXT 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»

5040 I=0: INРUТ I: IF I<1 ТНЕN 5050: GOТO 4440

5050 РRINТ С¤: INРUT «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА ШЕСТЕРНИ?», V¤

5060 INРUТ «ОБОЗНАЧЕНИЕ ЧЕРТЕЖА КОЛЕСА?», V

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 «!----------------------------------------------------------»

5680 PRINT НЕX (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)

5690 PRINT HEX (0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)

5700 PRINT 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Т «! ЗУБЧАТОГО КОЛЕСА !», V

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 И НАЧИНАЙТЕ РАБОТАТЬ»

6470 INPUТ « ЖЕЛАЮ УСПЕХОВ !», I: IF I<999 ТНЕN 90

6480 PRINТ НЕX(03)

6490 INPUТ «БУДЕТЕ РАБОТАТЬ ЕЩЕ С ЭТОЙ ПРОГРАММОЙ ? (+ ДА; - НЕТ)», I¤

6500 IF I¤=«+» THЕN 90

6510 INPUТ «БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ?(+ ДА; - НЕТ)», I¤

6520 IF I¤= «+» ТНЕN 6530: GOТO 6560

6530 IF J1%=0 THEN 6540: LOAD DСВМ»: 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)

90 D(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

100 D(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 РRIAТ(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) ........ М=», М

320 IF М<0.1 OR М>25 ТНЕN 310

330 INPUТ «КОЭФФ. ДИАМЕТРА ЧЕРВЯКА (5 - 20) ... Q=», Q

340 IF Q<50 OR Q>20 ТНЕN 330

350 INPUТ «ЧИСЛО ВИТКОВ ЧЕРВЯКА (1 - 4) .... Z1=», Z1

360 IF Z1<1 OR Z1>4 ТНЕN 350

370 INPUТ «ЧИСЛО ЗУБЬЕВ КОЛЕСА (20 - 350) ... Z2=», Z2

380 IF Z2<20 OR Z2>350 TНЕN 370

390 IF Z1>1 AND Z2<26 ТНЕN 520

400 IF 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

500 U=Z2/Z1: U%=U

510 U=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

580 IF A3<0.001 ТНЕN 600

590 X=A3/M-0.5*(Z2+Q): GOТO 610

600 A3=0.5*(Z2+Q+2*Х)*М

610 D1=Q*М: D2=Z2*М: D4=(Q+2*Х)*M: G1=ARCTAN(Z1/Q): G2=ARCTAN(Z1*М/D4)

620 IF B3<>2 ТНЕN 640

630 G3=ARCCOS(A1)*СOS(G1)): D3=Z1*М/ТAN(G3))

640 Н2=Н1*М: D5=D1+2*Н1*М: D6=D2+2*(Н1+X)*M

650 IF В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*М

710 IF В1>0.001 ТНЕN 900

720 IF В2=1 ТНЕN 760

730 IF М<10 ТНЕN 770

740 IF М>10 AND М<=16 ТНЕN 780

750 IF М>16 ТНЕN 790

760 L1=0: GOТO 800

770 L1=25: GОТО 800

780 L1=35: GOТO 800

790 L1=50

800 FОR I=1ТO5

810 L=I

820 IF Х<=G(I) ТНЕN 840

830 NЕХТ I

840 IF Z1>2 ТНЕN 880

850 J=1

860 IF L=1 ТНЕN 890

870 B1=(P(L,J)+0.1*Z2)*M+L1: B1=ROUND(B1,0): GОТО 900

880 J=2: GOТO 860

890 В1=(Р(L,J)+Z1)*М+L1: B1=ROUND(B1,0)

900 IF Z1<=3 ТНЕN 920

910 B4=0.65*D5: GОТО 930

920 B4=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))

950 D1(1)=1.7*M

960 FОR I=1ТO24

970 IF D(I)>=D1(1) TНЕN 990: IF D1(1)>D(24) ТНЕN 1000

980 NЕХТ I

990 D1(1)=D(I): GOТO 1010

1000 D1(1)=D(24)

1000 D1(1)=D(24)

1010 IF B3=1 ТНЕN 1030

1020 A1=0.3491

1030 A1=ARCSIN(SIN(0.3491)*СOS(G1))

1040 М1=D1-(Р1-S*М)*С0S(G1)/ТAN(A1)+D1(1)*(1/SIN(A1)+1)

1050 A2=ARCTAN(ТAN(A1))/СOS(A)

1060 E=(SQR(D6↑2-D2↑2*COS(A2))↑2)-D2*SIN(A2)+(2*M)(H1-X))/SIN(A2))/(*#PI*M*COS(A2))

1070 Е=0

1080 G8=180/#РI: Т(1)=G1*G8: Т(2)=G2*G8: Т(3)=G3*G8

1090 FOR I=1ТO3: G(I)=T(I): T%(I)=T(I): Y(I)=O)I)-T%(I)

1100 MAT W=(60)*Y: J(I)=W(I): W%(I)=W(I): K(I)=J(I)-W%(I)

1110 MAT A=(60)*K: A%(I)=A(I)

1120 NЕXТ I

1130 Х=ROUND(X,3)

1140 A3=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Т «СТЕПЕНЬ ТОЧНОСТИ»; F

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); «!»

1450 IF F¤=«Z1» ТНЕN 1480

1460 РRINТ «! ДЕЛИТЕЛЬНЫЙ УГОЛ ПОДЬЕМА !GAМ !»; Т%(1); «Г»; W%(1); «´»; А%(1); «´´»; ТАВ(49); «!»; GОТJ 1490

1470 IF F¤=«ZA» ТНЕN 1490

1480 РRINТ «! ОСНОВНОЙ УГОЛ ПОДЪЕМА !GAMВ !»; Т%(3); «Г»; W%(3); «´»; А%(3); «´´»; ТАВ(49); «!»

1490 РRINТ «! НАПРАВЛЕНИЕ ЛИНИИ ВИТКА ! !»; F; ТAВ(49); «!»

1500 IF F= «ЛЕВОЕ» ТНЕ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Т «! СТЕПЕНЬ ТОЧНОСТИ ! - !»; F; Т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); «!»

1740 IF 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Т «! НАПРАВЛЕНИЕ ЛИНИИ ЗУБА ! !»; F; Т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Т «! СТЕПЕНЬ ТОЧНОСТИ ! - !»; F; Т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¤

2160 IF I¤=«+» ТНЕN 80

2170 IUТ «БУДЕТЕ РАБОТАТЬ С ДРУГОЙ ПРОГРАММОЙ ? (+ ДА, - НЕТ ); I¤

2180 IF I¤=«+» ТНЕN 2190: GOТO 2220

2190 IF 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. ССЫЛОЧНЫЕ ДОКУМЕНТЫ

СОКРАЩЕНИЯ:

ПЭВМ - персональная ЭВМ;

НГМД - накопитель на гибких магнитных дисках;

НМД - накопитель на жестких магнитных дисках;

АЦПУ - алфавитно-цифровое печатающее устройство;

АРМ - автоматизированное рабочее место;

ОЗУ - оперативное запоминающее устройство.

 

СОДЕРЖАНИЕ

 

 

 




ГОСТЫ, СТРОИТЕЛЬНЫЕ и ТЕХНИЧЕСКИЕ НОРМАТИВЫ.
Некоммерческая онлайн система, содержащая все Российские Госты, национальные Стандарты и нормативы.
В Системе содержится более 150000 файлов нормативно-технической документации, действующей на территории РФ.
Система предназначена для широкого круга инженерно-технических специалистов.

Рейтинг@Mail.ru Яндекс цитирования

Copyright © www.gostrf.com, 2008 - 2024