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

END IF

100 PSET (T / 3 + 10, Q / 3 + 8), 4

PSET (T / 3 + 10, M / 3 - 3), 5

NEXT T

T = C1: GOTO 110

110 Q = R1 - P1

M = M1

PSET (T / 3 + 10, Q / 3 + 8), 4

PSET (T / 3 + 10, M / 3 - 3), 5

LINE (T / 3 + 10, V1/3 + 8) - (T / 3 + 10, Q / 3 + 8), 4

LINE (T / 3 + 10, U1/3 - 3) - (T / 3 + 10, M / 3 - 3), 5

T = L1: GOTO 120

120 Q = R1 - P1 + R2

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

PSET (T / 3 + 10, Q / 3 + 8), 4

PSET (T / 3 + 10, M / 3 - 3), 5

LINE (T / 3 + 10, V2/3 + 8) - (T / 3 + 10, Q / 3 + 8), 4

LINE (T / 3 + 10, U2/3 - 3) - (T / 3 + 10, M / 3 - 3), 5

T = L1 + L2 - c2: GOTO 130

130 Q = - P2

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

PSET (T / 3 + 10, Q / 3 + 8), 4

PSET (T / 3 + 10, M / 3 - 3), 5

LINE (T / 3 + 10, V3/3 + 8) - (T / 3 + 10, Q / 3 + 8), 4

LINE (T / 3 + 10, U3/3 - 3) - (T / 3 + 10, M / 3 - 3), 5

END

11. Форма ввода - вывода информации

Программу составил студент гр.320851 Клычников А.В."

Расчет жесткого стержня

Исходные данные