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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

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
IF TS = 60 THEN MM = M1
LINE (TS1 * 5, 295 - MM * .065 / 6)-(TS * 5, 295 - M1 * .065 / 6), 7
MM = M1: TS1 = TS
NEXT TS
LOCATE 26, 1: PRINT "мощность диссипации при TBmax M="; M1; "Вт"
LOCATE 27, 1: PRINT " u1="; UB; "м/с "; "ub1="; ub1 - uh1; "об/мин"; " u2="; (UB * fr); "м/с "; "ub2=";
(ub1 - uh1) * fr; "об/мин"
LOCATE 28, 1: PRINT "be="; BE; "k0="; K0; "r="; R; "м "; "h0="; H0; "м "; "x="; X
LOCATE 29, 1: PRINT " la="; LA; "n="; N; "L="; L; "м "; "t0="; T0; "град "; "rn="; RN
191 END
Результаты расчета программы 4

Страницы