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

UptoLike

SCREEN 11: LINE (40, 100)-(40, 348): LINE (40, 300)-(300, 300)
LINE (265, 100)-(265, 300): FOR X = 40 TO 300 STEP 7.5
LINE (X, 298)-(X, 302), 6: NEXT X: FOR X1 = 40 TO 300 STEP 75 / 2
LINE (X1, 296)-(X1, 304), 6: NEXT X1: FOR Y1 = 340 TO 100 STEP -4
LINE (38, Y1)-(42, Y1), 7: NEXT Y1: FOR Y2 = 340 TO 100 STEP -20
LINE (36, Y2)-(44, Y2), 7: NEXT Y2: FOR T1 = 300 TO 100 STEP -6
LINE (263, T1)-(267, T1), 6: NEXT T1: FOR T2 = 300 TO 100 STEP -30
LINE (261, T2)-(269, T2), 6: NEXT T2: LOCATE 20, 6: PRINT "0"
LOCATE 20, 10: PRINT "0.1": LOCATE 20, 14: PRINT "0.2": LOCATE 20, 18: PRINT "0.3"
LOCATE 20, 23: PRINT "0.4": LOCATE 20, 28: PRINT "0.5": LOCATE 20, 37: PRINT "X,M"
LOCATE 12, 27: PRINT "Ми(X)": LOCATE 12, 15: PRINT "Мкр(X)"
LOCATE 6, 6: PRINT "Ми, Н*м": LOCATE 13, 1: PRINT "1000": LOCATE 18, 1: PRINT "200"
LOCATE 15, 1: PRINT "600": LOCATE 10, 1: PRINT "1400": LOCATE 8, 1: PRINT "1800"
LOCATE 21, 1: PRINT "-200": LOCATE 6, 32: PRINT "Мкр, Н*м"
LOCATE 16, 35: PRINT "1200": LOCATE 14, 35: PRINT "1800"
LOCATE 12, 35: PRINT "2400": LOCATE 18, 35: PRINT "600"
LINE (40 + X(A) * 375, 300 - M7(A) * .1)-(40 + (X(A) - hx1) * 375, 300 - M71 * .1)
LINE (40 + X(A) * 375, 300 - MK(A) * .1 / 2)-(40 + (X(A) - hx1) * 375, 300 - MK1 * .1 / 2)
M71 = M7(A): MK1 = MK(A)
LOCATE 24, 5: PRINT "Мкр max = "; MK(A); "Н*м"
'1260 PRINT USING " #.##"; X(A);
'1270 PRINT USING " #.###^^^^"; J7(A); W7(A); M7(A); MK(A)
1280 NEXT A
'1300 PRINT " X,M"; " ST(X),MПa"; " SИ(X),MПa"; " T(X),MПa";
'1310 PRINT " SЗКВ(X),МПа"
1320 FOR A = 1 TO ZX
LOCATE 23, 2: PRINT "-Крутящий момент, действующий на валок "; " MKP="; KM; "H*м"
LOCATE 24, 2: PRINT "-Реакции в опорах А, В равны соответственно "; " RA="; RA; "H, RB="; RA; "H"
LINE (50, 100)-(50, 300): LINE (50, 300)-(300, 300): LINE (350, 300)-(600, 300)
LINE (250, 100)-(250, 340): LINE (555, 100)-(555, 300)
LINE (350, 100)-(350, 300): FOR F1 = 300 TO 100 STEP -5
LINE (553, F1)-(557, F1), 6: NEXT F1: FOR F2 = 340 TO 100 STEP -5
LINE (248, F2)-(252, F2), 6: NEXT F2: FOR F3 = 300 TO 100 STEP -5
LINE (348, F3)-(352, F3), 6: NEXT F3: FOR F2 = 300 TO 100 STEP -20
LINE (551, F2)-(559, F2), 6: NEXT F2: FOR F4 = 340 TO 100 STEP -20
LINE (246, F4)-(254, F4), 6: NEXT F4: FOR F5 = 300 TO 100 STEP -20
LINE (346, F5)-(354, F5), 6: NEXT F5: FOR X = 50 TO 300 STEP 5
LINE (X, 298)-(X, 302), 6: NEXT X: FOR X1 = 50 TO 300 STEP 50
LINE (X1, 296)-(X1, 304), 6: NEXT X1: FOR X3 = 350 TO 600 STEP 5
LINE (X3, 298)-(X3, 302), 6: NEXT X3: FOR X4 = 350 TO 600 STEP 50
LINE (X4, 296)-(X4, 304), 6: NEXT X4: FOR Y1 = 300 TO 100 STEP -5
LINE (48, Y1)-(52, Y1), 7: NEXT Y1: FOR Y2 = 300 TO 100 STEP -25
LINE (46, Y2)-(54, Y2), 7: NEXT Y2: LOCATE 20, 45: PRINT "0": LOCATE 20, 56: PRINT "0.4"
LOCATE 20, 62: PRINT "0.6": LOCATE 20, 50: PRINT "0.2": LOCATE 20, 37: PRINT "X,M"
LOCATE 20, 26: PRINT "0.6": LOCATE 20, 13: PRINT "0.2": LOCATE 20, 72: PRINT "X,M"
LOCATE 15, 3: PRINT "7.5": LOCATE 18, 3: PRINT "2.5": LOCATE 20, 7: PRINT "0": LOCATE 20, 18:
PRINT "0.4"
LOCATE 16, 3: PRINT "5.0": LOCATE 13, 3: PRINT "10.0": LOCATE 11, 3: PRINT "12.5"
LOCATE 16, 33: PRINT "6.0": LOCATE 18, 33: PRINT "2.0": LOCATE 14, 33: PRINT "8.0"
LOCATE 17, 33: PRINT "4.0": LOCATE 13, 33: PRINT "10.0": LOCATE 12, 33: PRINT "12.0"
LOCATE 12, 71: PRINT "30.0": LOCATE 18, 71: PRINT "5.0": LOCATE 21, 33: PRINT "-2.0"
LOCATE 17, 71: PRINT "10.0": LOCATE 14, 71: PRINT "20.0": LOCATE 11, 71: PRINT "35.0"
LOCATE 16, 71: PRINT "15.0": LOCATE 13, 71: PRINT "25.0": LOCATE 9, 71: PRINT "40.0"
LOCATE 18, 40: PRINT "5.0": LOCATE 14, 40: PRINT "20.0": LOCATE 17, 40: PRINT "10.0"
LOCATE 12, 40: PRINT "30.0": LOCATE 11, 40: PRINT "35.0": LOCATE 10, 40: PRINT "40.0"