Изотермическая вытяжка труднодеформируемых анизотропных материалов тема диссертации и автореферата по ВАК РФ 05.03.05, кандидат технических наук Логвинова, Светлана Владимировна

• Логвинова, Светлана Владимировна
• кандидат технических наук
• 2003

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

ВВЕДЕНИЕ.

1. СОВРЕМЕННОЕ СОСТОЯНИЕ ТЕОРИИ И ТЕХНОЛОГИИ ИЗОТЕРМИЧЕСКОЙ ШТАМПОВКИ ТРУДНОДЕФОРМИРУЕ-МЫХ СПЛАВОВ. II

1.1. Анализ современного состояния теории изотермического формоизменения трудно деформируемых сплавов. II

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

1.3. Глубокая вытяжка цилиндрических изделий.

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

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

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

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

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

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

Работа выполнена в соответствии с проектом РФФИ № 00-01-00565 «Вопросы теории формоизменения мембран из анизотропного материала в условиях ползуче-пластического течения», грантами «Теория пластического формоизменения при повышенных температурах современных конструкционных материалов для получения многослойных листовых конструкций ЛА» и «Научные основы новых технологий изготовления элементов конструкций летательных аппаратов с высокими эксплуатационными характеристиками» в области технологических проблем производства авиакосмической техники.

Цель работы.

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

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

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

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

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

4. Использовать результаты исследований в промышленности и в учебном процессе.

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

Научная новизна:

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

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

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

Методы исследования.

Теоретические исследования процессов изотермического деформирования выполнены на основе теории ползучести анизотропного материала. Анализ напряженного и деформированного состояния заготовки в процессах изотермической вытяжки осуществлен численно методом конечно-разностных соотношений с использованием ЭВМ IBM PC путем решения приближенных уравнений равновесия с уравнением состояния анизотропного материала при ползучести. Предельные возможности формоизменения оценивались по величине максимального растягивающего напряжения на выходе из очага пластической деформации и феноменологическим критериям разрушения (энергетическому или деформационному) анизотропного материала, связанного с накоплением микроповреждений. При проведении экспериментальных исследований использованы современные испытательные машины и регистрирующая аппаратура.

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

Практическая ценность и реализация работы.

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

• Разработаны новые технологические процессы изготовления цилиндрических деталей с высокими эксплуатационными характеристиками. Новые технологические процессы приняты к внедрению в опытном производстве на ОАО «ТНИТИ» со значительным экономическим эффектом, полученным в результате сокращения сроков технологической подготовки производства, обеспечения качества, снижения трудоемкости изготовления и металлоемкости узлов изделий.

• Отдельные материалы научных исследований использованы в учебном процессе.

Апробация работы. Результаты исследований доложены на XXV, XXVI, XXVII, XXVIII и XXIX международных молодежных научных конференциях «Гагаринские чтения» (г. Москва, 1999-2003 г.г.), на международной научно-технической конференции «Ресурсосберегающие технологии, оборудование и автоматизация штамповочного производства» (г. Тула, 1999 г.), на международной научно-технической конференции «Применение теории пластичности в современных технологиях обработки давлением» (Украина, г. Винница, 2003 г.), на Х-ой международной конференции «Взаимодействие дефектов и неупругие явления в твердых телах» (г. Тула, 2001 г.), на международной научно-практической конференции «Технологические системы в машиностроении» (г. Тула, 2002 г.) и на международной научно-технической конференции «Теория и практика производства листового проката» (г. Липецк, 2003 г.), а также на ежегодных научно-технических конференциях профессорско-преподавательского состава Тульского государственного университета (г. Тула, 1998 - 2003 г.г.).

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

Автор выражает глубокую благодарность д.т.н., профессору С.П. Яковлеву и к.т.н., доценту А.В. Черняеву за оказанную помощь при выполнении работы, критические замечания и рекомендации.

Структура и объем диссертации. Диссертационная работа состоит из введения и пяти разделов, заключения, списка использованных источников из 150 наименований, 3 приложений и включает 106 страниц машинописного текста, содержит 50 рисунков и 6 таблиц. Общий объем - 166 страниц.

Заключение диссертации по теме «Технологии и машины обработки давлением», Логвинова, Светлана Владимировна

5.5. Основные результаты и выводы

1. Выполнены экспериментальные работы по исследованиям силовых режимов первой операции изотермической вытяжки цилиндрических деталей из алюминиевого АМгб и титановых ВТ6С и ВТ14 сплавов. Сравнение теоретических расчетов и экспериментальных данных указывает на хорошее их согласование.

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

3. Материалы диссертационной работы использованы в научно-исследовательской работе студентов, при выполнении курсовых и дипломных проектов, а также в ряде лекционных курсах при подготовке бакалавров направления 551800 «Технологические машины и оборудование» и студентов, обучающихся по направлению 651400 «Машиностроительные технологии и оборудование» специальности 120400 «Машины и технология обработки металлов давлением».

ЗАКЛЮЧЕНИЕ

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

В процессе теоретического и экспериментального исследований получены следующие основные результаты и сделаны выводы:

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

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

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

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

5. Установлено, что в зависимости от технологических параметров первой операции вытяжки без утонения изотермической вытяжки возможно перемещение максимума силы с момента совпадения центра закругления пуансона с верхней кромкой рабочего пояска матрицы (наиболее часто встречаемый случай) на начальную стадию процесса. Показано, что относительная величина силы Ртах существенно зависит от скорости перемещения пуансона и коэффициента вытяжки, как на первой, так и второй операции вытяжки. С уменьшением коэффициента вытяжки относительная величина максимальной силы Ртах увеличивается. Величина силы процесса Ртах с ростом скорости перемещения пуансона vq резко возрастает. Интенсивность роста Ртах увеличивается с уменьшением относительного радиуса матрицы и угла конусности матрицы. С ростом коэффициента трения на матрице с ОД до 0,5 величина силы процесса возрастает более чем в 1,75 раза.

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

Величина относительной силы Ртах уменьшается с ростом коэффициента анизотропии R, увеличением угла конусности и радиуса закругления матрицы. Установлено, что увеличение коэффициента анизотропии R от 0,2 до 2 приводит к уменьшению величины Ртах при а = 10° на 33%, при а = 40° - на 25% соответственно, а при Rm~2 - на 45%, при R^=\6 - на 20%.

Показано, что в начальной стадии деформирования величина накопленных повреждений оказывает незначительное влияние на силовые режимы процесса. С ростом времени деформирования t разница по силовым режимам процесса вытяжки, определенного с введением повреждаемости в уравнение состояния и без учета её, существенно увеличивается и может составлять до 30%.

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

Показано, что с увеличением угла конусности матрицы а и уменьшением относительного радиуса закругления матрицы Rм предельный коэффициент вытяжки mdnp уменьшается. Скорость перемещения пуансона v0 оказывает существенное влияние на предельные возможности деформирования. Увеличение скорости v0 от 0,025 до 0,2 мм/с приводит к росту md^ более 45% для исследуемых материалов, подчиняющихся энергетической теории ползучести и повреждаемости. Установлено, что изменение условий трения на контактной поверхности матрицы не оказывает существенного влияния на предельный коэффициент вытяжки.

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

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

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

Установлено, что на последующих операциях изотермической вытяжки коэффициент нормальной анизотропии R и учет накопленных микроповреждений в уравнениях состояния не оказывает существенно влияние на величину предельного коэффициента вытяжки яц • Изменение R от 0,2 до 2 приводит к уменьшению приблизительно на 10%.

7. Выполнены экспериментальные работы по исследованиям силовых режимов первой операции изотермической вытяжки цилиндрических деталей из алюминиевого АМгб и титановых ВТ6С и ВТ 14 сплавов. Сравнение теоретических расчетов и экспериментальных данных указывает на хорошее их согласование.

8. На основе выполненных теоретических и экспериментальных исследований разработаны рекомендации по расчету технологических параметров глубокой вытяжки цилиндрических деталей в режиме ползучести, которые использованы в опытном производстве на ОАО «ТНИТИ» при разработке нового технологического процесса изготовления цилиндрической заготовки для патрубка газовода. Новые технологические процессы использованы в опытном производстве со значительным экономическим эффектом за счет сокращения сроков технологической подготовки производства, обеспечения качества, снижения трудоемкости изготовления и металлоемкости узлов изделий. Отдельные результаты диссертационной работы использованы в учебном процессе.

Список литературы диссертационного исследования кандидат технических наук Логвинова, Светлана Владимировна, 2003 год

1. Аверкиев АЛО. Методы оценки штампуемости листового металла. -М.: Машиностроение, 1985. 176 с.

2. Аверкиев Ю.А., Аверкиев А.Ю. Технология холодной штамповки: Учебн. для вузов. М.: Машиностроение, 1989. - 304 с.

3. Аминов О.В., Лазаренко Э.С., Романов К.И. Двухкулачковый пла-стомер для растяжения образцов материала с постоянной скоростью деформации в условиях сверхпластичности // Заводская лаборатория. 1999. - Т. 65.-№5.-С. 46-52.

