Расчетные методы оценки свариваемости

Размещено на http://www.allbest.ru/

Российский Государственный Университет нефти и газа имени И.М. Губкина

Кафедра: «Сварка и мониторинг нефтегазовых сооружений»

КУРСОВАЯ РАБОТА

на тему: «Расчетные методы оценки свариваемости»

Выполнил: Ляпичев Д.М.

Проверил: Ефименко Л.А.

Москва 2008

Содержание

Введение

1. Понятие свариваемости

1.1 Сопротивляемость образованию горячих трещин

1.2 Сопротивляемость образованию холодных трещин

2. Расчетные методы оценки параметров свариваемости

2.1 Расчетно-статистический метод оценки стойкости сплавов против образования ГТ

2.2 Расчетно-статистический метод оценки стойкости сплавов против образования ХТ

3. Описание программы

4. Результаты расчетов сталей нефтегазового сортамента

Заключение

Список используемой литературы

Приложение

Введение

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

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

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

Расчетная часть работы содержит результаты проведённых расчетов различных параметров свариваемости для сталей нефтегазового сортамента.

1. Понятие свариваемости

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

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

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

Так как количество показателей, характеризующих свойства основного металла, велико, свариваемость является комплексной характеристикой, включающей следующее:

· реакцию металла на термодеформационный цикл сварки, проявляющийся в склонности к росту зерна, структурным и фазовым изменениям в металле шва и в зоне термического влияния;

· сопротивляемость образованию горячих трещин;

· сопротивляемость образованию холодных трещин;

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

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

1.1 Сопротивляемость образованию горячих трещин

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

Трещины различают по внешним и внутренним причинам их образования[3].

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

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

Так же причинами образования горячих трещин являются напряжения как внутренние, так и внешние.

Выделяют два вида горячих трещин:

-кристаллизационные

-полигонизационные (подсолидусные)

Кристаллизационные трещины образуются при температурах, превышающих температуру солидуса.

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

Рис. 1. Горячие трещины в сварных соединениях: 1 - Продольные в шве и околошовной зоне. 2 - поперечные в шве и околошовной зоне 3 - поперечные по толщине в свариваемом металле и металле предшествующего слоя при многопроходной сварке.

Согласно теории технологической прочности металлов при сварке, сопротивляемость сварного соединения образованию горячих трещин определяется тремя основными факторами:

- пластичностью металла в температурном интервале хрупкости(ТИХ)

-значением этого интервала

-характером нарастания деформации при охлаждении (темпом деформации сварного соединения)

Размещено на http://www.allbest.ru/

Это графически наглядно проиллюстрировано на графиках, представленных на рис. 2.

Исходя из этих графиков можно сделать следующие выводы:

Чем меньше пластичность металла в ТИХ, тем при равных прочных условиях больше вероятность образования горячих трещин.

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

Чем больше протяженность ТИХ, тем больше вероятность возникновения трещины.

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

Чем больше темп деформации в ТИХ, тем больше вероятность образования горячих трещин.

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

1.2 Сопротивляемость образованию холодных трещин

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

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

Табл.1. «Разновидности холодных трещин»

Трещины	Основные процессы или факторы, обусловливающие трещины
«Холодные» в сварных соединениях перлитных и мартенситных сталей (а также «отколы»,«подваликовые»)	Мартенситное превращение аустенита в околошовной зоне или сварном шве.
«Отрывы» по зоне сплавления низколегированных и легированных сталей при сварке аустенитными сварочными материалами	Мартенситное превращение аустенита в зоне перемешивания основного и наплавленного металлов
«Ламелярные» в околошовной зоне перлитно-ферритных сталей	Скопление неметаллических включений в элементах полосчатой микроструктуры стали
«Холодные» в околошовной зоне и шве легированных бейнитных сталей: продольные в однослойных и в районе последних слоев многослойных соединений (а также «отколы») поперечные в многослойных соединениях (а также «частокол»)	Превращение аустенита в области нижнего бейнита, насыщение водородом Сегрегация примесей на границах аустснитных зерен при повторном нагреве до 400-- 700 "С в процессе наложения последующих слоев, насыщение водородом
«Холодные» в околошовной зоне и шве мартенситно-стареющих сталей в соединениях: однослойных многослойных	Насыщение водородом Сегрегации примесей и фазовые выделения на границах аустенитных зерен при повторном нагреве до 500-- 700 °С после перерыва в сварке
«Холодные» в сварных соединениях высокохромистых ферритных сталей	Выделение карбонитридных фаз по границам зерен при охлаждении после сварки

Наиболее изучены холодные трещины двух первых разновидностей типа «откола» и «отрыва» и установлен ряд закономерностей их образования. Трещины образуются непосредственно после окончания сварки при охлаждении ниже 200-100 °С, а также в послесварочный период в течение нескольких суток. Трещины могут возникнуть в том случае, если металл в одной из зон сварного соединения претерпевает полную или частичную закалку. Ориентировочно минимальная доля мартенсита в структуре перлитных сталей, при которой возможно образование холодных трещин, составляет 25--30%.

Исследование шлифов, свободной поверхности сварных соединений и излома трещин показывает, что холодные трещины состоят из очага разрушения и участка развития трещины

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

Основными факторами, обусловливающими возникновение трещин, являются:

1) структурное состояние металла сварного соединения, характеризуемое наличием составляющих мартенситного и бейнитного типа;

2) уровень растягивающих сварочных напряжений первого рода, определяемый жесткостью сварной конструкции, режимом сварки, типом металла шва и другими причинами;

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

Холодные трещины являются одним из случаев замедленного разрушения «свежезакаленной» стали. Закономерности замедленного разрушения следующие

1) разрушение возникает после некоторого инкубационного периода при деформировании с малыми скоростями (Э ? 10 1/с) или нагружении постоянной нагрузкой; при этом сопротивляемость разрушению много меньше кратковременной прочности и зависит от времени действия нагрузки;

2) сопротивляемость разрушению постепенно возрастает с увеличением времени после термического воздействия (от 1 суток до 1 года) в результате так называемого процесса «отдыха»;

3) склонность к разрушению полностью подавляется при охлаждении ниже -70 °С, восстанавливаясь при последующем нагреве до 20 °С, заметно ослабляется при нагреве до 100 - 150 °С и полностью исчезает при нагреве до 200 - 300 °С.

2. Расчетные методы оценки параметров свариваемости

2.1 Расчетно-статистический метод оценки стойкости сплавов против образования ГТ

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

Метод применим только для тех сплавов, которые входят в концентрационные пределы изученных композиций.

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

Поэтому этот метод рекомендуется только для приближенных экспресс-оценок.

Рекомендуемые параметрические уравнения

Параметрическое уравнение	Вид оценки	Область применения
	<4 -не склонная <2 -не склонная	Для сталей с Для сталей с
	<10 -стойкая 30 -склонная	Nb-микролегированные стали
	>6 - стойкая <1.8 - склонная	Легированные стали
	>1.5 при P+S=0.02-0.035 - стойкая <1.5 при P+S>0.02 - склонная	Cr-Ni -аустенитные стали
	L>0 склонные	Аустенитно-ферритные стали

2.2 Расчетно-статистический метод оценки стойкости сплавов против образования ХТ

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

Основными параметрами оценки склонности сталей к образованию холодных трещин являются эквивалент углерода( С_ЭКВ) и параметр трещинообразования P_CM

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

-рекомендуемые Международным Институтом Сварки (МИС)

-предложенный японскими исследователями

-по ГОСТ 27772-88 для проката, предназначенного для конструкций

-по нормативным документам ОАО «Газпром»

-по APL 5L для труб класса PSL2

-предложеный Британской ассоциацией (BWRA)

-для трубных сталей категории прочности Х70

-для беcперлитных сталей

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

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

Для экспресс-оценки склонности конструкции к образованию холодных трещин используется следующее параметрическое уравнение:

,

где - количество диффузионного водорода в металле шва, установленное глицериновым методом [мл/100г], -постоянная зависящая от жесткости конструкции для пробы «Тэккен 685»(находится в пределах 200ч1000Н/мм²), - толщина стали[мм],

-параметр, учитывающий химический состав стали, определяется параметрическим уравнением Ито-Бессио:

При >0.286 возможно образование холодных трещин. Уравнение применимо низколегированным высокопрочным сталям с низким содержанием C, при сварке с погонной мощностью 17кДж/см

3. Описание программы

Для реализации вышеперечисленных расчетных методов оценки свариваемости мною была написана программа в среде программирования Delphi. Использование данной среды позволило сделать процесс вычисления и анализа параметров свариваемости сталей быстрым, «прозрачным» для пользователя.

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

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

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

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

Разработанное программное обеспечение имеет большую функциональность:

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

Данное программное обеспечение проводит оценку множества различных параметров свариваемости. Их общее число на данный момент 17. Но надо заметить, что программный продукт написан, так, что возможно добавление ещё 83 параметров без существенного изменения исходного кода программы.

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

Так же в программе предусмотрена возможность как полного анализа материала, так и оценки его по отдельным, выбираемым пользователем параметрам

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

Программа не требует установки на компьютер и может работать с переносных носителей, при условии возможности записи файлов на них.

Главное окно программы представлено на рис.3.

Рис.3. Главное окно программы

Исходный текст программы представлен в Приложении 1.



Размещено на http://www.allbest.ru/

4. Результаты расчета сталей нефетегазового сортамента

С помощью разработанного программного продукта было проведено исследование нескольких сталей, широко используемых в нефтегазовой отрасли, полученные результаты были перенесены в программу Microsoft Excel, после чего было проведено ранжирование сталей по эквивалентам углерода, и параметру P_CM

	HCS	UCS	Vкр	L	Рсм	МИС	ГАЗПРОМ	X70	БЕСПЕРЛ	BWRA
