Изотермическая комбинированная вытяжка высокопрочных анизотропных материалов в режиме ползучести
Диссертация
Показано, что предельные возможности формоизменения при комбинированной вытяжке цилиндрических деталей в конических матрицах ограничиваются как первым, так и вторым критериями деформируемости. Это зависит от анизотропии механических свойств материала заготовки, технологических параметров, геометрии матрицы и условий трения на контактных поверхностях инструмента. Установлено, что предельные… Читать ещё >
Содержание
- ВВЕДЕНИЕ. 1. СОВРЕМЕННОЕ СОСТОЯНИЕ ТЕОРИИ И ТЕХНОЛОГИИ ИЗОТЕРМИЧЕСКОЙ ШТАМПОВКИ ВЫСОКОПРОЧНЫХ СПЛАВОВ
- 1. 1. Современное состояние теории изотермического формоизменения высокопрочных сплавов
- 1. 2. Вытяжка цилиндрических деталей
- 1. 3. Анизотропия механических свойств листовых материалов и её влияние на процессы формообразования при различных температур-но-скоростных режимах деформирования
Список литературы
- Аверкиев А.Ю. Методы оценки штампуемости листового металла. -М.: Машиностроение, 1985. 176 с.
- Аверкиев Ю.А., Аверкиев А. Ю. Технология холодной штамповки: Учебн. для вузов. М.: Машиностроение, 1989. — 304 с.
- Аминов О.В., Лазаренко Э. С., Романов К. И. Двухкулачковый пла-стомер для растяжения образцов материала с постоянной скоростью деформации в условиях сверхпластичности // Заводская лаборатория. 1999. — Т. 65. — № 5. — С. 46−52.
- Аминов О.В., Романов К. И. Ползучесть кольцевой пластинки в условиях больших деформаций // Вестник МГТУ. Машиностроение. 1999-№ 2.-С. 104−114.
- Арышенский Ю.М., Гречников Ф. В. Теория и расчеты пластического формоизменения анизотропных материалов. М.: Металлургия, 1990. -304 с.
- Ашкенази Е.К. Анизотропия машиностроительных материалов. -Л.: Машиностроение, 1969. 112 с.
- Базык А.С., Тихонов А. С. Применение эффекта сверхпластичности в современной металлообработке. М.: НИИМАШ, 1977. — 64 с.
- Бастуй В.Н. К условию пластичности анизотропных тел // Прикладная механика / АН УССР. Ин-т механика. Киев: Наукова думка. — 1977. — № 1. — С. 104−109.
- Бебрис А.А. Устойчивость заготовки в формообразующих операциях листовой штамповки. Рига: Зинатие, 1978. — 125с.
- Богатов А.А. Механические свойства и модели разрушения металлов: Учебное пособие для вузов. Екатеренбург: ГОУ ВПО УГТУ-УПИ, 2002.-329 с.
- Богатов А.А., Мижирицкий О. И., Смирнов С. В. Ресурс пластичности металлов при обработке давлением. М.: Металлургия, 1984. — 144 с.
- Валиев С.А. Комбинированная глубокая вытяжка листовых материалов. М.: Машиностроение, 1973. — 176 с.
- Васин Р.А., Еникеев Ф. У. Введение в механику сверхпластичности: В 2-х ч. Часть I. — Уфа: Гилем, 1998. — 280 с.
- Владимиров В.И. Физическая природа разрушения металлов. М.: Металлургия, 1984. — 280 с.
- By Э. М. Феноменологические критерии разрушения анизотропии сред // Механика композиционных материалов / Пер. с англ. М.: Мир, 1978. — С.401−491.
- Вытяжка с утонением стенки / И. П. Ренне, В. Н. Рогожин, В. П. Кузнецов и др. Тула: ТПИ, 1970. — 141 с.
- Головлев В.Д. Расчет процессов листовой штамповки. М.: Машиностроение, 1974. — 136 с.
- Горбунов М.Н. Технология заготовительных штамповочных работ в производстве летательных аппаратов. М.: Машиностроение, 1970. — 351 с.
- Гречников Ф.В. Деформирование анизотропных материалов М.: Машиностроение, 1998. — 446 с.
- Грешнов В.М., Лавриненко Ю. А., Напалков А. В. Инженерная физическая модель пластически деформируемых металлов (скалярное соотношение) // Кузнечно-штамповочное производство. 1998. — № 5. — С. 3−6.
- Григорьев А.С. О теории и задачах равновесия оболочек при больших деформациях // Известия АН СССР. Механика твердого тела. 1970. -№ 1. — С. 163−168.
- Громов Н.П. Теория обработки металлов давлением. М.: Металлургия, 1978.-360 с.
- Губкин С.И. Пластическая деформация металлов. М.: Металлургия, I960.- Т. 1.- 376 е., Т. 2.- 416 е., Т. 3.- 306 с.
- Гун Г. Я. Математическое моделирование процессов обработки металлов давлением. М.: Металлургия, 1983. — 352 с.
- Дель Г. Д. Технологическая механика. М.: Машиностроение, 1978. -174 с.
- Джонсон А. Ползучесть металлов при сложном напряженном состоянии // Механика. Сборник переводов. 1962. — № 4. — С. 91−145.
- Джонсон У., Меллор П. Теория пластичности для инженеров. М.: Машиностроение, 1979. — 567 с.
- Дзугутов М.Я. Напряжение и разрывы при обработке металлов давлением. М.: Металлургия, 1974. — 280 с.
- Дзугутов М.Я. Пластическая деформация высоколегированных сталей и сплавов. М.: Металлургия, 1977. — 480 с.
- Еникеев Ф.У. Определение параметров сигмоидальной кривой сверхпластичности // Кузнечно-штамповочное производство. Обработка материалов давлением. 2001. — № 4. — С. 18 — 22.
- Ершов В.И., Глазков В. И., Каширин М. Ф. Совершенствование формоизменяющих операций листовой штамповки. М.: Машиностроение, 1990.-311 с.
- Жарков В.А. Методика разработки технологических процессов вытяжки с учетом анизотропии листовых материалов // Кузнечно-штамповочное производство. 1994. — № 10. — С. 5 — 9.
- Закономерности ползучести и длительной прочности: Справочник / Под общ. ред. С. А. Шестерикова. -М.: Машиностроение, 1983. 101 с.
- Зубцов М.Е. Листовая штамповка. Л.: Машиностроение, 1980.432 с.
- Изотермическая штамповка листовых анизотропных материалов / С. П. Яковлев, Я. А. Соболев, С. С. Яковлев, Д. А. Чупраков // Кузнечно-штамповочное производство. 1999. — № 12. — С. 9 — 13.
- Изотермическое деформирование высокопрочных анизотропных металлов / С. П. Яковлев, В. Н. Чудин, С. С. Яковлев, Я. А. Соболев. М: Машиностроение-!, Изд-во ТулГУ, 2004. — 427 с.
- Изотермическое деформирование металлов / С. З. Фиглин, В. В. Бойцов, Ю. Г. Калпин, Ю. И. Каплин. М.: Машиностроение, 1978. — 239 с.
- Ильюшин А.А. Пластичность. М.: Изд-во АН СССР, 1963. — 207 с.
- Качанов Л.М. Основы теории пластичности. М.: Наука, 1969.420с.
- Качанов Л.М. Теория ползучести. М.: Физматгиз, 1960. — 456 с.
- Ковка и штамповка. Справочник в 4-х т. // Ред. совет: Е. И. Семенов и др. Т.2. Горячая штамповка // Под ред. Е. И. Семенова, — М.: Машиностроение, 1986. — 592 с.
- Ковка и штамповка. Справочник в 4-х т. Н Ред. совет: Е. И. Семенов и др. Т. 4. Листовая штамповка / Под ред. А. Д. Матвеева. — М.: Машиностроение, 1987. — 544 с.
- Колесников Н.П. Зависимость штампуемости стали от анизотропии при вытяжке деталей сложной формы // Кузнечно-штамповочное производство. 1962.-№ 8. — С. 18−19.
- Колесников Н.П. Расчет напряженно-деформированного состояния при вытяжке с учетом анизотропии // Кузнечно-штамповочное производство. 1963,-№ 9.- С. 15−19.
- Колмогоров B.JI. Механика обработки металлов давлением. Екатеринбург: Изд-во УГТУ, 2001.-836 с.
- Колмогоров B.JI. Механика обработки металлов давлением. М.: Металлургия, 1986. — 688 с.
- Колмогоров В.Л., Мигачев Б. А., Бурдуковский В. Г. Феноменологическая модель накопления повреждений и разрушения при различных условиях нагружения. Екатеринбург: УрО РАН, 1994. — 104 с.
- Коновалов А.В. Моделирование больших высокотемпературных пластических деформаций // Кузнечно-штамповочное производство: перспективы и развитие (сб. научных трудов). Екатеринбург: ГОУ ВПО «УГ-ТУ-УПИ», 2005. — С. 39−50.
- Кратковременная ползучесть сплава Д16 при больших деформациях / В. Н. Бойков, Э. С. Лазаренко и др. // Известия вузов. Машиностроение. -1971.-№ 4.-С. 34−37.
- Кроха В.А. Упрочнение металлов при холодной пластической деформации: Справочник. М.: Машиностроение, 1980. — 157 с.
- Кудрявцев И.П. Текстуры в металлах и сплавах. М.: Металлургия, 1965.-292 с.
- Кузин В.Ф. Влияние анизотропии на разностенность при вытяжке с утонением стенки // Обработка металлов давлением. Тула: ТПИ, 1971. — С. 171 — 176.
- Лазаренко Э.С., Малинин Н. Н., Романов К. И. Диаграммы растяжения в условиях горячего формоизменения металлов // Расчет на прочность. -1983.-Вып. 24.-С. 95−101.
- Лазаренко Э.С., Малинин Н. Н., Романов К. И. Кратковременная ползучесть и разрушение алюминиевых и магниевых сплавов. Сообщение I // Известия вузов. Машиностроение. 1982. — № 3. — С. 25−28.
- Лазаренко Э.С., Малинин Н. Н., Романов К. И. Кратковременная ползучесть и разрушение алюминиевых и магниевых сплавов. Сообщение II // Известия вузов. Машиностроение. 1982. — № 7. — С. 19−23.
- Листовая штамповка: Расчет технологических параметров: Справочник / В. И. Ершов, О. В. Попов, А. С. Чумадин и др. М.: Изд-во МАИ, 1999.-516 с.
- Логвинова С.В., Яковлев С. П., Черняев А. В. Моделирование последующих операций изотермической вытяжки цилиндрических деталей из анизотропного материала в режиме ползучести // Технология и машины обработки давлением. Челябинск: ЮУГУ. — 2003. — С. 34−40.
- Малинин Н.Н. Ползучесть в обработке металлов. М.: Машиностроение, 1986. — 216 с.
- Малинин Н.Н. Прикладная теория пластичности и ползучести. М.: Машиностроение. — 1975. — 400 с.
- Малинин Н.Н. Технологические задачи пластичности и ползучести. М.: Высшая школа, 1979 — 119 с.
- Малоотходная, ресурсосберегающая технология штамповки / Под ред. В. А. Андрейченко, Л. Г. Юдина, С. П. Яковлева. Кишинев: Universitas, 1993.-238 с.
- Механика процессов изотермического формоизменения элементов многослойных листовых конструкций / С. П. Яковлев, С. С. Яковлев, В.Н. Чу-дин, Я. А. Соболев Тула: ТулГУ, 2001. — 254 с.
- Микляев П.Г., Фридман Я. Б. Анизотропия механических свойств металлов. М.: Металлургия, 1986. — 224 с.
- Надаи А. Пластичность и разрушение твердых тел. Пер. с англ. -М.: Мир, 1969. 863 с.
- Нечепуренко Ю.Г. Перспективные технологии изготовления цилиндрических изделий. Тула: ТулГУ, 2001. — 263 с.
- Нечепуренко Ю.Г., Яковлев С. П., Яковлев С. С. Глубокая вытяжка цилиндрических изделий из анизотропного материала. Тула: ТулГУ, 2000. -195 с.
- Никольский Л.А., Фиглин С. З., Бойцов В. В. Горячая штамповка и прессование титановых сплавов. М.: Машиностроение, 1975. — 285.
- Овчинников А.Г. Основы теории штамповки выдавливанием на прессах. М.: Машиностроение, 1983. — 200 с'.
- Овчинников А.Г., Жарков В. А. Исследование влияния анизотропии на вытяжку листового металла // Известия вузов. Машиностроение. 1979. -№ 8. — С. 94 — 98.
- Огородников В.А. Оценка деформируемости металлов при обработке давлением. Киев: Вища школа, 1983. — 175 с.
- Панченко Е.В., Селедкин Е. М. Пневмоформовка листовых заготовок в режиме сверхпластичности. Тула: Изд-во ТулГУ, 2004. — 304 с.
- Пластичность и разрушение / B.JI. Колмогоров, А. А. Богатов, Б. А. Мигачев и др.- Под ред. B.JI. Колмогорова. М.: Металлургия, 1977. — 336 с.
- Полухин П.И., Гун Г.Я., Галкин A.M. Сопротивление пластической деформации металлов и сплавов. М.: Металлургия, 1976. — 267 с.
- Поляков Ю.Л. Листовая штамповка легированных сплавов. М.: Машиностроение, 1980. — 96 с.
- Попов Е.А. Основы теории листовой штамповки. М.: Машиностроение, 1968. — 283 с.
- Попов Е.А., Ковалев В. Г., Шубин И. Н. Технология и автоматизация листовой штамповки. М.: Изд-во МГТУ им. Н. Э. Баумана, 2000. — 480 с.
- Предельные возможности формоизменения при изотермическом деформировании трехслойных листовых конструкций / С. С. Яковлев, Д. А. Чупраков, Я. А. Соболев, А. А. Митин // Известия ТулГУ. Серия Машиностроение. Выпуск 7. — Тула: ТулГУ, 2002. — С. 103−108.
- Применение теории ползучести при обработке металлов давлением. / А. А. Поздеев, В. И. Тарновский, В. И. Еремеев. М.: Металлургия, 1973. -192 с.
- Прогрессивные технологические процессы холодной штамповки / Ф. В. Гречников, A.M. Дмитриев, В. Д. Кухарь и др. / Под ред. А. Г. Овчинникова. М.: Машиностроение, 1985. — 184 с.
- Пэжина П. Основные вопросы вязко-пластичности. М.: Мир, 1968. — 176 с.
- Работнов Ю.Н. Механика деформируемого твердого тела. М.: Наука, 1979.-744 с.
- Работнов Ю.Н., Милейко С. Т. Кратковременная ползучесть. М.: Наука, 1970.-224 с.
- Ренне И.П., Панченко Е. В. Определение параметров уравнения сверхпластического состояния листовых материалов из опыта на двухосное растяжение // Проблемы прочности. 1978. — № 8. — С. 31−35.
- Ресурс пластичности при вытяжке с утонением / Л. Е. Басовский, В. П. Кузнецов, И. П. Ренне и др. // Кузнечно-штамповочное производство. -1977.-№ 8.-С. 27−30.
- Романов К.И. Механика горячего формоизменения металлов. М.: Машиностроение, 1993. — 240 с.
- Романовский В.П. Справочник по холодной штамповке. Л.: Машиностроение, 1979. — 520 с.
- Рузанов Ф.И. Локальная устойчивость процесса деформации орто-тропного листового металла в условиях сложного нагружения // Машиноведение / АН СССР. 1979. — № 4. — С. 90 — 95.
- Рузанов Ф.И. Определение критических деформаций при формообразовании детали из анизотропного листового металла // Машиноведение. 1974.-№ 2.-С. 103 — 107.
- Сегал В.М. Технологические задачи теории пластичности. -Минск: Наука и техника, 1977. 256 с.
- Селедкин Е.М., Гвоздев А. Е. Математическое моделирование процессов формоизменения заготовок. М.: Академия проблем качества- ТулГУ, 1998. — 225 с.
- Семенов Е.И. Технология и оборудование ковки и горячей штамповка. М.: Машиностроение, 1999. — 384 с.
- Смирнов B.C. Теория обработки металлов давлением. М.: Металлургия, 1973. — 496 с.
- Смирнов О.М. Обработка металлов давлением в состоянии сверхпластичности. М.: Машиностроение, 1979. — 118 с.
- Смирнов-Аляев Г. А. Сопротивление материалов пластическому деформированию. JL: Машиностроение, 1978. — 368 с.
- Соколов Л.Д., Скуднов В. А. Закономерности пластичности металлов. М.: ООНТИВИЛС — 1980. — 130 с.
- Соколовский В.В. Теория пластичности. М.: Высшая школа, 1969.-608 с.
- Сопротивление деформации и пластичность стали при высоких температурах / И. Я. Тарновский, А. А. Поздеев, B.C. Баакашвили и другие. -Тбилиси: Сабчота Сакартвело, 1970. 224 с.
- Соснин О.В. Анизотропная ползучесть упрочняющихся материалов // Инженерный журнал. Механика твердого тела. 1968. — № 4. — С. 143 146.
- Соснин О.В. Об анизотропной ползучести материалов // Журнал прикладной механики и технической физики. 1965. — № 6. — С. 99−104.
- Соснин О.В. Энергетический вариант теории ползучести и длительной прочности. Сообщение 1. Ползучесть и разрушение неупрочняю-щихся материалов // Проблемы прочности. 1973. — № 5. — С. 45−49.
- Специальные технологические процессы и оборудование обработки давлением / В. А. Голенков, A.M. Дмитриев, С. П. Яковлев, С. С. Яковлев и др. / Под ред. В. А. Голенкова, A.M. Дмитриева М.: Машиностроение, 2004. — 464 с.
- Степанский Л.Г. Расчеты процессов обработки металлов давлением. М.: Машиностроение, 1979. — 215 с.
- Сторожев М.В., Попов Е. А. Теория обработки металлов давлением. М.: Машиностроение, 1977. — 423 с.
- Теория и технология изотермической штамповки труднодеформи-руемых и малопластичных сплавов / С. П. Яковлев, В. Н. Чудин, С. С. Яковлев, В. А. Андрейченко. Тула: ТулГУ, 2000.- 220 с.
- Теория обработки металлов давлением / И. Я. Тарновский, А. А. Поздеев, О. А. Ганаго и др. М.: Металлургия, 1963. — 672 с.
- Теория пластических деформаций металлов / Е. П. Унксов, У. Джонсон, B.JI. Колмогоров и др. / Под ред. Е. П. Унксова, А. Г. Овчинникова.- М.: Машиностроение, 1983. 598 с.
- Томленов А.Д. Механика процессов обработки металлов давлением. М.: Машгиз, 1963. — 112 с.
- Томленов А.Д. Теория пластического деформирования металлов. -М.: Металлургия, 1972. 408 с.
- Томсен Э., Янг Ч., Кобаяши Ш. Механика пластических деформаций при обработке металлов. М.: Машиностроение, 1968. — 504 с.
- Трунин И.И. Критерий прочности в условиях ползучести при сложном напряженном состоянии // Прикладная механика. Киев: АН УССР.- Т.1. Вып.7. — 1965.-С. 77−83.
- Унксов Е.П. Инженерная теория пластичности. М.: Машгиз, 1959.-328 с.
- Ханин А.И. Кратковременная ползучесть сверхпластичных сплавов. Латунь Л63 // Известия вузов. Машиностроение. 1987. — № 8. — С. 12−16.
- Хван Д.В. Технологические испытания металлов. Воронеж: Изд-во Воронежского ун-та, 1992. — 152 с.
- Хилл Р. Математическая теория пластичности. М.: ГИТТЛ, 1956.- 408 с.
- Цой Д. Н. Волочение тонкостенной трубы через коническую матрицу // Известия АН СССР. Механика твердого тела. 1987. — № 4. — С. 182 -184.
- Цой Д. Н. Предельная степень вытяжки анизотропной листовой заготовки // Известия вузов. Машиностроение. 1986. — № 4. — С. 121 — 124.
- Чумаченко Е.Н., Смирнов О. М., Цепин М. А. Сверхпластичность: материалы, теория, технологии / Предисл. Г. Г. Малинецкого. М.: КомКни-га, 2005.-320 с.
- Шляхин А.Н. Оценка надежности технологических переходов глубокой вытяжки осесимметричных цилиндрических деталей без утонения // Вестник машиностроения. 1995. — № 4. — С. 33 — 36.
- Шляхин А.Н. Прогнозирование разрушения материала при вытяжке цилиндрических деталей без утонения // Вестник машиностроения -1995.-№ 5.- С. 35 -37.
- Шляхин А.Н. Расчет напряжений в опасном сечении при вытяжке без утонения цилиндрических деталей // Кузнечно-штамповочное производство. 1995. — № 6. — С. 8 — 11.
- Шофман JI.A. Теория и расчеты процессов холодной штамповки. -М.: Машиностроение, 1964. 365 с.
- Яковлев С.П., Кухарь В. Д. Штамповка анизотропных заготовок. -М.: Машиностроение, 1986. 136 с.
- Яковлев С.П., Чудин В. Н. Вытяжка релаксирующего листового анизотропного металла//Машиноведение. 1983. — № 5. — С. 116−118.
- Яковлев С.П., Чудин В. Н. Энергетическая оценка усилий вытяжки, обжима и раздачи с нагревом // Известия ВУЗов. Машиностроение. № 9. — 1982. — С. 132−135.
- Яковлев С.П., Чудин В. Н., Купор Н. В. Учет вязких свойств металла при изотермической штамповке. Тула: ТПИ, 1986. — 88 с.
- Яковлев С.П., Яковлев С. С., Андрейченко В. А. Обработка давлением анизотропных материалов. Кишинев: Квант. — 1997. — 332 с.
- Яковлев С.С. Деформирование анизотропного листового материала в условиях кратковременной ползучести // Вести АН Белоруссии. Минск, 1994. -№ 3.- С. 32−39.
- Яковлев С.С., Логвинова С. В., Черняев А. В. Вытяжка анизотропного материала в радиальную матрицу в режиме ползучести // Механика деформируемого твердого тела и обработка металлов давлением. Тула: ТулГУ, 2002.-Часть 1.-С. 152−161.
- Baltov A., Savchuk A. A Rule of Anisotropik Harolening // Acta Mechanica. 1965. — Vol.1. — № 2. — P. 81−92.
- Bartle P.M. Diffusion Bonding: a look at the future // Weld. 11. -1975. — P. 799−804.
- Bhattacharyya D., Moltchaniwskyi G. Measvrement of Anisotropy by the Ring Compression Test // J.Mech. Work. Technol. 1986. — 13. — № 3. — P. 325 330.
- Cornfield G.C., Johnson R.H. The Forming of Superplastic Sheet Metal // Int. J. Mech. Sci. 1970. — vol.12. — P. 479−490.
- Dunford D.V., Partridge P.G. Superplasticity in Aerospace // Aluminum. Cranfield. 1985. — P.257.
- Holt D.L. An analysis of the building of a superplastic shirt by lateral pressure // International Journal of Mechanical Sciences, 1970, Vol. 12. P. 491 497.
- 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.
- 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.
- Zharkov V.A. Theory and Practice of Deep Drawing. London: Mechanical Engineering Publications Limited, 1995. — 601 p.1. УТВЕРЖДАЮ"1. Генеральный директор
- У^^осяедЖ^АО «ТНИТИ» ШШШЫШ. I— Э.С.ДубровскийхФШШШР!марта 2006 г. 1. АКТоб использовании результатов научно-исследовательской работы
- ОБ ИСПОЛЬЗОВАНИИ РЕЗУЛЬТАТОВ РАБОТЫ
- Исследование процесса комбинированной вытяжки анизотропного материала в режиме ползучести1. Program Test-
- Uses Crt, Hot, Work, Io, NewPosl- Begin InitData-1. RazMode:= Omega {Sigma}-1. (RazMode = Sigma) Or (RazMode = Lokaliz) Then m:= 0- SeeAlIProcess:= True-
- Assign (Out,'out.txt') — Rewrite (Out)-1. Case Draw Of1. DrKomb: Case Swage Of
- Kon: DrawingKombKon- Rad: DrawingKombRad-1. End-
- DrPoslKomb: DrawingPoslKombNew-1. End-1. Close (Out)-1.Razr = True Then
- Writeln (' Разрушение1) Else Begin Writeln (' Готово') —
- Writeln (' Результаты в файлах: out. txt')-1. Writeln (' strength. txt')-1. End- Ch:= ReadKey- End.1. Unit Work- Interface
- Uses Hot, 10, Volumes, Volposl-
- Var KeeperEpsecp, KeeperKsiecp, KeeperOmegal: Real-1. Procedure Zonala-1. Procedure Zonalb-1. Procedure Zonalv-1. Procedure Zona2−1. Procedure DrawingKombRad-1. Procedure DrawingKombKon-
- Procedure DrawingPoslKomb-1.plementation
- Procedure Zonala- Зона плоского напряженного состоянияфланец1. Var k: Integer-1. Sigmatetal, si: Real-
- Sigmatetai, Sigmaroi: Real- sd, Pl, Q: Real- Deltaro: Real- Временно Label 1, NoIter- Begin1. nla ≤ 1 Then Begin1. nla = 1 Then V8:= 0 Rk:= Rc- Else Exit- End- Zona~ Zla-
- SeeAllProcess = True Then Begin
- AlIProcessInfo:= Head- PrintAlIProcessInfo (AllProcessInfo) — End-i:= 1- 1-ая точка1. Keeperi:= i-
- Omegal:= Datal. PreOmegal- f:= -1/(1+R) — ro:= Rk- roi:= ro-
- Vro:= -V0*Pow (rr/ro, 1 +f) —
- Ksie:= Sqrt (2/3*(2+R)*(Sqr®+l))/(l+R) * V0*Pow (rr/ro, R/(l+R))*l/(ro/Sin (AIfa)) — s:= sO1. Pow (Rk/RO,-l/(l+R))-sk:= s-1. Sigmaro:= 0- Res-1. Prigim = True Then Begin
- Pl:= Pi*dl*sO * (l-md)/md * Sigmab- sd:= sO/dO- Q := 0.1 * (l-18*sd/(l-md)) * Pl/Sqr (md) — If Q < 0 Then Q:= 0-
- Sigmaro— mum*Q/(Pi*Rk*s0) — Sigmaroi:= Sigmaro- End Else1. Begin
- Sigmaro := 0- Sigmaroi:= 0- End-
- Sigmateta:= -Sqrt (2*(2+R)/(3*(1+R))) * Sigmal- «For i:= 1 To nla+1 Do Beginomegal:= Data1. PreOmegal- k:=l-1. Sigmaroi:= Sigmaro-
- Sigmatetai:= Sigmateta- ro:= TempPlacela (i) — If Razr = True Then
- Exit- Vroi:= Vro- If i > 1 Then Begin
- Sigmaro:= sigmaroi-(sigmaroi*(l+fl)-Sigmatetai)/roi * (TempPlacela (i)
- TempPlacel a (i-1)) — Deltaro:=(TempPlacel a (i)-TempPlacel a (i-l)) — End- If i > 1 Then Skor- Res-1. Sigmateta:= (R*Sigmaro
- Sqrt (Sqr®*Sqr (Sigmaro) (1+R)*l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal)))) /l+r)-f:= -(Sigmaro+Sigmateta) / (Sigmateta*(1 +R)-R* Sigmaro) — WriteRo-ro:= roi+Vroi*Deltat- If RazMode In Omega, All. Then
- CheckOmega = True lb en Exit- If RazMode = Lokaliz Then If CheckLok = True Then Exit-
- Sigmaroi := Sigmaro- Sigmatetai:= Sigmateta- If SeeAllProcess = True Then Begin
- AllProcessInfo:= Body- Print AllProcessInfo (AllProcessInfo) — End- ReFreshData- Keeperi:= i- fl:=f- roi:= ro-si:= s- Vroi:= Vro-
- MaxOmega < Omegal Then MaxOmega:= Omegal-1. End-
- SeeAllProcess = True Then Begin
- AllProcessInfo:= Tail- PrintAllProcessInfo (AllProcessInfo)-1. End- nla:= nla-1- End-
- Procedure Zonalb- Зона плоского напряженного состояниятор1. Var dFi: dFiType-
- Tmpa, Kl, K2, Sigmatetal, si, Sigmatetai, Sigmaroi: Real- CountSigmateta, Fii, sx, x: Real- EndPoint, k: Integer-1.bel l, 2, NoIter- Begin1. nib ≤ 0 Then
- Exit- LastStep:= False- Zona:= Zlb-
- SeeAllProcess = True Then Begin
- AllProcessInfo:= Head- PrintAllProcessInfo (AllProcessInfo) — End-1. nib > NParts Then nlb:= NParts- If Rk>Rc Then Begins:= DataKeeperi+l.Pres-
- Sigmaro:= Sigmaro+Sqrt (2/3*(2+R)/(l+R))*Sigmal*s/(4*Rmc) — Sigmaroi := Sigmaro- If Draw = DrBez Then Case Swage Of
- Rad: Gamma:= Pi/2- Kon: Gamma» Pi/2 Alfa-1. End Else
- Gamma:= Pi/2 Alfa- Fi:= 0−1. Vroi:= Vro-x:= Sqr®*Sqr (Sigmaro) (1+R)*l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal)) — If x < 0 Then
- Begin Razr:= True- Exit- End- Sigmateta:= (R*Sigmaro
- Sqrt (Sqr®*Sqr (Sigmaro) (1+R)* ((l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal)))) / (1+r)-f:= -(Sigmaro+Sigmateta) / (Sigmateta*(l+R)-R*Sigmaro)-1. Skor- Res- End-1. Rk ≤ Rc Then Begin
- Rk = Rc Then Case Swage Of1. Rad: Gamma:= Pi/2−1. End-
- Keeperi:= 0- i:= 1- Fi:= 0- ro:= Rk- roi:= ro- Omegal:= Datal. PreOmegal- f:= -1/(1+R) — s:= Data1. .Pres*Pow (Rk/R0,-1 /(1+R))-s:= sO *Pow (Rk/R0,-1/(1+R))-sk:= s- WriteRo-rl:= (dp/2-Rp) + (Rp+s/2)*Cos (Pi/2-Alfa)-1. Vro:= -V0*Pow (rl/ro, l+f) —
- Ksie:= Sqrt (2/3*(2+R)*(Sqr®+l))/(l+R) *
- V0*Pow (rl/ro, R/(l+R))*l/(ro/Sin (Alfa))-1. Res-
- Sigmateta :=-Sqrt (2*(2+R)/(3*(l+R))) * Sigmal- Sigmatetai:= Sigmateta- Sigmaro := 0- Sigmaroi:= 0−1. Keeperi:= 0-s:= DataKeeperi+l.Pres- sx:= (Rc-Rk) / (Rm+0.5*s) —
- Fi:= ArcTan (sx/sqrt (1-sqr (sx))) — If Rk < Rc Then1. Gamma := Pi/2 Fi- End-
- Vrom := Vro- Vroim:= Vro- DeltaFi:= 0- ro:= Rc-Rmc*Sin (fi) — If Razr = True Then Exit-
- Draw = DrPosl Then InitdFiPosl (dFi)1. Else InitdFi (dFi) —
- ViewdFi (dFi) — Просмотр значений dFi (dfi.txt)1. Case Swage Of
- Rad: EndPoint:= NPoints AddZ2-
- Kon: EndPoint:= NPoints-nlv AddZ2−1. End-
- For i:= Keeperi+1 To EndPoint Do Begin
- CountSigmateta:= 0- Sigmaroi := Sigmaro- Sigmatetai:= Sigmateta- fl:= f-
- Fii:= Fi- roi:= ro- Vroi:= Vro- Vroim:= Vrom-
- Fi:= Fi + dFi1.- DeltaFi:= dFii.- ro:= Rc (Rm+0.5*s)*Sin (Fi) — Ifi = NPoints Then Fi:= Pi/2- k:=l-
- Tmpa:= (dp/2+Rm+sl)/Rmc- Kl:= (l-fl)*Cos (Fi) / (Tmpa-Sin (Fi)) + mum- K2:= (Cos (Fi)+mum*Sin (Fi)) / (Tmpa-Sin (Fi)) — If i > 1 Then
- Sigmaro:= Sigmaroi + (Sigmaroi*Kl Sigmatetai*K2) * DeltaFi- If CheckRazr = True Then Exit-x:= Sqr®*Sqr (Sigmaro) (1+R)*l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal))-1. x < 0 Then
- Begin Razr:= True- Exit- End- If i = 1 Then
- Sigmateta := -Sqrt (2*(2+R)/(3*(1+R))) * Sigmal1. Else1. Sigmateta:= (R*Sigmaro
- Sqrt (Sqr®*Sqr (Sigmaro) (1+R)* ((l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal))x)) / (l+r)-f:= -(Sigmaro+Sigmateta) / (Sigmateta*(l+R)-R*Sigmaro) — If i > 1 Then
- Data1.Pres*Pow ((Tmpa-Sin (Fi))/(Tmpa-Sin (Fii)), f) — WriteRo- Skor- Res-ro:= roi+Vroi*Deltat- Sigmaroi :=Sigmaro- Sigmatetai:= Sigmateta- P:= 2*Pi*(dp/2+sO)*sO*Sigmaro- If SeeAllProcess = True Then Begin
- AllProcessInfo:= Body- PrintAllProcessInfo (AllProcessInfo) — End-1. MaxOmega < Omegal Then
- MaxOmega:= Omegal- If i < NPoints Then
- ReFreshData- Keeperi:= i- End- dFik:= FirstdFi-1. (NParts = 19) And (Swage = Rad) Then If n 1 a > 0 Then If RazMode = Lokaliz Then1. CheckLok = True Then1. Exit-1. NParts > 1 Then Begin
- Sigmaro:= Sigmaro+Sqrt (2/3* (2+R)/(1+R))*Sigmal*s/(4lkRmc) — поворот x:= Sqr®*Sqr (Sigmaro) (1+R)*l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal))-1. x < 0 Then
- Begin Razr:= True- Exit- End- Sigmateta:= (R*Sigmaro
- Sqrt (Sqr®*Sqr (Sigmaro) (1+R)* ((l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal)))) / (1+r)-1. End-
- P:=2*Pi*rr*s*sigmaro- If Rk ≤ Rc Then
- Gamma— Gamma dFi1.- LastStep— True- If SeeAllProcess = True Then Begin
- AllProcessInfo:= Tail- PrintAllProcessInfo (AllProcessInfo) — End- sb:= s- If Draw = DrKomb Then x:= 11. Else x:= 0−1. (nla = 0) And (NParts = nlb+nlv+x) Then nib™ nib 1- End-
- Procedure Zonalv- Конический участок
- Var Sigmatetai, Sigmaroi, x: Real- Label 1, NoIter- Begin1. nlV ≤ 0 Then1. Exit- Zona™ Zlv-
- NParts = nlv + AddZ2 Then Keeperi:= 0- i:= Keeperi+1- If SeeAllProcess = True Tben Begin
- AllProcessInfo:= Head- PrintAllProcessInfo (AllProcessInfo) — End-x:= (Rc (Rm+0.5*s0)*Sin (Pi/2-Alfa)) — If Rk > (Rc — (Rm+0.5*s0)*Sin (Pi/2-Alfa)) Then Begin s:= DataKeeperi+l.Pres-
- Sigmaro:= Sigmaro+Sqrt (2/3*(2+R)/(l+R))*Sigmal*s/(4*Rmc) — If nOa = 0 Then1. Keeperi:= 0−1. Vroi:= Vro-x:= Sqr®*Sqr (Sigmaro) (l+R)*l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal)) — If CheckRazr = True Then Exit- If x < 0 Then
- Begin Razr:= True- Exit- End- Sigmateta:= (R*Sigmaro-Sqrt (Sqr®*Sqr (Sigmaro) (1+R)* ((l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal)))) / (1+r)-f:= -(Sigmaro+Sigmateta) / (Sigmateta*(l+R)-R*Sigmaro)-1. Skor- Res-
- Sigmatetai:= Sigmateta- Sigmaroi:= Sigmaro-1. End-
- Rk ≤ (Rc (Rm+0.5* sO)* Sin (Pi/2-Alfa)) Then Begin ro:= Rk-roi:= ro-
- Omegal:= Datal. PreOmegal- f:= -1/(1+R) — s~ Data1. Pres*Pow (Rk/RO,-l/(l+R)) — Skor-s:= sO *Pow (Rk/RO,-l/(l+R))-sk:= s- WriteRo-rl:= (dp/2-Rp) + (Rp+s/2)*Cos (Pi/2-AIfa) —
- Vro:= -V0*Pow (r 1 /ro, l +f) —
- Ksie:= Sqrt (2/3*(2+R)*(Sqr®+l)/(l+R)) *
- V0*Pow (rl/ro, R/(l+R))*l/(ro/Sin (Alfa))-1. Res-
- Sigmateta := -Sqrt (2*(2+R)/(3*(1+R))) * Sigmal- Sigmatetai:= Sigmateta- Sigmaro := 0- Sigmaroi:= 0−1. End-
- DataKeeperi+l.Prero:= ro- roi:= ro- Vroi :=Vro- Vrom := Vro- Vroim:= Vro- fl:= f-
- For i:= Keeperi+1 To NPoints AddZ2 Do Begin omegal:= Data1. PreOmegal- Ifi>l Then ro:= TempPlaceOv (i) — If i > 1 Then
- Sigmaro:= sigmaroi-(sigmaroi*(l+fl)-Sigmatetai)/roi * (ro roi) — Sigmaro:= sigmaroi+(Sigmatetai*(l+mum*ctg (Alfa))-sigmaroi*(l+fl))/roi * (ro — roi) — Skor- Res-
- CheckRazr = True Then Exit-x:= Sqr®*Sqr (Sigmaro) (1+R)*l+R)*Sqr (Sigmaro)-2/3*(2+R)*Sqr (Sigmal)) -1. x < 0 Then
- Begin Razr:= True- Exit- End- If i = 1 Then
- Sigmateta := -Sqrt (2*(2+R)/(3*(1+R))) * Sigmal Else1. Sigmateta:= (R*Sigmaro
- Sqrt (Sqr®*Sqr (Sigmaro) (1+R)* ((1 +R)*Sqr (Sigmaro)-2/3 *(2+R)* Sigmal) x)) / (1+r)-f:= -(Sigmaro+Sigmateta) / (Sigmateta*(l+R)-R*Sigmaro) — If i > 1 Then s:= Data1. Pres*Pow (ro/Datai.Prero, f)-1. WriteRo-
- RazMode In Omega, All. Then
- CheckOmega = True Then Exit- If RazMode = Lokaliz Then If CheckLok = True Then Exit-1. SeeAllProcess = True Then1. Begin
- AllProcessInfo:= Body- PrintAllProcessInfo (AllProcessInfo) — End- If i < NPoints Then1. ReFreshData- roi:= ro-
- Sigmaroi := Sigmaro- Sigmatetai:= Sigmateta- fl:= f- Vroi:= Vro-
- Vroim:= Vrom- Keeperi:= i- If MaxOmega < Omegal Then MaxOmega:= Omegal- End-
- P:=2*Pi*rr*s*sigmaro- If NParts = 19 Then If nl a > 0 Then If RazMode = Lokaliz Then If CheckLok = True Then Exit-
- SeeAllProcess = True Then Begin
- Zona:= Z2- If Swage = Rad Then
- Alfa:= Pi/2 ArcSin ((Rm+sl)/(Rm+sb)) — If (Draw = DrPoslKomb) And (BottomBorder = True) Then sb:= sd- rol:= sl/alfa- ro2:= sb/alfa-1. NPartsZ2:= 20-
- Nro := 1- Участки зоны II, перешедшие в стенкуdro:= (ro 1 -ro2)/NPartsZ2- го:= го2- Omegal:= 0- i:= Keeperi+1- If i = 0 Then i:= 1- Omegal:= Data1. PreOmegal- tdefut := 0- P := 0- SumSigmak:= 0- dp:= r0*2-s0- dl:= dp+sl- Rx := R00- Ry R90-
- Rxy:= Rx/Ry*(R45+l/2)*(l+Ry/Rx) — If Draw = DrJComb Then
- Ry:= Rx- V0:= ConstV0- Beta:= -V0*sl/Alfa- If Draw = DrUt Then Begin
- Ksie:= Sqrt (2*(Rx+Ry+Rx*Ry)/(3*Ry)) *
- Sqrt ((Rx+Ry)/(Rx*(l+Rx+Ry))*Sqr (Cos (Alfa)) + 2/Rxy*Sqr (Sin (Alfa))) * Abs (Beta)/Sqr (ro) — Ksie~ Sqrt (2*(Rx+Ry+Rx*Ry)/(3*Ry)) *
- Ry+1)/(1 +Rx+Ry)*Sqr (Cos (Alfa)) + l/2/Rxy*Sqr (Sin (Alfa))) * Abs (Beta)/Sqr (ro) —
- Sigmal:= SigmaeO*Pow (l-Omegal, m/n) / Pow (B, l/n) * Pow (Ksie, l/n) — SrSk := Sigmal*Sqrt (2*(Rx+Ry+Rx*Ry)/(3*Ry)) /
- Sqrt (Rx*(Ry/Sqr (Ry+Rx)+Rx/Sqr (Ry+Rx)+l)*Sqr (Cos (Alfa)) + Rxy/2* Sqr (Sin (Alfa))) — Sigmaro:= SrSk/2*Tan (Alfa/2) End Else
- Sigmaro:= Sigmaro + Sigmaro/2*Tan (Alfa/2) — MM:= -(mup mum)/Tan (Alfa) — RewriteSrengthtxt:= True- Pri ntUt (NPartsZ2) — Writeln-
- Writeln (' Nro rol ro2 dV dh dt sumt ') — While NPartsZ2 ≥ 0 Do Begin1. NPartsZ2 < 20 Then
- Sigmaro:= Sigmaro+(Sigmak*(l+MM)-Sigmaro)*(dro)/ro-1. SkorUt-dtMode:= 0- 0/11.itDeltatut (dtMode, Nro, rol, ro2, dro) — tdefut:= tdefut+deltatut- Writeln (Nro:4,tmprol:6:2,tmpro2:6:2,tmpV:6:2,tmph:6:2,Deltat:6:l, tdefut:8:l) — ResUt-
- Sigmak:= Sigmaro-Sigmal*Sqrt (2*(Rx+Ry+Rx*Ry)/(3*Ry)) /
- Sqrt (Rx*(Ry/Sqr (Ry+Rx)+Rx/Sqr (Ry+Rx)+l)*Sqr (Cos (Alfa)) + Rxy/2*Sqr (Sin (Alfa))) — SumSigmak:= SumSigmak + Sigmak*dro- Sigmateta:= CalcSigmaTeta- PrintUt (NPartsZ2) — ro:= ro+dro-
- NPartsZ2:= NPartsZ2-l- Nro := Nro +1−1. End-1. Beta:= 0- ?
- Sigmax:= Sigmaro+(Sigmaro-Sigmak)/2*Tan (Alfa/2) —
- P:= Pi*dl*sl*Sigmax + Pi*mup*dp*Abs (SumSigmak)*(ro2-rol)-1. PMax < P Then
- PMax:= P- PrintUt (NPartsZ2) — CheckRazr-
- Procedure DrawingKombRad- Var KeepNPoints: Integer-1.bel FullEjoin- Beginrr:= r0*md- Gamma:= Pi/2- Beta := 0- MaxOmega:= 0- KeepNPoints:=0- Sigmax:= 0- PMax := 0- VolumesKombRad- If Razr = True Then Exit- PrepareVar-
- Smalljnd = True Then Exit- GetFirstPlacesRad- V0:= CorrectV0- hp:= 0- t := 0- s:= sO-
- While hp < sO+Rm+Rp Do Beginhp:= hp+ dhp- t t+DeltaJ-1. sO+Rm+Rp hp < dhp Then Beginhp:= sOt-Rm+Rp-
- GoTo FullEjoin- Break- End-
- VolumesZonaORad- If nOa > 0 Then
- ZonaOa- If Razr = True Then Exit- If nOb > 0 Then ZonaOb- If Razr = True Then Exit- IfnOv > 0 Then ZonaOv- If Razr = True Then Exit-
- SeeAllProcess = True Then Begin1. CalcForce-
- PrintStrengthFile (KeepNPoints) — If PMax < P Then PMax:= P-1. End- Keeperi:= 0- End-
- FullEjoin: Полное прилегание RewriteZona2txt := True- RewriteSrengthtxt:= True- VolumesKombRad- nOa:=nla- nOb:=nlb- V0:= CorrectV0- Zona0a- Zona0b- Zona2-
- Razr = True Then Exit- If SeeAllProcess = True Then Begin
- CalcForce- PrintStrengthFile (KeepNPoints) — End-
- ControlConsist = True Then1. Exit- для программы Otnos
- KeepNPoints:= NPoints- sb:= sO-
- NPoints:= NPoints -1- NParts :=NParts -1- If nla > 1 Thennla:= nla 1 Elsenlb:= nib -1- While NPoints ≥ 1 Do Begin V0:= CorrectV0- NewVolumesRad- ZeroiseVar-1.itDeltat- sigmax:= 0−1. Zonala-1. CheckRazr-
- Razr = True Then Exit- Zonalb-1. Razr = True Then1. Exit-
- RazMode = Lokaliz Then CheckLok1. Else1. CheckRazr-1. Razr = True Then1. Exit- Zona2−1. Razr = True Then1. Exit-1. CheckRazr-1. Razr = True Then1. Exit-1. CheckCreeping = True Then1. Exit-1. SeeAllProcess = True Then
- GetStrength (KeepNPoints-NPoints) — NPoints:= NPoints -1- NParts := NParts 1- End-1. SeeAllProcess = True Then
- PrintStrengthFile (KeepNPoints)-1. End-
- Procedure DrawingKombKon- Var KeepNPoints: Integer-1.bel FullEjoin- Beginrr:= r0*md- Gamma:= Pi/2- Beta := 0- MaxOmega:= 0- KeepNPoints:=0- Sigmax:= 0- PMax := 0-
- RewriteVolumestxt:= True- Case Optim Of
- True: VolumesKombKonOpt- False: VolumesKombKon-1. End-
- Razr = True Then Exit- V4:= 0- V6:= 0- PrepareVar-
- RewriteVolumestxt:= False- If Smallmd = True Then Exit- GetFirstPlacesRad- V0:= CorrectV0- hp- 0-
- While hp < sO+Hm+Rp Do Beginhp.- hp+ dhp- t := t+Deltat-1. sO+Hm+Rp hp < dhp Then Beginhp:= sO+Hm+Rp-
- GoTo FullEjoin- Break- End-1. VolumesZonaOKon-1. nOa > 0 Then ZonaOa- If Razr = True Then Exit- If nOb > 0 Then ZonaOb- If Razr = True Then Exit- If nOv > 0 Then ZonaOv- If Razr = True Then Exit-
- SeeAllProcess = True Then Begin1. CalcForce-
- PrintStrengthFile (KeepNPoints) — If PMax < P Then PMax:= P-1. End- Keeperi:= 0- End-
- FullEjoin: Полное прилегание RewriteZona2txt := True- RewriteSrengthtxt:= True- Case Optim Of
- True: VolumesKombKonOpt- False: VolumesKombKon-1. End-nOa:=nla- nOb:=nlb- nOv:=nlv-1. V0:= CorrectV0−1. Zona0a-1. Zona0b-1. Zona0v-1. Zona2−1.Razr = True Then Exit-
- SeeAllProcess = True Then Begin1. CalcForce-
- PrintStrengthFile (KeepNPoints) — End-
- ControlConsist = True Then1. Exit- для программы Otnos
- KeepNPoints:= NPoints- sb:= sO-
- NPoints:= NPoints -1- NParts := NParts -1- If nla > 0 Then nla:= nla -11. Elselfnlb>0 Then nlb:= nib -1 Elsenlv:= nlv -1- While NPoints > 1 Do Begin
- V0:= CorrectV0- New Vol umesKon- ZeroiseVar- InitDeltat- hp:= hp+ dhp-
- Deltat:= dhp / ConstV0- t := t+DeltaJ- sigmax:= 0- Zonala- CheckRazr-
- Razr = True Then Exit- Zonalb-1. Razr = True Then Exit-
- RazMode = Lokaliz Then CheckLok1. Else1. Zonalv-
- CheckRazr- If Razr = True Then1. Exit- Zona2−1. Razr = True Then Exit-
- CheckRazr- If Razr = True Then Exit-1. SeeAllProcess = True Then
- GetStrength (KeepNPoints-NPoints) — NPoints:=NPoints- 1- NParts := NParts -1- Keeperi:= 0- End-1. SeeAllProcess = True Then
- PrintStrengthFile (KeepNPoints)-1. End-
- Procedure DrawingPoslKomb-1. Var KeepNPoints: Integer-
- Changehz: Boolean- dh: Real- Label 1- Доделать: ZonalbPosl EndPoint Begin rr:= rO*md- Gamma:= Pi/2- Beta := 0- MaxOmega:= 0- KeepNPoints:=0-
- Sigmax™ 0- RewriteVolumestxt:= True- V4:= 0- V6:= 0- PrepareVar-
- Smallmd = True Then Exit- GetFirstPlacesPosl-
- V0:= CorrectV0- hp:= hpO- t := hp / V0- Deltat:= 0- Deltat:= t- s := sO- si:= s- sb:= sO- so:= s- KeepNPoints:= NPoints-
- Полное прилегание ZonalaPosl- ZonalbPosl- ZonalvPosl- Zona2−1. Razr = True Then Exit-
- SeeAllProcess = True Then Begin1. CalcForce-
- PrintStrengthFile (KeepNPoints) — End-
- KeepNPoints:= NPoints- sb:= sO-
- NPoints:= NPoints -1- NParts := NParts -1- If nla > 0 Then nla:= nla -11. Else1. nib > 0 Then nlb:= nib -1 Elsenlv:= nlv -1- While NPoints > 1 Do Begin
- V0:= CorrectV0- New Vol umesKonPosl-
- ZeroiseVar- hp:= hp+ dhp- Deltat:= dhp / ConstV0- t := t+Deltat- sigmax:= 0−1. ZonalaPosl-1. CheckRazr-
- Razr = True Then Exit- ZonalbPosl-
- Exit- ZonalvPosl- CheckRazr-1. Exit- Zona2−1. Exit-1. CheckRazr-1. Razr = True Then1. Razr = True Then1. Razr = True Then1. Razr = True Then1. End- End.1. Exit-1. SeeAllProcess = True Then
- GetStrength (KeepNPoints-NPoints) — NPoints:= NPoints 1- NParts := NParts -1- Keeperi:= 0- If ControlConsist = True Then Exit-1. End-1. SeeAllProcess = True Then
- PrintStrengthFile (KeepNPoints)-для программы Otnos