4. Аминов О.В., Романов К.И. Ползучесть кольцевой пластинки в условиях больших деформаций // Вестник МГТУ. Машиностроение. 1999-№2.-С. 104-114.

5. Арышенский Ю.М., Гречников Ф.В. Теория и расчеты пластического формоизменения анизотропных материалов. М.: Металлургия, 1990. -304 с.

6. Ашкенази Е.К. Анизотропия машиностроительных материалов. -Л.: Машиностроение, 1969. 112 с.

7. Базык А.С., Тихонов А.С. Применение эффекта сверхпластичности в современной металлообработке. М.: НИИМАШ, 1977. - 64 с.

8. Бастуй В.Н. К условию пластичности анизотропных тел // Прикладная механика / АН УССР. Ин-т механика. Киев: Наукова думка. - 1977. - №1. - С. 104-109.

9. Баудер У. Глубокая вытяжка пустотелых изделий из толстых листов // Проблемы современной металлургии: Сборник сокращенных переводов и обзоров иностранной периодической литературы. М.: Иностранная литература. - 1952. - №2. - С. 93 - 110.

10. Бебрис А.А. Устойчивость заготовки в формообразующих операциях листовой штамповки. Рига: Зинатие, 1978. - 125с.

11. Богатов А.А., Мижирицкий О.И., Смирнов С.В. Ресурс пластичности металлов при обработке давлением. М.: Металлургия, 1984. - 144 с.

12. Валиев С.А. Комбинированная глубокая вытяжка листовых материалов. М.: Машиностроение, 1973. - 176 с.

13. Васин Р.А., Еникеев Ф.У. Введение в механику сверхпластичности: В 2-х ч. Часть I. - Уфа: Гилем, 1998. - 280 с.

14. Владимиров В.И. Физическая природа разрушения металлов. М.: Металлургия, 1984. - 280 с.

15. By Э.М. Феноменологические критерии разрушения анизотропии сред // Механика композиционных материалов / Пер. с англ. М.: Мир, 1978. - С.401-491.

16. Вытяжка с утонением стенки / И.П. Ренне, В.Н. Рогожин, В.П. Кузнецов и др. Тула: ТПИ, 1970. - 141 с.

17. Гельфонд B.JI. Построение математической модели процесса образования разностенности при вытяжке с утонением стенки // Исследования в области пластичности и обработки металлов давлением. Тула ТПИ, 1974. -Вып.35. - С. 60-68.

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

19. Горбунов М.Н. Технология заготовительных штамповочных работ в производстве летательных аппаратов. М.: Машиностроение, 1970. - 351 с.

20. Гречников Ф. В. Деформирование анизотропных материалов М.: Машиностроение, 1998. - 446 с.

21. Грешнов В.М., Лавриненко Ю.А., Напалков А.В. Инженерная физическая модель пластически деформируемых металлов (скалярное соотношение) //Кузнечно-штамповочное производство. 1998. - №5. - С. 3-6.

22. Григорьев А.С. О теории и задачах равновесия оболочек при больших деформациях // Известия АН СССР. Механика твердого тела. 1970. -№1. - С. 163-168.

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

24. Губкин С.И. Пластическая деформация металлов. М.: Металлургия, I960,- Т. 1,- 376 е., Т. 2.-416 е., Т. 3,- 306 с.

25. Гун Г.Я. Математическое моделирование процессов обработки металлов давлением. М.: Металлургия, 1983. - 352 с.

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

27. Джонсон А. Ползучесть металлов при сложном напряженном состоянии // Механика. Сборник переводов. 1962. - № 4. - С. 91-145.

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

29. Дзугутов М.Я. Напряжение и разрывы при обработке металлов давлением. М.: Металлургия, 1974. - 280 с.

30. Дзугутов М.Я. Пластическая деформация высоколегированных сталей и сплавов. М.: Металлургия, 1977. - 480 с.

31. Еникеев Ф.У. Определение параметров сигмоидальной кривой сверхпластичности // Кузнечно-штамповочное производство. Обработка материалов давлением. 2001. - № 4. - С. 18 - 22.

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

33. Жарков В.А. Методика разработки технологических процессов вытяжки с учетом анизотропии листовых материалов // Кузнечно-штамповочное производство. 1994. - №10. - С. 5 - 9.

34. Закономерности ползучести и длительной прочности: Справочник / Под общ. ред. С.А. Шестерикова. М.: Машиностроение, 1983. - 101 с.

35. Зубцов М.Е. Листовая штамповка. Л.: Машиностроение, 1980.432 с.

36. Изотермическая штамповка листовых анизотропных материалов / С.П. Яковлев, Я.А. Соболев, С.С. Яковлев, Д.А. Чупраков // Кузнечно-штамповочное производство. 1999. - № 12. - С. 9 - 13.

37. Изотермическое деформирование металлов / С.З. Фиглин, В.В. Бойцов, Ю.Г. Калпин, Ю.И. Каплин. М.: Машиностроение, 1978. - 239 с.

38. Ильюшин А.А. Пластичность. М.: Изд-во АН СССР, 1963. - 207 с.

39. Качанов Л.М. Основы теории пластичности. М.: Наука, 1969.420с.

40. Качанов Л.М. Теория ползучести. М.: Физматгиз, 1960. - 456 с.

41. Ковка и штамповка. Справочник в 4-х т. // Ред. совет: Е.И. Семенов и др. Т.2. Горячая штамповка // Под ред. Е.И. Семенова, - М.: Машиностроение, 1986. - 592 с.

42. Ковка и штамповка. Справочник в 4-х т. // Ред. совет: Е.И. Семенов и др. Т. 4. Листовая штамповка / Под ред. А.Д. Матвеева. - М.: Машиностроение, 1987. - 544 с.

43. Колесников Н.П. Зависимость штампуемости стали от анизотропии при вытяжке деталей сложной формы // Кузнечно-штамповочное производство. 1962.-№8.- С. 18-19.

44. Колесников Н.П. Расчет напряженно-деформированного состояния при вытяжке с учетом анизотропии // Кузнечно-штамповочное производство. 1963,-№9,-С. 15-19.

45. Колмогоров В.Л. Механика обработки металлов давлением. Екатеринбург: Изд-во УГТУ, 2001. - 836 с.

46. Колмогоров В.Л. Механика обработки металлов давлением. М.: Металлургия, 1986. - 688 с.

47. Колмогоров B.JI. Напряжение, деформация, разрушение. М.: Металлургия, 1970. - 229 с.

48. Колмогоров В.Л., Мигачев Б.А., Бурдуковский В.Г. Феноменологическая модель накопления повреждений и разрушения при различных условиях нагружения. Екатеринбург: УрОРАН, 1994. - 104 с.

49. Кратковременная ползучесть сплава Д16 при больших деформациях / В.Н. Бойков, Э.С. Лазаренко и др. // Известия вузов. Машиностроение. -1971.-№4. -С. 34-37.

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

51. Кудрявцев И.П. Текстуры в металлах и сплавах. М.: Металлургия, 1965. - 292 с.

52. Кузин В.Ф. Влияние анизотропии на разностенность при вытяжке с утонением стенки // Обработка металлов давлением. Тула: ТПИ, 1971. - С. 171 - 176.

53. Лазаренко Э.С., Малинин Н.Н., Романов К.И. Диаграммы растяжения в условиях горячего формоизменения металлов Н Расчет на прочность. -1983.-Вып. 24.-С. 95-101.

54. Лазаренко Э.С., Малинин Н.Н., Романов К.И. Кратковременная ползучесть и разрушение алюминиевых и магниевых сплавов. Сообщение I // Известия вузов. Машиностроение. 1982. - №3. - С. 25-28.

55. Лазаренко Э.С., Малинин Н.Н., Романов К.И. Кратковременная ползучесть и разрушение алюминиевых и магниевых сплавов. Сообщение II // Известия вузов. Машиностроение. 1982. - №7. - С. 19-23.

56. Логвинова С.В., Селедкин С.Е. Анализ первой операции вытяжки анизотропного материала в режиме ползучести // XXVIII Гагаринские чтения. Международная молодежная научная конференция. Тезисы докладов. -М.: МАТИ, 2002. Том 1. - С. 67-68.

57. Логвинова С.В., Яковлев С.П., Черняев А.В. Моделирование последующих операций изотермической вытяжки цилиндрических деталей из анизотропного материала в режиме ползучести // Технология и машины обработки давлением. Челябинск: ЮУГУ. - 2003.

58. Малинин Н.Н. Ползучесть в обработке металлов. М.: Машиностроение, 1986. - 216 с.

59. Малинин Н.Н. Прикладная теория пластичности и ползучести. М.: Машиностроение. - 1975. - 400 с.

60. Малинин Н.Н. Технологические задачи пластичности и ползучести. М.: Высшая школа, 1979 - 119 с.

61. Малов А.Н. Производство патронов стрелкового оружия. М.: Оборонгиз, 1947. - 414 с.