X80 JFE	0,178018	3,325	26,581	-86,48	0,163	0,398	0,406	0,3506167	0,1827666	0,1573333
X80 СЕВЕРСТАЛЬ	0,2021739	6,486	24,513	-87,06	0,1658333	0,3766	0,380666	0,3704167	0,191975	0,152
X80 АЗОВСТАЛЬ	0,286356	8,852	24,751	-74,02	0,1765333	0,4102666	0,4290666	0,3566167	0,1905583	0,1858
X80 EN	0,2462838	7,4	26,38	-81,14	0,1808333	0,4246667	0,4326666	0,3848667	0,2002917	0,179
X100	0,3033333	8,665	27,639	-75,37	0,205	0,4733333	0,4863333	0,4026667	0,2200833	0,2083333
X80 ПО ГАЗПРОМ	0,6491228	19,43	23,036	-75,1	0,2175	0,438333	0,4386333	0,4113333	0,237375	0,2075
13ГС	2,20689	37,775	12,675	-60,15	0,2425	0,3916667	0,3986667	0,3916666	0,264625	0,2225
08ХГСП	3,45	38,96	2,44	-75,1	0,2466667	0,4866667	0,486667	0,35	0,272	0,24
10Г2ФБЮ	1,1630219	27,67	17,12	-56,63	0,2578333	0,5043333	0,5163333	0,42633	0,2829583	0,2655
09Г2СД	2,37778	37,485	4,4	-69,12	0,261667	0,483333	0,48333	0,4258333	0,292	0,235

	HCS	L	Рсм	МИС	ГАЗПРОМ	X70	X70	БЕСПЕРЛ	BWRA
X80 СЕВЕРСТАЛЬ	0,202174	-87,06	0,1658333	0,3766	0,380666	0,4551429	0,3704167	0,191975	0,152
13ГС	2,20689	-60,15	0,2425	0,3916667	0,3986667	0,5257143	0,3916666	0,264625	0,2225
X80 JFE	0,178018	-86,48	0,163	0,398	0,406	0,4694286	0,3506167	0,1827666	0,1573333
X80 АЗОВСТАЛЬ	0,286356	-74,02	0,1765333	0,4102666	0,4290666	0,4862857	0,3566167	0,1905583	0,1858
X80 EN	0,246284	-81,14	0,1808333	0,4246667	0,4326666	0,5148571	0,3848667	0,2002917	0,179
X80 ПО ГАЗПРОМ	0,649123	-75,1	0,2175	0,438333	0,4386333	0,5642857	0,4113333	0,237375	0,2075
09Г2СД	2,37778	-69,12	0,261667	0,483333	0,48333	0,5742857	0,4258333	0,292	0,235
X100	0,303333	-75,37	0,205	0,4733333	0,4863333	0,5385714	0,4026667	0,2200833	0,2083333
08ХГСП	3,45	-75,1	0,2466667	0,4866667	0,486667	0,4542857	0,35	0,272	0,24
10Г2	2,593	-58,15	0,269	0,4966667	0,4966667	0,5228571	0,44	0,2939666	0,2716667
10Г2ФБЮ	1,163022	-56,63	0,2578333	0,5043333	0,5163333	0,48285	0,42633	0,2829583	0,2655
X80 API	1,571429	-32,12	0,3158333	0,5383333	0,5283333	0,59	0,533333	0,3389583	0,3175
	HCS	UCS	L	Рсм	МИС	API 5L	C>0,18%	X70
X80 СЕВЕРСТАЛЬ	0,2021739	6,486	-87,06	0,1658333	0,3766	0,1658333	0,52791	0,4551429
13ГС	2,20689	37,775	-60,15	0,2425	0,3916667	0,2425	0,5375	0,5257143
X80 JFE	0,178018	3,325	-86,48	0,163	0,398	0,1636666	0,5072619	0,4694286
X80 АЗОВСТАЛЬ	0,286356	8,852	-74,02	0,1765333	0,4102666	0,1783	0,5044524	0,4862857
X80 EN	0,2462838	7,4	-81,14	0,1808333	0,4246667	0,1811667	0,5589643	0,5148571
X80 ПО ГАЗПРОМ	0,6491228	19,43	-75,1	0,2175	0,438333	0,2175	0,58125	0,5642857
X100	0,3033333	8,665	-75,37	0,205	0,4733333	0,205	0,5583333	0,5385714
09Г2СД	2,37778	37,485	-69,12	0,261667	0,483333	0,2616667	0,6383333	0,5742857
08ХГСП	3,45	38,96	-75,1	0,2466667	0,4866667	0,24666	0,5933	0,4542857
10Г2	2,593	38,686	-58,15	0,269	0,4966667	0,269	0,6216667	0,5228571
10Г2ФБЮ	1,1630219	27,67	-56,63	0,2578333	0,5043333	0,2605	0,6032143	0,48285
X80 API	1,5714285	44,385	-32,12	0,3158333	0,5383333	0,3175	0,6860714	0,59

Отдельно проведено исследование сталей категории прочности Х80, которые планируется использовать для строительства новых высокоэффективных газопроводов, позволяющих транспортировать природный газ под давлением 9,8 - 11,7 МПа, тогда как большая часть действующих магистральных газопроводов рассчитана на рабочее давление до 7,4 МПа.

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

НАИМЕНОВАНИЕ СТАЛИ	HCS	Crэ/Niэ	L	Pсм	МИС	ГАЗПРОМ	API 5L	ГОСТ	X70	BWRA	Hvmax
Северсталь	0,2	0,16	-87,1	0,17	0,38	0,38	0,17	0,39	0,37	0,15	299,9
JFE (Япония)	0,18	0,43	-86,5	0,16	0,4	0,41	0,16	0,38	0,35	0,16	283,4
Азовсталь	0,29	0,5	-74	0,18	0,41	0,43	0,18	0,37	0,36	0,19	300,6
EN (Англия)	0,25	0,41	-81,1	0,18	0,43	0,43	0,18	0,41	0,39	0,18	312,1
По стандарту ГАЗПРОМ	0,65	0,32	-75,1	0,22	0,44	0,44	0,22	0,44	0,41	0,21	354,9
По стандарту API 5L	1,57	0,046	-32,1	0,32	0,54	0,56	0,32	0,54	0,53	0,32	459,8



