Исследование процесса отбортовки отверстий в производстве деталей летательных аппаратов тема диссертации и автореферата по ВАК РФ 05.07.02, кандидат технических наук Серафимов, Михаил Андреевич

• Серафимов, Михаил Андреевич
• кандидат технических наук
• 2011

Оглавление диссертации кандидат технических наук Серафимов, Михаил Андреевич

Введение.

1. Обзор- способов отбортовки отверстий и методов расчета технологических параметров.

1.1. Обзор способов отбортовки

1.2. Методы расчета технологических параметров отбортовки отверстий.

1.3. Способы интенсификации процессов отбортовки

1.3.1. Классификация способов ¿интенсификации.

1.3.2. Способы-прямой интенсификации

1.313: Способы косвеннойшнтенсификации.

1.4. Схемы интенсифицированных процессов отбортовки.38:

1.5. Методы расчета технологическихических параметров при отбортовке в условиях интенсификации.

1.6. Выводы. Цель и задачи исследования.

2. Разработка теоретических методов расчета процесса отбортовки. отверстий;.

2.1. Исходные уравнения.

2.2. Теоретическое обоснование методов расчета,процессов отбортовки отверстий.!.

2.3. Решение при отбортовке отверстий коническим пуансоном.

2.3.1. Расчеътрадиционного процесса отбортовки;.

2.4. Расчеты интенсифицированных процессов.

2.4.1. Рассматриваемые способы интенсификации.

2.4.2. Расчет отбортовки с утолщенной кромкой отверстия.

2.4.3. Расчет отбортовки с трапецидальным утолщением'кромки в.зоне отверстия.:.

2.4.4. Расчет отбортовки с подпором кромки отверстия

2.4.5. Расчет гофрированных заготовок.

2.5. Выводы.

3. Экспериментальные исследования процесса отбортовки отверстий.

3.1. Условия проведения экспериментов.

3.2. Экспериментальные исследования традиционного процесса отбортовки

3.3. Результаты экспериментов по отбортовке отверстий с утолщенной кромкой.

3.4. Результаты экспериментов по отбортовке отверстий с трапецидальным утолщением кромки.

3.5. Результаты.экспериментов по отбортовке отверстий с подпором кромки-.

3.6. Результаты экспериментов по отбортовке гофрированных заготовок

3.7. Выводы.

Введение диссертации (часть автореферата) на тему «Исследование процесса отбортовки отверстий в производстве деталей летательных аппаратов»

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

Технологии изготовления деталей и узлов во многом определяют ресурс изделия, его трудоемкость и себестоимость, стабильность и культуру производства. Значительная часть деталей* современных конструкций самолетов изготавливается из листового материала; прессованных профилей и труб. Примерно 60 % деталей, оформляющих наружный-контур (нервюры, шпангоуты, рамы, стрингеры, обшивки, обтекатели и др.), многие детали внутреннего оборудования самолета (перегородки,.приборные щитки, панели и т.п.) и почти все элементы системы трубопроводов1, (патрубки- и пр.) производятся различными методами в заготовительно-штамповочных цехах. Число деталей из листов, профилей и труб на современных широкофюзеляжных пассажирских самолетах превышает 120 тысяч единиц. От технологичности конструкций этих деталей зависит себестоимость изделия в целом [1-13].

В настоящее время трудоемкость изготовления' деталей штамповкой составляет 7.16 % от общей трудоемкости изготовления самолетов, что в абсолютных цифрах представляет значительную величину [1].

При* проектировании деталей' важно знать технические возможности заготовительно-штамповочного производства' и ориентироваться на наиболее современные технологические процессы. При этом целесообразность применения штамповки и различных ее методов определяется исходя из масштабов производства, формы детали, качества материала, коэффициента его использования.

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

Особое значение эти задачи приобретают в современном авиастроении и ракетостроении, где в последнее десятилетие в связи с необходимостью непрерывной модернизацией и модификацией изделий широко применяются способы интенсификации традиционных процессов.

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

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

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

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

Под способом интенсификации понимают такое дополнительное воздействие на заготовку в процессе штамповки, которое приводит к достижению поставленной цели, в первую очередь — увеличивает предельные возможности формоизменения, ведет к сокращению- числа переходов штамповки, экономии метала, повышению' точности геометрических параметров, чистоту поверхности и т.п.

Теоретический анализ- процесса штамповки, и получения отбортовки проводился как российскими, так и зарубежными ученными:* Горбуновым М.Н., Ершов В.И., Исаченковым Е.И., Поповым Е.А., Томленовым А.Д., Макаров К.А., Марьин Б.Н.', У. Джонсон, Г. Меллор и другими. В результате этих исследований были выявлены зависимости' между основными факторами и- предложены, методики1 расчета^ технологических параметров процесса отбортовки отверстий.

Объектом исследования» являются детали с элементами отбортовки отверстий.

Предметом исследования является способы и методы расчета процессов отбортовки отверстий.

Целью исследования является сокращение сроков технологической подготовки производства4 и трудоемкости изготовления деталей летательного аппарата с элементами отбортовки отверстий.

Для достижения цели были поставлены и решены следующие задачи:

- проведен анализ способов отбортовки отверстий и методов расчета технологических параметров; разработан метод расчета интенсифицированных процессов отбортовки отверстий;

- выполнена экспериментальная проверка полученных теоретических решений;

- разработаны и исследованы новые способы отбортовки отверстий;

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

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

Научная новизна работы заключается в следующем:

- разработан новый метод расчета традиционного процесса отбортовки и в режимах температурно-силовой интенсификации;

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

- разработан новый способ отбортовки с подпором кромки отверстия. Практическая значимость работы заключается в следующем:

- предложенный способ отбортовки отверстий с подпором кромки отверстий увеличивает возможности формоизменения в 1,5-2,0 раза по сравнению с традиционным процессом, что сокращает число технологических операций, оснастки и оборудования;

- разработанные программы расчета процесса отбортовки на ЭВМ могут быть использованы для обоснования выбора схемы и режимов отбортовки, что сокращает сроки технологической подготовки;

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

Личный вклад соискателя. Все основные положения диссертации выполнены соискателем лично. Также соискатель лично программировал и отлаживал исходные верши компьютерных программ.

Апробация работы. Основные результаты работы докладывались на семинарах:

- «Повышение эффективности производства деталей; авиастроения, с применением программы С^огт», проводимых 6 августа 2010г. в КнАГТУ г. Комсомольск-на-Амуре;

- на семинаре по «Инновационным технологиям в авиационно-космической промышленности», проводившемся МАТИ 8-9 апреля 2010г.; -"

- на международной научно-техническая конференции, в КнАГТУ

Проблемы и перспективы обработки материалов и заготовительных производств» (Комсомольск-на-Амуре, 27-30 сентября, 2010г.) «Способ отбортовки отверстий»;

Гагаринские чтения XXXVII» Международная- научная конференция МАТИ 2011г. «Сопоставление теоретических и экспериментальных работ по исследованию процесса отбортовки отверстий в производстве деталей летательных аппаратов».