62. Малоотходная, ресурсосберегающая технология штамповки / Под ред. В.А. Андрейченко, Л.Г. Юдина, С.П. Яковлева. Кишинев: Universitas, 1993. -238 с.

63. Механика процессов изотермического формоизменения элементов многослойных листовых конструкций / С.П. Яковлев, С.С. Яковлев, В.Н. Чу-дин, Я.А. Соболев Тула: ТулГУ, 2001. - 254 с.

64. Микляев П.Г., Фридман Я.Б. Анизотропия механических свойств металлов. М.: Металлургия, 1986. - 224 с.

65. Надаи А. Пластичность и разрушение твердых тел. Пер. с англ. -М.: Мир, 1969. 863 с.

66. Недорезов В.Е. Глубокая вытяжка листового металла. М., Д.: Машгиз, 1949. - 104 с.

67. Нечепуренко Ю.Г. Перспективные технологии изготовления цилиндрических изделий. Тула: ТулГУ, 2001. - 263 с.

68. Нечепуренко Ю.Г., Яковлев С.П., Яковлев С.С. Глубокая вытяжка цилиндрических изделий из анизотропного материала. Тула: ТулГУ, 2000. -195 с.

69. Никольский JI.A., Фиглин С.З., Бойцов В.В. Горячая штамповка и прессование титановых сплавов. М.: Машиностроение, 1975. - 285.

70. Овчинников А.Г. Основы теории штамповки выдавливанием на прессах. М.: Машиностроение, 1983. - 200 с.

71. Овчинников А.Г., Жарков В.А. Исследование влияния анизотропии на вытяжку листового металла // Известия вузов. Машиностроение. 1979. -№ 8. - С. 94 - 98.

72. Огородников В.А. Оценка деформируемости металлов при обработке давлением. Киев: Вища школа, 1983:-175 с.

73. Пластичность и разрушение / B.J1. Колмогоров, А.А. Богатов, Б.А. Мигачев и др.; Под ред. B.JI. Колмогорова. М.: Металлургия, 1977. - 336 с.

74. Полухин П.И., Гун Г.Я., Галкин A.M. Сопротивление пластической деформации металлов и сплавов. М.: Металлургия, 1976. - 267 с.

75. Поляков Ю.Л. Листовая штамповка легированных сплавов. М.: Машиностроение, 1980. - 96 с.

76. Попов Е.А. Основы теории листовой штамповки. М.: Машиностроение, 1968. - 283 с.

77. Попов Е.А., Ковалев В.Г., Шубин И.Н. Технология и автоматизация листовой штамповки. М.: Изд-во МГТУ им. Н.Э. Баумана, 2000. -480 с.

78. Предельные возможности формоизменения анизотропного листового материала в режиме кратковременной ползучести / С.П. Яковлев, В.Н. Чудин, С.А. Сумароков, G.C. Яковлев // Кузнечно-штамповочное произвол-, ство. 1995. -№11. - С. 2-5.

79. Применение теории ползучести при обработке металлов давлением. / А.А. Поздеев, В.И. Тарновский, В.И. Еремеев. М.: Металлургия, 1973. -192 с.

80. Прогрессивные технологические процессы холодной штамповки / Ф.В. Гречников, A.M. Дмитриев, В.Д. Кухарь и др. / Под ред. А.Г. Овчинникова. М.: Машиностроение, 1985. - 184 с.

81. Проскурякова Н.Н., Логвинова С.В. Комбинированная вытяжка цилиндрических изделий из анизотропного материала // XXVII Гагаринские чтения. Тезисы докладов Международной молодежной научной конференции. М.: Изд-во «ЛАТМЭС», 2001.- С. 113-114.

82. Пэжина П. Основные вопросы вязко-пластичности. М.: Мир, 1968. - 176 с.

83. Работнов Ю.Н. Механика деформируемого твердого тела. М.: Наука, 1979. - 744 с.

84. Работнов Ю.Н., Милейко С.Т. Кратковременная ползучесть. М.: Наука, 1970. - 224 с.

85. Ренне И.П., Панченко Е.В. Определение параметров уравнения сверхпластического состояния листовых материалов из опыта на двухосное растяжение // Проблемы прочности. 1978. - № 8. - С. 31 -35.

86. Ресурс пластичности при вытяжке с утонением / Л.Е. Басовский, В.П. Кузнецов, И.П. Ренне и др. // Кузнечно-штамповочное производство. -1977.-№8.-С. 27-30.

87. Романов К.И. Механика горячего формоизменения металлов. М.: Машиностроение, 1993. - 240 с.

88. Романовский В.П. Справочник по холодной штамповке. Л.: Машиностроение, 1979. - 520 с.

89. Рузанов Ф.И. Локальная устойчивость процесса деформации орто-тропного листового металла в условиях сложного нагружения // Машиноведение / АН СССР. 1979. - №4. - С. 90 - 95.

90. Рузанов Ф.И. Определение критических деформаций при формообразовании детали из анизотропного листового металла // Машиноведение. -1974.-№ 2.-С. 103 107.

91. Сегал В.М. Технологические задачи теории пластичности. Минск: Наука и техника, 1977. - 256 с.

92. Селедкин Е.М., Гвоздев А.Е. Математическое моделирование процессов формоизменения заготовок. М.: Академия проблем качества; ТулГУ, 1998.: 225 с.

93. Семенов Е.И. Технология и оборудование ковки и горячей штамповка. М.: Машиностроение, 1999. - 384 с.

94. Смирнов B.C. Теория обработки металлов давлением. М.: Металлургия, 1973. - 496 с.

95. Смирнов О.М. Обработка металлов давлением в состоянии сверхпластичности. М.: Машиностроение, 1979. - 118 с.

96. Смирнов-Аляев Г.А. Сопротивление материалов пластическому деформированию. Л.: Машиностроение, 1978. - 368 с.

97. Соколов Л.Д., Скуднов В.А. Закономерности пластичности металлов. М.: ООНТИВИЛС - 1980. - 130 с.

98. Соколовский В.В. Теория пластичности. М.: Высшая школа, 1969. - 608 с.

99. Сопротивление деформации и пластичность стали при высоких температурах / И.Я. Тарновский, А.А. Поздеев, B.C. Баакашвили и другие. -Тбилиси: Сабчота Сакартвело, 1970. 224 с.

100. Соснин О.В. Анизотропная ползучесть упрочняющихся материалов // Инженерный журнал. Механика твердого тела. 1968. - № 4. - С. 143146.

101. Соснин О.В. Об анизотропной ползучести материалов II Журнал прикладной механики и технической физики. 1965. - №6. - С. 99-104.

102. Соснин О.В. Энергетический вариант теории ползучести и длительной прочности. Сообщение 1. Ползучесть и разрушение неупрочняю-щихся материалов // Проблемы прочности. 1973. - № 5. - С. 45-49.

103. Степанский Л.Г. Расчеты процессов обработки металлов давлением. М.: Машиностроение, 1979. - 215 с.

104. Сторожев М.В., Попов Е.А. Теория обработки металлов давлением. М.: Машиностроение, 1977. - 423 с.

105. Теория и технология изотермической штамповки труднодеформи-руемых и малопластичных сплавов / С.П. Яковлев, В.Н. Чудин, С.С. Яковлев, В.А. Андрейченко. Тула: ТулГУ, 2000.- 220 с.

106. Теория обработки металлов давлением / И.Я. Тарновский, А.А. Поздеев, О.А. Ганаго и др. М.: Металлургия, 1963. - 672 с.

107. Теория пластических деформаций металлов / Е.П. Унксов, У. Джонсон, В.Л. Колмогоров и др. / Под ред. Е.П. Унксова, А.Г. Овчинникова. М.: Машиностроение, 1983. - 598 с.

108. Томленов А.Д. Механика процессов обработки металлов давлением. М.: Машгиз, 1963. - 112 с.128114. Томленое А.Д. Теория пластического деформирования металлов. -М.: Металлургия, 1972. 408 с.

109. Томсен Э., Янг Ч., Кобаяши Ш. Механика пластических деформаций при обработке металлов. М.: Машиностроение, 1968. - 504 с.

110. Трунин И.И. Критерий прочности в условиях ползучести при сложном напряженном состоянии // Прикладная механика. Киев: АН УССР. -Т.1. - Вып.7. - 1965. - С. 77-83.

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

112. Ханин А.И. Кратковременная ползучесть сверхпластичных сплавов. Латунь Л63 // Известия вузов. Машиностроение. 1987. - №8. - С. 12-16.

113. Хван Д.В. Технологические испытания металлов. Воронеж: Изд-во Воронежского ун-та, 1992. - 152 с.

114. Хилл Р. Математическая теория пластичности. М.: ГИТТЛ, 1956. - 408 с.

115. Цой Д.Н. Волочение тонкостенной трубы через коническую матрицу // Известия АН СССР. Механика твердого тела. 1987. - № 4. - С. 182 -184.

116. Цой Д.Н. Предельная степень вытяжки анизотропной листовой заготовки // Известия вузов. Машиностроение. 1986. - № 4. - С. 121 - 124.

