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

LINE (Z, - 2.9) - (Z, - 3.1), 8

FOR W = - 18 TO 0 STEP.5

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

NEXT W

NEXT ZFOR T = 0 TO L1 + L2 STEP.001

IF T >= 0 AND T < C1 THEN

Q = 0

M = 0

V1 = Q

U1 = M

GOTO 100

END IF

IF T > C1 AND T < L1 THEN

Q = R1 - P1

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

V2 = Q

U2 = M

GOTO 100

END IF

IF T > L1 AND T < L1 + L2 - c2 THEN

Q = 0

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

V3 = Q

U3 = M

GOTO 100

END IF

IF T > L1 + L2 - c2 AND T <= L1 + L2 THEN

Q = - P2 - q4 * (T - L1 - L2 + c2)

M = P1 * (L1 - C1) - R1 * (L1 - C1) + M1 + M2 + P2 * (T - L1 - L2 + c2) + q4* * (T - L1 - L2 + c2) * (T - L1 - L2 + c2) / 2