Помощь в учёбе, очень быстро...
Работаем вместе до победы

Исследование процесса отбортовки отверстий в производстве деталей летательных аппаратов

Диссертация: Исследование процесса отбортовки отверстий в производстве деталей летательных аппаратов
ДиссертацияПомощь в написанииУзнать стоимостьмоей работы

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

Содержание

  • 1. Обзор- способов отбортовки отверстий и методов расчета технологических параметров
    • 1. 1. Обзор способов отбортовки
    • 1. 2. Методы расчета технологических параметров отбортовки отверстий
    • 1. 3. Способы интенсификации процессов отбортовки
      • 1. 3. 1. Классификация способов ¿интенсификации
      • 1. 3. 2. Способы-прямой интенсификации
  • 1. 313: Способы косвеннойшнтенсификации
    • 1. 4. Схемы интенсифицированных процессов отбортовки
    • 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. Разработанные программы расчеты процесса отбортовки на ЭВМ дают возможности проводить оптимизацию технологических процессов и сократить сроки технологической подготовки производства.

Показать весь текст

Список литературы

  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., Серафимов М. А. Патент на изобретение № 2 426 615 от 16.03.2010 на Способ отбортовки отверстий в листовых заготовках. 5 с.
  79. М.А. «Способ отбортовки отверстий» Материалы международной научно-технической конференции «Проблемы и перспективы обработки материалов и заготовительных производств» том 2 -КнАГТУ, Комсомольск-на-Амуре, 2010. 351−354с.
  80. Е.А. Глубокая вытяжка с радиальным подпором фланца гидростатическим давлением / Сб. Холодная штамповка в мелкосерийном производетве. Д.: ЛДНТП, 1980. С. 6:
  81. Программа расчета традиционного процесса отбортовки «ОТВОЯЗАБ» и результаты расчета при, а = 45°, а = 30°, а = 10°.
  82. 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!)
  83. PRINT «THE PROGRAM ** OTBOR. BAS **»
  84. DIM SS (900), RR (900), DSZDR (900), SINAZ (900), SE0(900), SEN (900), DRZ (900), NS (900), DNSDR (900)
  85. OPEN «INPUT.DAT» FOR OUTPUT AS #1 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25
  86. PRINT «RO SO RK A N KT YGOL SAG»
  87. PUT R0, SO, RK, A, N, KT, YGOL, SAG
  88. PRINT «R0=" — R0, «S0=" — SO, «RK=" — RK, «A=" — A
  89. PRINT «N=*" — N, «KT=" — KT, «YGOL=" — YGOL, «SAG=" — SAG1. NAA = N
  90. ITAP = 0 THEN GOTO 27 -25 PRINT «RK SAG» INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1
  91. PRINT «** ITAP=" — ITAP- «RK=" — RK- «**»
  92. ITAP > 1 THEN GOTO 403 VZ = 3.1415 * SO * RK «2 3.1415 * SO * R0 A 2 800 FOR I = 1 TO 900
  93. DRZ (I) = .25: RR (I) = R0 + DRZ (I) * (I 1): SS (I) = SO REM PRINT «RR (I)RR (I)
  94. DSZDR (I) = 0: SINAZ (I) 1: SEN (I) = 0: NEXT I 403 RM = 1 000 000
  95. PRINT «R S EN NT NM NO EM1. EO»
  96. PRINT «ZADAI (RP) «INPUT RP DAL 5
  97. F = 0: L = 0: DL=0: V = 0: DV=0: I 0 35 I = I + 1
  98. I = 1 THEN GOTO 37 GOTO 45 37 EO = LOG (RP / RO) EM = -EO / 2 EN = -EO / 2
  99. 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)
  100. NT = A * (AAE / TIME) A N COSA = (1 SINA «2) A .5: ROK = RP / COSA
  101. R = RP: DS = 0: S = SP: NM = 0: NO = NT: NN = (NO / ROK) * S PRINT «SP=" — SP, «NN=" — NN
  102. GOTO 60 45 RZ = RR (I): SZ = SS (I):
  103. 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)
  104. XEN = EN / TIME 60 S = S + DS: R = R + DR
  105. DAL > 0 THEN GOTO 404 GOTO 4 00
  106. 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)
  107. REM DSZDR (I) = DS / DR: SINAZ (I) = COSB
  108. 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
  109. DV = ABS (2 * 3.1416 * R * S * DR / COSB) V = V + DV
  110. 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
  111. 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):
  112. EN = LOG (S / SZ): EM = -E0 EN
  113. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 ~ 3 * EO / SZ
  114. 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)
  115. DR = DRZ (I) * EXP (EM) * COSB / SINAZ (I) DRDR = SINAZ (I) / (EXP (EM) + COSB) DSDR DSZDR (I) * DRDR
  116. REM PRINT «DRDR=" — DRDR, «DSDR=" — DSDR, «SZ-" — SZ, «I=" — I
  117. 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 400 777 66 199 150 200
  118. DX + 4 * BX * R * NT * A * N
  119. DS DR * CH / ZN NN — (NO / ROK) * S END SUB
  120. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX
  121. NO * (2 * NO NM) / DX + KT * R * (NO / ROK) /
  122. ZN = NM * R / S CX * R * NO * (2 * NO — NM)
  123. AAE A N2 * (2 * EN + EO) / (3 * DX * S)
  124. THE PROGRAM ** OTBOR. BAS Поиложение la
  125. 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 **
  126. R S EN NT NM N0 EM E0 ZADAI (RP)
  127. THE PROGRAM ** OTBOR. BAS **
  128. 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 ¦¦
  129. R S EN NT NM N0 EM E0 ZADAI (RP)
  130. THE PROGRAM ** OTBOR. BAS ¦¦ Приложение 1в
  131. 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 &diams-&diams-ГГАР= 1 RK= 40
  132. R S EN NT NM N0 EM E0 ZADAI (RP)
  133. Программа расчета отбортовки с утолщенной кромкой отверстия «OTBOR11 .BAS» и результаты расчета при, а = 45°, а = 30°, а = 10°.
  134. 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!)
  135. PRINT «THE PROGRAM ** OTBORI1. BAS *+»
  136. DIM SS (900), RR (900), DSZDR (900), SINAZ (900), SE0(900), SEN (900), DRZ (900), NS (900), DNSDR (900)
  137. OPEN «INPUT.DAT» FOR OUTPUT AS #1 VZ = 0 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25
  138. 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
  139. PRINT «N=" — N, «KT=" — KT, «YGOL=" — YGOL, «SAG=" — SAG, «SN=" — SN NAA = N1. RP = R0 + 2
  140. ITAP = 0 THEN GOTO 27 25 PRINT «RK SAG» INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1
  141. 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
  142. DRZ (I) = .25: RR (I) = RO + DRZ (I) * (I 1): SS (I) = SN — (SN — SO) * DRZ (I) * (I — 1) / (RP — R0)
  143. RR (I) > RP THEN SS (I) = SO
  144. 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
  145. FOR 15 = 1 TO 90 000 F = F + 1 NEXT 15
  146. DSZDR (I) = -(SN SO) / (RK — RO): SINAZ (I) = 1: SEN (I) = 0:
  147. RR (I) > RK GOTO 403 NEXT I 403 RM = 1 000 000
  148. PRINT «R S EN NT NM NO EM1. EO»
  149. PRINT «ZADAI (RP) «INPUT RP DAL = 5
  150. F = 0: L = 0: DL=0: V=0: DV=0: 1=0 35 1 = 1 + 1
  151. I = 1 THEN GOTO 37 GOTO 4 5
  152. EO = LOG (RP / RO) EM = -EO / 2 EN = -EO / 2
  153. 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)
  154. NT = A * (AAE / TIME) Л N COSA = (1 SINA л 2) л .5:1. ROK = RP / COSA
  155. R = RP: DS = 0: S = SP: NM = 0: NO = NT: NN = (NO / ROK) * S PRINT «SP=" — SP, «NN=" — NN
  156. GOTO 60 45 RZ = RR (I): SZ = SS (I)
  157. 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)
  158. XEN = EN / TIME 60 S = S + DS: R = R + DR
  159. DAL > 0 THEN GOTO 404 GOTO 400
  160. 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)
  161. REM DSZDR (I) = DS / DR: SINAZ (I) = COSB
  162. KK = SIN ((I 1) * 3.1416 / SAG)
  163. KK < -.005 OR KK > .005 THEN GOTO 400 505 PRINT USING «###.#### «- R- S- EN- NT- NM- NO- EM- EO
  164. PRINT #1, R, S, EN, SEN (I), NT, N, AAE 400 DV = ABS (2 * 3.1416 * R + S * DR / COSB) V = V + DV
  165. R > RK THEN GOTO 777 GOTO 99 777 IF DAL = 0 THEN GOTO 661
  166. 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
  167. 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):
  168. EN = LOG (S / SZ): EM = -E0 EN
  169. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 = 3 * E0 / SZ
  170. 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)
  171. DR = DRZ (I) * EXP (EM) * COSB / SINAZ (I) DRDR = SINAZ (I) / (EXP (EM) * COSB) DSDR = DSZDR (I) * DRDR
  172. REM PRINT «DRDR=" — DRDR, «DSDR=" — DSDR, «SZ=" — SZ, «I=" — I
  173. 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
  174. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX / (3 * DX) NM + NO — FX * R
  175. NO * (2 * NO NM) / DX + KT * R * (NO / ROK) / SINA
  176. ZN «NM *R/S-CX*R* NO * (2 * NO NM) /DX+4*BX*R*NT*A*N
  177. AAE л N2 * (2 * EN + EO) / (3 * DX * S)
  178. DS = DR * CH / ZN NN = (NO / ROK) * S END SUB- (2 * EN + EO) * DSDR / SZ -EN) л 2)
  179. THE PROGRAM ** OTBOR. BAS ** Поиложение 2a
  180. RO SO RK A N KT YGOL SAG SN Приложение 2a20,1,40,30,.4,.1,45,10,1.2
  181. R0= 20 S0=1 RK=40 A= 30 N=.4 KT=.l YGOL= 45 SAG= 10 SN= 1.2 ** ГГАР= 1 RK= 40 **
  182. R S EN NT NM N0 EM E0 ZADAI (RP)
  183. THE PROGRAM ** OTBOR. BAS ** iw™™»,™ оя
  184. 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 **
  185. THE PROGRAM ** OTBOR. BAS ** тт»»,"&trade-&trade-«&trade- о
  186. 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 **
  187. 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!)
  188. PRINT «THE PROGRAM ** OTBOR1. BAS **»
  189. DIM SS (900), RR (900), DSZDR (900), SINAZ (900), SE0(900), SEN (900), DRZ (900) NS (900), DNSDR (900)
  190. OPEN «INPUT.DAT» FOR OUTPUT AS #1 VZ = 0 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25
  191. 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
  192. PRINT «N=" — N, «KT=" — KT, «YGOL=" — YGOL, «SAG*" — SAG, «SN=" — SN NAA = N
  193. ITAP = 0 THEN GOTO 27 25 PRINT «RK SAG» INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1
  194. 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
  195. DRZ (I) = .25: RR (I) R0 + DRZ (I) * (I — 1): SS (I) = SN — (SN — SO) * DRZ (I) * (I — 1) / (RK — RO)
  196. RR (I) > RK THEN SS (I) = SO
  197. 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
  198. DSZDR (I) = -(SN SO) / (RK — RO): SINAZ (I) = 1: SEN (I) = 0:
  199. RR (I) > RK GOTO 403 NEXT I 403 RM = 10 000 001. PRINT R S EN NT NM NO EM1. EO»
  200. PRINT «ZADAI (RP) «INPUT RP DAL = 5
  201. F = 0: L = 0: DL=0: V = 0: DV = 0: 1=0 35 1 = 1 + 1
  202. I = 1 THEN GOTO 37 GOTO 45
  203. EO = LOG (RP / RO) EM = -EO / 2 EN = -EO / 2
  204. 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)
  205. NT = A * (AAE / TIME) л N COSA = (1 SINA л 2) л .5: ROK = RP / COSA
  206. R = RP: DS *= 0: S = SP: NM = 0: NO = NT: NN = (NO / ROK) * S PRINT «SP=" — SP, «NN=" — NN
  207. PRINT «SP=" — SP, «NN=" — NN
  208. GOTO 60 45 RZ = RR (I): SZ = SS (I)
  209. 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)
  210. XEN = EN / TIME 60 S = S + DS: R = R + DR
  211. DAL > 0 THEN GOTO 4 04 GOTO 400
  212. 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)
  213. REM DSZDR (I) = DS / DR: SINAZ (I) = COSB
  214. KK = SIN ((I 1) * 3.1416 / SAG)
  215. KK < -.005 OR KK > .005 THEN GOTO 4 00 505 PRINT USING «###.#### R- S- EN- NT- NM- iiO- EM- EO
  216. PRINT #1, R, S, EN, SEN (I), NT, N, AAE 400 DV = ABS (2 * 3.1416 * R * S * DR / COSB) V = V + DV
  217. R > RK THEN GOTO 777 GOTO 99 777 IF DAL = 0 THEN GOTO 661
  218. 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
  219. 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):
  220. EN = LOG (S / SZ): EM = -EO EN
  221. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 = 3 * E0 / SZ
  222. 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)
  223. DR = DRZ (I) * EXP (EM) * COSB / SINAZ (I) DRDR = SINAZ (I) / (EXP (EM) * COSB) DSDR = DSZDR (I) * DRDR
  224. REM PRINT «DRDR=" — DRDR, «DSDR=" — DSDR, «SZ=" — SZ, «I=" — I
  225. 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
  226. NM = KX * SQR (NT A 2 * BX A 2 / (BX A 2 + 1 BX))
  227. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX
  228. NO * (2 * NO NM) / DX + KT * R * (NO / ROK) /
  229. ZN = NM * R / S CX * R * NO * (2 * NO — NM)
  230. AAE л N2 * (2 * EN + EO) / (3 * DX * S)
  231. DS = DR * CH / ZN NN = (NO / ROK) * S END SUB (3 * DX) NM + NO — FX * R SINA
  232. DX + 4 * BX * R * NT * A * N
  233. ТНЕ РИШКАМ ** ОТВСЖ. ВАЗ 1 ** Ш) 80 ЮС, А N КТ УООЬ БАС БЫ 7 20,1,40,30, .4, .1,45,10,1.2 110= 20 80=1 ЯК= 40 А- 30
  234. N=.4 КТ=.1 УООЬ= 45 БАО= 10 1.2 ** ГГАР= 1 ШС= 40 **
  235. 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
  236. N=.4 KT=.l YGOL= 30 SAG= 10 SN= 1.2 **ITAP=1 RK= 40 **
  237. R S EN NT NM N0 EM E0 ZADAI (RP)
  238. THE PROGRAM ** OTBOR. BAS 1 nDHJio*eHHe 3B
  239. 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 **
  240. R S EN NT NM N0 EM E0 ZADAI (RP)? 36.9
  241. R S EN NT NM N0 EM E0 ZADAI (RP)
  242. Программа расчета отбортовки с подпором кромки отверстия «ОТВ (Ж2.ВА8» и результаты расчета при, а = 45°, а = 30°, а = 10°.
  243. 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!)
  244. PRINT «THE PROGRAM +* OTBOR2. BAS **»
  245. DIM SS (900), RR (900), DSZDR (900), SINAZ (900), SE0(900), SEN (900), DRZ (900), NS (900), DNSDR (900)
  246. OPEN «INPUT.DAT» FOR OUTPUT AS #1 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25
  247. 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 ^
  248. ITAP = 0 THEN GOTO 27 25 PRINT «RK SAG» INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1
  249. PRINT «** ITAP=" — ITAP- «RK=" — RK- «**»
  250. ITAP > 1 THEN GOTO 403 VZ = 3.1415 * SO * RK A 2 3.1415 * SO * RO * 2 800 FOR I «1 TO 900
  251. DRZ (I) ≤ .25: RR (I) = R0 + DRZ (I) * (I 1): SS (I) = SO REM PRINT «RR (I)" — RR (I)
  252. DSZDR (I) = 0: SINAZ (I) = 1: SEN (I) = 0: NEXT I 403 RM = 10 000 001. PRINT R S EN NT NM N0 EM1. E0»
  253. PRINT «ZADAI (RP) «INPUT RP DAL = 5
  254. F = 0: L = 0: DL=0: V=0: DV=0: 1=0 35 1 = 1 + 1
  255. I = 1 THEN GOTO 37 GOTO 45 37 E0 = LOG (RP / R0)
  256. AI=l/2+3*M/ (2* (4 3 * M «2) ~ .5)
  257. SP = SO * (RO / RP) A AI EN = LOG (SP / SO) EM = -EO EN1. EP = -EM TIME = 1
  258. AAE = (2 A .5 / 3) * ((EO EN) A 2 + (EN — EM) A 2 + (EM — EO) 2) A .51. X = YGOL * 3.1415 / 180
  259. SINA = SIN (X): COSB = SINA
  260. DR = DRZ (I) * EXP (EM) * COSB / SINAZ (I)
  261. NT = A * (AAE / TIME) ~ N ' GM = M * NT PRINT «GM=" — GM
  262. COSA = (1 SINA A 2) ~ .5: ROK = RP / COSA
  263. 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):
  264. 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)
  265. XEN = EN / TIME 60 S=S+DS:R=R+DR
  266. DAL > 0 THEN GOTO 404 GOTO 4 00
  267. 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)
  268. REM DSZDR (I) DS / DR: SINAZ (I) = COSB
  269. 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
  270. PRINT #1, R, S, EN, SEN (I), NT, N, AAE 400 DV = ABS (2 * 3.1416 * R * S * DR / COSB) V = V + DV
  271. R > RK DR THEN GOTO 111 GOTO 99 777 IF DAL = 0 THEN GOTO 661
  272. 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
  273. 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):
  274. EN = LOG (S / SZ): EM -E0 — EN
  275. Z5 = 3 * EN / R: Z6 = 3 * EN / RZ: Z7 = -2 * EN E0: Z8 = 3 * EO / SZ
  276. 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)
  277. DR = DRZ (I) * EXP (EM) * COSB / SINAZ (I) DRDR = SINAZ (I) / (EXP (EM) * COSB) DSDR = DSZDR (I) * DRDR
  278. REM PRINT «DRDR=" — DRDR, «DSDR=" — DSDR, «SZ=" — SZ, «I=" — I
  279. 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
  280. E0 > 0 THEN NX = 1 REM IF E0 < 0 THEN NX = 1
  281. 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))
  282. 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
  283. CH = -4 * BX * R * NT * A * N * AAE л N2 * LX / (3 * DX) NM + NO — FX * R
  284. N0 * (2 * N0 NM) / DX + KT * R * (N0 / ROK) / SINA
  285. ZN = NM * R / S CX * R * N0 * (2 * N0 — NM) / DX + 4 * BX * R * NT * A * N
  286. AAE л N2 * (2 * EN + EO) / (3 * DX * S)
  287. DS = DR * CH / ZN NN = (N0 / ROK) * S END SUB1. ROSORKANKTYGOLSAGM ~ «20,1,40,30,.4,.1,45,10,-.3 Приложение 4a
  288. R0=20 S0= 1 RK= 40 A=30 N= .4 KT=.l YGOL= 45 SAG= 10 M=-.3 ** ITAP= 1 RK= 40 **
  289. 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
  290. N-.4 KT=.l YGOL= 30 SAG= 10 M=-.3 ** ГГАР- 1 RK= 40
  291. R S EN NT NM NO EM EO ZADAI (RP)
  292. ЯО БО ЯК, А N КТ УООЬ БАС М «20,1,40,30,.4, .1,10,10,-3 Приложение 4в
  293. Я0= 20 80= 1 ЯК= 40 А= 30 N=.4 КТ=.1 У (ЮЬ=10 БАО= 10 М=-.3 ** ГГАР= 1 ЯК= 40 **
  294. Я Э EN ИТ NM N0 ЕМ Е0 гАБА1 (ЯР)7
  295. Программа расчета гофрированных заготовок «ОТВСЖЗ.ВА8» и результаты расчета при, а = 45°, а = 30°, а = 10°.npHjioaceHMe 5
  296. 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!)
  297. PRINT «THE PROGRAM ** OTBOR 3. BAS **»
  298. DIM SS (900), RR (900), DSZDR (900), SINAZ{900), SE0(900), SEN (900), DRZ (900), NS (900), DNSDR (900)
  299. OPEN «INPUT.DAT» FOR OUTPUT AS #1 ITAP = 0 18 IF ITAP > 0 THEN GOTO 25
  300. 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
  301. PRINT «RK SAG» INPUT RK, SAG IF SAG = 0 THEN SAG = 20 27 ITAP = ITAP + 1
  302. PRINT «** ITAP=" — ITAP- «RK=" — RK- «**»
  303. ITAP > 1 THEN GOTO 403 VZ1 = 3.1415 * SO * RK A 2 3.1415 * SO * R0 A 2 800 FOR I = 1 TO 80
  304. DRZ (I) = .25: RR (I) = R0 + DRZ (I) * (I 1): SS (I) = SO REM PRINT «RR (I)" — RR (I)1. REM1. DSZDR (I) = 0
  305. X = 2 * 3.14 159 * (RR (I) R0) / (RK — R0) Y = ABS (3 * SO * SIN (X))
  306. DY = Y Z: G = (DY A 2 + DRZ (I) A 2) A .5 SINAZ (I) = ABS (DRZ (I) / G) DVZ = 2 * 3.14 159 * RR (I) * SS (I) * G IF DAL > 0 THEN DVZ = 0 VZ = VZ + DVZ
  307. PRINT I, X- Y- SINAZ (I) — VZ- VZ1403 EO"35 371. SEN (I) = 0 Z = Y NEXT I1. RM = 1 000 000 PRINT «R1. EN
  308. PRINT «ZADAI (RP) «INPUT RP DAL = 5
  309. 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
  310. 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
Заполнить форму текущей работой

Пора сдавать?