Курсовая работа: Разработка технологического процесса для производства листа методом холодной прокатки

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 = h0* .44

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)