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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

Программа 4
Расчет мощности диссипации при вальцевании
в зависимости от температуры валков
5 CLS : SCREEN 11
REM "РАСЧЕТ МОЩНОСТИ ДИССИПАЦИИ В ЗАВИСИМОСТИ ОТ ТЕМПЕРАТУРЫ ВАЛКОВ"
LINE (75, 70)-(75, 295)
LINE (75, 295)-(600, 295)
FOR w = 75 TO 585 STEP 5
LINE (w, 293)-(w, 298), 6
NEXT w
FOR w1 = 100 TO 585 STEP 50
LINE (w1, 291)-(w1, 299), 6
NEXT w1
FOR Y = 295 TO 95 STEP -5
LINE (76, Y)-(73, Y), 7
NEXT Y
FOR Y1 = 295 TO 95 STEP -20
LINE (78, Y1)-(71, Y1), 7
NEXT Y1
LINE (585, 70)-(585, 295)
FOR Y2 = 295 TO 95 STEP -5
LINE (586, Y2)-(583, Y2), 7
NEXT Y2
FOR Y3 = 295 TO 95 STEP -25
LINE (588, Y3)-(581, Y3), 7
NEXT Y3
LOCATE 17, 60: PRINT "M(tb)"
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 5, 4: PRINT "M,кВт": LOCATE 14, 5: PRINT "7.2"
LOCATE 9, 5: PRINT "14.4": LOCATE 12, 5: PRINT "10.8"
LOCATE 7, 5: PRINT "12": LOCATE 17, 5: PRINT "3.6"
LOCATE 20, 68: PRINT "110 ": LOCATE 20, 72: PRINT "tb,град"
LOCATE 19, 75: PRINT ">"
LOCATE 5, 10: PRINT "^": LOCATE 5, 73: PRINT " ^"
10 DATA 0.3,0.23,0.231,1e-03,0.08,2.5e5,27,60,1.25,0.485,3.74
20 READ L, N, UB, H0, RB, K0, BE, T0, fr, LA, RN
22 MM = 0: TS1 = T0: th1 = 1: tm1 = 100: ub1 = UB / .105 / RB
30 E = 100: NN = 1: M = 1
54 DEF FNAA (R) = 3 * (1 + fr) * (V ^ 2 - LA ^ 2) / (1 + V ^ 2) ^ 2
55 DEF FNBB (R) = -(fr - 1) / (1 + V ^ 2)
56 DEF FNF (R, P) = ABS(FNAA(R) * P + FNBB(R)) ^ (N + 1)* (1 + R^2)
LOCATE 3, 1: PRINT "ЗАВИСИМОСТЬ МОЩНОСТИ ДИССИПАЦИИ ОТ ТЕМПЕРАТУРЫ ВАЛ-
КОВ"
FOR TS = T0 TO tm1 STEP th1
TC = TS
65 A = -LA: b = RN: C = -1: D = 1
70 CC = 2 * K0 * EXP(-BE * (TC - T0) / (T0 + 273)) * L * (UB / (H0)) ^ (N + 1) * H0 * SQR(2 * H0 * RB)
80 SI = 0
90 S = 0: HX = (b - A) / NN: HY = (D - C) / M: I = NN
100 X = A + I * HX: J = M

Страницы