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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

FOR Y3 = 295 TO 95 STEP -25
LINE (588, Y3)-(581, Y3), 7
NEXT Y3
10 DATA 0.3,0.23,1e-03,0.08,1.16e5,2.7,60,63,1.25,0.485,3.74
20 READ L, N, H0, RB, K0, BE, T0, TC, fr, LA, RN
22 uh1 = 1: um1 = 27.55: MM = 0
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 10, 5: PRINT "6000": LOCATE 10, 49: PRINT "M(UB1)"
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 5, 3: PRINT "M,Вт": LOCATE 13, 5: PRINT "4000"
LOCATE 7, 5: PRINT "8000": LOCATE 5, 10: PRINT "^"
LOCATE 19, 77: PRINT ">"
LOCATE 4, 1: PRINT "ЗАВИСИМОСТЬ МОЩНОСТИ ДИССИПАЦИИ ОТ ЧАСТОТЫ ВРАЩЕНИЯ
ВАЛКОВ"
LOCATE 16, 5: PRINT "2000": LOCATE 20, 65: PRINT "ub1,об/мин"
FOR ub1 = uh1 TO um1 STEP uh1
UB = ub1 * .105 * RB: UB2 = ub1 * .105 * RB * fr
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
110 Y = C + J * HY
120 IF I = 0 THEN 150 ELSE 130
130 IF I = N THEN 150 ELSE 140
140 IF I - INT(I) = 0 THEN 160 ELSE 170
150 P = .5: GOTO 180
160 P = 1: GOTO 180
170 P = 2
180 IF J = 0 THEN 210 ELSE 190
190 IF J = M THEN 210 ELSE 200
200 IF J - INT(J) = 0 THEN 220 ELSE 230
210 K = .5: GOTO 240
220 K = 1: GOTO 240
230 K = 2
240 S = S + P * K * HY * FNF(X, Y) / 9: J = J - .5
250 IF J >= 0 THEN 110 ELSE 260
260 I = I - .5: IF I >= 0 THEN 100 ELSE 270
270 IF ABS(SI - S) > E THEN 280 ELSE 300
280 SI = S: NN = 2 * NN: M = 2 * M: GOTO 90
300 M1 = CC * S
LINE (75 + (ub1 - uh1) * 10 * fr, 295 - MM * .025)-(75 + ub1 * 10 * fr, 295 - M1 * .025), 7
MM = M1
NEXT ub1
LOCATE 27, 1: PRINT "мощность диссипации при ubmax M="; M1; "Вт"
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;
400 END
Результаты расчета программы 3

Страницы