Заключение

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

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

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

свариваемость сопротивляемость трещина программирование

Список использованной литературы

1.Ефименко Л.А., Прыгаев А.К. Елагина О.Ю. Металловедение и термическая обработка сварных соединений:Учебн. Пособие.-М.:Логос, 2007-456с.:ил.

2. Сварка и свариваемые материалы: в 3-х томах.Т.1. Свариваемость материалов.Справ.изд./под ред. Э.Л.Макарова М.:Металлургия 1991-528с.:ил

3.Гривняк И. Свариваемость сталей.-М.: Машиностроение, 1984.-216с

4.Сварка в машиностроении: Справочник в 4-х т./Редкол. Г.А. Николаев(пред) и др.-М.:Машиностроение, 1978. 504с.:ил

5. Еремин Е.Н. Свариваемость сталей:Учеб.пособие.-Омск:Изд-во ОмГТУ, 2005г.-160с.:ил

Приложение 1.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, Grids, StdCtrls;

type

TForm1 = class(TForm)

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N8: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

rd1: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

Pw1: TMenuItem;

N13: TMenuItem;

StringGrid1: TStringGrid;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

API5L1: TMenuItem;

N0181: TMenuItem;

N27772881: TMenuItem;

N7011: TMenuItem;

N7021: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

StringGrid2: TStringGrid;

ListBox1: TListBox;

BWRA1: TMenuItem;

C1: TMenuItem;

SaveDialog2: TSaveDialog;

procedure N5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure API5L1Click(Sender: TObject);

procedure N0181Click(Sender: TObject);

procedure N27772881Click(Sender: TObject);

procedure N7011Click(Sender: TObject);

procedure N7021Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Pw1Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure BWRA1Click(Sender: TObject);

procedure C1Click(Sender: TObject);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

element=record

Name:String;

Pro:real;

Ent:boolean;

end;

var

Form1: TForm1;

InpStal,Result:text;

Sostav:array[1..100]of element;

Res:array[1..100]of element;

NameStal:string;

HCS,UCS,Vkr,CrNi,L,Cekv,HVmax,Tp,Pw,Psm:real;

Analiz:array[1..100]of string;

OutFile:text;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

var

i:byte;

Sos:string;

begin

if OpenDialog1.Execute then

begin

AssignFile(InpStal,OpenDialog1.FileName);

Reset(InpStal);

readln(InpStal,NameStal);

for i:=1 to 20 do

begin

readln(InpStal,Sos);

Sostav[i].Pro:=StrToFloat(SoS);

end;

CloseFile(InpStal);

StringGrid1.Cells[0,0]:='Название';

StringGrid1.Cells[1,0]:=NameStal;

for i:=1 to 20 do

begin

StringGrid1.Cells[0,i]:=Sostav[i].Name;

StringGrid1.Cells[1,i]:=FloatToStr(Sostav[i].Pro);

end;

StringGrid1.Visible:=true;

N14.Enabled:=true;

N2.Enabled:=true;

for i:=1 to 100 do

begin

Res[i].Ent:=false;

Analiz[i]:='';

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Sostav[1].Name:='C';

Sostav[2].Name:='S';

Sostav[3].Name:='P';

Sostav[4].Name:='Si';

Sostav[5].Name:='Ni';

Sostav[6].Name:='Mn';

Sostav[7].Name:='Cr';

Sostav[8].Name:='Mo';

Sostav[9].Name:='V';

Sostav[10].Name:='Nb';

Sostav[11].Name:='Ti';

Sostav[12].Name:='Cu';

Sostav[13].Name:='N';

Sostav[14].Name:='B';

Sostav[15].Name:='Глицериновая проба H';

Sostav[16].Name:='К0';

Sostav[17].Name:='толщина';

Sostav[18].Name:='% содержание бFe';

Sostav[19].Name:='Сигма в';

Sostav[20].Name:='Сигма т';

N2.Enabled:=false;

N3.Enabled:=true;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N6Click(Sender: TObject);

var

editFile:textfile;

temp:string;

i:byte;

begin

if OpenDialog1.Execute then

begin

AssignFile(editFile,OpenDialog1.FileName);

Reset(editFile);

readln(EditFile,NameStal);

for i:=1 to 20 do

begin

readln(EditFile,temp);

Sostav[i].Pro:=StrToFloat(temp);

end;

temp:=InputBox('Редактирование','Название стали',NameStal);

NameStal:=temp;

for i:=1 to 20 do

begin

Temp:=InputBox('Редактирование',Sostav[i].Name,FloatToStr(Sostav[i].Pro));

Sostav[i].Pro:=StrToFloat(temp);

end;

Rewrite(EditFile);

writeln(EditFile,NameStal);

for i:=1 to 20 do writeln(EditFile,FloatToStr(Sostav[i].Pro));

CloseFile(EditFile);

end;

end;

procedure TForm1.N14Click(Sender: TObject);