117. Чудин В.Н. Листовая вытяжка нелинейно-вязкого материала // Известия ВУЗов. Машиностроение. 1986. - №2. - С. 133-137.

118. Чудин В.Н. Прогнозирование разрушения заготовок при горячем деформировании // Известия вузов. Машиностроение. 1990. - №2. - С. 99102.

119. Чудин В.Н., Яковлев С.П. Условия разрушения и удельные усилия при горячем деформировании // Известия вузов. Машиностроение. 1985. -№ 12.-С. 112-115.

120. Шевелев В.В., Яковлев С.П. Анизотропия листовых материалов иее влияние на вытяжку. М.: Машиностроение, 1972. - 136 с.

121. Шляхин А.Н. Оценка надежности технологических переходов глубокой вытяжки осесимметричных цилиндрических деталей без утонения // Вестник машиностроения. 1995. - №4. - С. 33 - 36.

122. Шляхин А.Н. Прогнозирование разрушения материала при вытяжке цилиндрических деталей без утонения // Вестник машиностроения -1995,-№5,- С. 35 37.

123. Шляхин А.Н. Расчет напряжений в опасном сечении при вытяжке без утонения цилиндрических деталей // Кузнечно-штамповочное производство. 1995. -№6. - С. 8- 11.

124. Шофман JI.A. Теория и расчеты процессов холодной штамповки. -М.: Машиностроение, 1964. 365 с.

125. Яковлев С.П., Кухарь В.Д. Штамповка анизотропных заготовок. -М.: Машиностроение, 1986. 136 с.

126. Яковлев С.П., Чудин В.Н. Вытяжка релаксирующего листового анизотропного металла // Машиноведение. 1983. - № 5. - С. 116-118.

127. Яковлев С.П., Чудин В.Н. Устойчивость деформаций при вытяжке с нагревом //Машиноведение. 1982. - № 1. - С. 116-118.

128. Яковлев С.П., Чудин В.Н. Энергетическая оценка усилий вытяжки, обжима и раздачи с нагревом // Известия ВУЗов. Машиностроение. №9. - 1982.-С. 132-135.

129. Яковлев С.П., Чудин В.Н., Купор Н.В. Учет вязких свойств металла при изотермической штамповке. Тула: ТПИ, 1986. - 88 с.

130. Яковлев С.П., Яковлев С.С., Андрейченко В.А. Обработка давлением анизотропных материалов. Кишинев: Квант. - 1997. - 332 с.

131. Яковлев С.С. Деформирование анизотропного листового материала в условиях кратковременной ползучести // Вести АН Белоруссии. Минск, 1994.-№3,-С. 32-39.

132. Яковлев С.С., Логвинова С.В., Черняев А.В. Вытяжка анизотропного материала в радиальную матрицу в режиме ползучести // Механика деформируемого твердого тела и обработка металлов давлением. Тула: ТулГУ, 2002.-Часть 1.-С. 152-161.

133. Baltov A., Savchuk A. A Rule of Anisotropik Harolening // Acta Mechanica. 1965. - Vol.1. - № 2. - P. 81-92.

134. Bartle P.M. Diffusion Bonding: a look at the future // Weld. 11. -1975. - P. 799-804.

135. Bhattacharyya D., Moltchaniwskyi G. Measvrement of Anisotropy by the Ring Compression Test // J.Mech. Work. Technol. 1986. - 13. - №3. - P. 325330.

136. Cornfield G.C., Johnson R.H. The Forming of Superplastic Sheet Metal // Int. J. Mech. Sci. 1970.- vol.12. - P. 479-490.

137. Dunford D.V., Partridge P.G. Superplasticity in Aerospace // Aluminum. Cranfield. 1985. - P.257.

138. Holt D.L. An analysis of the building of a superplastic shirt by lateral131pressure // International Journal of Mechanical Sciences, 1970, Vol. 12. P. 491497.

139. Jovane F. An approximate analysis of the superplastic forming of a thin circular diaphragm: theory and experiments. // International Journal of Mechanical Sciences, 1968, Vol. 10, № 5. P. 403-427.

140. Wu M.C., Yeh W.C. Some Considerations in the Endochronic Description of Anisotropic Hardening // Acta. Mech. 1987. - 69. - №1. - P.59-76.of Anisotropic Hardening // Acta. Mech. - 1987. - 69. - №1. - P.59-76.

141. Zharkov V.A. Theory and Practice of Deep Drawing. London: Mechanical Engineering Publications Limited, 1995. - 601 p.

