ВУЗ:
Составители:
Рубрика:
1600 S = S + 1
1610 X(S) = X
1620 FP(S) = T0 * X + (QS(0) * X ^ 3 / 6 + QQ + MQ + QM) / E / J0
1630 NEXT X
1640 LOCATE 1, 10: PRINT "Начальные параметры:"
1650 LOCATE 2, 10: PRINT " W0 - начальный прогиб, м "; FP(0)
1660 LOCATE 3, 10: PRINT " T0 - начальный угол поворота, рад "; T0
1670 LOCATE 4, 10: PRINT " Q0 - начальная поперечная сила, Н "; RA
1680 LOCATE 5, 10: PRINT " Mи0 - начальный изгибающий момент, Н*м "; M0
1710 MJ = INT((S + 3) / 4)
1720 FOR K = 1 TO MJ
1740 FOR I = (4 * K - 3) TO 4 * K
1750 IF I <= S THEN 1780
1760 GOTO 1780
1780 NEXT I
1800 FOR I = (4 * K - 3) TO 4 * K
IF I = 1 THEN HX = 0 ELSE HX = L / 10
LINE (350, 100)-(350, 300): LINE (350, 300)-(600, 300)
FOR X = 350 TO 600 STEP 7.5
LINE (X, 298)-(X, 302), 6: NEXT X: FOR X1 = 350 TO 600 STEP 75 / 2
LINE (X1, 296)-(X1, 304), 6: NEXT X1: FOR Y1 = 300 TO 100 STEP -5
LINE (348, Y1)-(352, Y1), 7: NEXT Y1: FOR Y2 = 300 TO 100 STEP25
LINE (346, Y2)-(354, Y2), 7: NEXT Y2: LOCATE 20, 44: PRINT "0"
LOCATE 20, 48: PRINT "0.1": LOCATE 20, 57: PRINT "0.3": LOCATE 20, 76: PRINT "X,м"
LOCATE 20, 72: PRINT "0.6": LOCATE 20, 53: PRINT "0.2": LOCATE 20, 76: PRINT "X,м"
LOCATE 20, 67: PRINT "0.5": LOCATE 20, 62: PRINT "0.4": LOCATE 9, 55: PRINT "W(X)"
LOCATE 15, 40: PRINT "0.75": LOCATE 18, 40: PRINT "0.25": LOCATE 6, 40: PRINT "W,мм"
LOCATE 16, 40: PRINT "0.5": LOCATE 13, 40: PRINT "1.0": LOCATE 11, 40: PRINT "1.25"
1810 IF I > S THEN 1840
1812 LINE (350 + X(I) * 375, 300 - FP(I) * 100000)-(350 + (X(I) - HX) * 375, 300 - FP1 * 100000), 7
1815 FP1 = FP(I)
'1820 PRINT USING " ##.###^^^^ "; FP(I) : GOTO 1840
'1830 PRINT " ";
1843 IF ABS(FP(I)) >= MAX1 THEN MAX1 = ABS(FP(I))
LOCATE 25, 5: PRINT "W max = "; MAX1; "м "
1840 NEXT I
1860 NEXT K: IF RZ = 1 THEN 2070
1870 GOTO 2070
1890 REM * Определение суммарных нагрузок слева *
1900 REM * от текущего сечения *
1910 QQ = 0: MQ = 0: XX(0) = 0: QM = 0
1920 FOR M = 1 TO Z - 2
1930 IF X - XX(M) >= 0 THEN 1950
1940 CC = 0: GOTO 1960
1950 CC = X - XX(M)
1960 QQ = QQ + QS(M) * CC ^ 3 / 6
1970 MQ = MQ + MS(M) * CC ^ 2 / 2
1980 NEXT M
1990 IF X - L < 0 THEN 2010
2000 QM = Q * BETA(2) * (X - L) ^ 4 / 24 - Q * BETA(2)* (X - L1) ^ 4/24
2010 IF X - L1 < 0 THEN 2030
2020 QM = -Q * BETA(2) * (X - L1) ^ 4 / 24
2030 RETURN: END
2070 END: REM * Конец программы *