Публикации. Содержание работы опубликовано с в 6 работах, в том числе в трех статьях, рекомендованных ВАК, и в патенте на изобретение.

Структура и объем диссертации. Диссертация состоит из введения, трех основных глав, общих выводов, библиографии и семи приложений. Работа содержит 163 страниц машинописного текста, 74 рисунка, 7 таблиц, список из 82 библиографических источников, 5 приложений с программами расчетов, на 6 страницах приложения с Решением о выдаче патента на

Заключение диссертации по теме «Проектирование, конструкция и производство летательных аппаратов», Серафимов, Михаил Андреевич

Общие выводы

1. Известные технологические способы получения отбортовок имеют недостатки, связанные с низкими предельными возможностями этого процесса, что ограничивает высоту получаемого борта, кроме того происходит значительное утонение материала на кромке борта. Способы интенсификации" (температурные, силовые и др.) позволяют получать отбортовку с более высокими техническими характеристиками, но трудоемки и требуют дополнительных теоретических и технологических исследований.

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

3*. Разработанная новая математическая модель расчета традиционных и интенсифицированных процессов отбортовки отверстий дает возможность вести количественный, учет различных факторов температурно-силовой интенсификации, и особенностей отбортовки при' использовании-специальных профилированных заготовок. Эта модель является более общей, чем известные способы расчета. Её программная реализация на ЭВМ' позволяет автоматизировать процесс расчета отбортовки.

4. Экспериментальные исследования показали приемлемость полученных при теоретическом анализе математических моделей. Погрешность в расчетах технологических параметров не превышает 10-15%.

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

5. Разработанный новый способ отбортовки с подпором кромки обеспечивает повышение возможностей отбортовки в 1,5-2 раза и прост в реализации. Данный способ значительно сокращает трудоемкость

115 изготовления деталей летательного аппарата с элементами отбортовки отверстий.

6. Разработанные программы расчеты процесса отбортовки на ЭВМ дают возможности проводить оптимизацию технологических процессов и сократить сроки технологической подготовки производства.

Список литературы диссертационного исследования кандидат технических наук Серафимов, Михаил Андреевич, 2011 год

1. Абибов А. Л., Бирюков Н.М. и др. Технология самолетостроения. -.М.: Машиностроение. 1970. 589 с.

2. Братухин А.Г.,1 Иванов Ю.Л., Макаров К.А., Марьин Б.Н. Современные технологии авиастроения. М.: Машиностроение, 1999. 832 с.

3. Братухин А.Г. и др. Авиастроение летательные аппараты, двигатели, системы, технологии. — М.: Машиностроение, 2000. 536 с.

4. Комисаров С.Н. Кто вы, тринадцатый директор КнААПО? М.: Пашков дом, 2009. 207 с.

5. Шпорт В.И., Тихомиров В.А., Феоктистов С.И., Прохоров А.Г. Автоматизированное проектирование штамповочной оснастки листовых деталей с использованием 3D моделей при бесплазовой' увязке размеров. Авиационная промышленность № 4 2010. 35-40 с:

6. Горбунов М.И. Основы технологии производства самолетов. М.: Машиностроение, 1976. 260 с.

7. Фомин A.B. Су- 27 история истребителя. М.: Интервестник, 2004. 456 с.

8. Эффективные технологии в производстве СУ-27 / Макарова Е.А., Иванов Ю.Л., Марьин Б.Н., Муравьев В.И. // Самолет, 1997, № 2. С. 3637.

9. Ю.Иванов Ю.Л., Марьин Б.Н., Макаров К.А. и др. Современные технологические процессы сборки планера самолета М.: Машиностроение, 1999. 304 с.

10. Шавров В.Б. История конструкций самолетов в СССР 1938-1950 гг. 2-е изд. - М.: Машиностроение, 1988. 530 с.

11. Киселев А.И., Медведев A.A., Меньшиков В.А. Космонавтика на рубеже тысячелетий. Итоги и перспективы. — М.: Машиностроение, 2001.665 с.

12. Гусев Б.К., Докин В.Ф., Основы авиации: Учебное пособие. М.: Транспорт, 1988. 64 с.

13. Чумадин A.C., Ершов В.И., Макаров К.А. и др. Основы авиа- и ракетостроения: Учебное пособие. -М.: Инфра-М, 2008. 992 с.

14. Ершов В.И., Чумадин A.C. Листовая штамповка. Расчет технологических параметров. Справочник. -М.: изд. МАИ, 1999; 513 с.

15. Горленко A.M., Пашкевич А.Г. Сверхпластическая штамповка тонкостенных деталей в производстве летательных аппаратов — М. журнал «Авиационная промышленность»^ № 1 2011. 32-35 с.

16. Громов А.Н., Завьялов В.И., Коробов В.К. Изготовление деталей из листов и профилей при серийном производстве М. ГНТИ ОБОРОНГИЗ, 1960г. 203 с.

17. Чумадин A.C. Об одном подходе к решению упругих осесиметричных задач листовой штамповки. — М. Кузнечно-штамповочное производство обработка материалов давлением. 2009, № 10.48 с. Г

18. Макаров К.А., Калинин С.А. Исследование процесса неосесиметричной формовки полостей в листовых заготовках. -Хабаровск: Тровант, Дальневосточный информационный форум; 2003. 144 с.

19. Бакофен В.Ф. Процессы деформации. Перевод с английского. -М.: Металлургия, 1977. 288 с.

20. Баркая В.Ф. и др. Формоизменение листового металла // Баркая

21. B.Ф., Рокотян С.Е., Рузанов Ф.И. -М.: Металлургия, 1976; 263 с.

22. Ведьмедь Ю.П., Юдовичь G.3; О методах оценки штампуемости . листового металла // Кузнечно-штамповочное производство, 1974, № 5.1. C. 13-15. ^

23. Сторожев М.В., Попов Е.А. Теория обработки металлов давлением. Учебник для вузов. -М.: Машиностроение, 1977. 354 с.

24. Попов Е.А. Основы теории листовой штамповки. Учебноепособие. М.: Машиностроение, 1977. 240 с.

25. Головлев В.Д. Расчеты процессов листовой штамповки. М.: Машиностроение, 1974. 136 с.

26. Горбунов М.Н., Попов О.В. Технология изготовления цельно-штампованных тонкостенных деталей переменного сечения. Сборник "Совершенствование кузнечно-штамповочного производства" Л.: Машиностроение, 1971. С. 245-257.

27. Громов Н.П. Теория обработки металлов давлением. М.: Металлургия, 1978. 560 с.

28. Громова А.Н., Авдошина JI.B. Определение оптимальных режимов деформирования листовых алюминиевых сплавов // Технология авиационного производства. Сборник трудов НИАТ, посвященный 60-летию ВОСР. НИАТ, 1977.

29. Губкин С.И. Пластическая, деформация металлов. Т. 1-3. М.: Металлургия, 1968. 261 с