142. Window(1,1,80,25); FirstStep := True; SeeAllProcess:= False; WatchV0:= False; Assign(fff,'danvyvod.txt1); InitData; Keepm:= m; Pass:= 1;1. Rewrite(fff); Clrscr;1. AllNum:= 0;1. PrintHead;

143. FullCount = False Then Begin

144. Writeln(1 Выберите критерий разрушения: 1 по максимальному осевому напряжению' ) ;

145. Writeln(' 2 по величине накопленных микроповреждений ' ) ;

146. Writeln(' 3 локализация деформации') ;

147. DrPosl: Begin Write('Введите md='); Readln(md); Keepmd:= md; End; DrUt,

148. DrKomb: Begin Write('Введите ms='); Readln(ms); Keepms:= ms; End; End; { Case }1. PrintTabl;1..FirstStep = True Then

149. Begin Time( 0 ); FirstStep:= False; End;alfа := 10; Rm := Round(2*s0);

150. EndRm := Round(10*s0); StrNum := 1; Rez := Absol; LetPass:= True;

151. Num := 0; Lok := False; Flag:= False;4: alfa:=alfa/180*pi; 1: Razr:= False;

152. RazMode:= Keeper; Case Draw Of1. DrBez : Case Swage Of

153. Rad: DrawingBezRad; Kon: DrawingBezKon;1. End;1. DrKomb: Case Swage Of

154. Rad: DrawingKombRad; Kon: DrawingKombKon;1. End;1. DrUt : Case Swage Of

155. Rad: DrawingUtRad; Kon: DrawingUtKon;1. End;1. DrPosl: Case Swage Of

156. Kon: DrawingPoslKon; Rad: DrawingPoslRad;1. End;

157. Root := True; Small md:= False;

158. End; { Case } If Num <> 0 Then PrintRez;1. (Razr = True) Or (Lok = True) Then Begin

159. Window(1,19,80,25); Case RazMode Of Lokaliz: Begin

160. Writeln('Локализация !!! Writeln(' Writeln(' End; Omega: Begin

161. Writeln('Разрушение !!! omegal > omegapr'); Writeln('omegal = omegal:6:3); Writeln('omegapr = ',omegapr:6:3); End; Sigma: Begin1. (St= 'sigmateta') {Or (St='sigmaro')} Then Begin

162. St = 'sigmateta' Then Writeln('Ошибка !!! : Else1. Writeln('Ошибка !!! :1. End Else Begin

163. Writeln('Разрушение !!! Writeln(St,' = sigma Writeln('sigmapr = sigmapr:8:2); End; End;

164. St, ' =',sigmateta: 11:2) St,1 =',sigmaro:11:2);1. St,' > sigmapr'); : 2) ;1. End; { Case }1. GoToXY(44,1) ;

165. Write ('Начальное значение '); Case Draw Of DrUt,

166. DrKomb: Writeln('ms = ',Keepms:5:3); DrBez,

167. DrPosl: Writeln('rod = ',Keepmd:5:3); End; { Case }

168. Writeln(' md =',md:6:3, ' ms =',ms:6:3);ms:= ms + eps; If ms >= 1 Then Flag:= True;

169. Writeln('Новые значения md =',md:6:3,' ms =',ms:6:3); End; End; { Case 11. Time( 1 );

170. GoToXY(44,5); Writeln('Время работы', WorkTime : 11);1. Flag = True Then Begin1. Root:= False; ClrScr;

171. Window(l,13,80,25); PrintRez; Goto 2; End;1. KeyPressed Then Begin

172. Ch:= Readkey; If Ch = #27 Then Begin Writeln;

173. Writeln(' !N Работа прервана !!!');1. Halt;1. End;1. End;

174. Window(1,13,80,25) ; Num:= Num + 1; AllNum:= AllNum + 1; GoTo 1; End1. Else1. Num = 0 Then Beginш1. Case Draw Of1. DrKomb, DrUt: Beginms:= ms 0.1; Keepms:= ms; If ms < 0 Then Begin

175. Root:= False; PrintRez; GoTo 2; End

176. Else If (ms 0.01) <0 Then ms:= 0.01;1. End;1. DrBez,DrPosl: Beginmd: = rad 0.1; If md < 0 Then Begin

177. Root:= False; PrintRez; GoTо 2; End

178. Else If (md 0.01) < 0 Then Begin md:= 0.01;1. Keepmd:= md; End;

179. End; End; { Case } GoTo 1; End;2:alfa:=alfa*180/Pi; If WatchV0 = False Then1. CatchV0; Case Swage Of1. Kon: Beginalfa:= alfa+10; If alfa > 41 Then LetPass:= False;1. End; Rad: Begin

180. Rm := Rm + Round(2*s0); If Rm > EndRm-Eps Then LetPass:= False;1. End;1. End; { Case }1. LetPass = True Then Begin1. Case Draw Of1. DrKomb, DrUt: Begin1. Num > 100 Then Begin

181. Keepms:= Keepms + (Num Div 100)/10 If Keepms > 0.9 Then Keepms:= 0.9; End; ms:= Keepms; End;1. DrBez,DrPosl: Begin1. Unit Work; Interface1. Uses Hot, 10, Volumes;

182. Procedure Zona0a; { Зона плоского напряженного состояния }фланец }

183. Var Sigmatetai, Sigmaroi : Real; tmpl, tmp2, tmp3 : Real;1. Begin1. Zona:= Z0a;

184. SeeAllProcess = True Then Begin1. AllProcessInfo:= Head;

185. PrintAllProcessInfo( AllProcessInfo ); End;i:= 1; { 1-ая точка }1. Keeperi:= i;

186. Omegal:= Data1. .PreOmegal ; f := -1/(1+R); ro := Rk; roi:= ro;s:= {Data1. .Pres}sO*Pow(Rk/RO, -1/(1 + R)) ; s k : = s ;r1:= (dp/2-Rp) + (Rp+s/2)*Cos(Pi/2-Alfa); Vro:= -V0*Pow(rl/ro,1+f);

187. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+1))/(1+R) * V0*Pow(r1/ro,R/(1 + R) )* 1/ro; Res ;

188. Sigmateta := -Sqrt(2* (2+R)/(3*(1+R))) * Sigmal; Sigmatetai:= Sigmateta; Sigmaro := 0; Sigmaroi:= 0;

189. For i:= 1 To nOa+1 Do Beginomegal:= Data1.PreOmegal; If i > 1 Thenro:= TempPlacela(i); Vroi:= Vro;

190. Sigmaro:= sigmaroi-(sigmaroi*(1 + f1)-Sigmatetai)/roi * (ro roi);1. l = 1 Then

191. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal1. Else1. Sigmateta:= ( R*Sigmaro

192. Sqrt( Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ) ) /1+R);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); WriteRo;

193. RazMode In Omega, All . Then If CheckOmega = True Then Exit;

194. SeeAllProcess = True Then Begin1. AllProcessInfo:= Body;

195. PrintAllProcessInfo( AllProcessInfо ); End;1. ReFreshData;

196. Data1.Prero:= ro; roi:= ro;

197. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; fl:= f; Vroi:= Vro; Keeperi:= i; If MaxOmega < Omegal Then MaxOmega:= Omegal;

198. SeeAllProcess = True Then Begin1. AllProcessInfo:= Tail;

199. PrintAHProcessInfo ( AllProcessInfo ); End;1. Skor; Res ;1. End;1. End;1. Var dFi1. Procedure Zona Ob;

200. Зона плоского напряженного состояния } { -тор }dFiType;

201. Tmpa, Kl, K2 Sigmatetal, si Sigmatetai, Sigmaroi CountSigmateta k1. Real; Real; Real; Real;1.teger;x1. Real; Real;1. Begin1.stStep:= False; Zona:= Z0b;

202. SeeAllProcess = True Then Begin1. AllProcessInfo:= Head;

203. PrintAllProcessInfo( AllProcessInfo ); End;1. Rk > Rc Then Begins:= DataKeeperi+1.Pres;

204. Sigmaro:= Sigmaro+Sqrt(2/3*(2+R)/(1+R))*Sigmal*s/(4*Rmc); If nOa = 0 Then Keeperi:= 0; Sigmaroi := Sigmaro; V roi:= Vro;x:= Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ; If CheckRazr = True Then Exit; If x < 0 Then

205. Begin Razr:= True; Exit; End; Sigmateta:= ( R*Sigmaro

206. Sqrt( Sqr(R)*Sqr(Sigmaro) (1+R)* ((1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ) ) / (1+r); f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); Res ;1. Razr = True Then Exit;1. End;1. Rk <= Rc Then Begin

207. Draw = DrBez Then Case Swage Of1. Rad: Gamma:= Pi/2;1. Kon: Gamma:= Pi/2'- Alfa;1. End Else

208. Gamma:= Pi/2 Beta; i:= 1; Keeperi:= 0; { Fi:= 0;}ro:= Rk; roi:= ro; Omegal:= Data1.PreOmegal; f:= -1/(1+R);s:= sO *Pow(Rk/R0,-1/(1 + R)) ;s к : = s ;r1:= (dp/2-Rp) + (Rp+s/2)*Cos(Pi/2-Alfa); Vro:= -V0*Pow(rl/ro,1+f);

209. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+1))/(1+R) * V0*Pow(r1/ro,R/(1+R))*1/ro; Res;

210. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal; Sigmatetai:= Sigmateta; Sigmaro := 0; Sigmaroi:= 0;1. End;

211. Vrom := Vro; Vroim:= Vro; DeltaFi:= 0;1.it dFi Zona 0b( dFi );

212. ViewdFi( dFi ); { Просмотр значений dFi ( dfi.txt ) }1. Fi:= 0;

213. For i:= Keeperi+1 To n0a+n0b+l Do Begin1. CountSigmateta:= 0;

214. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; f1:= f; roi:= ro; Vroi:= Vro; Vroim:= Vrom;

215. Fi:= Fi + dFi1.; DeltaFi:= dFii.; ro:= Rc (Rm+0.5* s)*Sin(Fi + Fi0); k: = 1;1. Tmpa:= (dp/2+Rm+sl)/Rmc;

216. Kl:= (1-fl)*Cos(Fi) / (Tmpa-Sin(Fi)) +mum; K2:= (Cos(Fi)+mum*Sin(Fi)) / (Tmpa-Sin(Fi)); If i > 1 Then

217. Sigmaro:= Sigmaroi + (Sigmaroi*Kl Sigmatetai*K2) * DeltaFi1. Skor;1. Res ;x:= Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) If CheckRazr = True Then1. Exit; If x < 0 Then

218. Begin Razr:= True; Exit; End; If i = 1 Then

219. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal Else1. Sigmateta:= ( R*Sigmaro

220. Sqrt( {Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sigmal)}x ) )1+r)';f: = -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); WriteRo;

221. RazMode In Omega, All . Then If CheckOmega = True Then Exit;

222. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta;

223. P:= 2*Pi*(dp/2+sO)*sO*Sigmaro;

224. SeeAIlProcess = True Then Begin1. AllProcessInfo:= Body;

225. PrintAllProcessInfo( AllProcessInfo ); End;1. ReFreshData;

226. Keeperi:= i; If MaxOmega < Omegal Then MaxOmega:= Omegal;1. End;dFik:= FirstdFi;1. Rk <= Rc Then

227. Gamma:= Gamma dFi1.; LastStep:= True;

228. SeeAllProcess = True Then Begin1. A11 ProcessInfo:= Tail;

229. PrintAllProcessInfo ( AllProcessInfo ); End;1. Cnd;

230. Procedure Zona Ov; { Зона внеконтактной деформации }

231. Var Sigmatetai, Sigmaroi, x : Real; Label 1, No Iter;1. Begin1. Zona:= Z0v;

232. SeeAllProcess = True Then Begin1. AllProcessInfo:= Head;

233. Begin Razr:= True; Exit; End;f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); Res;

234. Sigmatetai:= Sigmateta; Sigmaroi:= Sigmaro; End;1. Rk <= Rc Then Beginro:= Rk; roi:= ro; Omegal:= Data1.PreOmegai; f:= ~\!(1+R);s:= sO *Pow(Rk/RO,-1/(1+R));s k: = s ;r1:= (dp/2-Rp) + (Rp+s/2)*Cos(Pi/2-Alfa); Vro:= -V0*Pow(rl/ro,1 + f) ;

235. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+l)/(1+R)) * V0*Pow(rl/ro,R/(1+R))*l/ro; Res;

236. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal; Sigmatetai:= Sigmateta; If Keeperi = 0 Then

237. Sigmaro := 0; Sigmaroi:= Sigmaro;1. End;roi:= ro; Vrom := Vro; Vroim:= Vro; Vroi := Vro; fi:= f;i := Keeper i+1;

238. For i:= Keeperi+1 To n0a+n0b+n0v+l Do Beginomegal:= Data1.PreOmegal;1. i > 1 Thenro:= TempPlaceOv(i);1. i > 1 Then

239. Sigrnaro:= sigmaroi-(sigmaroi* (1 + f 1) -Sigmatetai) /roi * (ro roi)1. Skor; Res;1. True Then

240. Sqr(R)*Sqr(Sigmaro) (1+R)* ((1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ;1. True; Exit; End;-Sqrt(2*(2+R)/(3*(1+R))) * Sigmal1. R*Sigmaro

241. Sqrt( {Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sigmal)}x )1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); WriteRo;

242. RazMode In Omega, All . Then If CheckOmega = True Then Exit;

