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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

LOCATE 10, 30: PRINT "f4(UB1)": LOCATE 16, 75: PRINT "4000"
LOCATE 20, 10: PRINT "0": LOCATE 20, 22: PRINT "10"
LOCATE 20, 47: PRINT "30": LOCATE 20, 60: PRINT "40"
LOCATE 20, 72: PRINT "50": LOCATE 20, 34: PRINT "20 "
LOCATE 7, 75: PRINT "16000"; LOCATE 5, 74: PRINT "^"
LOCATE 19, 77: PRINT ">"
LOCATE 4, 1: PRINT "ЗАВИСИМОСТЬ РАСПОРНЫХ УСИЛИЙ ОТ ЧАСТОТЫ ВРАЩЕНИЯ ВАЛ-
КОВ"
LOCATE 20, 65: PRINT "ub1,об/мин"
21 DATA 0.05,0.08,1e-3,1.25,0.23,2.7,1.16e5,60,0.3,0.5,63,63,0.485,0.3
31 READ X, R, H0, fr, N, BE, K0, T0, rt, RB, t1, t2, LA, L
uh1 = 1: um1 = 27.55: ff2 = 0: ff4 = 0
FOR ub1 = uh1 TO um1 STEP uh1
UB = ub1 * .105 * R: UB2 = ub1 * .105 * R * fr
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
LINE (75 + (ub1 - uh1) * 10, 295 - ff2 * .0125)-(75 + ub1 * 10, 295 - f2 * .0125), 7
LINE (75 + (ub1 - uh1) * 10 * fr, 295 - ff4 * .0125)-(75 + ub1 * 10 * fr, 295 - f4 * .0125), 7
ff2 = f2: ff4 = f4
LOCATE 23, 1: PRINT "распорное усилие, действующее на тихоходный валок при ubmax F2="; f2;
"Н"
LOCATE 24, 1: PRINT "то же, удельное P2="; p2; "Н"
LOCATE 25, 1: PRINT "распорное усилие, действующее на быстроходный валок при ubmax F4=";
f4; "Н"
LOCATE 26, 1: PRINT "то же, удельное P4="; p4; "Н"
NEXT ub1
LOCATE 28, 1: PRINT "rn="; RN; " ubmax="; UB; "м/с"; " ubmax2="; UB2; "м/с "; "ub1="; ub1 - uh1;
"об/мин "; "ub2="; (ub1 - uh1) * fr; "об/мин"; " la="; LA; "n="; N; "l="; L; "м"
LOCATE 29, 1: PRINT "t0="; T0; "град "; "be="; BE; "k0="; K0; "r="; R; "м "; "h0="; H0; "м "; "x="; X;
191 END
Результаты расчета программы 1

Страницы