Проектирование и расчет валковых машин для полимерных материалов. Клинков А.С - 67 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

LINE (586, Y2)-(583, Y2), 7
NEXT Y2
FOR Y3 = 295 TO 95 STEP -25
LINE (588, Y3)-(581, Y3), 7
NEXT Y3
LOCATE 5, 69: PRINT "P,кН": LOCATE 13, 75: PRINT "16"
LOCATE 10, 75: PRINT "24": LOCATE 10, 50: PRINT "F4(tb)"
LOCATE 7, 75: PRINT "32": LOCATE 14, 50: PRINT "F2(tb)"
LOCATE 16, 75: PRINT "8"
LOCATE 20, 9: PRINT "15": LOCATE 20, 12: PRINT "20"
LOCATE 20, 19: PRINT "30": LOCATE 20, 25: PRINT "40"
LOCATE 20, 32: PRINT "50": LOCATE 20, 38: PRINT "60 "
LOCATE 20, 44: PRINT "70": LOCATE 20, 50: PRINT "80 "
LOCATE 20, 56: PRINT "90": LOCATE 20, 62: PRINT "100 "
LOCATE 20, 68: PRINT "110 ": LOCATE 20, 72: PRINT "t,град"
LOCATE 19, 75: PRINT ">"
LOCATE 5, 10: PRINT "^": LOCATE 5, 73: PRINT " ^"
LOCATE 3, 1: PRINT "ЗАВИСИМОСТЬ РАСПОРНЫХ УСИЛИЙ ОТ ТЕМПЕРАТУРЫ ВАЛКОВ"
11 REM "РАСПОРНОЕ УСИЛИЕ"
21 DATA 0.05,0.08,1e-3,1.25,0.23,2.7,2.5e5,60,0.3,0.5,0.485,0.3,0.231
31 READ X, R, H0, fr, N, BE, K0, T0, rt, RB, LA, L, UB
ub1 = UB / .105 / R
th1 = 1: th2 = 10: tm1 = 100: TS1 = T0
FOR TS = T0 TO tm1 STEP th1
t1 = (TS - th2): t2 = TS
41 ar = 2 * R * (UB / 2) ^ N * (1 + 2 * N) / N * (1 + fr) / H0 ^ N
51 r1 = -LA: r2 = -LA: s1 = 0: s2 = 0: i1 = 0: i2 = 0
61 a1 = (r1 ^ 2 - LA ^ 2) / ((1 + r1 ^ 2) ^ (1 + 2 * N))
71 f1 = a1 * ABS((1 + 2 * N) * (1 + fr) * (r1 ^ 2 - LA ^ 2) / N - (fr - 1) * (1 + r1 ^ 2)) ^ (N - 1)
81 i1 = i1 + f1 * X: s1 = s1 + i1
91 IF r1 <= rt THEN r1 = r1 + X ELSE 111
101 GOTO 61
111 f2 = L * ar * K0 * EXP(-BE * (t1 - T0) / (T0 + 273)) * s1 * X: f2 = ABS(f2): p2 = f2 / L
121 a2 = (r2 ^ 2 - LA ^ 2) / ((1 + r2 ^ 2) ^ (1 + 2 * N))
131 f3 = a2 * ABS((1 + 2 * N) / N * (1 + fr) * (r2 ^ 2 - LA ^ 2) + (fr - 1) * (1 + r2 ^ 2)) ^ (N - 1)
141 i2 = i2 + f3 * X: s2 = s2 + i2
151 IF r2 <= RB THEN r2 = r2 + X ELSE 171
161 GOTO 121
171 f4 = L * ar * K0 * EXP(-BE * (t2 - T0) / (T0 + 273)) * s2 * X: f4 = ABS(f4): p4 = f4 / L
IF TS = T0 THEN ff2 = f2
IF TS = T0 THEN ff4 = f4
LINE ((TS1 - th2) * 5, 295 - ff2 * .0125 / 2)-((TS - th2) * 5, 295 - f2 * .0125 / 2), 7
LINE (TS1 * 5, 295 - ff4 * .0125 / 2)-(TS * 5, 295 - f4 * .0125 / 2), 7
ff2 = f2: ff4 = f4: TS1 = TS
LOCATE 22, 1: PRINT "распорное усилие, действующее на тихоходный валок при TBmax F2="; f2; "Н
"
LOCATE 23, 1: PRINT "то же, удельное P2="; p2; "Н "
LOCATE 24, 1: PRINT "распорное усилие, действующее на быстроходный валок при TBmax F4="; f4;
"Н "
LOCATE 25, 1: PRINT "то же, удельное P4="; p4; "Н "
NEXT TS
LOCATE 27, 1: PRINT " u1="; UB; "м/с "; "ub1="; ub1 - uh1; "об/мин"; " u2="; (UB * fr); "м/с "; "ub2=";
(ub1 - uh1) * fr; "об/мин"

Страницы