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

UptoLike

LOCATE 3, 1: PRINT "ЭПЮРЫ ТЕМПЕРАТУРНЫХ, ИЗГИБАЮЩИХ, ЭКВИВАЛЕНТНЫХ, КАСА-
ТЕЛЬНЫХ НАПРЯЖЕНИЙ"
LOCATE 5, 5: PRINT "ST*0.5,МПа": LOCATE 16, 40: PRINT "15.0"
LOCATE 5, 40: PRINT "SE,МПа": : LOCATE 13, 40: PRINT "25.0"
LOCATE 5, 25: PRINT "SI*0.5,МПа": LOCATE 5, 68: PRINT "SK,МПа":
LOCATE 9, 20: PRINT "ST(X)": LOCATE 16, 23: PRINT "SI(X)"
LOCATE 8, 61: PRINT "SE(X)": LOCATE 14, 60: PRINT "SK(X)"
LINE (50 + X(A) * 250, 300 - ST(A) * .000005)-(50 + (X(A) - HX1) * 250, 300 - ST1 * .000005)
LINE (50 + X(A) * 250, 300 - SI(A) * .000005)-(50 + (X(A) - HX1) * 250, 300 - SI1 * .000005)
LINE (350 + X(A) * 250, 300 - SK(A) * .0000075 / 2)-(350 + (X(A) - HX1) * 250, 300 - SK1 * .0000075 / 2)
LINE (350 + X(A) * 250, 300 - SE(A) * .000004)-(350 + (X(A) - HX1) * 250, 300 - SE1 * .000004)
'1330 PRINT USING " #.###"; X(A);
'1340 PRINT USING " ##.###"; ST(A) / 1000000; SI(A) / 1000000;
'1350 PRINT USING " ##.###"; SK(A) / 1000000; SE(A) / 1000000:
ST1 = ST(A): SI1 = SI(A): SK1 = SK(A): SE1 = SE(A)
NEXT A
1351 MAX = ABS(M7(1))
1352 FOR A = 1 TO ZX
1353 IF ABS(M7(A)) >= MAX THEN MAX = ABS(M7(A))
1354 NEXT A
1360 MAX = ABS(SE(1))
1361 FOR A = 1 TO ZX
1362 IF ABS(SE(A)) >= MAX THEN MAX = ABS(SE(A))
1363 NEXT A
1365 IF MAX <= SD THEN 1366 ELSE 1367
1366 LOCATE 26, 1: PRINT "УСЛОВИЕ ПРОЧНОСТИ ВЫПОЛНЯЕТСЯ, ТАК КАК Sэкв max < [S] ":
GOTO 1368
1367 LOCATE 26, 1: PRINT "УСЛОВИЕ ПРОЧНОСТИ НЕ ВЫПОЛНЯЕТСЯ, ТАК КАК Sэкв max > [S]
"
1368 LOCATE 25, 1: PRINT "Sэкв max ="; MAX / 1000000; "МПа "; "[S]="; SD / 1000000!; "МПа "
1369 END
LOCATE 23, 5: PRINT "Ми max = "; MAX; "Н*м"
1370 PRINT "": IF RZ = 1 GOTO 1710
1380 REM * Определение прогиба валка по методу *
1390 REM * начальных параметров *
1400 Z = 0
1410 FOR I = 1 TO N
1420 Z = Z + 1
1430 GOSUB 580
1440 XX(I) = A(I, 4): WW(I) = W(Z): JJ(I) = j(Z): X = XX(I)
1450 GOSUB 490
1460 MM(I) = M(Z)
1470 NEXT I
1480 MS(0) = 0: QS(0) = RA: FP(0) = 0: J0 = JJ(1): BETA(0) = I
1490 FOR M = 1 TO Z - 2
1500 BETA(M) = j(0) / JJ(M + 1)
1510 QS(M) = -ABS(RA * (BETA(M - 1) - BETA(M)))
1520 MS(M) = MM(M) * (BETA(M - 1) - BETA(M)) * (-1)
1530 NEXT M
1540 X = L
1550 GOSUB 1910
1560 T0 = -(QS(0) * X ^ 3 / 6 + QQ + MQ + QM) / E / J0 / X
1570 S = 0
1575 HX = L / 10
1580 FOR X = 0 TO L STEP HX
1590 GOSUB 1910