Зависимость среднего давления от температуры полосы представлена в таблице 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 Explicit

Option VBASupport 1

Sub Tselikov
const q1="ВВОД ИСХОДНЫХ ДАННЫХ"

const s1="Введите требуемое количество опытов"

---

const s2="Введите минимальное значение температуры, С"

const s3="Введите максимальное значение температуры, С"

const s4="Введите минимальное значение абсолютного обжатия "

const s5="Введите максимальное значение абсолютного обжатия "

const s6="Введите минимальное значение скорости прокатки"

const s7="Введите максимальное значение скорости прокатки"

Dim i As Integer

Dim n As Integer

Dim r,a,b,c,g1,u,ts,del, ksi0, ksi1, gb, o, m, z

Dim sheet As object

Dim cell As object

Sheet=Thiscomponent.getcurrentController.activesheet
'Задание количество клетей и радиуса и постоянных коэффициентов

n=Val(inputbox(s1,q1,"12")

r=Sheet.getcellbyPosition(10,2).Value

a=Sheet.getcellbyPosition(10,3).Value

b=Sheet.getcellbyPosition(10,4).Value

c=Sheet.getcellbyPosition(10,5).Value

gb=Sheet.getcellbyPosition(10,6).Value

g1=Sheet.getcellbyPosition(10,8).Value
Dim 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 n

e(i)=e(1)+o*(i-1)

next i

m=(tc(n)-tc(1))/(n-1)

For i=1 to n

tc(i)=tc(1)+m*(i-1)

next i

z=(v(n)-v(1))/(n-1)

For i=1 to n

v(i)=v(1)+z*(i-1)

next i

'Считывание толщины полосы

h(0)=Sheet.getcellbyPosition(4,5).Value
For i=1 to n

h(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)^c
ts=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 i
For i=1 to n

Cell=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 i

End Sub

---

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

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

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

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

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

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