243. SeeAllProcess = True Then -Begin1. AllProcessInfo:= Body;

244. PrintAllProcessInfo( AllProcessInfо ); End;1. ReFreshData;

245. Data i. .Prero:= ro; roi:= ro;

246. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; fl:= f;

247. Vroi := Vro; Vroim:= Vrom; Keeperi:= i; If MaxOmega < Omegal Then MaxOmega:= Omegal;1. End;1. CheckRazr = Exit;x : =1. x < 0 Then

248. Begin Razr:= If i = 1 Then1. Sigmateta := Else1. Sigmateta:=

249. SeeAllProcess = True Then Begin1. AllProcessInfo:= Tail;

250. PrintAllProcessInfo( AllProcessInfo ); End;1. End;-------------------------------------------------------------------------}

251. Sigmaro:= sigmaroi-(sigmaroi*(1+fl)-Sigmatetai)/roi * (ro roi);1. Skor; Res;

252. CheckRazr = True Then Exit;1. Sigmateta:= ( R*Sigmaro

253. Sqrt( Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ) ) /1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); s:= Data1.Pres*Pow(ro/roi, f);

254. SeeAllProcess = True Then Begin1. AllProcessInfo:= Body;

255. PrintAllProcessInfo( AllProcessInfo ); End;

256. MaxOmega < Omegal Then MaxOmega:= Omegal;1. End;1. End;1. Procedure Zonala;1. Var k

257. Sigmatetal, si Sigmatetai, Sigmaroi sd,P1,Q Delta ro

258. Зона плоского напряженного состояния } { фланец }1.teger; Real; Real; : Real;1. Real; { Временно I1.bel 1, No Iter;1. Begin1..nla <= 1 Then Begin1. nla = 1 Then V8:= 0 {Rk:= Rc;}1. Else Exit;1. End;1. Zona:= Zla;

259. SeeAllProcess = True Then Begin1. AllProcessInfо:= Head;

260. PrintAllProcessInfo( AllProcessInfo ); End;i:= 1; { 1-ая точка }1. Keeperi:= 1;

261. Omega1:= Data1.PreOmegal; f : = -1/(1 + R); ro:= Rk; roi:= ro;

262. Vro:= -V0*Pow (rr/ro, 1 + f) ;

263. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+l))/(1+R) * V0*Pow(rr/ro,R/(1+R))*l/ro; s:= sO *Pow(Rk/R0,-1/(1+R)) ;s k : = s ;1. Res;1. Prigim = True Then Begin

264. Pl:= Pi*dl*sO * (1-md)/md * Sigmab; sd:= sO/dO;

265. Q := 0.1 * ( l-18*sd/(1-md) ) * Pl/Sqr(md);1. Q < 0 Then Q:= 0;

266. Sigmaro:= mum*Q/(Pi*Rk*sO); Sigmaroi:= Sigmaro; End Else1. Begin

267. Sigmaro := 0; Sigmaroi:= 0; End;

268. Sigmateta:= -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal;

269. For i:= 1 To nla+1 Do Beginomegal:= Data1.PreOmegal; k: = 1;

270. Sigmaroi:= Sigmaro; Sigmatetai:= Sigmateta; ro:= TempPlacela(i); If Razr = True Then1. Exit ; V roi : = V ro;i: If i > 1 Then1. Begin

271. Sigmaro:= sigmaroi-(sigmaroi*(1+f1)-Sigmatetai)/roi *

272. TempPlacela(i)-TempPlacela(i-1)); Deltaro:=(TempPlacela(i)-TempPlacela(i-1)); End;1. Skor ; Res ;1. Sigmateta:= ( R*Sigmaro

273. Sqrt( Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ) ) /1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); WriteRo;

274. RazMode In Omega, All . Then If CheckOmega = True Then Exit;

275. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta;

276. Iteration = False Then GoTo NoIter;1. к = 1 Then Beginк:= k+1;

277. Sigmatetal:= Sigmateta; GoTo 1; End;

278. Abs( Sigmatetal Sigmateta ) <= Eps Then Begin

279. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; s i : = s + ds; End Else

280. Begin к: = 1; GoTo 1; End;1. NoIter:

281. SeeAllProcess = True Then Begin1. AllProcessInfo:= Body;

282. PrintAllProcessInfo( AllProcessInfo ); End;1. ReFreshData; Keeperi:= i;f1:= f; roi:= ro; Vroi:= Vro; If MaxOmega < Omegal Then MaxOmega:= Omegal;1. End;

283. SeeAl1 Process = True Then1. Begin1. AllProcessInfo:= Tail;

284. PrintAllProcessInfo( AllProcessInfo ); End;nla:= nla-1; End;-------------------------------------------------------------------------}

285. Procedure Zona lb; { Зона плоского напряженного состояния }тор }1. Var dFi : dFiType;1. Tmpa, Kl, K2 : Real;1. Sigmatetal, si : Real;

286. Sigmatetai, Sigmaroi : Real; CountSigmateta : Real;1. EndPoint,к : Integer;x : Real;sx : Real;1.bel 1,2,NoIter; Begin1. nib <= 0 Then

287. Exit; LastStep:= False; Zona:= Zlb;

288. SeeAllProcess = True Then Begin

289. AllProcesslnfo:= Head; PrintAllProcessInfо( AllProcessInfo End;1. nib > NParts Thennib : = NParts; If Rk > Rc Then Begins:= DataKeeperi+1.Pres;

290. Sigmaro:= Sigmaro+Sqrt(2/3*(2+R)/(1+R))*Sigmal*s/(4*Rmc); Sigmaroi := Sigmaro; If Draw = DrBez Then Case Swage Of1. Rad: Gamma:= Pi/2;1. Kon: Gamma:= Pi/2 Alfa;1. End Else

291. Gamma:= Pi/2 Beta; Fi: = 0; Vroi:= Vro;1. Sigmateta.•= ( R*Sigmaro

292. Sqrt( Sqr(R)*Sqr(Sigmaro) (1+R)* ((1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ) ) / (1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); Res; End;1. Rk <= Rc Then Begin

293. Rk = Rc Then Case Swage Of1. Rad: Gamma:= Pi/2;1. Kon: Gamma:= Pi/2 Alfa;

294. End; Keeperi:= 0; Fi:= 0; ro:= Rk; roi:= ro; Omegal:= Data 1. .PreOmegal; f:= -1/(1+R);s:= sO *Pow(Rk/R0,-1/(1+R));s к: = s ;rl:= (dp/2-Rp) + (Rp+s/2)*Cos(Pi/2-Alfa); Vro:= -V0 * Pow(rl/ro,1 + f);

295. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+1))/(1+R) * V0*Pow(r1/ro,R/(1 + R))* 1/ro; Res ;

296. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R)) ) * Sigmal; Sigmatetai:= Sigmateta; Sigmaro := 0;1. Sigmaroi:= 0;1. Keeperi:= 0;sx: = (Rc-Rk) / (Rm+ 0.5 * s); Fi:= ArcTan (sx/sqrt (1-sqr (sx))); End;

297. Vrom := Vro; Vroim: = Vro; DeltaFi:= 0; ro:= Rc-Rmc*Sin(fi ) ;1. Razr = True Then Exit;

298. Draw = DrPosl Then InitdFiPosl{ dFi ) Else1.itdFi( dFi ) ;

299. ViewdFi( dFi ); { Просмотр значений dFi ( dfi.txt ) }1. Case Swage Of

300. Rad : EndPoint:= NPoints; Kon : EndPoint:= NPoints-nlv;1. End;

301. For i:= Keeperi+1 To EndPoint Do Begin1. CountSigmateta:= 0;

302. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; fl:= f; roi:= ro; Vroi:= Vro; Vroim:= Vrom;

303. Fi : = Fi + dFi 1. ; DeltaFi:= dFii.; ro:= Rc (Rm+0.5*s)*Sin(Fi) ; к: = 1;1. Tmpa:= (dp/2+Rm+sl)/Rmc;

304. Kl:= (1-fl)*Cos(Fi) / (Tmpa-Sin(Fi)) + mum; K2:= (Cos(Fi)+mum*Sin(Fi)) /'(Tmpa-Sin(Fi)); If i > 1 Then1: Sigmaro:= Sigmaroi + (Sigmaroi*Kl Sigmatetai*K2) * DeltaFi;

305. CheckRazr = True Then Exit ;x:= Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ;1. x < 0 Then

306. Begin Razr:= True; Exit; End; If i = 1 Then

307. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal Else1. Sigmateta:= ( R*Sigmaro

308. Sqrt( {Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal))}x ) ) /1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro);1. WriteRo;1. Skor;1. Res;

309. RazMode In Omega, All . Then If CheckOmega = True Then Exit;

310. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta;

311. Iteration = False Then GoTo NoIter;1. к = 1 Then Beginк:= k+1;

312. Sigmatetal:= Sigmateta; GoTo 1; End;

313. Abs( Sigmatetal Sigmateta ) <= Eps Then Begin2: Sigmaroi := Sigmaro;