30. Джонсон. У., Кудо Г. Пластичность металла. М.: Машиностроение, 1978, 401 с.

31. Джонсон У., Меллор Г. Теория пластичности для инженеров. Перевод с английского. М.: Машиностроение, 1979-567 е.

32. Зубцов.М.Я. Листовая-штамповка. JL: Машиностроение. 1980. 431 с.

33. Машиностроение, 1971. 788 с.

34. ГорбуновнМ.Н. Технология заготовительно-штамповочных работ в производстве самолетов. Учебник для вузов. — М'.: Машиностроение, 1981.224 с.

35. Исаченков Е.И: Штамповка резиной и жидкостью. М.: Машгиз, 1962. 365 с.

36. Мельников ЭЛ. Холодная, штамповка днищ. М.: Машиностроение, 1976. 120 с.

37. Аверкиев Ю.А., Аверкиев А.Ю. Технология холодной штамповки. Учебник для вузов по специальности «Машины и технология обработки металлов давлением». М.: Машиностроение, 1989. 396 с.

38. Ивлев Д.Д. Теория идеальной пластичности. М.: Наука, 1966. 250 с.

39. Ильюшин «A.A. Пластичность. Изд-во АНСССР, 1963. 140 с.

40. Кайбышев О.'А. Пластичность и сверхпластичность металлов. -М:: Металлургия^ 1975. 279 с.

41. Кичинов Л.М. Основы теории пластичности. -М.: Наука, 1969, 420 с.

42. Колмогоров В.JIl Напряжения деформации разрушения. М.: Металургия, 1970. 230 с.

43. Кроха В.А. Упрочнение металлов при холодной пластической деформации. Справочник. М.: Машиностроение, 1980. 156 с.

44. Маков А.И. Прогрессивная технология холодной штамповки. -М.: Машгиз, 1955. С. 77-91.

45. Рубенкова Л.А., Рузанов Ф.И. Штампуемость листовых материалов. М.: Машиностроение, 1974. 46 с.

46. Свешников B.C. Прогрессивная технология холодной штамповки. Л.: Лениздат, 1974. 232 с.

47. Смирнов-Аляев Г.А., Вайнтрауб Д.А. Холодная- штамповка в приборостроении. М.: Машгиз, 1983. 435 с.

48. Степаченко В.А. Технический прогресс в самолетостроении. -М.: Машиностроение. 1975. 360 с.

49. Теория? пластического деформирования металлов / УнксовЕ.П., Джонсон У., Колмогоров В.Л. и др.* М.: Машиностроение, 1983. 598 с.

50. ТО № 21-10С-85. Разработка технологическогоs процесса получения отбортовок на трубах из сплава АМГ-2М под стыковое соединение / Фурман А.И., Иванов*Ю.Л. М.: ОКБ* им П.О* Сухого, 1990.136 с

51. ТО №7.5551.3120.296. Разработка и внедрение технологического процесса отбортовки отверстий в трубах из алюминиевых и титановых сплавов и сталей диаметром от 60 до 120 мм / Антошкин Ю.М. М.: НИАТ. 1977. 34 с.

52. Томленов А.Д. Теория пластического деформирования металлов. М.: Металлургия, 1972. 408 с.

53. Унксов Е.П. Инженерная теория пластичности М.: Машгиз, 1959. 328 с.

54. Лыков М.И., Закиров И.М. Пластическое формообразование тонкостенных деталей авиатехники. -М.: Машиностроение, 1983.172 с.

55. Мошнин Е.Н: Гибка, обтяжка и правка на прессах. М.-.Машгиз, 1959. 360 с.

56. Прогрессивные технологические процессы холодной штамповки / Под ред. А.Г.Овчинникова. М.: Машиностроение, 1985. 184 с.

57. Ершов В.И., Глазков В.И., Каширин М.Ф. Совершенствованиеформоизменяющих операций листовой штамповки. М.: Машиностроение, 1990. 312 с.

58. Парахин В.К. Исследования и изыскания технологических процессов изготовления крупногабаритных штампованных отводов. — Диссертация на соискание канд. тех. наук. М.: ЦНИИТМАШ, 1973. 110 с.

59. Пашкевич А.Г., Орехов A.B., Каратаев Н.Ю. Исследования скоростных условий деформации при отбортовке отверстий. — М. ИВУЗ. Авиационная техника, 1982. 264 с.

60. Ершов В.И., Глазков В.И., Каширин М.Ф. Совершенствование формоизменяющих операций листовой штамповки. — М.¡Машиностроение, 1990. 253 с.

61. Ершов В.И., Чумадин A.C., Ковалев BtB. Об одном способе интенсификации при отбортовке листового материала М. Кузнечно-штамповочное производство обработка материалов давлением, № 4, 1989. 18-21с.

62. Серафимов М.А., Марьин Б.Н., Грачева. O.A., Сысоев O.E., Марьин С.Б. Технология изготовления деталей из листовых и трубных заготовок посредством замороженной воды — Ml «Авиационная промышленность», № 1, 2011. 22-25 с.

63. Ершов В1И., Патриков H.H., Курицина В.В. Метология научных экспериментальных исследований в производстве аэрокосмической техники: Учебное пособие. М.: «МАТИ» - РГТУ им. К.Э.Циолковского, 2003. 196 с.

64. Ершов В.И., Чумадин A.C. Математическое моделирование процессов осесимметричного. деформирования- листовой штамповки: Учеб. пособие. -М.: МФТИ, 1988. 47с.

65. Томленов А.Д. Механика процессов обработки металлов давлением. -М.: ГНТИМЛ, 1963. 236 с.

66. Колмогоров B.JI. Механика обработки металлов давлением. — М.: Металлургия, 1986. 688 с.

67. Малинин H.H. Прикладная теория пластичности и ползучести. -М.: Машиностроение, 1975. 278 с.

68. Серафимов М.А. «Расчет интенсифицированных процессов отбортовки отверстий» М. Кузнечно-штамповочное производство обработка материалов давлением. Специальный выпуск к 70-летию кафедры 2010. ЗЗ-Збс.

69. Седов Л.И. Методы подобия и размерности в механике. М.:1. Наука, 1965. 386 с.

70. Адлер Ю.П., Маркова Е.В., Грановский Ю.В. Планирование эксперимента при поиске оптимальных условий. М.: Наука, 1976.280с.

71. Шенк X. Теория инженерного эксперимента. — М.: Мир, 1972. 384 с.

72. Одиноков В.И. Численное исследование процесса деформации материалов бескоординатным методом. Владивосток: Дальнаука, 1995. 168 с.

73. Работнов Ю.Н. Механика деформируемого твердого тела. М.: Наука, 1988. 712 с.

74. Чиченов H.A. Методы исследования обработки* металлов давлением. М.: Металлургия, 1977. С. 85 - 127, 282 - 194.

75. Дель Г.Д. Технологическая механика. М.: Машиностроение, 1978. 175 с.

