Станы холодной прокатки (стр. 4 из 4)
13.Контролируемая прокатка /В.И.Погоржельский, Д.А. Литвиненко. Ю. И. Матросов, А.В.Иваницкий. - М.: Металлургия, 1979. - 183 с.
15. Королев Л. А. Конструкция и расчёт машин и механизмов прокатных станов: Учеб. пособие для вузов. - 2-е изд., перераб. и доп. -М.: Металлургия, 1985. - 376 с.
16. Лентопрокатные станы и адъюстажное оборудование: Каталог. -М.: ЦНИИТЭИтяжмаш, 1980. - 81 с.
17. Литовченко Н.В. Станы и технология прокатки листовой стали. - М.: Металлургия, 1979. - 271 с.
18. Мазур В.Д., Добронравов А.И., Чернов П.И. Предупреждение дефектов листового проката. - Киев: Техн1ка, 1986. - 141 с.
Приложение А – Графики распределения параметров прокатки по проходам
Относительное обжатие
Скорость прокатки
Сила прокатки
Момент прокатки
Мощность прокатки
– Программа для расчёта энергосиловых параметров процесса прокатки
CLS
'Программа для расчета режимов обжатий на НСХП
'ТЛКМЦ курсовой
'INPUT "Количество клетей в непрерывной группе стана"; N
'INPUT "a0="; a0: INPUT "a1="; a1: INPUT "a2="; a2: INPUT "a3="; a3
'INPUT "R="; R
'INPUT "f="; f
'INPUT "V0="; V
'INPUT "b="; b
'INPUT "Исходная толщина металла в отоженном состоянии"; Hh0
'INPUT "Исходная толщина металла перед пропуском"; h0
'INPUT "Допустимое значение силы прокатки .....(МН) [P]="; Pd: Pd = Pd * 1000000!
'INPUT "Допустимое значение момента прокатки (кНм) [M]="; Md: Md = Md * 1000000!
'INPUT "Допустимое значение мощности прокатки (МВт) [N]="; Nd: Nd = Nd * 1000000!
OPEN "cold.txt" FOR OUTPUT AS 1
a0 = 240: a1 = 1130.6: a2 = -1138.9: a3 = 555.6
N = 5
h0 = 1.8
Hh0 = h0
b = 1400
R = 300
f = .09
S0 = .1: S1 = .1
V = 2
Pd = 2E+07
Md = 400000000
Nd = 3500000
PRINT " РЕЗУЛЬТАТЫ РАСЧЕТА ОБЖАТИЙ НА НЕПРЕРЫВНОМ СТАНЕ Х.ПР."
PRINT "┌──┬────┬─────┬─────┬─────┬────┬──────┬──────┬──────┬─────┐"
PRINT "│i │ H0 │ h0 │ h1 │ e │K2c │ P │ M │ N │ V │ "
PRINT "├──┼────┼─────┼─────┼─────┼────┼──────┼──────┼──────┼─────┤"
PRINT "││ мм │ мм │ мм ││МПа │ МН │ кНм │ МВт │ м/с │ "
PRINT "├──┼────┼─────┼─────┼─────┼────┼──────┼──────┼──────┼─────┤"
PRINT #1, " РЕЗУЛЬТАТЫ РАСЧЕТА ОБЖАТИЙ НА НЕПРЕРЫВНОМ СТАНЕ Х.ПР."
PRINT #1, "┌──┬────┬─────┬─────┬─────┬────┬──────┬──────┬──────┬─────┐"
PRINT #1, "│i │ H0 │ h0 │ h1 │ e │K2c │ P │ M │ N │ V │ "
PRINT #1, "├──┼────┼─────┼─────┼─────┼────┼──────┼──────┼──────┼─────┤"
PRINT #1, "││ мм │ мм │ мм ││МПа │ МН │ кНм │ МВт │ м/с │ "
PRINT #1, "├──┼────┼─────┼─────┼─────┼────┼──────┼──────┼──────┼─────┤"
FOR i = 1 TO N
h1 = .6 * h0
10 :
IF h1 > h0 THEN INPUT "h0>h1"; asd$
dh = h0 - h1
e = dh / h0
e0 = (Hh0 - h0) / Hh0
x1 = a0 + a1 * e0 + a2 * e0 ^ 2 + a3 * e0 ^ 3
x2 = 2 / 3 * (a1 + 2 * a2 * e0 + 3 * a3 * e0 ^ 2) * e
x3 = 8 / 15 * (1 - e0) ^ 2 * (a2 + 3 * a3 * e0) * e ^ 2
x4 = 16 / 35 * (1 - e0) ^ 3 * a3 * e ^ 3
K2c = 1.15 * (x1 + x2 + x3 + x4)
L = SQR(R * dh)
ksi0 = 1 - S0: ksi1 = 1 - S1
DO
delta = 2 * f * L / dh: IF delta = 2 THEN delta = 2.1
Hn = (ksi0 / ksi1 * h0 ^ (delta - 1) * h1 ^ (delta + 1)) ^ (1 / 2 / delta)
IF Hn = 0 OR h1 = 0 THEN INPUT "h=0"; ads$
y1 = (h0 / Hn) ^ (delta - 2) - 1
y1 = y1 * ksi0 * h0 / (delta - 2)
y2 = (Hn / h1) ^ (delta + 2) - 1
y2 = y2 * ksi1 * h1 / (delta + 2)
nG = (y1 + y2) / dh
Pcp = K2c * nG
x2 = 8 * Pcp * R * 2 * (1 - .3 ^ 2) / 3.14 / 210000!
Lc = SQR(R * dh + x2 ^ 2) + x2
dL = ABS(Lc - L) / L * 100
L = Lc
LOOP UNTIL dL > 5
P = Pcp * b * L
M = 2 * K2c * (y1 - y2) * R * f / dh * b * L
Nw = M * V / R
IF P > Pd OR M > Md OR Nw > Nd THEN h1 = h1 + .001: GOTO 10
PRINT USING "│##│#.##│#.###│#.###│#.###│####│###.##│####.#│##.###│##.##│"; i; Hh0; h0; h1; e; K2c; P / 1000000!; M / 1000000; Nw / 1000000; V
PRINT #1, USING "│##│#.##│#.###│#.###│#.###│####│###.##│####.#│##.###│##.##│"; i; Hh0; h0; h1; e; K2c; P / 1000000!; M / 1000000; Nw / 1000000; V
V = V * h0 / h1: h0 = h1
NEXT
PRINT "└──┴────┴─────┴─────┴─────┴────┴──────┴──────┴──────┴─────┘"
PRINT #1, "└──┴────┴─────┴─────┴─────┴────┴──────┴──────┴──────┴─────┘"
CLOSE 1
PLAY "acd"
END