314. Sigmatetai:= Sigmateta; s i : = s + ds ; End Else1. Begin

315. CountSigmateta:= CountSigmateta+1; If CountSigmateta >= 100 Then

316. GoTo 2; k:= 1; GoTo 1; End;1. NoIter:

317. P:= 2*Pi*(dp/2+sO)*sO*Sigmaro;

318. SeeAllProcess = True Then Begin1. AllProcessInfo:= Body;

319. PrintAllProcessInfo( AllProcessInfo ); End;1. MaxOmega < Omegal Then

320. MaxOmega:= Omegal; If i < NPoints Then1. ReFreshData; Keeperi:= i;1. End;dFik:= FirstdFi;1. (NParts = 19) And (Swage = Rad) Then If RazMode = Lokaliz Then If CheckLok = True Then Exit;1. NParts > 1 Then Begin

321. Sigmaro -. = Sigmaro+Sqrt (2/3* (2+R) / (1+R) ) *Sigmal*s/( 4*Rmc) ; { поворот } x:= Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ;1. x < 0 Then

322. Begin Razr:= True; Exit; End; Sigmateta:= ( R*Sigmaro

323. Sqrt( Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ) ) / (1+r);1. End;1. P:=2*Pi*rr*s*sigmaro;1. Rk <= Rc Then

324. Gamma:= Gamma dFi1.; LastStep:= True;

325. SeeAllProcess = True Then Begin

326. AllProcessInfо:= Tail; PrintAllProcessInfo( AllProcessInfо ); End; sb:= s;1. (nla = 0) And (NParts = nlb+nlv) Then nib:= nib 1;1. End;-------------------------------------------------------------------------}

327. Procedure Zonalv; { Конический участок }

328. Var Sigmatetai, Sigmaroi, x : Real; Label 1, NoIter;1. Begin1. Zona:= Zlv;

329. SeeAllProcess = True Then Begin1. AllProcessInfo:= Head;

330. PrintAllProcessInfo( AllProcessInfo );• End;1. Rk > Rc Then Begins:= DataKeeperi+1.Pres; Vroi:= Vro;x:= Sqr(R)*Sqr(Sigmaro) (1+R)*(1+R) *Sqr (Sigmaro) -2/3* (2+R) *Sqr (Sigmal) ). ; If CheckRazr = True Then Exit; If x < 0 Then

331. Begin Razr:= True; Exit; End;f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); Res;

332. Sigmatetai:= Sigmateta; Sigmaroi:= Sigmaro; End;1. Rk <= Rc Then Beginro:= Rk; roi:= ro; Omegal:= Data1.PreOmegal; f:= -1/(1+R);s:= s 0 *Pow(Rk/R0,-1/(1+R));s k: = s ;r1:= (dp/2-Rp) + (Rp+s/2)*Cos(Pi/2-Alfa); Vro:= -V0*Pow(rl/ro,1+f);

333. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+1)/(1+R)) * V0*Pow(rl/ro,R/(1+R))*1/ro; Res;

334. Sigmateta := -Sqrt(2*(2 + R)/(3*(1 + R))) * Sigmal; Sigmatetai:= Sigmateta;

335. Sigmaro := 0; Sigmaroi:= 0; If NParts = nlv Then Keeperi:= 0;1. End;roi:= ro;1. Vroi := Vro;1. Vrom := Vro;1. Vroim:= Vro; f1: = f;

336. For i:= Keeperi+1 To NPoints Do Beginomegai:= Data1.PreOmegal;1. i > 1 Thenro:= TempPlace0v(i);1. i > 1 Then

337. Sigmaro:= sigmaroi-(sigmaroi*(1+fl)-Sigmatetai)/roi * (ro roi)1. Skor; Res;

338. CheckRazr = True Then Exit;x:= Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ;1. x < 0 Then

339. Begin Razr:= True; Exit; End; If i = 1 Then

340. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R)>) * Sigmal Else1. Sigmateta:= ( R*Sigmaro

341. Sqrt( {Sqr(R)*Sqr(Sigmaro) (1+R)*(1+R) *Sqr(Sigmaro)-2/3*(2+R)*Sigmal)}x )1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); WriteRo;

342. RazMode In Omega, All .'Then If CheckOmega = True Then Exit;

343. SeeAllProcess = True Then Begin1. AIlProcessInfo:= Body;

344. PrintAllProcessInfo( AllProcessInfo ); End;1. i < NPoints Then ReFreshData;roi:= ro;

345. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; f 1 : = f; Vroi:= Vro; Vro i m:= Vrom; Keeperi:= i; If MaxOmega < Omegal Then MaxOmega:= Omegal;1. End;1. Р:=2*Pi*rr*s*sigmaro;1. NParts = 19 Then

346. RazMode = Lokaliz Then If CheckLok = True Then Exit;

347. SeeAllProcess = True Then Begin1. AllProcessInfo:= Tail;

348. PrintAllProcessInfo( AllProcessInfо ); End; sb:= s;1. (nib = 0) And (NParts = nlv) Then nlv:= nlv 1;1. End;--------------------

349. Procedure ZeroiseVar; Begin

350. SigmaTeta:= 0; Sigmaro := 0

351. Sigmal Vro Ks ie Ksir Ks it Ksiz Omegal End;0 0 0 0 0 0 0;------------------------1. Procedure ZonalaPosl;1. Begin1. nla <= 1 Then Begin1. nla = 1 Then Else End;

352. Зона плоского напряженного состояния } { цилиндрическая часть заготовки }1. V8: = 0 Exit ;1. Rk:= Rc;1. Zona:= Zla;

353. SeeAllProcess = True Then Begin1. AllProcessInfо:= Head;

354. PrintAllProcessInfo( AllProcessInfо ); End;i:= 1; { 1-ая точка }1. Keeperi:= i;1. ZeroiseVar;

355. For i:= 1 To nla+1 Do Begins:= sO;ro:= Data1.Pre ro;

356. SeeAllProcess = True Then Begin1. AllProcessInfо:= Body;

357. PrintAllProcessInfo( AllProcessInfо ); End;1. ReFreshData; Keeperi:= i;1. End;

358. MaxOmega < Omegal Then MaxOmega:= Omegal;

359. SeeAllProcess = True Then Begin1. AllProcessInfo:= Tail;

360. PrintAllProcessInfo( AllProcessInfo ); End;

361. FirstStep = False Then n 1 a : = n 1 a -1 ;1. End;-----------------------1. Procedure ZonalbPosl;1. Var dFi

362. Tmpa, Kl, K2 Sigmatetal, si Sigmatetai, Sigmaroi CountSigmateta EndPoint,к xsx1.bel l,2,NoIter; Begin1. nib <= 0 Then Exit;

363. Зона плоского напряженного состояния } { тор }dFiType; Real; Real Real Real; Integer; Real; Real;1.stStep:= False; Zona:= Zlb;

364. SeeAllProcess = True Then Begin1. AllProcessInfo:= Head;

365. PrintAllProcessInfo( AllProcessInfo ); End;1. nib > NParts Then nlb:= NParts;

366. Gamma:= Pi/2 Alfa; Fi : = 0 ; ro:= Rk; roi:= ro;

367. Omegal:= Data1.PreOmegal; f:= -1/(1+R);s:= sO*Pow(Rk/RO,-1/(1+R)); s к: = s ;r1:= dp/2 + s/2;1. Vro:= -V0*Pow(r1/ro,1+f);

368. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+1))/(1+R) * V0*Pow(rl/ro, R/(1+R))*l/ro; Res;

369. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal; Sigmatetai:= Sigmateta; Sigmaro:= 0;

370. Sigmaro:= Sigmaro+Sqrt(2/3*(2+R)/(1+R))*Sigmal*s/(4*Rmc);

371. Sigmaroi:= Sigmaro; DeltaFi:= 0; InitdFiPosl( dFi );

372. ViewdFi( dFi ); { Просмотр значений dFi ( dfi.txt ) }1. EndPoint:= NPoints-nlv;

373. For i:= Keeperi +1 To EndPoint Do Beginomegal:= Data1.PreOmegal;1. (nib = Startnlb) And (nla=0) And (i=l) Then1. FirstPoint:= True Else

374. FirstPoint:= False; CountSigmateta:= 0;

375. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; f1: = f; roi:= ro;

376. FirstStep = True Then Data1.Prero:= roi; Vroi:= Vro;

377. Fi : = Fi + dFi1.; DeltaFi:= dFii.; ro : = rO (Rro-Rro*Cos(Fi)); k: = 1; If i > 1 Then1:

378. Sigmaro:= sigmaroi-(sigmaroi*(1+fl)-Sigmatetai)/roi * (ro roi);

379. CheckRazr = True Then Exit;x: = Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ;1. x < 0 Then

380. Begin Razr:= True; Exit; End; If i = 1 Then

381. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal Else1. Sigmateta:= ( R*Sigmaro

382. Sqrt( (Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal))}x ) ) /1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); Write Ro; Skor ; Res;