var i:byte;

begin

NameStal:='';

for i:=1 to 20 do Sostav[i].Pro:=0;

for i:=0 to 20 do

begin

StringGrid1.Cells[0,i]:='';

StringGrid1.Cells[1,i]:='';

StringGrid2.Cells[0,i]:='';

StringGrid2.Cells[1,i]:='';

end;

N14.Enabled:=false;

N2.Enabled:=false;

ListBox1.Items.Clear;

for i:=1 to 100 do

begin

Res[i].Pro:=0;

Res[i].Ent:=false;

end;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Res[1].Name:='HCS';

Res[1].Pro:=1000*Sostav[1].Pro*(Sostav[2].Pro+Sostav[3].Pro+Sostav[4].Pro/25+0.01*Sostav[5].Pro)/(3*Sostav[6].Pro+Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro);

Res[1].Ent:=true;

Res[2].Name:='UCS';

Res[2].Pro:=230*Sostav[1].Pro+190*Sostav[2].Pro+75*Sostav[3].Pro+Sostav[10].Pro+12.3*Sostav[4].Pro-5.4*Sostav[6].Pro-1;

Res[2].Ent:=true;

Res[3].Name:='Vкр';

Res[3].Pro:=19-42*Sostav[1].Pro-411*Sostav[2].Pro-3.3*Sostav[4].Pro+5.6*Sostav[6].Pro+6.7*Sostav[8].Pro;

Res[3].Ent:=true;

Res[4].Name:='Cr э/Ni э';

Res[4].Pro:=(Sostav[7].Pro+1.37*Sostav[8].Pro+1.5*Sostav[4].Pro+2*Sostav[10].Pro+3*Sostav[11].Pro)/(Sostav[5].Pro+0.31*Sostav[6].Pro+22*Sostav[1].Pro+14.2*Sostav[13].Pro+Sostav[12].Pro);

Res[4].Ent:=true;

Res[5].Name:='L';

Res[5].Pro:=299*Sostav[1].Pro+8*Sostav[5].Pro+142*Sostav[10].Pro-5.5*Sostav[18].Pro*Sostav[18].Pro-105;

Res[5].Ent:=true;

N3.Enabled:=true;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Res[6].Name:='Сэкв по МИС';

Res[6].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro)/5+(Sostav[5].Pro+Sostav[12].Pro)/15;

Res[6].Ent:=true;

Res[7].Name:='Pсм';

Res[7].Pro:=Sostav[1].Pro+Sostav[4].Pro/30+Sostav[6].Pro/20+Sostav[7].Pro/20+Sostav[12].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/15+Sostav[9].Pro/15+5*Sostav[14].Pro;

Res[7].Ent:=true;

N3.Enabled:=true;

N11.Enabled:=false;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Res[10].Name:='Cэкв по МИС';

Res[10].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro)/5+(Sostav[5].Pro+Sostav[12].Pro)/15;

Res[10].Ent:=true;

Res[11].Name:='Сэкв по Газпром';

Res[11].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+(Sostav[9].Pro+Sostav[11].Pro+Sostav[10].Pro))/5+(Sostav[5].Pro+Sostav[12].Pro)/15+15*Sostav[14].Pro;

Res[11].Ent:=true;

Res[12].Name:='Сэкв по API 5L';

Res[12].Pro:=Sostav[1].Pro+Sostav[4].Pro/30+Sostav[6].Pro/20+Sostav[7].Pro/20+Sostav[12].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/15+Sostav[9].Pro/10+5*Sostav[14].Pro;

Res[12].Ent:=true;

Res[13].Name:='Сэкв для С>0.18%';

Res[13].Pro:=Sostav[1].Pro+Sostav[4].Pro/24+Sostav[6].Pro/4+Sostav[7].Pro/5+Sostav[5].Pro/40+Sostav[9].Pro/14;

Res[13].Ent:=true;

Res[14].Name:='Сэкв по ГОСТ27772-88';

Res[14].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+Sostav[4].Pro/24+Sostav[7].Pro/5+Sostav[5].Pro/40+Sostav[12].Pro/13+Sostav[9].Pro/14+Sostav[3].Pro/2;

Res[14].Ent:=true;

Res[15].Name:='Сэкв для Х70 (1)';

Res[15].Pro:=Sostav[1].Pro+Sostav[4].Pro/7+(Sostav[6].Pro+Sostav[8].Pro)/5;

Res[15].Ent:=true;

Res[16].Name:='Сэкв для Х70 (2)';

Res[16].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+Sostav[7].Pro/20+(Sostav[5].Pro+Sostav[12].Pro)/40+Sostav[8].Pro/50+Sostav[9].Pro/10;

Res[16].Ent:=true;

Res[17].Name:='Сэкв для безперлитных';

Res[17].Pro:=Sostav[1].Pro+Sostav[4].Pro/25+(Sostav[6].Pro+Sostav[12].Pro)/16+Sostav[7].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/40+Sostav[9].Pro/15;

Res[17].Ent:=true;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

Res[10].Name:='Cэкв по МИС';

Res[10].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro)/5+(Sostav[5].Pro+Sostav[12].Pro)/15;

Res[10].Ent:=true;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

Res[11].Name:='Сэкв по Газпром';

