Исследование и совершенствование режимов затвердевания, охлаждения, термостатирования и нагрева стальных слитков
Технология разливки стали в изложницы, нагрев слитков в печах перед обработкой металла давлением. Определение теплового состояния слитка в изложнице, термостате, печи и на воздухе. Использование расчетной программы на языке Visual Basic, её структура.
| Рубрика | Производство и технологии |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 10.07.2017 |
| Размер файла | 883,4 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
End With
With MSChart4.Plot.Axis(VtChAxisIdX)
.ValueScale.MajorDivision = 1000
.ValueScale.MinorDivision = 1000
.CategoryScale.Auto = False ' Sets manual scaling.
.CategoryScale.DivisionsPerLabel = 1000
.CategoryScale.DivisionsPerTick = 1000
.CategoryScale.LabelTick = False
End With
With MSChart4.Backdrop.Fill
.Style = VtFillStyleBrush
.Brush.FillColor.Set 255, 255, 255 ' Set the color of the fill.
End With
With MSChart4.Plot
.SeriesCollection(1).LegendText = "вверху слитка "
.SeriesCollection(2).LegendText = "внизу слитка"
'.SeriesCollection(3).LegendText = "на высоте 100 см"
'.SeriesCollection(4).LegendText = "на высоте 150 см"
'.SeriesCollection(5).LegendText = "на высоте 150 см"
'.SeriesCollection(6).LegendText = "на высоте 170 см"
'.SeriesCollection(6).LegendText = "на высоте 10 см"
'.SeriesCollection(7).LegendText = "на высоте 10 см"
End With
End Sub
Private Sub Рисуем_диаграмму5()
Dim arrData5(0 To МM, 1 To 3)
For K = 0 To МM
arrData5(K, 1) = Str(Round(time(K), 2))
arrData5(K, 2) = Тсл3(1, K)
arrData5(K, 3) = Тсл2(1, K)
Next K
MSChart5.ChartData = arrData5
MSChart5.Visible = False
'Add a title and legend.
With Me.MSChart5
.Title.Text = "Температура поверхности слитка на торцах,°С"
.Legend.Location.LocationType = _
MSChart20Lib.VtChLocationType.VtChLocationTypeBottom
.Legend.Location.Visible = True
End With
'Add titles to the axes.
With Me.MSChart5.Plot
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "Высота, мм"
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Т, °С"
End With
With MSChart5.Plot.Axis(VtChAxisIdX)
.ValueScale.MajorDivision = 1000
.ValueScale.MinorDivision = 1000
.CategoryScale.Auto = False ' Sets manual scaling.
.CategoryScale.DivisionsPerLabel = 1000
.CategoryScale.DivisionsPerTick = 1000
.CategoryScale.LabelTick = False
End With
With MSChart5.Backdrop.Fill
.Style = VtFillStyleBrush
.Brush.FillColor.Set 255, 255, 255 ' Set the color of the fill.
End With
With MSChart5.Plot
.SeriesCollection(1).LegendText = "на верхнем торце"
.SeriesCollection(2).LegendText = "на нижнем торце"
'.SeriesCollection(3).LegendText = "температура в 1 мм от поверхности"
' .SeriesCollection(4).LegendText = "температура в 2 мм от поверхности"
' .SeriesCollection(5).LegendText = "температура в центре"
'.SeriesCollection(6).LegendText = "средняя температура"
End With
End Sub
Private Sub Рисуем_диаграмму6()
Dim arrData6(1 To N1, 1 To 3)
For I = 1 To N1
arrData6(I, 1) = Str(I)
arrData6(I, 2) = T1(I, (N2 + 1) / 2)
arrData6(I, 3) = ТП(I)
' arrData6(K, 4) = T1(1, Round(3 / 4 * N2))
Next I
MSChart6.ChartData = arrData6
MSChart6.Visible = False
'Add a title and legend.
With Me.MSChart6
.Title.Text = "Температура по радиусу в среднем сечении слитка , °С"
.Legend.Location.LocationType = _
MSChart20Lib.VtChLocationType.VtChLocationTypeBottom
.Legend.Location.Visible = True
End With
'Add titles to the axes.
With Me.MSChart6.Plot
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "номер узла"
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Т, град"
End With
With MSChart6.Plot.Axis(VtChAxisIdX)
.ValueScale.MajorDivision = 10
.ValueScale.MinorDivision = 10
.CategoryScale.Auto = False ' Sets manual scaling.
.CategoryScale.DivisionsPerLabel = 10
.CategoryScale.DivisionsPerTick = 10
.CategoryScale.LabelTick = False
End With
With MSChart6.Backdrop.Fill
.Style = VtFillStyleBrush
.Brush.FillColor.Set 255, 255, 255 ' Set the color of the fill.
End With
With MSChart6.Plot
.SeriesCollection(1).LegendText = "на выходе из печи"
.SeriesCollection(2).LegendText = "на входе в печь"
'.SeriesCollection(3).LegendText = "на 3/4 высоты слитка"
'.SeriesCollection(4).LegendText = "центр заготовки"
' .SeriesCollection(5).LegendText = "температура в центре"
'.SeriesCollection(6).LegendText = "средняя температура"
End With
End Sub
Private Sub Рисуем_диаграмму7()
Dim arrData7(1 To N2, 1 To 3)
For J = 1 To N2
arrData7(J, 1) = Str(J)
arrData7(J, 2) = T1(1, J)
arrData7(J, 3) = T1(N1, J)
Next J
MSChart7.ChartData = arrData7
MSChart7.Visible = False
'Add a title and legend.
With Me.MSChart7
.Title.Text = "Температура по высоте слитка на выходе из печи,°С"
.Legend.Location.LocationType = _
MSChart20Lib.VtChLocationType.VtChLocationTypeBottom
.Legend.Location.Visible = True
End With
'Add titles to the axes.
With Me.MSChart7.Plot
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "номер узла"
.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Т, °С"
End With
With MSChart7.Plot.Axis(VtChAxisIdX)
.ValueScale.MajorDivision = 30
.ValueScale.MinorDivision = 30
.CategoryScale.Auto = False ' Sets manual scaling.
.CategoryScale.DivisionsPerLabel = 30
.CategoryScale.DivisionsPerTick = 30
.CategoryScale.LabelTick = False
End With
With MSChart7.Backdrop.Fill
.Style = VtFillStyleBrush
.Brush.FillColor.Set 255, 255, 255 ' Set the color of the fill.
End With
With MSChart7.Plot
.SeriesCollection(1).LegendText = "в центре слитка"
.SeriesCollection(2).LegendText = "на поверхности слитка"
'.SeriesCollection(3).LegendText = "на 3/4 высоты слитка"
'.SeriesCollection(4).LegendText = "по солидусу (диагональ)"
' .SeriesCollection(5).LegendText = "температура в центре"
'.SeriesCollection(6).LegendText = "средняя температура"
End With
Private Function lamsteel(T As Single) As Single 'определение эффективного коэффициента теплопроводности стали
lameff = 0.35 * 1000 * RL(J)
If T < 700 Then
lam = 26
ElseIf T > 699 And T < 1200 Then
lam = 19 + 0.01 * T
Else
lam = 31
End If
If lameff < lam Then lameff = lam
If T > Температура_ликвидус Then
lamsteel = lameff
Else
lamsteel = lam
End If
End Function
Private Function lams(T As Single) As Single 'определение коэффициента теплопроводности стали
If T < 700 Then
lams = 26
ElseIf T > 699 And T < 1200 Then
lams = 19 + 0.01 * T
Else
lams = 31
End If
End Function
Private Function Сэфф(T As Single) As Single 'определение эффективной теплоемкости стали
If T < 200 Then
Сm = 512.5
ElseIf T > 199 And T < 300 Then
Сm = 540.5
ElseIf T > 299 And T < 400 Then
Сm = 588.5
ElseIf T > 399 And T < 500 Then
Сm = 531.5
ElseIf T > 499 And T < 600 Then
Сm = 887
ElseIf T > 599 And T < 700 Then
Сm = 839.5
ElseIf T > 699 And T < 800 Then
Сm = 921
ElseIf T > 799 And T < 900 Then
Сm = 818
ElseIf T > 899 And T < 1000 Then
Сm = 682
ElseIf T > 999 And T < 1100 Then
Сm = 682
ElseIf T > 1099 And T < 1200 Then
Сm = 680
ElseIf T > 1199 Then
Сm = 678
End If
If T < Температура_солидус Or T > Температура_ликвидус Then
Сэфф = Сm
Else
Сэфф = Сm + Эффективная_теплоемкость
End If
End Function
Private Function Энтальпия(T As Single) As Single 'определение энтальпии стали, Дж/кг
If T < Температура_солидус Or T = Температура_солидус Then
Энтальпия = (550.93 + 0.0437 * T) * T
ElseIf T > Температура_солидус And T < Температура_ликвидус Then
Энтальпия = (550.93 + 0.0437 * T) * T + (T - Температура_солидус) / (Температура_ликвидус - Температура_солидус) * Теплота_затвердевания
Else
Энтальпия = (550.93 + 0.0437 * T) * T + Теплота_затвердевания
End If
End Function
Private Function ПС(T As Single) As Single 'определение плотности стали
ПС = 7220
End Function
Private Function lamiron(T As Single) As Single 'определение коэффициента теплопроводности чугуна
lamiron = 49.5 - 0.0126 * T
End Function
Private Function С(T As Single) As Single 'определение теплоемкости чугуна
If T < 301 Then
С = 290 + (T - 200) / 100 * (376 - 290)
ElseIf T > 300 And T < 701 Then
С = 376 + (T - 300) / 400 * (512 - 376)
ElseIf T > 700 And T < 801 Then
С = 512 + (T - 700) / 100 * (607 - 512)
Else
С = 607 + (T - 800) / 200 * (632 - 607)
End If
End Function
Private Function ПЧ(T As Single) As Single 'определение плотности чугуна
ПЧ = 7000 * (1 - 3 * 10 / 1000000 * T)
End Function
Private Sub Command2_Click()
MSChart1.Visible = True
MSChart2.Visible = False
MSChart3.Visible = False
MSChart4.Visible = False
MSChart5.Visible = False
MSChart6.Visible = False
MSChart7.Visible = False
End Sub
Private Sub Command3_Click()
MSChart1.Visible = False
MSChart2.Visible = True
MSChart3.Visible = False
MSChart4.Visible = False
MSChart5.Visible = False
MSChart6.Visible = False
MSChart7.Visible = False
End Sub
Private Sub Command4_Click()
MSChart1.Visible = False
MSChart2.Visible = False
MSChart3.Visible = True
MSChart4.Visible = False
MSChart5.Visible = False
MSChart6.Visible = False
MSChart7.Visible = False
End Sub
Private Sub Command5_Click()
MSChart1.Visible = False
MSChart2.Visible = False
MSChart3.Visible = False
MSChart4.Visible = True
MSChart5.Visible = False
MSChart6.Visible = False
MSChart7.Visible = False
End Sub
Private Sub Command6_Click()
MSChart1.Visible = False
MSChart2.Visible = False
MSChart3.Visible = False
MSChart4.Visible = False
MSChart5.Visible = True
MSChart6.Visible = False
MSChart7.Visible = False
End Sub
Private Sub Command7_Click()
MSChart1.Visible = False
MSChart2.Visible = False
MSChart3.Visible = False
MSChart4.Visible = False
MSChart5.Visible = False
MSChart6.Visible = True
MSChart7.Visible = False
End Sub
Private Sub Command8_Click()
MSChart1.Visible = False
MSChart2.Visible = False
MSChart3.Visible = False
MSChart4.Visible = False
MSChart5.Visible = False
MSChart6.Visible = False
MSChart7.Visible = True
End Sub
Private Sub Command9_Click()
MSChart1.Visible = False
MSChart2.Visible = False
MSChart3.Visible = False
MSChart4.Visible = False
MSChart5.Visible = False
MSChart6.Visible = False
MSChart7.Visible = False
Размещено на Allbest.ru
...Подобные документы
Зоны слитка, их различная структура и описание. Разлив стали в изложницы. Виды металлургических агрегатов: мартеновские печи, кислородные конвертора, электропечи. Типы стальных слитков, их химическая неоднородность, влияние степени раскисленности стали.
контрольная работа [4,7 M], добавлен 12.08.2009Технология выплавки опытного металла в двухванном агрегате. Расчет времени кристаллизации слитка массой 12,5 т, кристаллизации слитка от разливки до посада его в нагревательный колодец, хода затвердевания корки прямоугольных слитков по формуле Валлета.
дипломная работа [1,5 M], добавлен 08.04.2009Исследование классической разливки стали в изложницы на сталеплавильном производстве. Изучение блочных, гильзовых и составных типов кристаллизаторов. Описания устройства для резки слитка на куски, работы секции охлаждения слябов из углеродистой стали.
отчет по практике [2,3 M], добавлен 17.05.2011Технологическая схема обработки материалов давлением, обоснование выбора типа печи, конструкция ее узлов, расчет горения топлива и нагрева заготовки. Количество тепла, затрачиваемого на нагрев металла, потери в результате теплопроводности через кладку.
курсовая работа [1,6 M], добавлен 19.01.2016Развитие и современный уровень металлургического производства. Особенности разливки стали, способы изготовления стальных отливок. Разливка стали в изложницы, затвердевание и строение стального слитка. Особенности и недостатки непрерывной разливки стали.
курсовая работа [2,1 M], добавлен 22.10.2009Техническая характеристика исходных материалов для прокатного производства: блюмы, слябы, заготовки, сутунки. Подготовка металла к прокатке: зачистка слитков, зачистка полуфабрикатов и нагрев металла перед прокаткой. Технологическая схема прокатки стали.
контрольная работа [278,3 K], добавлен 19.06.2015Металл для прокатного производства. Подготовка металла к прокатке. Зачистка слитков, полуфабрикатов. Нагрев металла перед прокаткой. Прокатка металла. Схемы косой, продольной и поперечной прокатки. Контроль технологических операций охлаждения металла.
реферат [60,6 K], добавлен 04.02.2009Кристаллизация стального слитка. Строение механически закупоренных слитков кипящей стали. Преимущества и недостатки использования полуспокойной стали по сравнению с кипящей. Футеровка сталеразливочных ковшей. Влияние скорости разливки на качество стали.
курс лекций [4,7 M], добавлен 30.05.2014Макроструктура готового сортового проката, полученного из квадратных заготовок непрерывной разливки. Оборудование для разливки стали. Технология разливки стали в изложницы. Сифонная разливка стали, ее скоростной режим. Улучшение качества разливки стали.
курсовая работа [1,8 M], добавлен 26.05.2015Учет температурно-временных параметров высокотемпературного нагрева с целью повышения равномерности прогрева слитков, полноты сфероидизации карбидной фазы и подготовки структурного состояния металла после высокотемпературного нагрева к деформации.
научная работа [909,8 K], добавлен 16.01.2023Структура, химический состав и назначение стали марки ЭИ 961. Выплавка металла в мартеновской, электродуговой и индукционных печах. Технология электрошлакового переплава стали и контроль качества слитков. Требования к расходуемым электродам и флюсам.
дипломная работа [315,7 K], добавлен 07.07.2014Выбор и поддержание температурного режима секционной печи для скоростного малоокислительного нагрева. Принципиальная схема автоматического контроля и регулирования теплового режима секционной печи. Управление процессом нагрева в секционных печах.
доклад [219,0 K], добавлен 31.10.2008Технологические параметры непрерывной разливки стали. Исследование общей компоновки пятиручьевой машины непрерывного литья заготовок (МНЛЗ) радиального типа. Определение скорости разливки металла. Диаметр каналов разливочных стаканов. Режим охлаждения.
курсовая работа [1,8 M], добавлен 14.11.2011Оборудование стана и технология прокатки слитков. Расчёт оптимального веса и конфигурации слитка. Расчёт станины блюминга на прочность, горения топлива и нагрева металла. Расчёт экономического эффекта от внедрения специальной формы кюмпельного поддона.
дипломная работа [922,8 K], добавлен 29.12.2013Расчет горения топлива: пересчет состава сухого газа на влажный, определение содержания водяного пара в газах. Расчет нагрева металла. Позонный расчет внешней и внутренней задачи теплообмена. Технико-экономическая оценка работы методических печей.
курсовая работа [120,6 K], добавлен 09.09.2014Расчет теплового баланса четырехзонной методической печи. Определение времени нагрева и томления металла в методической и сварочной зонах. Тепловой баланс печи и расход топлива. Требования техники безопасности при обслуживании, пуске и эксплуатации печей.
курсовая работа [505,2 K], добавлен 11.01.2013Нагрев металла перед прокаткой. Автоматизация процесса нагрева металла. Выбор системы регулирования давления. Первичный измерительный преобразователь перепада давления. Метод наименьших квадратов. Измерение и регистрация активного сопротивления.
курсовая работа [170,7 K], добавлен 25.06.2013Выполнение расчетов материального баланса горения топлива, теплового баланса и теплообмена рабочей камеры, определение продолжительности термической обработки стальных изделий (путем малоокислительного нагрева) и производительности камерной печи.
курсовая работа [182,2 K], добавлен 18.04.2010Устройство доменной сталеплавильной печи. Подача и нагрев дутья. Продукты доменной плавки. Технология выплавки стали в электродуговых печах. Внепечная обработка металла на участке ковш-печь. Непрерывная разливка стали для отливки блюмов и слябов.
отчет по практике [3,1 M], добавлен 12.10.2016Краткая характеристика процесса нагрева и получения слитков металла с помощью нагревательного колодеца. Разработка электрической принципиальной схемы. Расчет диаметра сужающего устройства. Мероприятия по технике безопасности и охране окружающей среды.
курсовая работа [490,9 K], добавлен 06.11.2014
