Реферат: Станы холодной прокатки

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