примеры построение эпюр крутящих моментов

#превращаем вектора в матрицу

print('Построение эпбюры крутящих моментов Mк')

Mk_epure <- function (m.external,Mk.external,L,side=0) {

# Возвращаемых значений нет

# side: 0 - заделка слева, 1- заделка справа

# L: Длина бруса

# Mk.external: сосредоточенная нагрузка (попарно - [координата, значение])

# m.external: заданная распределенная нагрузка ()

# и отображение эпюры

# формирования таблицы усилий в брусе

# (C) sva, 2010, http://sopromat.in.ua

# Построение эпюры крутящих моментов

Учтем, что заделка может быть как слава так и справа.

где Lmн и Lmк – расстояние от начала координат до начала и до конца распределенного момента соответственно.

$$M _к(x) = \sum M _{кi} + \sum m _i(x)\cdot (x- L_{mн}) - \sum m _i(x)\cdot (x- L_{mк})$$

Напишем небольшую функцию для вычисления крутящих усилий и построения эпюры моментов. Воспользуемся формулой для вычисления внутренних усилий при кручении (задан постоянный закон для распределенных моментов m ).

Построим эпюру крутящих моментов для бруса, приведенного на странице “ “ с помощью компьютера.

          

изучаем сопротивление материалов

Сопромат.in.ua: Пример построение эпюры крутящих моментов