383. RazMode In Omega, All . Then If CheckOmega = True Then Exit;

384. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta;

385. P:= 2*Pi*(dp/2+sO)*sO*Sigmaro;

386. SeeAllProcess = True Then Begin1. AllProcessInfо:= Body;

387. PrintAllProcessInfo( AllProcessInfо ); End;1. MaxOmega < Omegal Then

388. MaxOmega:= Omegal; If i < NPoints Then1. ReFreshData; Keeperi:= i;1. End;1. !NParts = 19) And (Swage = Rad) Then If RazMode = Lokaliz Then If CheckLok = True Then Exit;1. NParts > 1 Then Begin

389. Sigmaro:= Sigmaro+Sqrt(2/3*(2+R)/(1+R))*Sigmal*s/(4*Rmc) ; { поворот } x:= Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ;1. x < 0 Then

390. Begin Razr:= True; Exit; End; Sigmateta:= ( R*Sigmaro~

391. Sqrt( Sqr(R)*Sqr(Sigmaro) (1+R)* ((1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ) ) / (1+r);1. End;1. P:=2*Pi*rr*s*sigmaro;

392. SeeAllProcess = True Then Begin1. AllProcessInfо:= Tail;

393. PrintAllProcessInfo( AllProcessInfo ); End; sb:= s;1. (nla = 0) And (nParts = nlb+nlv) Then nib:= nib 1;1. End;

394. Procedure ZonalvPosl; { Конический участок }

395. Var Sigmatetai, Sigmaroi, x, dro : Real; Label 1, NoIter;1. Begin1. Zona:= Zlv;

396. SeeAllProcess = True Then Begin1. AllProcessInfо:= Head;

397. PrintAllProcessInfo( AllProcessInfo ); End;1. NParts > nlv Then Begins:= DataKeeperi+1.Pres; Vroi:= Vro;x:= Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ; If CheckRazr = True Then Exit; If x < 0 Then

398. Begin Razr:= True; Exit; End;f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro); Res;

399. Sigmatetai:= Sigmateta; Sigmaroi:= Sigmaro; End1. Else Beginro:= Rk; roi:= ro; Keeperi:= 0; i:= 1;

400. Omegal:= Data1.PreOmegal; f:= -1/(1+R);s:= sO *Pow(Rk/R0,-1/(1+R));s к : = s ;r1:= (dp/2-Rp) + (Rp+s/2)*Cos(Pi/2-Alfa) ; Vro:= -V0*Pow(rl/ro, 1 + f) ;

401. Ksie:= Sqrt(2/3*(2+R)*(Sqr(R)+l)/(1+R)) * V0*Pow(rl/ro, R/(1+R))*l/ro; Res;

402. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal; Sigmatetai:= Sigmateta; Sigmaro := 0; Sigmaroi:= 0; If NParts = nlv Then Keeperi:= 0;1. End;roi:= ro; Vroi:= Vro; f 1: = f;si:= s; { толщина на входе }

403. For i:= Keeperi+1 To NPoints Do Beginomegal:= Data1.PreOmegal; If i > 1 Then ro:= TempPlacelv(i); ' dro:= ro roi;

404. FirstStep = True Then Data1.Prero:= roi;1. i > 1 Then

405. Sigmaro:= sigmaroi-(sigmaroi*(1+f1)-Sigmatetai)/roi * dro;1. Skor ; Res ;

406. CheckRazr = True Then Exit ;x : = Sqr(R)*Sqr(Sigmaro) (1+R)'1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sqr(Sigmal)) ;1. x < 0 Then

407. Begin Razr:= True; Exit; End; If i = 1 Then

408. Sigmateta := -Sqrt(2*(2+R)/(3*(1+R))) * Sigmal Else1. Sigmateta:= ( R*Sigmaro

409. Sqrt( {Sqr(R)*Sqr(Sigmaro) (1+R)*1+R)*Sqr(Sigmaro)-2/3*(2+R)*Sigmal)}x ) ) /1+r);f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1+R)-R*Sigmaro);1. WriteRo;

410. RazJMode In Omega, All . Then If CheckOmega = True Then Exit;

411. SeeAllProcess = True Then Begin1. AllProcessInfo:= Body;

412. PrintAllProcessInfo! AllProcessInfo ); End;1. i < NPoints Then ReFreshData;roi:= ro;

413. Sigmaroi := Sigmaro; Sigmatetai:= Sigmateta; f 1: = f; V roi:= Vro; Keeperi:= i; If MaxOmega < Omegal Then MaxOmega:= Omegal;1. End;1. P:=2*Pi*rr*s*sigmaro;1. NParts = 19 Then

414. RazMode = Lokaliz Then If CheckLok = True Then Exit;

415. SeeAllProcess = True Then Begin1. AllProcessInfo:= Tail;

416. PrintAllProcessInfо( AllProcessInfo ); End;sb:= s;1. (nib = 0) And (NParts = nlv) Thennlv:= nlv 1; If FirstStep = True Then

417. FirstStep:= False; Keeperi:= 0; i:= 1;so:= s; { толщина на выходе } End;i}

418. Procedure DrawingBezRad; Var KeepNPoints: Integer; Beginr r:= r0 *md; Gamma:= Pi/2; Beta := 0; MaxOmega:= 0; KeepNPoints:=0; PrepareVar; VolumesRad;

419. SeeAllProcess = True Then Begin1. CalcForce;

420. PrintStrengthFile( KeepNPoints ); End; Keeperi:= 0; End;

421. KeepNPoints:= NPoints; sb:= sO;

422. NPoints:= NPoints 1; NParts := NParts - 1; If nla > 1 Thennla:= nla 1 Else 'nib:= nib 1;

423. While NPoints >= 1 Do Begin

424. NewVolumesRad; InitDeltat;1. Zonala;1. CheckRazr;1. Razr = True Then Exit;1. Zonalb;1. Razr = True Then Exit ;

425. CheckRazr; If Razr = True Then Exit ;1. SeeAllProcess = True Then

426. GetStrength( KeepNPoints-NPoints );

427. NPoints:= NPoints -I; N Parts := N Parts 1;

428. ControlConsist = True Then

429. Exit; ( для программы Otnos }1. SeeAllProcess = True Then

430. CalcForce; { Расчет усилий }1. End;1. SeeAllProcess = True Then

431. PrintStrengthFile( KeepNPoints );1. End;-------------------------------------------------------------------------}

432. Procedure DrawingBezKon; Var KeepNPoints: Integer; Beginr r: = r 0 * md; Gamma:= Alfa; Beta := 0; MaxOmega:= 0; KeepNPoints:=0; PrepareVar; Case Optim Of

433. True : VolumesKonOpt; False: VolumesKon;1. End;

434. Smallmd = True Then Exit; GetFirstPlacesRad;hp:= 0; t := 0; s:= sO;

435. SeeAllProcess = True Then Begin1. CalcForce;

436. PrintStrengthFile( KeepNPoints End; Keeperi:= 0; End;

437. KeepNPoints:= HPoints; sb:= sO;

438. NPoints:= NPoints 1; NParts := NParts - 1; If.nla > 1 Thennla:= nla 1 Else1. Begin1. nib > 1 Thennib:= nib 1 Elsen1v:= nlv 1;1. End;

439. While NPoints >= 1 Do Begin

440. NewVolumesKon; InitDeltat;1. Zonala;1. CheckRazr;1. Razr = True Then Exit;1. Zonalb;1. Razr = True Then Exit;1. Zonalv;1. Razr = True Then Exit;

441. CheckRazr; If Razr = True Then Exit;1. SeeAllProcess = True Then

442. GetStrength( KeepNPoints-NPoints );

443. NPoints:= NPoints 1; NParts := NParts - 1;

444. ControlConsist = True Then

445. Exit; l Для программы Otnos }1. SeeAllProcess = True Then

446. CalcForce; ' { Расчет усилий }1. End;t := t + Deltat; hp:= hp+ dhp;1. SeeAllProcess = True Then

447. PrintStrengthFile( KeepNPoints );

448. Полное прилегание } ZonalaPosl; ZonalbPosl; ZonalvPosl; If Razr = True Then Exit;

449. NPoints:= NPoints 1; NParts :'= NParts - I; If nla > 1 Thennla:= nla 1 Else1. Begin1. nib > 1 Thennib:= nib 1 Elsenlv:= nlv 1;1. End;

450. While NPoints >= 1 Do Begin

451. NewVolumesKonPosl; InitDeltat; ZonalaPosl; ■•ZonalbPosl; If Razr = True Then Exit;1. ZonalvPosl;1. Razr = True Then Exit;

452. CheckRazr; If Razr = True Then Exit;1. SeeAllProcess = True Then

453. GetStrength( KeepNPoints-NPoints );

454. NPoints:= NPoints 1; NParts := NParts - 1;

455. ControlConsist = True Then Exit;

456. SeeAllProcess = True Then CaicForce;1. End;1. SeeAllProcess = True Then

457. PrintStrengthFile( KeepNPoints );1. End;1. End.для программы Otnos } { Расчет усилий }