Res[11].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+(Sostav[9].Pro+Sostav[11].Pro+Sostav[10].Pro))/5+(Sostav[5].Pro+Sostav[12].Pro)/15+15*Sostav[14].Pro;

Res[11].Ent:=true;

end;

procedure TForm1.API5L1Click(Sender: TObject);

begin

Res[12].Name:='Сэкв по API 5L';

Res[12].Pro:=Sostav[1].Pro+Sostav[4].Pro/30+Sostav[6].Pro/20+Sostav[7].Pro/20+Sostav[12].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/15+Sostav[9].Pro/10+5*Sostav[14].Pro;

Res[12].Ent:=true;

end;

procedure TForm1.N0181Click(Sender: TObject);

begin

Res[13].Name:='Сэкв для С>0.18%';

Res[13].Pro:=Sostav[1].Pro+Sostav[4].Pro/24+Sostav[6].Pro/4+Sostav[7].Pro/5+Sostav[5].Pro/40+Sostav[9].Pro/14;

Res[13].Ent:=true;

end;

procedure TForm1.N27772881Click(Sender: TObject);

begin

Res[14].Name:='Сэкв по ГОСТ27772-88';

Res[14].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+Sostav[4].Pro/24+Sostav[7].Pro/5+Sostav[5].Pro/40+Sostav[12].Pro/13+Sostav[9].Pro/14+Sostav[3].Pro/2;

Res[14].Ent:=true;

end;

procedure TForm1.N7011Click(Sender: TObject);

begin

Res[15].Name:='Сэкв для Х70 (1)';

Res[15].Pro:=Sostav[1].Pro+Sostav[4].Pro/7+(Sostav[6].Pro+Sostav[8].Pro)/5;

Res[15].Ent:=true;

end;

procedure TForm1.N7021Click(Sender: TObject);

begin

Res[16].Name:='Сэкв для Х70 (2)';

Res[16].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+Sostav[7].Pro/20+(Sostav[5].Pro+Sostav[12].Pro)/40+Sostav[8].Pro/50+Sostav[9].Pro/10;

Res[16].Ent:=true;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

Res[17].Name:='Сэкв для безперлитных';

Res[17].Pro:=Sostav[1].Pro+Sostav[4].Pro/25+(Sostav[6].Pro+Sostav[12].Pro)/16+Sostav[7].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/40+Sostav[9].Pro/15;

Res[17].Ent:=true;

end;

procedure TForm1.N18Click(Sender: TObject);

var i:byte;

begin

StringGrid2.RowCount:=1;

for i:=1 to 100 do

if Res[i].Ent then

begin

StringGrid2.Cells[0,StringGrid2.RowCount-1]:=Res[i].Name;

StringGrid2.Cells[1,StringGrid2.RowCount-1]:=FloatToStr(Res[i].Pro);

StringGrid2.RowCount:=StringGrid2.RowCount+1;

end;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Res[1].Name:='HCS';

Res[1].Pro:=1000*Sostav[1].Pro*(Sostav[2].Pro+Sostav[3].Pro+Sostav[4].Pro/25+0.01*Sostav[5].Pro)/(3*Sostav[6].Pro+Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro);

Res[1].Ent:=true;

Res[2].Name:='UCS';

Res[2].Pro:=230*Sostav[1].Pro+190*Sostav[2].Pro+75*Sostav[3].Pro+Sostav[10].Pro+12.3*Sostav[4].Pro-5.4*Sostav[6].Pro-1;

Res[2].Ent:=true;

Res[3].Name:='Vкр';

Res[3].Pro:=19-42*Sostav[1].Pro-411*Sostav[2].Pro-3.3*Sostav[4].Pro+5.6*Sostav[6].Pro+6.7*Sostav[8].Pro;

Res[3].Ent:=true;

Res[4].Name:='Cr э/Ni э';

Res[4].Pro:=(Sostav[7].Pro+1.37*Sostav[8].Pro+1.5*Sostav[4].Pro+2*Sostav[10].Pro+3*Sostav[11].Pro)/(Sostav[5].Pro+0.31*Sostav[6].Pro+22*Sostav[1].Pro+14.2*Sostav[13].Pro+Sostav[12].Pro);

Res[4].Ent:=true;

Res[5].Name:='L';

Res[5].Pro:=299*Sostav[1].Pro+8*Sostav[5].Pro+142*Sostav[10].Pro-5.5*Sostav[18].Pro*Sostav[18].Pro-105;

Res[5].Ent:=true;

Res[6].Name:='Сэкв по МИС';

Res[6].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro)/5+(Sostav[5].Pro+Sostav[12].Pro)/15;

Res[6].Ent:=true;

Res[7].Name:='Pсм';

Res[7].Pro:=Sostav[1].Pro+Sostav[4].Pro/30+Sostav[6].Pro/20+Sostav[7].Pro/20+Sostav[12].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/15+Sostav[9].Pro/15+5*Sostav[14].Pro;

Res[7].Ent:=true;

Res[10].Name:='Cэкв по МИС';

Res[10].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro)/5+(Sostav[5].Pro+Sostav[12].Pro)/15;

Res[10].Ent:=true;

Res[11].Name:='Сэкв по Газпром';