76. Катков В.Ф. Оборудование и средства автоматизации, и механизации заготовительно-штамповочных цехов. Для вузов. - М.: Машиностроение, 1985. 384 с.

77. Ершов В.И., Чумадин A.C., Башилов A.C. Об одном способе набора толщины на кромке отверстия в листовом материале. М.: Кузнечно-штамповочное производство обработка материалов давлением, № 8, 1988. 19-20с.

78. Чумадин A.C., Серафимов М.А. Патент на изобретение № 2426615 от 16.03.2010 на Способ отбортовки отверстий в листовых заготовках. 5 с.

79. Серафимов М.А. «Способ отбортовки отверстий» Материалы международной научно-технической конференции «Проблемы и перспективы обработки материалов и заготовительных производств» том 2 -КнАГТУ , Комсомольск-на-Амуре, 2010. 351-354с.

80. Серафимов. М.А. «Сопоставление теоретических и экспериментальных работ по исследованию процесса отбортовки» Гагаринские чтения XXXVII Международная научная конференция МАТИ 2011г. М. 2011. 216-217с.

81. Антонов Е.А. Глубокая вытяжка с радиальным подпором фланца гидростатическим давлением / Сб. Холодная штамповка в мелкосерийном производетве. Д.: ЛДНТП, 1980. С. 6:

82. Программа расчета традиционного процесса отбортовки «ОТВОЯЗАБ» и результаты расчета при а = 45°, а = 30°, а = 10°.

83. DECLARE SUB P2 (R!, S!, RZ!, SZ!, DSZDR!(), SINAZ!(), DRZ! () , AAE!, COSB!, SINA!, RM!, A!, TIME!, N!, KT!, I!, COSA!, EO!, EN!, EM!, NT!, N0!, NM!, NN!, DS!, DR!)

84. PRINT "THE PROGRAM ** OTBOR.BAS **"

85. DIM SS(900), RR(900), DSZDR(900), SINAZ(900), SE0(900), SEN(900), DRZ(900), NS (900), DNSDR(900)

86. OPEN "INPUT.DAT" FOR OUTPUT AS #1 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25

87. PRINT "RO SO RK A N KT YGOL SAG"

88. PUT R0, SO, RK, A, N, KT, YGOL, SAG

89. PRINT "R0="; R0, "S0="; SO, "RK="; RK, "A="; A

90. PRINT "N=*"; N, "KT="; KT, "YGOL="; YGOL, "SAG="; SAG1. NAA = N

91. ITAP = 0 THEN GOTO 27 -25 PRINT " RK SAG" INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1

92. PRINT " ** ITAP="; ITAP; " RK="; RK; "**"

93. ITAP > 1 THEN GOTO 403 VZ = 3.1415 * SO * RK " 2 3.1415 * SO * R0 A 2 800 FOR I = 1 TO 900

94. DRZ(I) = .25: RR(I) = R0 + DRZ(I) * (I 1): SS(I) = SO REM PRINT "RR(I)RR(I)

95. DSZDR(I) = 0: SINAZ(I) 1: SEN(I) = 0: NEXT I 403 RM = 1000000

96. PRINT " R S EN NT NM NO EM1. EO"

97. PRINT " ZADAI (RP) " INPUT RP DAL 5

98. F = 0: L = 0: DL=0: V = 0: DV=0: I 0 35 I = I + 1

99. I = 1 THEN GOTO 37 GOTO 45 37 EO = LOG (RP / RO) EM = -EO / 2 EN = -EO / 2

100. SP = SS(I) * EXP(EN) EP = -EM TIME = 1 AAE = ABS(EO) X = YGOL * 3.1415 / 180 SINA = SIN(X): COSB = SINA DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I)

101. NT = A * (AAE / TIME) A N COSA = (1 SINA " 2) A .5: ROK = RP / COSA

102. R = RP: DS = 0: S = SP: NM = 0: NO = NT: NN = (NO / ROK) * S PRINT " SP="; SP, "NN="; NN

103. GOTO 60 45 RZ = RR(I): SZ = SS(I):

104. CALL P2(R, S, RZ, SZ, DSZDR(), SINAZ(), DRZ(), AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, EO, EN, EM, NT, NO, NM, NN, DS, DR)

105. XEN = EN / TIME 60 S = S + DS: R = R + DR

106. DAL > 0 THEN GOTO 404 GOTO 4 00

107. RR(I) = R DR: SS(I) = S - DS: DRZ(I) = DR1. REM SEO(I) = SEO(I) + EO1. REM SEN(I) = SEN(I) + EN1. REM SEM -SEO(I) - SEN(I)

108. REM DSZDR(I) = DS / DR: SINAZ(I) = COSB

109. KK = SIN((I 1) * 3.1416 / SAG) IF KK < -.005 OR KK > .005 THEN GOTO 400 PRINT USING " ###.#### R; S; EN; NT; NM; NO; EM; EO PRINT #1, R, S, EN, SEN(I), NT, N, AAE

110. DV = ABS(2 * 3.1416 * R * S * DR / COSB) V = V + DV

111. R > RK THEN GOTO 777 GOTO 99 IF DAL = 0 THEN GOTO 661 PRINT "VZ=»n; VZ, nV="; V, "TIME="; TIME PRINT "VZ="; VZ, "V="; V IF DAL > 0 THEN GOTO 8001. GOTO 800 GOTO 351. GOTO 18 STOP END

112. SUB P2 {R, S, RZ, SZ, DSZDR() , SINAZ(), DRZ () , AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, E0, EN, EM, NT, N0, NM, NN, DS, DR) REM PRINT "R="; R, "S="; S, "I="; I1. E0 = LOG(R / RZ):

113. EN = LOG(S / SZ): EM = -E0 EN

114. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 ~ 3 * EO / SZ

115. AAE = (2 A .5 / 3) * ( {EO EN) A 2 + (EN - EM) * 2 + (EM - EO) A 2) A .5 NT = A * (AAE / TIME) A N BX = Z7 / (EO - EN)

116. DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I) DRDR = SINAZ(I) / (EXP(EM) + COSB) DSDR DSZDR(I) * DRDR

117. REM PRINT "DRDR="; DRDR, "DSDR="; DSDR, "SZ-"; SZ, "I="; I

118. BX > 0 THEN GOTO 999 GOTO 9961. EN < 0 THEN KX = 11. EN > 0 THEN KX = -11. EN < 0 THEN NX = 11. EN > 0 THEN NX 33 -11. GOTO 1 997 1. EO > 0 THEN KX as 11. EO < 0 THEN KX = -11. EO > 0 THEN NX = -11. EO < 0 THEN NX = 1505 400777 66199 150 200

119. DX + 4 * BX * R * NT * A * N

120. DS DR * CH / ZN NN - (NO / ROK) * S END SUB

121. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX

122. NO * (2 * NO NM) / DX + KT * R * (NO / ROK) /

123. ZN = NM * R / S CX * R * NO * (2 * NO - NM)

