"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 p> 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! p> 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 "в”‚ # # в”‚ #. # # в”‚ #. # # # в”‚ #. # # # в”‚ #. # #...