Res[11].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+(Sostav[7].Pro+Sostav[8].Pro+(Sostav[9].Pro+Sostav[11].Pro+Sostav[10].Pro))/5+(Sostav[5].Pro+Sostav[12].Pro)/15+15*Sostav[14].Pro;

Res[11].Ent:=true;

Res[12].Name:='Сэкв по API 5L';

Res[12].Pro:=Sostav[1].Pro+Sostav[4].Pro/30+Sostav[6].Pro/20+Sostav[7].Pro/20+Sostav[12].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/15+Sostav[9].Pro/10+5*Sostav[14].Pro;

Res[12].Ent:=true;

Res[13].Name:='Сэкв для С>0.18%';

Res[13].Pro:=Sostav[1].Pro+Sostav[4].Pro/24+Sostav[6].Pro/4+Sostav[7].Pro/5+Sostav[5].Pro/40+Sostav[9].Pro/14;

Res[13].Ent:=true;

Res[14].Name:='Сэкв по ГОСТ27772-88';

Res[14].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+Sostav[4].Pro/24+Sostav[7].Pro/5+Sostav[5].Pro/40+Sostav[12].Pro/13+Sostav[9].Pro/14+Sostav[3].Pro/2;

Res[14].Ent:=true;

Res[15].Name:='Сэкв для Х70 (1)';

Res[15].Pro:=Sostav[1].Pro+Sostav[4].Pro/7+(Sostav[6].Pro+Sostav[8].Pro)/5;

Res[15].Ent:=true;

Res[16].Name:='Сэкв для Х70 (2)';

Res[16].Pro:=Sostav[1].Pro+Sostav[6].Pro/6+Sostav[7].Pro/20+(Sostav[5].Pro+Sostav[12].Pro)/40+Sostav[8].Pro/50+Sostav[9].Pro/10;

Res[16].Ent:=true;

Res[17].Name:='Сэкв для беcперлитных';

Res[17].Pro:=Sostav[1].Pro+Sostav[4].Pro/25+(Sostav[6].Pro+Sostav[12].Pro)/16+Sostav[7].Pro/20+Sostav[5].Pro/60+Sostav[8].Pro/40+Sostav[9].Pro/15;

Res[17].Ent:=true;

Res[18].Name:='Сэкв по BWRA';

Res[18].Pro:=Sostav[1].Pro+Sostav[6].Pro/20+(Sostav[7].Pro+Sostav[8].Pro+Sostav[9].Pro)/10+Sostav[5].Pro/15;

Res[18].Ent:=true;

Res[21].Name:='HVmax ';

Res[21].Pro:=90+1050*Sostav[1].Pro+47*Sostav[4].Pro+75*Sostav[6].Pro+30*Sostav[5].Pro+31*Sostav[7].Pro;

Res[21].Ent:=true;

N3.Enabled:=true;

Pw1.Enabled:=true;

end;

procedure TForm1.Pw1Click(Sender: TObject);

var temp:string;

begin

Temp:=InputBox('Уточним',Sostav[15].Name,FloatToStr(Sostav[15].Pro));

Sostav[15].Pro:=StrToFloat(temp);

Temp:=InputBox('Уточним',Sostav[16].Name,FloatToStr(Sostav[16].Pro));

Sostav[16].Pro:=StrToFloat(temp);

Temp:=InputBox('Уточним',Sostav[17].Name,FloatToStr(Sostav[17].Pro));

Sostav[17].Pro:=StrToFloat(temp);

Res[20].Name:='Pw';

Res[20].Pro:=Res[7].Pro+Sostav[15].Pro/60+Sostav[16].Pro*Sostav[17].Pro/400000;

Res[20].Ent:=true;

end;

procedure TForm1.N11Click(Sender: TObject);

var i,k:byte;

begin

ListBox1.Items.Clear;

{Анализ на Горячие трещины}

k:=0;

if Res[1].Ent then

begin

inc(k);

if Sostav[19].Pro>700 then

begin

if Res[1].Pro<2 then Analiz[k]:='Данная сталь высокопрочная, по параметру HCS она не склонна к образованию горячих трещин'

else Analiz[k]:='!Данная сталь высокопрочная, по параметру HCS она склонна к образованию горячих трещин'

end

else

begin

if Res[1].Pro<4 then Analiz[k]:='Данная сталь по параметру HCS не склонна к образованию горячих трещин'

else Analiz[k]:='!Данная сталь по параметру HCS склонна к образованию горячих трещин';

end;

end;

if Res[2].Ent then

if Sostav[10].Pro<>0 then

begin

if Res[2].Pro<10 then

begin

inc(k);

Analiz[k]:='Данная сталь микролегированна Nb и по параметру UCS она стойкая к образованию горячих трещин'

end

else

begin

if Res[2].Pro>30 then

begin

inc(k);

Analiz[k]:='!Данная сталь микролегированн Nb и по параметру UCS она склонна к образованию горячих трещин';

end;

end;

end;

if Res[3].Ent then

begin

if Res[3].Pro>6 then

begin

inc(k);

Analiz[k]:='По параметру Vкр данная сталь стойкая образованию горячих трещин';

end

else

if Res[3].Pro<1.8 then

begin

inc(k);

Analiz[k]:='По параметру Vкр данная сталь склонна образованию горячих трещин';

end;

end;

if Res[4].Ent then

begin

Sostav[100].Pro:=Sostav[2].Pro+Sostav[3].Pro;