124. AAE A N2 * (2 * EN + EO) / (3 * DX * S)

125. THE PROGRAM ** OTBOR.BAS Поиложение la

126. RO SO RK A N KT YGOL SAG приложение la20,1,40,30,.4,.1,45,10 R0= 20 S0=1 RK=40 A=30 N=.4 KT=.l YGOL= 45 SAG= 10 ** ITAP= 1 RK= 40 **

127. R S EN NT NM N0 EM E0 ZADAI (RP)

128. THE PROGRAM ** OTBOR.BAS **

129. RO SO RK A N KT YGOL SAG Приложение 1 б20,1,40,30,.4,1,30,10 R0=20 S0=1 RK= 46 A= 30 N=.4 KT=.l YGOL= 30 SAG= 10 ** ГГАР= 1 RK= 40 ♦♦

130. R S EN NT NM N0 EM E0 ZADAI (RP)

131. THE PROGRAM ** OTBOR.BAS ♦♦ Приложение 1в

132. RO SO RK A N KT YGOL SAG приложение IB20,1,40,30,.4,.1,10,10 RO= 20 S0= 1 RK=40 A=30 N=.4 KT=.l YGOL= 10 SAG= 10 ♦♦ГГАР= 1 RK= 40

133. R S EN NT NM N0 EM E0 ZADAI (RP)

134. Программа расчета отбортовки с утолщенной кромкой отверстия «OTBOR11 .BAS» и результаты расчета при а = 45°, а = 30°, а = 10°.

135. DECLARE SUB P2 (R! , S!, RZ!, SZ!, DSZDR!(), SINAZ!(), DRZ! () , AAE!, COSB!, SINA!, RM!, A!, TIME!, N!, KTI, I'., COSA!, EO!, EN! , EM!, NT!, N0!, NM!, NN!, DSi, DR!)

136. PRINT "THE PROGRAM ** OTBORI1.BAS *+"

137. DIM SS(900), RR(900), DSZDR(900), SINAZ(900), SE0(900), SEN(900), DRZ(900), NS(900), DNSDR(900)

138. OPEN "INPUT.DAT" FOR OUTPUT AS #1 VZ = 0 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25

139. PRINT "R0 SO RK A S KT YGOL SAG SN" INPUT R0, SO, RK, A, N, KT, YGOL, SAG, SN PRINT "R0="; RO, "S0="; SO, "RK="; RK, "A="; A

140. PRINT "N="; N, "KT="; KT, "YGOL="; YGOL, "SAG="; SAG, "SN="; SN NAA = N1. RP = R0 + 2

141. ITAP = 0 THEN GOTO 27 25 PRINT " RK SAG" INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1

142. PRINT " ** ITAP="; ITAP; " RK="; RK/ "**" IF ITAP > 1 THEN GOTO 403 REM VZ = 3.1415 * SO * RK A 2 3.1415 * SO * RO A 2 800 FOR I = 1 TO 900

143. DRZ(I) = .25: RR(I) = RO + DRZ(I) * (I 1): SS(I) = SN - (SN - SO) * DRZ(I) * (I - 1) / (RP - R0)

144. RR(I) > RP THEN SS(I) = SO

145. RR(I) < RK THEN VZ = VZ + 2 * 3.1415 * RR(I) * SS(I) * DRZ(I) REM PRINT "RR(I)"; RR(I), "SS(I)"; SS(I), "VZ="; VZ

146. FOR 15 = 1 TO 90000 F = F + 1 NEXT 15

147. DSZDR(I) = -(SN SO) / (RK - RO): SINAZ(I) = 1: SEN(I) = 0:

148. RR(I) > RK GOTO 403 NEXT I 403 RM = 1000000

149. PRINT " R S EN NT NM NO EM1. EO"

150. PRINT "ZADAI (RP) " INPUT RP DAL = 5

151. F = 0: L = 0: DL=0: V=0: DV=0: 1=0 35 1 = 1 + 1

152. I = 1 THEN GOTO 37 GOTO 4 5

153. EO = LOG (RP / RO) EM = -EO / 2 EN = -EO / 2

154. SP = SS(I) * EXP (EN) EP = -EM TIME = 1 AAE = ABS(EO) X = YGOL * 3.1415 / 180 SINA = SIN(X): COSB = SINA DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I)

155. NT = A * (AAE / TIME) Л N COSA = (1 SINA л 2) л .5:1. ROK = RP / COSA

156. R = RP: DS = 0: S = SP: NM = 0: NO = NT: NN = (NO / ROK) * S PRINT " SP="; SP, "NN="; NN

157. GOTO 60 45 RZ = RR(I): SZ = SS(I)

158. CALL P2(R, S, RZ, SZ, DSZDR(), SINAZO, DRZ () , AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, EO, EN, EM, NT, NO, NM, NN, DS, DR)

159. XEN = EN / TIME 60 S = S + DS: R = R + DR

160. DAL > 0 THEN GOTO 404 GOTO 400

161. REM RR(I) = R DR: SS(I) = S - DS: DRZ(I) = DR1. REM SEO(I) = SEO(I) + EO1. REM SEN(I) = SEN(I) + EN1. REM SEM = -SEO(I) SEN(I)

162. REM DSZDR(I) = DS / DR: SINAZ(I) = COSB

163. KK = SIN((I 1) * 3.1416 / SAG)

164. KK < -.005 OR KK > .005 THEN GOTO 400 505 PRINT USING " ###.#### "; R; S; EN; NT; NM; NO; EM; EO

165. PRINT #1, R, S, EN, SEN(I), NT, N, AAE 400 DV = ABS(2 * 3.1416 * R + S * DR / COSB) V = V + DV

166. R > RK THEN GOTO 777 GOTO 99777 IF DAL = 0 THEN GOTO 661

167. PRINT "VZ="; VZ, "V="; V, "TIME="; TIME 661 PRINT "VZ="; VZ, "V="; V IF DAL > 0 THEN GOTO 403 GOTO 403 99 GOTO 35 150 GOTO 18 200 STOP END

168. SUB P2 (R, S, RZ, SZ, DSZDR () , SINAZO, DRZ () , AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, E0, EN, EM, NT, N0, NM, NN, DS, DR) REM PRINT "R="; R, "S="; S, "I="; I1. E0 = LOG(R / RZ):

169. EN = LOG(S / SZ): EM = -E0 EN

170. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 = 3 * E0 / SZ

171. AAE = (2 A .5 / 3) * ( (E0 EN) A 2 + (EN - EM) A 2 + (EM - E0) ~ 2) A .5 NT = A * (AAE / TIME) A N BX = Z7 / (EO - EN)

172. DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I) DRDR = SINAZ(I) / (EXP(EM) * COSB) DSDR = DSZDR(I) * DRDR

173. REM PRINT "DRDR="; DRDR, "DSDR="; DSDR, "SZ="; SZ, "I="; I

