Формирование показателей качества цилиндрических заготовок и изделий при вытяжке
Диссертация
При анализе процесса вытяжки с утонением стенки установлено, что с уменьшением коэффициента утонения (увеличение степени деформации относительные величины коэффициентов анизотропии Яр для стали 08кп и алюминиевого сплава АМг2М значительно уменьшаются (в 1,5 раз), а для латуни Л63 уменьшение коэффициента т^- до 0,8 сопровождается незначительным уменьшением величины Яр. При дальнейшем падении т… Читать ещё >
Список литературы
- ЬАверкиев Ю.А., Аверкиев АЛО. Технология холодной штамповки:1. ГЧЦ и- ~л
- Учебн. для вузов. М.: Машиностроение, 1989. — 304 с. .
- Авицур Б. Исследование процессов волочения проволоки и выдавливания через конические матрицы с большим углом конусности // Труды американского общества инженеров-механиков. -М.: Мир, 1964.-№ 4. С. 1315.
- Арышенский Ю.М., Гречников Ф. В. Теория и расчеты пластического формоизменения анизотропных материалов. М.: Металлургия, 1990. — 304 с.
- Ашкенази Е.К. Анизотропия машиностроительных материалов. Л.: Машиностроение, 1969. — 112 с.
- Бакхауз Г. Анизотропия упрочнения. Теория в сопоставлении с экспериментом // Известия АН СССР. Механика твердого тела. 1976. — № 6. — С. 120- 129.
- Банди Б. Методы оптимизации. Вводный курс: Пер. с англ. М.: Радио и связь, 1988.- 128 с.
- Басовский Л.Е. Прогнозирование повреждаемости деформируемых материалов при немонотонном нагружении // Известия вузов. Машиностроение. 1990. — № 2. — С. 3 — 7.
- Бастуй В.Н. К условию пластичности анизотропных тел // Прикладная механика / АН УССР. Ин-т механика. Киев: Наукова думка. — 1977 — № 1. -С. 104- 109.
- Богатов A.A., Мижирицкий О. И., Смирнов C.B. Ресурс пластичности металлов при обработке давлением. М.: Металлургия, 1984. — 144 с.
- Быковцев Г. И. О плоской деформации анизотропных идеально-пластических тел //. Известия АН СССР. ОТН. Механика и машиностроение. 1963.-№ 2. -С. 66−74.
- Валиев С.А. Комбинированная глубокая вытяжка листовых материалов. М.: Машиностроение, 1973. — 176 с.
- Валиев С.А., Яковлев С. С. Технология холодной штамповки. Комбинированная вытяжка анизотропного материала. Тула: ТулПИ, 1986.-66 с.
- Валиев С.А., Яковлев С. С., Коротков В. А. Технология комбинированной вытяжки цилиндрических заготовок из анизотропного материала // Кузнечно-штамповочное производство. 1994. — № 12. — С. 6 — 8.
- П.Владимиров В. И. Физическая природа разрушения металлов. М.: Металлургия, 1984. — 280 с.
- Ву Э. М. Феноменологические критерии разрушения анизотропных сред // Механика композиционных материалов / Пер. с англ. М.: Мир, 1978. -С. 401 -491.
- Вытяжка с утонением стенки / И. П. Ренне, В. Н. Рогожин, В. П. Кузнецов и др. Тула: ТПИ, 1970. — 141 с.
- Гельфонд В.Л. Построение математической модели процесса образования разностенности при вытяжке с утонением стенки // Исследованияв области пластичности и обработки металлов давлением. Тула ТПИ, 1974.- Вып.35. С.60−68.
- Гельфонд В.Л. Анализ некоторых факторов технологических процессов получения точных изделий вытяжкой с утонением // Исследования в области пластичности и обработки металлов давлением. Тула: ТПИ, 1977. -С.45−52.
- Геогджаев В.И. Пластическое плоское деформированное состояние ортотропных сред // Труды МФТИ. 1958. — Вып. 1.- С. 55 — 68.
- Геогджаев В.О. Волочение тонкостенных анизотропных труб сквозь коническую матрицу // Прикладная механика. 1968. — Т.4. — Вып. 2. — С. 79 -83.
- Головлев В.Д. Расчет процессов листовой штамповки. М.: Машиностроение, 1974. — 136 с.
- Гречников Ф. В. Деформирование анизотропных материалов М.: Машиностроение, 1998. — 446 с.
- Губкин С.И. Пластическая деформация металлов. М.: Металлургия, 1960.- Т. 1, — 376 с, Т. 2.- 416 е., Т. 3.- 306 с.
- Гун Г. Я. Математическое моделирование процессов обработки металлов давлением. М.: Металлургия, 1983. — 352 с.
- Данилов В.Л. К формулировке закона деформационного упрочнения // Известия АН СССР. Механика твердого тела. 1971. — № 6. — С. 146 — 150.
- Дель Г. Д. Технологическая механика. М.: Машиностроение, 1978.- 174 с.
- Джонсон У., Меллор П. Теория пластичности для инженеров. М.: Машиностроение, 1979. — 567 с.
- Егоров М.И. Определение коэффициента поперечных деформаций листового проката с начальной анизотропией на цилиндрических образцах // Заводская лаборатория. 1988. — № 11. — С. 79 — 82.
- Жарков В.А. Методика разработки технологических процессов вытяжки с учетом анизотропии листовых материалов // Кузнечно-штамповочное производство. 1994. -№ 10. — С. 5 — 9.
- Жарков В.А. Перспективы экономии металла в листоштамповочном производстве // Кузнечно-штамповочное производство. 1991. — № 12. — С. 7 -11.34.3убцов М. Е. Листовая штамповка. Л.: Машиностроение, 1980. 432 с.
- Ивлев Д.Д. Теория идеальной пластичности. М.:Наука, 1966.-231 с.
- Ивлев Д.Д., Быковцев Г. И. Теория упрочняющегося пластического тела. М.: Наука, 1971.-232 с.
- Ильюшин A.A. Пластичность. М.: Изд-во АН СССР. — 1963. — 207 с.
- Исследование параметров анизотропии в процессах ротационной вытяжки / А. И. Вальтер, Л. Г. Юдин, И. Ф. Кучин, В. Г. Смеликов // Исследования в области пластичности и обработки металлов давлением. Тула: ТПИ, 1986.-С. 156- 160.
- Калпин Ю.Г., Крутина Е. В. Построение диаграммы пластичности методом комбинированного поперечного выдавливания и высадки // Механика деформируемого твердого тела и обработка металлов давлением. Тула: ТулГУ, «Гриф», 2000. — С. 150−155.
- Качанов Л.М. Основы механики разрушения. М.: Наука, 1974.312 с.
- Кибардин H.A. Исследование пластической анизотропии металла статистическим методом // Заводская лаборатория. 1981.-№ 9. -С. 85 — 89.
- Ковка и штамповка. Справочник в 4-х т. // Ред. совет: Е. И. Семенов и др. т. 4. Листовая штамповка / Под ред. А. Д. Матвеева. — М.: Машиностроение, 1987. — 544 с.
- Колесников Н.П. Зависимость штампуемости стали от анизотропии при вытяжке деталей сложной формы // Кузнечно-штамповочное производство. 1962.-№ 8.-С. 18−19.
- Колесников Н.П. Расчет напряженно-деформированного состояния при вытяжке с учетом анизотропии // Кузнечно-штамповочное производство. 1963.- № 9.- С. 15 — 19.
- Колмогоров В.Л. Механика обработки металлов давлением. М.: Металлургия, 1986. — 688 с.
- Колмогоров В.Л. Напряжение деформации, разрушение. М.: Металлургия, 1970. — 229 с.
- Колмогоров В.Л., Мигачев Б. А., Бурдуковский В. Г. Феноменологическая модель накопления повреждений и разрушения при различных условиях нагружения. Екатеринбург: УрОРАМ, 1994. — 104 с.
- Кудрявцев И.П. Текстуры в металлах и сплавах. М.: Металлургия, 1965.-292 с.
- Кузин В.Ф. Влияние анизотропии на разностенность при вытяжке с утонением стенки // Обработка металлов давлением. Тула: ТПИ, 1971. — С. 171 — 176.
- Кузин В.Ф., Юдин Л. Г., Ренне И. П. Изменение показателя анизотропии в процессе многооперационной вытяжки с утонением стенки // Прогрессивная технология глубокой вытяжки листовых материалов. Тула: ТПИ, 1968. — С. 229 — 234.
- Любарский Б.Н. Выбор оптимального угла конуса матрицы для первой операции комбинированной вытяжки без складкодержателя // Исследования в области пластичности и обработки металлов давлением. Тула: ТПИ, 1970.-Вып. 9.-С. 117- 123.
- Любарский Б.Н., Поляков В. Н. Определение предельной степени деформации при комбинированной вытяжке тонколистовой стали // Обработка металлов давлением. Тула: ТПИ, 1971. — С. 221 — 230.
- Малинин H.H. Прикладная теория пластичности и ползучести. М.: Машиностроение. — 1975. — 400 с.
- Малинин H.H. Технологические задачи пластичности и ползучести. М.: Высшая школа, 1979. — 119 с.
- Малов А.Н. Производство патронов стрелкового оружия. М.: Обо-ронгиз, 1947. — 414 с.
- Маркин A.A., Яковлев С. С., Здор Г. Н. Пластическое деформирование ортотропного анизотропно-упрочняющегося слоя // Вести АН Бела-руссии. Технические науки. Минск. — 1994. — № 4. — С. 3 — 8.
- Маркин A.A., Яковлев С. С. Влияние вращения главных осей орто-тропии на процессы деформирования анизотропных, идеально-пластических материалов // Механика твердого тела. 1996. — № 1. — С. 66 — 69.
- Микляев П.Г., Фридман Я. Б. Анизотропия механических свойств металлов. М.: Металлургия, 1986. — 224 с.
- Налимов В.В. Теория эксперимента. М.: Наука, 1971.- 208 с.
- Налимов В.В., Голикова Т. И. Логические основания планирования эксперимента / 2-е изд., перераб. и доп. М.: Металлургия, 1980.- 152 с.
- Недорезов В.Е. Глубокая вытяжка листового металла. М., J1.: Маш-гиз, 1949. — 104 с.
- Неймарк.А.С. К вопросу об определении параметров анизотропии ортотропных материалов // Известия вузов СССР. Машиностроение. 1975. -№ 6. — С. 5 — 9.
- Нечепуренко Ю.Г. К вопросу теории штамповки ортотропных анизотропно-упрочняющихся материалов // Теория, технология, оборудование и автоматизация обработки давлением и резанием. Тула: ТулГУ, 1999. — Вып. 1.-С. 50−57.
- Нечепуренко Ю.Г., Яковлев С. П., Яковлев С. С. Комбинированная вытяжка анизотропного упрочняющегося материала // Кузнечно-штамповочное производство. 1997. — № 10. — С. 2 — 6.
- Нечепуренко Ю.Г., Яковлев С. П., Яковлев С. С. Критерии деформируемости анизотропного материала // Известия ТулГУ. Серия Машиностроение. Тула: ТулГУ. — 1998. — Вып. 2. — С. 24 — 31.
- Нечепуренко Ю.Г., Проскурякова H.H. Комбинированная вытяжка ортотропного анизотропно упрочняющегося материала // Итоги развития механики в Туле: Тезисы докладов международной конференции. Тула: ТулГУ, 1998. — С. 63 — 64.
- Нечепуренко Ю.Г., Яковлев С. П., Яковлев С. С. Глубокая вытяжка цилиндрических изделий из анизотропного материала. Тула: ТулГУ, 2000. -195 с.
- Овчинников А.Г. Основы теории штамповки выдавливанием на прессах. М.: Машиностроение, 1983. — 200 с.
- Овчинников А.Г., Жарков В. А. Исследование влияния анизотропии на вытяжку листового металла // Известия вузов. Машиностроение. 1979. -№ 8.-С. 94−98. '
- Огородников В.А. Оценка деформируемости металлов при обработке давлением. Киев: Вища школа, 1983. — 175 с.
- Полухин П.И., Горелик С. С., Воронцов В. К. Физические основы пластической деформации. М.: Металлургия, 1982. — 584 с.
- Попов Е.А. Основы теории листовой штамповки. М.: Машиностроение, 1968. — 283 с.
- Попов Е.А., Валиев С. А., Яковлев С. С. Силовые параметры процесса комбинированной вытяжки на радиальной матрице // Известия вузов. Машиностроение. 1982. — № 11. — С. 126 — 130.
- Прогрессивные технологические процессы холодной штамповки / Ф. В. Гречников, A.M. Дмитриев, В. Д. Кухарь и др. / Под ред. А. Г. Овчинникова. М.: Машиностроение, 1985. — 184 с.
- Проскуряков Н.Е., Пустовгар A.C. Автоматизированная система экспериментатора // Тул. гос. ун-т, Тула, 1997.- Деп. в ВИНИТИ 13.04.98, № 1084-В98 .-Юс.
- Проскурякова H.H., Логвинова C.B. Комбинированная вытяжка цилиндрических изделий из анизотропного материала // XXVII Гагаринские чтения: Тезисы докладов международной молодежной научной конференции. Москва: Изд-во «ЛАТМЭС», 2001. — С. 113−114.
- Работнов Ю.Н. Механика деформируемого твердого тела. М.: Наука, 1979. — 744 с.
- Ренне И.П., Басовский Л. Е. Ресурс пластичности при волочении, вытяжке с утонением и гидропрессовании // Обработка металлов давлением.- Свердловск: УПИ. 1977. — Вып.4. — С. 92 — 95.
- Ресурс пластичности при вытяжке с утонением / Л. Е. Басовский, В. П. Кузнецов, И. П. Ренне и др. // Кузнечно-штамповочное производство. -1977.-№ 8.-С. 27−30.
- Романовский В.П. Справочник по холодной штамповке. Л.: Машиностроение, 1979. — 520 с.
- Рузанов Ф.И. Локальная устойчивость процесса деформации орто-тропного листового металла в условиях сложного нагружения // Машиноведение / АН СССР. 1979. — № 4. — С. 90 — 95.
- Рузанов Ф.И. Определение критических деформаций при формообразовании детали из анизотропного листового металла // Машиноведение.- 1974.-№ 2.-С. 103 107.
- Сегал В.М. Технологические задачи теории пластичности. Минск: Наука и техника, 1977. — 256 с.
- Скуднов В.А. Закономерности предельной пластичности металлов // Проблемы прочности. 1982. — № 9. — С. 72 — 80.
- Смирнов B.C. Теория обработки металлов давлением. М.: Металлургия, 1973. — 496 с.
- Смирнов B.C., Дурнев В. Д. Текстурообразование при прокатке. -М.: Металлургия, 1971. 254 с.
- Смирнов-Аляев Г. А. Сопротивление материалов пластическому деформированию. Л.: Машиностроение, 1978. — 368 с.
- Соколов Л.Д., Скуднов В. А. Закономерности пластичности металлов. М.: ООНТИВИЛС. — 1980. — 130 с.
- Соколовский В.В. Теория пластичности. М.: Высшая школа, 1969.-608 с.
- Ю5.Степанский Л. Г. Расчеты процессов обработки металлов давлением. М.: Машиностроение, 1979. — 215 с.
- Юб.Сторожев М. В., Попов Е. А. Теория обработки металлов давлением.- М.: Машиностроение, 1977. 423 с.
- Таблицы планов эксперимента для факторных и полиномиальных моделей: Справочное издание / Под ред. В. В. Налимова. М.: Металлургия, 1982.- 751 с.
- Талыпов Г. Б. Исследование эффекта Баушингера // Известия АН СССР. Механика и машиностроение. 1964. — № 6. — С. 131 — 137.
- Талыпов Т.П. Пластичность и прочность стали при сложном на-гружении. Л.: Изд-во ЛГУ. — 1968. — 134 с.
- Теория пластических деформаций металлов / Е. П. Унксов, У. Джонсон, В. Л. Колмогоров и др. / Под ред. Е. П. Унксова, А. Г. Овчинникова.- М.: Машиностроение, 1983. 598 с.
- Томилов Ф.Х. Зависимость пластичности металлов от истории деформирования // Обработка металлов давлением. Свердловск: УПИ, 1987. -С.71−74.
- ПЗ.Томленов А. Д. Пластическое деформирование металлов. М.: Металлургия, 1972. — 408 с.
- Углов А.Л., Гайдученя В. Ф., Соколов П. Д. Оценка деформационной анизотропии механических свойств сплавов акустическим методом // Обработка металлов давлением. Свердловск: УПИ, 1987. — С. 34 — 37.
- Хван Д.В. Технологические испытания металлов. Воронеж: Изд-во Воронежского ун-та, 1992. — 152 с.
- Пб.Хилл Р. Математическая теория пластичности. М.: ГИТТЛ, 1956. — 408 с.
- Цой Д. Н. Волочение тонкостенной трубы через коническую матрицу // Известия АН СССР. Механика твердого тела. 1987. — № 4. — С. 182 -184.
- Цой Д. Н. Предельная степень вытяжки анизотропной листовой заготовки // Известия вузов. Машиностроение. 1986. — № 4. — С. 121 — 124.
- Шляхин А.Н. Оценка надежности технологических переходов глубокой вытяжки осесимметричных цилиндрических деталей без утонения // Вестник машиностроения. 1995. — № 4. — С. 33 — 36.
- Шляхин А.Н. Прогнозирование разрушения материала при вытяжке цилиндрических деталей без утонения // Вестник машиностроения -1995.-№ 5.-С. 35 37.
- Яковлев С.П., Кухарь В. Д. Штамповка анизотропных заготовок. -М.: Машиностроение, 1986. 136 с.
- Яковлев С.П., Яковлев С. С., Андрейченко В. А. Обработка давлением анизотропных материалов. Кишинев: Квант. — 1997.- 331 с.
- Яковлев С.С. Вопросы теории штамповки анизотропных листовых заготовок // Исследования в области теории, технологии и оборудования штамповочного производства. Тула: ТулГУ, 1994. — С. 70 — 79.
- Яковлев С.С., Арефьев В. М., Перепелкин А. А. Влияние технологических параметров вытяжки с утонением стенки анизотропного материала на силовые режимы процесса // Известия вузов. Машиностроение. -1992.-№ 7−9.- С. 125- 129.
- Яковлев С.С., Корнеев Ю. П., Арефьев В. М. Изготовление цилиндрических изделий с толстым дном и тонкой стенкой из анизотропного материала // Кузнечно-штамповочное производство. 1992. — № 2. -С. 28 — 30.
- Baltov A., Savchuk A. A Rule of Anisotropik Hardening // Acta Mechanics 1965. — Vol. 1. — № 2. — P. 81 -92.
- Bhattacharyya D., Moltchaniwskyi G. Measvrement of Anisotropy by the Ring Compression Test // J.Mech. Work. Technol. -1986. 13. — № 3. — P. 325 -330.
- Korhonen A.S. Drawing Force in Deep Drawing of Cylindrical Cup with Flatnosed Punch // Trans. ASME J.Eng. Jnd. -1982. -104. № 1. -P. 29−37.
- Korhonen A.S., Sulonen M. Force Requirements in Deep Drawing of Cylindrical Shell //Met. Sci. Rev. met. -1980. -77. № 3. -P. 515 — 525.
- Wu M.C., Yeh W.C. Some Considerations in the Endochronic Description 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. Файл Prjstep. pas }
- FullCount = False Then Begin
- Writeln ('Bbi6epHTe критерий разрушения: 1 по максимальному осевомунапряжению') — Writeln (' 2 по величине накопленныхмикроповреждений1) — Writeln (' 3 локализация деформации') —
- Writeln (' ' 4 все критерии')-3: Ch:= ReadKey- Case Ch Of
- DrBez: Begin Write ('BBe^HTe md-) — Readln (md) — Keepmd:= md- End- DrUt,
- DrKomb: Begin Write ('BBeflHTe ms-) — Readln (ms) — Keepms:= ms- End- End- { Case }1. PrintTabl-
- FirstStep = True Then Begin Time (0) — FirstStep:= False- End- alfa := 10- • Rm := Round (2*s0) — EndRm :=Round (10*s0) — StrNum := 1- Rez := Absol- LetPass™ True-4: alfa:=alfa/l 80*pi- Num := 0- 1: Razr:= False- Lok := False- Root := True-
- RazMode:= Keeper- Flag:= False- Smallmd:= False- Case Draw Of1. DrBez: Case Swage Of
- Rad: DrawingBezRad- Kon: DrawingBezKon- End-1. DrKomb: Case Swage Of
- Rad: DrawingKombRad- Kon: DrawingKombKon- End-1. DrUt: Case Swage Of
- Rad: DrawingUtRad- Kon: DrawingUtKon- End- End- { Case } If Num <> 0 Then. PrintRez-1. (Razr = True) Or (Lok = True) Then Begin
- Window (1,19,80,25) — Case Raz Mode Of Lokaliz:1. Begin
- Writeln ('Локализация !!! WritelnC WritelnC End-1. Omega: Begin
- Writeln ('Pa3pymeHHe !!! omegal > omegajpr') — Writeln ('omegal = ', omegal:6:3) — Writeln ('omegapr = ', omegapr:6:3) — End- Sigma: Begin If St= 'sigmateta' Then Begin If St = 'sigmateta' Then
- Writeln ('OmH6Ka !!! :', St,'=', sigmateta: 11:2) Else
- Writeln ('OiiiH6Ka !!!: St/ =', sigmaro: l 1:2) — End Else Begin
- Writeln ('Pa3pyuieHHe !!!: ', St,' > sigmapr') — Writeln (St,' =', sigma:8:2) — Writeln ('sigmapr =', sigmapr:8:2) — End- End- End- { Case}1. GoToXY (44,l) —
- Write ('Начальное значение ') — Case Draw Of DrUt,
- Dr Komb: Writeln ('ms = ', Keepms:5:3) — DrBez: Writeln ('md = ', Keepmd:5:3) — End- {Case}
- GoToXY (44,2) — Writeln ('Koличecтвo вычислений *, Num:7) GoToXY (44,3) — Writeln ('Bcero ', AllNum:7)-1. Case Draw Of DrBez: Begin1. Writeln (' md =', md:6:3)-md:= md + eps- If md ≥ 1 Then
- Flag:= True- Writeln ('HoBbie значения md, md:6:3) — End- DrJComb, DrUt:1. Begin
- Writeln (' md-, md:6:3,' ms -, ms:6:3)-ms:= ms + eps- If ms ≥ 1 Then Flag:= True-
- Writeln ('HoBbie значения md, md:6:3,' ms —, ms:6:3) — End- End- { Case }1. Time (1) —
- GoToXY (44,5) — Writeln ('BpeMM работы', WorkTime: 17) —
- Flag = True Then Begin Root:= False- ClrScr-
- Window (l, 13,80,25) — PrintRez- Goto 2- End-
- KeyPressed Then Begin Ch:= Readkey- If Ch = #27 Then Begin Writeln-
- Writeln (' !!! Работа прервана !!!') — Halt- End- End-
- Window (1,13,80,25) — Num:= Num + 1- AllNum- AllNum+ 1- GoTo 1- End1. Else
- Num = 0 Then Begin Case Draw Of Dr Komb, DrUt: Begin ms:= ms 0.1- Keepjns" ms- If ms < 0 Then Begin Root:= False-1. PrintRez- GoTo 2- End
- Else If (ms 0.01) < 0 Then ms:= 0.01- End- DrJBez: Beginmd:= md 0.1- If md < 0 Then Begin
- Roo.t:= False- PrintRez- GoTo 2- End
- Else If (md-0.01) <0 Then Begin md:= 0.01- Keepmd:= md- End- End- End- {Case} GoTo 1- End-2:alfa:=alfa*180/Pi- Case Swage Of Kon: Beginalfa:= alfa+10- Ifalfa>41 Then LetPass:= False- End- Rad: Begin
- Rm := Rm + Round (2*s0) — If Rm > EndRm-Eps Then LetPass™ False- End- End- { Case }
- LetPass = True Then Begin Case Draw Of DrKomb, DrUt: Begin If Num > 100 Then Begin
- Keepms:= Keepms + (Num Div 100)/l 0 If Keepms > 0.9 Then Keepms:= 0.9-
- End- ms:= Keepms- End- DrBez: Begin1. Num > 100 Then Begin
- Keepmd:= Keepmd + (Num Div 100)/10 If Keepmd > 0.9 Then
- Keepmd:= 0.9- End- md:= Keepmd- Ifmd< 0.2 Then md:= 0.2- End- End- {Case } StrNum~ StrNum+1- GoTo 4- End- PrintEnd-1. (FullCount = True) And (Pass < 6) Then Begin Case Draw Of
- DrKomb, DrUt: ms:= Keepms- DrBez: md:= Keepmd- End- {Case } GoTo 5- End-
- Delay (2000) — Window (1,19,80,25) — ClrScr-
- WritelnC КОНЕЦ ПРОГРАММЫ') —
- Close (fff) — Ch~ Readkey- End. файл DrawО.pas } Unit DrawO-1.terface Uses Crt, Dos-
- Type RazrType = (Omega, Sigma, Ail, Lokaliz) — DrawType = (DrBez, DrKomb, DrJJt) — Rez Type = (Otnos, Absol) — MaterType = 1.10- SwageType = (Rad, Kon) —
- DataType = Array1.21. Of Record FirstPlace: Real- Pre s: Real- PreOmegal: Real- PreEpsl: Real- PreEpsx: Real- PreEpsy: Real- PreEpsz: Real- End-
- StrengthType = Array 1.21. Of Record Power: Real- Sigma: Real- R00: Real- R45: Real- R90: Real- End-dFiType = Array 1.20. Of Real-
- Var Nparts, Npoints: Integer-nla, nlb, nlv: Integer-
- Vp, Hp, Hptek, DeltaHp, hiz, hiz, t, Deltat: Real- fff: Text-
- Num, AllNum, StrNum, Pass: Integer- Razr, Lok, Flag, Root, LastStep, FullCount: Boolean- ch: char-
- RazMode, Keeper: RazrType- Draw: DrawType- Mater :• MaterType- Swage: SwageType- Zona: ZonaType- Rez: RezType- St: String10.-
- MaterName: String70.- WorkTime: String[12]- WithInZona2: Boolean- Smallmd: Boolean-
- Data: DataType- AllProcessInfo: InfoType- i, j, Keeperi: Integer- Out: Text-
- ControlConsist, Consist, SeeAllProcess: Boolean- P First, PLast, SigmaFirst, Sigma Last: Real-1. Procedure InitData-
- Function InitInFile (Var Mater: MaterType): String-1. Procedure Par-1. Procedure Res-1. Procedure Def-1. Procedure Volumes-1. Procedure NewVolumes-1. Procedure GetFirstPlaces-
- Function TempPlace (i: Integer): Real-1. Procedure Prepare Var-1. Procedure ReFreshData-1. Procedure FullAdjoin-1. Procedure Zonal-1. Procedure Zona2−1. Procedure DrawingKombKon-1.plementation { }1. Т58
- Procedure InitData- Var f, fm: Text-1. St: String-1. Begin Clrscr-
- Assign (f,'danv.txt') — Reset (f) —
- Readln (f, Ch) — { Вид матрицы }1. Case Ch Of•0': Swage: — Rad- 'Г: Swage:= Kon- End- {Case}
- Контроль предельных возможностей формоизменения в момент совпадения радиуса пуансона с рабочим пояском матрицы (Да/Нет) }1. Readln (f, Ch) — Case Ch Of0': ControlConsist— False- '1': ControlConsist:= True- End- { Case }1. Readln (f, Mater)-1. Close (f) —
- St:= InitInFile (Mater) — St~ 'InV+St-1. Assign (fm, St) — Reset (fm) —
- Readln (fm, MaterName) — Readln (fm, sO) —
- Readln (fm, sigmatx, ax, nx, mx, kk) — Readln (fm, sigmaty, ay, ny, my) — Readln (fm, sigmatz, az, nz, mz) — Readln (fm, tautxy, axy, nxy) — Readln (fm, tautyz, ayz, nyz) — Readln (fm, tautzx, azx, nzx) — Readln (fm, a, b, aO, al, a2, a3) — Close (fm) — Clrscr- End-5} {4} {4} {3} {3} {3} {6}
- Var Tmpl, Tmp2, Tmp3,Tmp4: Real- Begin
- Epsl:=Data1.PreEpsl+depsl-1. depsl <> 0 Then Begin Tmpl :=step (epsl, nx) — Tmp2 :=sqr (epsx/epsl) — Tmp3:=step ((l+Tmp2), mx) —
- WithInZona2 = True Then Begin1. Case RazMode Of
- Omega: domegal:=depsl/(epsilpr*step ((l-Data1.PreOmegal), kk)) — All: domegal~depsl/(epsilpr*step ((l-Datai.PreOmegal), kk)) — Sigma: domegal:=depsl/epsilpr- Lokaliz: domegal:=depsl/epsilpr- End-omegal:= Omegal+domegal- End Else Begin1. Case RazMode Of
- Epsy:= Ln (TempPlace (i)/Data1.FirstPlace) — If j = 1 ThendEpsy := Epsy ElsedEpsy:= Epsy Data1. PreEpsy-dEpsx:= dEpsy* (h*(Sigmaro-Sigmateta)+g*Sigmaro) /f|tSigmateta+h*(Sigmateta-Sigmaro)) — dEpsz:= -dEpsy* (g*Sigmaro+f*Sigmateta) /
- PSigmateta+h*(Sigmateta-Sigmaro)) — Epsl™ Data1. PreEpsl+dEpsl- Epsx:= Datai. PreEpsx+dEpsx- Epsz:= Data[i]. PreEpsz+Abs (dEpsz) — ds:= sO*dEpsz- s:= Data[i]. Pres+ds- End-}
- Procedure Volumes- { Объемные соотношения } Var Rps, fi: Real- Begin d0:= 2*r0- Rps:= Rp+0.5*s0- dl:= dO*md- Case Draw Of Dr Bez: sl:= sO- DrKomb: sl:= sO*ms- DrUt: si:= sO*ms- End- {Case}dp:= dl-sl-1. dp <0 Then Begin Smallmd := True- Exit- End-
- Определение высоты детали }
- V6:= (l/2*Sqr (sO)*cos (alfa)*sin (alfa) + l/2*(s0*cos (alfa)+sl) * (sO*cos (alfa)-sl) / tan (alfa)) * Pi*dl-
- R2:=dp/2-Rp+(Rp+0.5*s0)*cos (alfa) —
- Вычисление количества участков }
- V2~ Pi*(rp+0.5*s0) * (Pi/2-alfa) * sO * { fi → alfa }dp 2*rp + 2*(rp+0.5*s0) * sin (pi/4-alfa/2)) — V7:= V0-V1-V2-
- R1 := Sqrt (V7*sin (alfa) / (Pi*s0) + Sqr (r2))-1. Draw = DrBez Then Begin
- NParts:= 20- { Количество участков }
- Npoints:=Nparts+l- { Количество точек } V6:= V7/NParts- End Else Begin
- Nparts := Trunc (V7/V6) — If NParts > 20 Then
- NParts:= 20- If NParts < 2 Then
- NParts:= 2- Npoints:= Njparts+1- End- End------------------:-------------------------------------------------------}
- V6:= V7/NParts- V3:= (l/2*s0*sin (fi)*cos (fi) + l/2*(sl+s0*cos (fi)) * rp*sin (fi)) * Pi*dl-1. End----------------------------------------------------------------------}
- Procedure GetFirstPlaces- { Определение первоначального положения } { точки в плоской заготовке }1. Var i: Integer- Begin1. For i:= 1 To NPoints Do
- Data1.FirstPlace:= Sqrt ((Vl+V2+(Nparts-i+l)*V6) / (Pi*sO))-1. End------------------------------------------------------------------------}
- Определение текущего положения точки } Function TempPlace (i: Integer): Real- Begin
- TempPlace:= Sqrt (Sqr (R2)+(Nparts-i+l)*V6*sin (alfa) / (Pi*sO)) — End-}
- Procedure PrepareVar- Var Tmp: Integer- Beginepsl:= 0- depsl:= 0- omegal:= 0- epsx:= 0- depsx:= 0- epsy:= 0- depsy:= 0- epsz:= 0- depsz:= 0-
- For Tmp:= 1 To NPoints Do Begin
- DataTmp.Pres := sO- Data[Tmp]. PreOmegal := 0- Data[Tmp] .Pre Epsl := 0- Data[Tmp]. PreEpsx := 0- Data[Tmp]. PreEpsy := 0- Data[Tmp]. PreEpsz :=0- End- End---------------------------------------
- Procedure ReFreshData- Begin Data1. Pres := s- Datai. PreOmegal:= Omegal- Data[i]. PreEpsl := Epsl- Data[i]. PreEpsx Epsx- Data[i]. PreEpsy := Epsy- Data[i]. PreEpsz := Epsz- End-}
- Полное прилегание заготовки к матрице } Procedure FullAdjoin- Var k: Integer-
- Sigmatetal, si: Real- Sigmatetai, Sigmaroi: Real- Label 1- Begin s:= sO-i:= 1- { Рассматриваемый момент времени } j:=l- Par-
- Sigmaro := 0- Sigmaroi := 0- Sigmateta := 0- For i:= 1 To Npoints Do Begin k:=l-1:1.i> 1 Then
- Sigmaro:=sigmaroi+(sigmatetai+mum*sigmatetai/tan (alfa)-sigmaroi)* (TempPlace (i)-TempPlace (i-l))/TempPlace (i-1) — If Check Sigmateta = True Then Exit-
- Sigmateta:= (h/Psigmaro-Sqrt (Sqr (h/f)*Sqr (sigmaro)-(l+h/f)* (Sqr (sigmaro)*(h/f+g/f)-1 / f)))/(1 +h/f)-1. Def-
- Sigmax:= Sigmaro- Sigmay:= Sigmateta- Sigmaz:= 0- Res-
- RazMode In Omega, All. Then If CheckOmega = True Then Exit-1. Par-1. k = 1 Then Begin k:= k+1-
- Sigmatetal := Sigmateta- GoTo 1- End-
- Abs (Sigmatetal Sigmateta) ≤ Eps Then Begin Sigmaroi := Sigmaro- Sigmatetai:= Sigmateta- End
- Else Begin k:= 1- • GoTo 1- End-
- P:= 2*Pi*R2*S0*Sigmaro*Sin (alfa)-1. ReFreshData- End- End-. } Procedure Zonal- { Зона плоского напряженного состояния } Var k: Integer-
- Sigmatetal, si: Real- Sigmatetai, Sigmaroi: Real- Place: Real-1.bel 1- Begini:= 1- { Рассматриваемый момент времени } j:=2-
- Omegal:= Datal. PreOmegal- Par-
- Sigmaro := 0- Sigmaroi := 0- For i:= 1 To Npoints Do Beginomegal:= Data1. PreOmegal- k:=l-1:1.i> 1 Then
- Sigmaro:=sigmaroi+(sigmatetai+mum*sigmatetai/tan (alfa)-sigmaroi)* (TempPlace (i)-TempPlace (i-1))/TempPlace (i-1) —
- CheckSigmateta = True Then Exit-
- Sigmateta:= (h/ficsigmaro-Sqrt (Sqr (h/f)*Sqr (sigmaro)-(l+h/f)* (S qr (sigmaro)* (h/f+g/ f)-1 /f)))/(1 +h/f)-1. Def-
- Sigmax:= Sigmaro- Sigmay:= Sigmateta- Sigmaz:= 0- Res-
- RazMode In Omega, All. Then If CheckOmega = True Then Exit-1. к = 1 Then Begin k-k+1-
- Sigmatetal := Sigmateta- GoTo 1- End-
- Abs (Sigmatetal Sigmateta) ≤ Eps Then Begin Sigmaroi := Sigmaro- Sigmatetai:= Sigmateta- si:=s + ds- End Else Begin k~l- GoTo 1- End-
- P:= 2*Pi*R2*S0*Sigmaro*Sin (alfa)-1. ReFreshData- End- End--------------------------------------------------------------------------}
- RazMode In Omega, All. Then If Check Omega = True Then Exit-1. Par- si:—s-sigmaro^sigmaroi 1 — sigmak:=sigmakl — roi:=roil-
- RazMode = Lokaliz Then CheckLok-'1. abs (roil-ro2)>0.01*dro Then goto 2- LastS tep:= True- tan:=sin (alfa/2)/cos (alfa/2)-sigmax:=sigmaroil+tauszx*sqrt ((l-c)/(l-c*sqr (sin (alfa))))*tan-
- RazMode = Lokaliz Then If CheckJLok = True Then Exit-
- CheckRazr = True Then Exit-
- P:= 2*pi*r*sl*sigmax+pt- End-
- Procedure DrawingKombKon- Var Strength: StrengthType-
- KeepNPoints: Integer- Begin r:= rO*md-
- WithInZona2 := False- Consist— True- Volumes- GetFirstPlaces- PrepareVar- FullAdjoin- If Razr = True Then Exit-
- KeepNPoints:= NPoints- sb:= sO-
- NPoints:= NPoints -1- While NPoints ≥ 1 Do Begin NewVolumes- Zonal-
- Razr = True Then Exit- Zona2- WithInZona2 := False- If Razr = True Then Exit-
- ControlConsist = True Then Begin If Consist = True Then Begin PFirst:= P- SigmaFirst:= Sigmax- Consist™ False- End-1. RazMode = Lokaliz Then1. CheckLok Else1. CheckRazr- Exit- End-
- SeeAllProcess = True Then Begin
- Акт внедрения прилагается.1. Заведующий кафедрой1. МПФ, д.т.н., профессор1. С.П. Яковлев1. ТЕХНИЧЕСКИЙ АКТ ВНЕДРЕНИЯ
- Результаты работы использованы также при проектировании новых изделий.1. Нач. отдела, к.т.н.утверждаю"
- ТулГУ, профессор H.H. Фролов2001 г. 1. АКТоб использовании результатов работы
- Зав. кафедрой МПФ, Заслуженный деятель науки и техники РФ, д.т.н., профессор1. С.П. Яковлевутверждаю"директор ОАО ТНИТИ ^ Э. С. Дубровскийапреля 2001 г. 1. АКТоб использовании результатов научно-исследовательской работы
- Экономический эффект получен за счет сокращения сроков технологической подготовки производства, уменьшения трудоемкости и энергоемкости изготовления корпусов амортизаторов, снижения брака.
- Начальник отдела специальных методов ОМД1. А.Ф. Лавров