Зависимость среднего давления от температуры полосы представлена в таблице 4 и на рисунке 3.Таблица 4. Влияние температуры полосы на среднее давление.

№ п/п	Рср, Н/мм2	Tемпература, °С
1	266	940
2	262	944
3	258	947
4	254	951
5	250	955
6	247	958
7	243	962
8	239	965
9	236	969
10	232	973
11	229	976
12	225	980

Рисунок 3 – График зависимости среднего давления от температуры полосы.Исходные данные для анализа влияния скорости прокатки на среднее давление приведены в таблице 5.Таблица 5 – Исходные данные

Марка стали	Ст3кп
Радиус валков, мм	400
a	0,144
b	0,156
c	-3,512
σб	77,486
Натяжение, Н/мм2	10
Скорость прокатки, м/с	3
Отн.обжатие, %	35

Зависимость среднего давления от скорости прокатки представлена в таблице 6 и на рисунке 4.

---

Таблица 6. Влияние скорости прокатки на среднее давление.

№ п/п	Рср, Н/мм2	Скорость прокатки, м/с
1	207	1,00
2	217	1,36
3	225	1,73
4	232	2,09
5	237	2,45
6	242	2,82
7	247	3,18
8	251	3,55
9	255	3,91
10	258	4,27
11	261	4,64
12	264	5,00

Рисунок 4 – График зависимости среднего давления от скорости прокатки.В результате анализа видно, что условия горячей прокатки в той или иной степени влияют на среднее давление. С увеличением обжатий и скорости среднее давление увеличивается, а с увеличением температуры уменьшается. Список литературы1.Чабоненко А.А., “Методические указания к выполнению курсовой работы для студентов 5курса дневного отделения и 6 курса очно-заочного отделения по специальности 150106.62 «Обработка металлов давлением»” /А.А. Чабоненко– Липецк: ЛГТУ, 2009. – 9 с.2.Чабоненко А.А., Черный В.А., “Теория прокатки. Расчет сопротивления деформации металла при горячей прокатке для студентов дневной и очно-заочной форм обучения профиля «Обработка металлов давлением»” /А.А. Чабоненко, В.А. Черный– Липецк: ЛГТУ, 2012. – 12 с.3. Коновалов Ю.В., Остапенко А.Л., Понамарев В.И. Расчет параметров листовой прокатки. Справочник. М.: Металлургия. 1986 г. 430 с. ПриложениеREM ***** BASIC *****Option ExplicitOption VBASupport 1Sub Tselikovconst q1="ВВОД ИСХОДНЫХ ДАННЫХ"const s1="Введите требуемое количество опытов"

---

const s2="Введите минимальное значение температуры, С"const s3="Введите максимальное значение температуры, С"const s4="Введите минимальное значение абсолютного обжатия "const s5="Введите максимальное значение абсолютного обжатия "const s6="Введите минимальное значение скорости прокатки"const s7="Введите максимальное значение скорости прокатки"Dim i As IntegerDim n As Integer Dim r,a,b,c,g1,u,ts,del, ksi0, ksi1, gb, o, m, zDim sheet As object Dim cell As objectSheet=Thiscomponent.getcurrentController.activesheet'Задание количество клетей и радиуса и постоянных коэффициентов n=Val(inputbox(s1,q1,"12")r=Sheet.getcellbyPosition(10,2).Valuea=Sheet.getcellbyPosition(10,3).Valueb=Sheet.getcellbyPosition(10,4).Valuec=Sheet.getcellbyPosition(10,5).Valuegb=Sheet.getcellbyPosition(10,6).Valueg1=Sheet.getcellbyPosition(10,8).ValueDim h(n),l(n),gs(n), V(n), Pcp(n)Dim my(n),neytr(n),dh(n),e(n),tc(n)e(1)=Val(inputbox(s4,q1,"0.35")e(n)=Val(inputbox(s5,q1,"0.4")tc(1)=Val(inputbox(s2,q1,"960")tc(n)=Val(inputbox(s3,q1,"960")V(1)=Val(inputbox(s6,q1,"3")V(n)=Val(inputbox(s7,q1,"3")o=(e(n)-e(1))/(n-1)For i=1 to ne(i)=e(1)+o*(i-1)next im=(tc(n)-tc(1))/(n-1)For i=1 to ntc(i)=tc(1)+m*(i-1)next iz=(v(n)-v(1))/(n-1)For i=1 to nv(i)=v(1)+z*(i-1)next i'Считывание толщины полосы h(0)=Sheet.getcellbyPosition(4,5).ValueFor i=1 to nh(i)=h(0)*(1-e(i))dh(i)=h(0)-h(i)l(i)=sqr(r*dh(i))u=1000*((V(i)*l(i))/(r*h(0)))gs(i)=gb*(u^a)*(10*e(i))^b*(tc(i)/1000)^cts=1.15*gs(i)ksi0=1-(g1/ts)ksi1=1-(g1/ts)my(i)=0.55-0.00024*tc(i)del=my(i)*(2*l(i)/dh(i))neytr(i)=(ksi0/ksi1*h(0)^(del-1)*h(i)^(del+1))^(1/(2*del))Pcp(i)=(ksi0*(h(0)/(del-2)))*(((h(0)/neytr(i))^(del-2))-1)Pcp(i)=Pcp(i)+(ksi1*(h(i)/(del+2)))*(((neytr(i)/h(i))^(del+2))-1)Pcp(i)=(ts/dh(i))*Pcp(i)Next iFor i=1 to nCell=Sheet.GetCellByPosition(3,5+i)cell.setvalue dh(i)Cell=Sheet.GetCellByPosition(4,5+i)cell.setvalue h(i)Cell=Sheet.GetCellByPosition(2,5+i)cell.setvalue e(i)Cell=Sheet.GetCellByPosition(5,5+i)cell.setvalue v(i)Cell=Sheet.GetCellByPosition(6,5+i)cell.setvalue tc(i)Cell=Sheet.GetCellByPosition(7,20+i)cell.setvalue gs(i)Cell=Sheet.GetCellByPosition(4,20+i)cell.setvalue Pcp(i)Next iEnd Sub

---

Смотрите также файлы

• Стильно! Модно! Школьно!.ppt

• Для начала нужно оценить возраст детей.docx

• Особенности Подготовки к егэ по биологии.pptx

• Правовые акты государственного управления.docx

• Самостоятельная работа по дисциплине Биотический круговорот.docx