174. BX > 0 THEN GOTO 999 GOTO 996 999 IF EN < 0 THEN KX = 1 IF EN > 0 THEN KX = -1 IF EN < 0 THEN NX = 1 IF EN > 0 THEN NX = -1 GOTO 997 996 IF E0 > 0 THEN KX = 1 IF E0 < 0 THEN KX = -1 IF E0 > 0 THEN NX = -1 IF EO < 0 THEN NX = 1

175. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX / (3 * DX) NM + NO - FX * R

176. NO * (2 * NO NM) / DX + KT * R * (NO / ROK) / SINA

177. ZN » NM *R/S-CX*R* NO * (2 * NO NM) /DX+4*BX*R*NT*A*N

178. AAE л N2 * (2 * EN + EO) / (3 * DX * S)

179. DS = DR * CH / ZN NN = (NO / ROK) * S END SUB- (2 * EN + EO) * DSDR / SZ -EN) л 2)

180. THE PROGRAM ** OTBOR.BAS ** Поиложение 2a

181. RO SO RK A N KT YGOL SAG SN Приложение 2a20,1,40,30,.4,.1,45,10,1.2

182. R0= 20 S0=1 RK=40 A= 30 N=.4 KT=.l YGOL= 45 SAG= 10 SN= 1.2 ** ГГАР= 1 RK= 40 **

183. R S EN NT NM N0 EM E0 ZADAI (RP)

184. THE PROGRAM ** OTBOR.BAS ** iw™™«,™ оя

185. RO SO RK A N KT YGOL SAG SN Приложение 267 20,1,40,30, .4, .1,30,10,1.2 R0=20 S0=1 RK=40 A=30 N=.4 KT=.l YGOL= 30 SAG= 10 SN=1.2 ** ITAP= 1 RK= 40 **

186. THE PROGRAM ** OTBOR.BAS ** тт«»,«™™»™ о

187. RO SO RK A N KT YGOL SAG SN приложение Z в20,1,40,30, .4, .1,10,10,1.2 R0=20 S0= 1 RK= 40 A=30 N=.4 KT=.l YGOL= 10 SAG= 10 SN= 1.2 ** ГГАР= 1 RK= 40 **

188. DECLARE SUB P2 (R!, S!, RZ!, SZ!, DSZDR!(), SINAZ!(), DRZ! () , AAE!, COSB!, SINA!, RM!, A!, TIME!, N!, KT!, 1!, COSA!, EO!, EN!, EM!, NT!, N0!, NM!, NN!, DS!, DR!)

189. PRINT "THE PROGRAM ** OTBOR1.BAS **"

190. DIM SS(900), RR(900) , DSZDR(900), SINAZ(900), SE0(900), SEN(900), DRZ(900) NS (900), DNSDR(900)

191. OPEN "INPUT.DAT" FOR OUTPUT AS #1 VZ = 0 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25

192. PRINT "R0 SO RK A N KT YGOL SAG SN" INPUT R0, SO, RK, A, N, KT, YGOL, SAG, SN PRINT "R0="; RO, "S0="; SO, "RK="; RK, "A="; A

193. PRINT "N="; N, "KT="; KT, "YGOL="; YGOL, "SAG*"; SAG, "SN="; SN NAA = N

194. ITAP = 0 THEN GOTO 27 25 PRINT " RK SAG" INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1

195. PRINT " ** ITAP="; ITAP; " RK="; RK; "**" IF ITAP > 1 THEN GOTO 403 REM VZ = 3.1415 * SO * RK Л 2 3.1415 * SO * R0 л 2 800 FOR I = 1 TO 900

196. DRZ(I) = .25: RR(I) R0 + DRZ(I) * (I - 1): SS(I) = SN - (SN - SO) * DRZ (I) * (I - 1) / (RK - RO)

197. RR(I) > RK THEN SS(I) = SO

198. RR(I) < RK THEN VZ = VZ + 2 * 3.1415 * RR(I) * SS(I) + DRZ(I) REM PRINT "RR(I) "; RR(I), "SS(I)"; SS(I), "VZ="; VZ

199. DSZDR(I) = -(SN SO) / (RK - RO): SINAZ(I) = 1: SEN(I) = 0:

200. RR(I) > RK GOTO 403 NEXT I 403 RM = 10000001. PRINT R S EN NT NM NO EM1. EO"

201. PRINT "ZADAI (RP) " INPUT RP DAL = 5

202. F = 0: L = 0: DL=0: V = 0: DV = 0: 1=0 35 1 = 1 + 1

203. I = 1 THEN GOTO 37 GOTO 45

204. EO = LOG (RP / RO) EM = -EO / 2 EN = -EO / 2

205. SP = SS(I) * EXP(EN) EP = -EM TIME = 1 AAE = ABS(EO) X = YGOL * 3.1415 / 180 SINA = SIN(X): COSB = SINA DR ° DRZ(I) + EXP(EM) * COSB / SINAZ(I)

206. NT = A * (AAE / TIME) л N COSA = (1 SINA л 2) л .5: ROK = RP / COSA

207. R = RP: DS *= 0: S = SP: NM = 0: NO = NT: NN = (NO / ROK) * S PRINT " SP="; SP, "NN="; NN

208. PRINT " SP="; SP, "NN="; NN

209. GOTO 60 45 RZ = RR(I): SZ = SS(I)

210. CALL P2(R, S, RZ, SZ, DSZDR(), SINAZ(), DRZ(), AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, E0, EN, EM, NT, N0, NM, NN, DS, DR)

211. XEN = EN / TIME 60 S = S + DS: R = R + DR

212. DAL > 0 THEN GOTO 4 04 GOTO 400

213. REM RR (I) = R DR: SS(I) = S - DS: DRZ(I) = DR1. REM SE0(I) = SEO(I) + EO1. REM SEN(I) = SEN(I) + EN1. REM SEM = -SEO(I) SEN(I)

214. REM DSZDR(I) = DS / DR: SINAZ(I) = COSB

215. KK = SIN((I 1) * 3.1416 / SAG)

216. KK < -.005 OR KK > .005 THEN GOTO 4 00 505 PRINT USING " ###.#### R; S; EN; NT; NM; iiO; EM; EO

217. PRINT #1, R, S, EN, SEN(I), NT, N, AAE 400 DV = ABS(2 * 3.1416 * R * S * DR / COSB) V = V + DV

218. R > RK THEN GOTO 777 GOTO 99777 IF DAL = 0 THEN GOTO 661

219. PRINT "VZ="; VZ, "V="; V, "TIME="; TIME 661 PRINT "VZ="; VZ, "V="; V IF DAL > 0 THEN GOTO 403 GOTO 4 03 99 GOTO 35 150 GOTO 18 200 STOP END

220. SUB P2 (R, S, RZ, SZ, DSZDR(), SINAZ(), DRZ(), AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, E0, EN, EM, NT, N0, NM, NN, DS, DR) REM PRINT "R="; R, "S="; S, "I="; I1. E0 = LOG(R / RZ):

221. EN = LOG(S / SZ): EM = -EO EN

222. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 = 3 * E0 / SZ

223. AAE = (2 A .5 / 3) * ((EO EN) A 2 + (EN - EM) A 2 + (EM - E0) A 2) A .5 NT = A * (AAE / TIME) A N BX = Z7 / (E0 - EN)

224. DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I) DRDR = SINAZ(I) / (EXP (EM) * COSB) DSDR = DSZDR(I) * DRDR

225. REM PRINT "DRDR="; DRDR, "DSDR="; DSDR, "SZ="; SZ, "I="; I

226. BX > 0 THEN GOTO 999 GOTO 9961. EN < 0 THEN KX = 11. EN > 0 THEN KX = -11. EN < 0 THEN NX = 11. EN > 0 THEN NX = -11. GOTO 997 1. E0 > 0 THEN KX = 11. E0 < 0 THEN KX = -11. E0 > O THEN NX = -11. E0 < 0 THEN NX = 1

227. NM = KX * SQR(NT A 2 * BX A 2 / (BX A 2 + 1 BX))

228. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX

229. NO * (2 * NO NM) / DX + KT * R * (NO / ROK) /

230. ZN = NM * R / S CX * R * NO * (2 * NO - NM)

231. AAE л N2 * (2 * EN + EO) / (3 * DX * S)

232. DS = DR * CH / ZN NN = (NO / ROK) * S END SUB(3 * DX) NM + NO - FX * R SINA

233. DX + 4 * BX * R * NT * A * N

234. ТНЕ РИШКАМ ** ОТВСЖ.ВАЗ 1 ** Ш) 80 ЮС А N КТ УООЬ БАС БЫ 7 20,1,40,30, .4, .1,45,10,1.2 110= 20 80=1 ЯК= 40 А- 30

235. N=.4 КТ=.1 УООЬ= 45 БАО= 10 1.2 ** ГГАР= 1 ШС= 40 **

236. THE PROGRAM ** OTBOR.BAS 1 ** RO SO RK A N KT YGOL SAG SN ? 20,1,40,30, .4, .1,30,10,1.2 R0= 20 S0=1 RK=40 A= 30

237. N=.4 KT=.l YGOL= 30 SAG= 10 SN= 1.2 **ITAP=1 RK= 40 **

238. R S EN NT NM N0 EM E0 ZADAI (RP)

239. THE PROGRAM ** OTBOR.BAS 1 nDHJio*eHHe 3B

240. RO SO RK A N KT YGOL SAG SN 1 p Me20,1,40,30,.4, .1,10,10,1.2 R0=20 S0=1 RK= 40 A=30 N=.4 KT=.l YGOL-10 SAG= 10 SN= 1.2 ** ITAP- 1 RK= 40 **

241. R S EN NT NM N0 EM E0 ZADAI (RP) ? 36.9

242. R S EN NT NM N0 EM E0 ZADAI (RP)

