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

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

GOTO 100

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 Клычников А.В."

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

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

Интенсивность распределения нагрузки q4 (кH/м) = 10

Отрезок балки c1 (м) = 3

Пролет балки L1 (м) = 6

Отрезок балки c2 (м) = 2

Пролет балки L2 (м) = 12

Круговой момент M1 (кH*м) = 10

Круговой момент M2 (кH*м) = 35

Сосредоточенная сила P1 (кH) = 15

Сосредоточенная сила P2 (кH) = 30

Результаты

Опорная реакция в точке 1 R1=56.6668kН

Опорная реакция в точке 2 R2=-41.6667kН

Опорная реакция в точке 3 R3=50kН

Y=0 X=

PRINT " Таблица ординат эпюр Q и M "

x Q M QQ MM

0.0000 0.0000 0.0000

1.0000 0.0000 0.0000

2.0000 0.0000 0.0000

3.0000 41.6667 10.0000 0.0000 0.0000

4.0000 41.6667 -31.6667

5.0000 41.6667 -73.3334

6.0000 0.0000 -115.0000 -41.6667 -115.0000

7.0000 0.0000 -115.0000

8.0000 0.0000 -115.0000

9.0000 0.0000 -115.0000

10.0000 0.0000 -115.0000

12.0000 0.0000 -115.0000

13.0000 0.0000 -115.0000

14.0000 0.0000 -115.0000

15.0000 0.0000 -115.0000

16.0000 -30.0000 -80.0000 0.0000 -115.0000

17.0000 -40.0000 -45.0000

18.0000 -50.000 0.0000

Проверка по оси X =0

Программу составил студент Лазарев В.А. гр.320851

12. Анализ результатов

Эпюры поперечной силы Q и изгибающего момента М.

Q (kH) M (kHм)

Анализ результатов показал, что наиболее напряженное сечение стержня находится в точке с координатой S=14м, Q=-40 kH, M=-80kHм.

Литература

1. Данилина Н.И. Численные методы. - М.: Выш. шк. 1976г. - 368 с.

2. Дъяков В.П. Справочник по алгоритмам и программам на языке Бейсик для ПЭВМ. - М.: Наука, 1987г. - 240с.

 Скачать реферат