if (Sostav[100].Pro>0.02)and(Sostav[100].Pro<0.035)

then

if Res[4].Pro>1.5 then

begin

inc(k);

Analiz[k]:='По Хромникелевому эквиваленту данная сталь стойкая к образованию горячих трещин'

end;

if Sostav[100].Pro>0.02 then

if Res[4].Pro<1.5 then

begin

inc(k);

Analiz[k]:='!По хромникилевому эквиваленту данная сталь склонна к обрзаованию горячих трещин';

end;

end;

if Res[5].Ent then

if Res[5].Pro>0 then

begin

inc(k);

Analiz[k]:='По параметру L данная сталь склонна к образованию горячих трещин';

end;

{Анализ на холодные трещины}

if Res[20].Ent then

begin

inc(k);

if Res[20].Pro>0.286 then Analiz[k]:='!По параметру Pw возможно образование ХТ в ЗТВ в корне сварного шва'

else Analiz[k]:='По параметру Pw маловероятно образование ХТ в ЗТВ в корне сварного шва'

end;

if Res[10].Ent then

begin

inc(k);

if Res[10].Pro<0.25 then Analiz[k]:='По Cэкв (МИС) сталь не склонна к образованию ХТ'

else if Res[10].Pro<0.35 then Analiz[k]:='По Cэкв (МИС) сталь малосклонна к образованию ХТ'

else if Res[10].Pro<0.45 then Analiz[k]:='По Cэкв (МИС) сталь склонна к образованию ХТ (необходимы предварительный подогрев )'

else Analiz[k]:='По Cэкв (МИС) это сталь трудносвариваемая';

end;

if Res[11].Ent then

begin

inc(k);

if Res[11].Pro<0.25 then Analiz[k]:='По Cэкв (Газпром) сталь не склонна к образованию ХТ'

else if Res[11].Pro<0.46 then Analiz[k]:='По Cэкв (Газпром) сталь подходит под требования (п.6.1.4. СТО Газпром 2-2.2-136-2007)'

else Analiz[k]:='По Cэкв (Газпром) это сталь трудносвариваемая';

end;

if Res[12].Ent then

begin

inc(k);

if Res[12].Pro<0.25 then Analiz[k]:='По Cэкв (API 5L) сталь не склонна к образованию ХТ'

else if Res[12].Pro<0.35 then Analiz[k]:='По Cэкв (API 5L) сталь малосклонна к образованию ХТ'

else if Res[12].Pro<0.45 then Analiz[k]:='По Cэкв (API 5L) сталь склонна к образованию ХТ (необходим подогрев)'

else Analiz[k]:='По Cэкв (API 5L) это сталь трудносвариваемая';

end;

if Res[13].Ent then

begin

inc(k);

if Res[13].Pro<0.25 then Analiz[k]:='По Cэкв (Сэкв для С>0.18%) сталь не склонна к образованию ХТ'

else if Res[13].Pro<0.35 then Analiz[k]:='По Cэкв (Сэкв для С>0.18%) сталь малосклонна к образованию ХТ'

else if Res[13].Pro<0.45 then Analiz[k]:='По Cэкв (Сэкв для С>0.18%) сталь склонна к образованию ХТ (необходим подогрев)'

else Analiz[k]:='По Cэкв (Сэкв для С>0.18%) это сталь трудносвариваемая';

end;

if Res[14].Ent then

begin

inc(k);

if Res[14].Pro<0.25 then Analiz[k]:='По Cэкв (ГОСТ27772-88) сталь не склонна к образованию ХТ'

else if Res[14].Pro<0.35 then Analiz[k]:='По Cэкв (ГОСТ27772-88) сталь склонна к образованию ХТ'

else if Res[14].Pro<0.45 then Analiz[k]:='По Cэкв (ГОСТ27772-88) сталь склонна к образованию ХТ (необходим подогрев)'

else Analiz[k]:='По Cэкв (ГОСТ27772-88) это сталь трудносвариваемая';

end;

if Res[15].Ent then

begin

inc(k);

if Res[15].Pro<0.25 then Analiz[k]:='По Cэкв (Сэкв для Х70 (1)) сталь не склонна к образованию ХТ'

else if Res[15].Pro<0.35 then Analiz[k]:='По Cэкв (Сэкв для Х70 (1)) сталь малосклонна к образованию ХТ'

else if Res[15].Pro<0.45 then Analiz[k]:='По Cэкв (Сэкв для Х70 (1)) сталь склонна к образованию ХТ (необходим подогрев)'

else Analiz[k]:='По Cэкв (Сэкв для Х70 (1)) это сталь трудносвариваемая';

end;

if Res[16].Ent then

begin

inc(k);

if Res[16].Pro<0.25 then Analiz[k]:='По Cэкв (Сэкв для Х70 (1)) сталь не склонна к образованию ХТ'

else if Res[16].Pro<0.35 then Analiz[k]:='По Cэкв (Сэкв для Х70 (2)) сталь малосклонна к образованию ХТ'

else if Res[16].Pro<0.45 then Analiz[k]:='По Cэкв (Сэкв для Х70 (2)) сталь склонна к образованию ХТ (необходим подогрев)'

else Analiz[k]:='По Cэкв (Сэкв для Х70 (2)) это сталь трудносвари...