243. Программа расчета отбортовки с подпором кромки отверстия «ОТВ(Ж2.ВА8» и результаты расчета при а = 45°, а = 30°, а = 10°.

244. DECLARE SUB P2 (R! , S!, RZ!, SZ!, DSZDR!(), SINAZ!(), DRZ! (), AAE!, COSB!, SINA!, RM!, A!, TIME!, N!, KT!, 1!, COSA! , EO! , EN!, EM!, NT!, N0!, NM!, NN!, DS!, DR!)

245. PRINT "THE PROGRAM +* OTBOR2.BAS **"

246. DIM SS(900) , RR(900), DSZDR(900), SINAZ(900), SE0(900), SEN(900), DRZ(900), NS (900), DNSDR(900)

247. OPEN "INPUT.DAT" FOR OUTPUT AS #1 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25

248. PRINT "R0 SO RK A N KT YGOL SAG M" INPUT RO, SO, RK, A, N, KT, YGOL, SAG, M PRINT "R0="; R0, "S0="; SO, "RK="; RK, "A="; A PRINT "N="; N, "KT="; KT, "YGOL="; YGOL, "SAG="; SAG, "M="; M NAA = N ^

249. ITAP = 0 THEN GOTO 27 25 PRINT " RK SAG" INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1

250. PRINT " ** ITAP="; ITAP; " RK="; RK; "**"

251. ITAP > 1 THEN GOTO 403 VZ = 3.1415 * SO * RK A 2 3.1415 * SO * RO * 2 800 FOR I » 1 TO 900

252. DRZ (I) <= .25: RR(I) = R0 + DRZ(I) * (I 1) : SS(I) = SO REM PRINT "RR(I)"; RR(I)

253. DSZDR(I) = 0: SINAZ(I) = 1: SEN (I) = 0: NEXT I 403 RM = 10000001. PRINT R S EN NT NM N0 EM1. E0"

254. PRINT "ZADAI (RP) " INPUT RP DAL = 5

255. F = 0: L = 0: DL=0: V=0: DV=0: 1=0 35 1 = 1 + 1

256. I = 1 THEN GOTO 37 GOTO 45 37 E0 = LOG (RP / R0)

257. AI=l/2+3*M/ (2* (4 3 * M " 2) ~ .5)

258. SP = SO * (RO / RP) A AI EN = LOG(SP / SO) EM = -EO EN1. EP = -EM TIME = 1

259. AAE = (2 A .5 / 3) * ( (EO EN) A 2 + (EN - EM) A 2 + (EM - EO) 2) A .51. X = YGOL * 3.1415 / 180

260. SINA = SIN(X): COSB = SINA

261. DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I)

262. NT = A * (AAE / TIME) ~ N ' GM = M * NT PRINT "GM="; GM

263. COSA = (1 SINA A 2) ~ .5: ROK = RP / COSA

264. R = RP: DS =0: S = SP: NM = GM: NO = NT + GM: NN = (NO / ROK) * S PRINT " SP="; SP, "NN="; NN1. GOTO 6045 RZ = RR(I): SZ = SS(I):

265. CALL P2(R, S, RZ, SZ, DSZDR(), SINAZ(), DRZ(), AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, E0, EN, EM, NT, N0, NM, NN, DS, DR)

266. XEN = EN / TIME 60 S=S+DS:R=R+DR

267. DAL > 0 THEN GOTO 404 GOTO 4 00

268. RR(I) = R DR: SS(I) = S - DS: DRZ(I) = DR1. REM SEO(I) = SEO(I) + EO1. REM SEN(I) = SEN(I) + EN1. REM SEM = -SEO(I) SEN(I)

269. REM DSZDR(I) DS / DR: SINAZ(I) = COSB

270. KK = SIN{(I 1) * 3.1416 / SAG) IF KK < -.005 OR KK > .005 THEN GOTO 4 00 505 PRINT USING " ###.#### "; R; S; EN; NT; NM; NO; EM; EO

271. PRINT #1, R, S, EN, SEN (I), NT, N, AAE 400 DV = ABS(2 * 3.1416 * R * S * DR / COSB) V = V + DV

272. R > RK DR THEN GOTO 111 GOTO 99777 IF DAL = 0 THEN GOTO 661

273. PRINT "VZ="; VZ, "V="; V, "TIME="; TIME 661 PRINT "VZ="; VZ, "V="; V IF DAL > 0 THEN GOTO 800 GOTO 800 99 GOTO 35 150 GOTO 18 200 STOP END

274. SUB P2 (R, S, RZ, SZ, DSZDR () , SINAZ(), DRZ(), AAE, COSB, SINA, RM, A, TIME, N, KT, I, COSA, E0, EN, EM, NT, N0, NM, NN, DS, DR) REM PRINT "R="; R, "S="; S, "I="; I1. E0 = LOG(R / RZ):

275. EN = LOG(S / SZ): EM -E0 - EN

276. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 = 3 * EO / SZ

277. AAE = (2 A .5 / 3) * ((EO EN) A 2 + (EN - EM) A 2 + (EM - E0) A 2) A .5 NT = A * (AAE / TIME) A N BX = Z7 / (EO - EN)

278. DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I) DRDR = SINAZ(I) / (EXP(EM) * COSB) DSDR = DSZDR(I) * DRDR

279. REM PRINT "DRDR="; DRDR, "DSDR="; DSDR, "SZ="; SZ, "I="; I

280. BX > 0 THEN GOTO 999 GOTO 996 999 IF EN < 0 THEN KX = 1 IF EN > 0 THEN KX = -1 IF EN < 0 THEN NX = 1 IF EN > 0 THEN NX = -1 GOTO 997 996 IF E0 > 0 THEN KX = -1 REM IF E0 < 0 THEN KX = -1

281. E0 > 0 THEN NX = 1 REM IF E0 < 0 THEN NX = 1

282. NM KX * SQR(NT A 2 * BX A 2 / (BX A 2 + 1 - BX) ) NO = NX * SQR(NT A 2 / (BX A 2 + 1 - BX))

283. DX = 2 * NO NM + ВХ * (2 * NM - NO)1. = (2 * EO + EN) * (1 / R DRDR / RZ) - (2 * EN + EO) * DSDR / SZ FX = (Z5 - Z6 * DRDR + Z8 * DSDR) / ((EO - EN) л 2) CX = 3 * EO / (S * (EO - EN) л 2) N2 = N - 21. ROK = R / COSA1. DX = 0 THEN DX = 1

284. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX / (3 * DX) NM + NO - FX * R

285. N0 * (2 * N0 NM) / DX + KT * R * (N0 / ROK) / SINA

286. ZN = NM * R / S CX * R * N0 * (2 * N0 - NM) / DX + 4 * BX * R * NT * A * N

287. AAE л N2 * (2 * EN + EO) / (3 * DX * S)

288. DS = DR * CH / ZN NN = (N0 / ROK) * S END SUB1. ROSORKANKTYGOLSAGM ~ „20,1,40,30,.4,.1,45,10,-.3 Приложение 4a

289. R0=20 S0= 1 RK= 40 A=30 N= .4 KT=.l YGOL= 45 SAG= 10 M=-.3 ** ITAP= 1 RK= 40 **

290. RS EN NT NM NO EM EO ZADAI (RP)1. ROSORRANKTYGOLSAGM „20,1,40,30,.4,. 1,30,10,-.3 Приложение 461. R0=20 S0=1 RK=40 A=30

291. N-.4 KT=.l YGOL= 30 SAG= 10 M=-.3 ** ГГАР- 1 RK= 40

292. R S EN NT NM NO EM EO ZADAI (RP)

293. ЯО БО ЯК А N КТ УООЬ БАС М „20,1,40,30,.4, .1,10,10,-3 Приложение 4в

294. Я0= 20 80= 1 ЯК= 40 А= 30 N=.4 КТ=.1 У(ЮЬ=10 БАО= 10 М=-.3 ** ГГАР= 1 ЯК= 40 **

295. Я Э EN ИТ NM N0 ЕМ Е0 гАБА1 (ЯР)7

296. Программа расчета гофрированных заготовок «ОТВСЖЗ.ВА8» и результаты расчета при а = 45°, а = 30°, а = 10°.npHjioaceHMe 5

297. DECLARE SUB P2 (R! , S !, RZ ! , SZ !, DSZDR!{), SINAZ!(), DRZ ! () , AAE! , COSB! , SINA!, RM! , A! , TIME!, N!, KT! , I!, COSA!, EO! , EN!, EM! , NT!, N0!, NM!, NN!, DS! , DR!)

298. PRINT "THE PROGRAM ** OTBOR 3.BAS **"

299. DIM SS(900) , RR(900) , DSZDR(900), SINAZ{900), SE0(900), SEN(900), DRZ(900), NS(900), DNSDR(900)

300. OPEN "INPUT.DAT" FOR OUTPUT AS #1 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25

301. PRINT "R0 SO RK A N KT YGOL SAG" INPUT R0, SO, RK, A, N, KT, YGOL, SAG PRINT "R0="; R0, "S0="; SO, "RK="; RK, "A="; A PRINT "N="; N, "KT="; KT, "YGOL="; YGOL, "SAG="; SAG NAA = N <v1. ITAP = 0 THEN GOTO 27 y '

302. PRINT " RK SAG" INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1

303. PRINT " ** ITAP="; ITAP; " RK="; RK; "**"

304. ITAP > 1 THEN GOTO 403 VZ1 = 3.1415 * SO * RK A 2 3.1415 * SO * R0 A 2 800 FOR I = 1 TO 80

305. DRZ(I) = .25: RR(I) = R0 + DRZ(I) * (I 1): SS(I) = SO REM PRINT "RR(I)"; RR(I)1. REM1. DSZDR(I) = 0

306. X = 2 * 3.14159 * (RR(I) R0) / (RK - R0) Y = ABS (3 * SO * SIN (X) )

307. DY = Y Z: G = (DY A 2 + DRZ(I) A 2) A .5 SINAZ(I) = ABS (DRZ (I) / G) DVZ = 2 * 3.14159 * RR(I) * SS(I) * G IF DAL > 0 THEN DVZ = 0 VZ = VZ + DVZ

308. PRINT I, X; Y; SINAZ(I); VZ; VZ1403 EO"35 371. SEN(I) = 0 Z = Y NEXT I1. RM = 1000000 PRINT " R1. EN

309. PRINT " ZADAI (RP) " INPUT RP DAL = 5

310. F = 0: L = 0: DL = 0: V = 0: DV=0: 1=0 1 = 1 + 1 IF I = 1 THEN GOTO 37 GOTO 45 E0 = LOG(RP / RO)1. EM--EO / 21. EN = -EO / 2

311. SP = SS(I) * EXP(EN) EP = -EM TIME = 1 AAE = ABS(EO) X = YGOL * 3.1415 / 180 SINA = SIN(X): COSB = SINA DR = DRZ(I) * EXP(EM) * COSB / SINAZ(I)1. NT