Курсовая работа: Расчет жесткого стержня

END IF

IF s = L1 THEN

Q = R1 - P1 + R2

M = P1 * (s - C1) - R1 * (s - C1) + M1

QQ = R2

MM = P2 * (L2 - c2) - M2 - R3 * L2 + F * (L2 - c2/2)

GOTO 80

END IF

IF s = L1 + L2 - c2 THEN

Q = - P2

M = M2 + P1 * (L1 - C1) - R1 * (L1 - C1) + M1 + F * (L1 - C1) / 2 - 30

QQ = R3 - P2 - F

MM = - M2 - R3 * c2 + F

GOTO 80

END IF

70 PRINT USING "##. ## ####. #### ####. ####"; s; Q; M: GOTO 90

80 PRINT USING "##. ## ####. #### ####. #### ####. #### ####. ####"; s; Q; M; QQ; MM

90 NEXT s

A$ = INPUT$ (1)

LINE (10,8) - (18,8), 8

LINE (10,3) - (10, 20), 8

FOR Z = 10 TO 18 STEP.5

LINE (Z, 7.9) - (Z, 8.1), 8

FOR W = 3 TO 20 STEP.5

LINE (9.9, W) - (10.1, W), 8

NEXT W

NEXT Z

LINE (10, - 3) - (18, - 3), 8

LINE (10, 0) - (10, - 18), 8