Проблемы расчёта продольных трещин в сжатом железобетоне при внецентренном сжатии

МишаИнженер · 14.12.2008, 18:01

Обсудим очень важную тему:
Расчёт образования продольных трещин в железобетоне сжатой зоны

Основное условие проверки по образованию продольных трещин в сжатой зоне бетона выражается в следующем:
Sigmab<=Rbmc2, где:
Sigmab - Напряжение в крайнем волокне сжатой зоны бетона, (МПа)
Rbmc2 - Сжатие осевое (призменная прочность) для расчетов по предотвращению образования в конструкциях продольных трещин на стадии эксплуатации, (МПа) берётся из таблицы 23* СНиП 2.05.03-84* "Мосты и трубы"

Каким образом вычислить Sigmab? И 95% всех спрошенных ответят: "НЕ ЗНАЮ" потому что в СНиП хотя и сказано в п. 3.100*: "Образование продольных трещин от нормальных сжимающих напряжений во всех конструкциях и на всех стадиях их работы недопустимо.
Возникающие от действующих нормативных нагрузок и воздействий нормальные сжимающие напряжения sbx в сечениях элементов не должны превышать:
в бетонных и железобетонных конструкциях с ненапрягаемой арматурой — расчетных сопротивлений Rb,mc2 (с учетом пп. 3.48* и 3.97*);"
Но как вычислить Sigmab=sbx в СНиП нигде не сказано, а экспертиза требует выполнения условия 3.100 и не принимает расчётов без проверки этого условия. Спрашивается где взять расчёт для вычисления Sigmab при изгибе и при внецентренном сжатии?

К счастью в старой редакции СНиП 2.05.03-84 "Мосты и трубы" есть в тойже самой таблице 38 не просто буквенные обозначения усилий а формулы по котороым надо их вычислять правда не написано что эти формулы обозначают (нет знака "=") но по текстовым пояснениям в другом столбце можно догадаться, что это формулы для вычисления напряжений в бетоне и в арматуре, причём для изгиба и для внецентренного сжатия существуют разные формулы.
Эти формулы объединяет одно: везде надо вычислить величину x'! Величина x' это: высота сжатой зоны бетона, определяемая по формулам упругого тела, без учета растянутой зоны бетона. Это означает, что эпюра напряжений в бетоне сжатой зоны принимается не прямоугольной как при расчёте прочности по 1 предельному состоянию, а треугольной как при расчёте по 2 предельному состоянию.
И ещё раз к счастью в старой редакции СНиП 2.05.03-84 в п. 3.94 написано: При изгибе величину x' следует определять из условия, что статический момент приведённой площади сечения элемента (без площади растянутой зоны бетона) относительно нейтральной оси равен нулю, а при внецентренном сжатии - из уравнения моментов относительно оси, соответствующей положению продольной силы N.

Для изгиба всё понятно: методом подбора вычисляем статический момент относительно нейтральной оси используя коэффициент приведения для арматуры n и добиваемся чтобы этот статический моенит был равен нулю.
В Excel функция для этого выглядит следующим образом:

Код:

[Выделить все]

Public Function ВычислитьXПриведСечПриИзгибе(dblb As Double, dblh As Double, dblAs1Нач As Double, _
dbla1 As Double, dblAs2Нач As Double, dbla2 As Double, dblN As Double, _
Optional dblТочн As Double = 0.001) As Variant
'Подпрограмма вычисляет высоту сжатой зоны приведённого сечекния при изгибе
'Вводные данные:
'dblb - ширина прямоугольного сечения, (м)
'dblh - высота прямоугольного сечения, (м)
'dblAs1Нач - площадь растянутой арматуры, (см2)
'dbla1 - расстояние от низа сечения до ц.т. растянутой арматуры, (м)
'dblAs2Нач - площадь сжатой арматуры, (м2)
'dbla2 - расстояние от верхней стороны сечения до ц.т. сжатой арматуры, (м)
'dblN - коэффициент приведения свойств арматуры к свойствам бетона n=Es/Eb
'dblТочн - точность вычисления по умолчанию = 0,001
'НАЧИНАЕМ ВЫЧИСЛЕНИЯ
Dim dblSbSa2 As Double, dblSa1 As Double, dblx As Double, dblDeltah As Double
Dim intНапрПредыдущИтерации As Integer, dblAs1 As Double, dblAs2 As Double
On Error GoTo ОбработкаОшибок
'Зададимся начальным значением x
   dblx = dblh / 2: dblDeltah = 0.1 * dblx
   dblAs1 = dblAs1Нач / 10000: dblAs2 = dblAs2Нач / 10000
'Вычислим статические моменты
   GoSub ВычислитьСтатическиеМоменты
   intНапрПредыдущИтерации = Sgn(dblSa1 - dblSbSa2)
'В цикле вычислим высоту сжатой зоны
   Do While Abs(dblSbSa2 - dblSa1) > dblТочн
      If dblSbSa2 < dblSa1 Then
         If intНапрПредыдущИтерации = 1 Then
            dblDeltah = Abs(dblDeltah)
         Else
            dblDeltah = Abs(dblDeltah) / 2
         End If
      Else
         If intНапрПредыдущИтерации = -1 Then
            dblDeltah = -Abs(dblDeltah)
         Else
            dblDeltah = -Abs(dblDeltah) / 2
         End If
      End If
      intНапрПредыдущИтерации = Sgn(dblDeltah)
'Зададимся новым значением высоты сжатой зоны
      dblx = dblx + dblDeltah
'Вычислим новые статические моменты
      GoSub ВычислитьСтатическиеМоменты
   Loop
'Зададим ответное значение функции
   ВычислитьXПриведСечПриИзгибе = dblx
   Exit Function
ВычислитьСтатическиеМоменты:
   dblSbSa2 = dblb * dblx ^ 2 / 3 + dblAs2 * (dblx - dbla2) * dblN
   dblSa1 = dblAs1 * (dblh - dblx - dbla1) * dblN
   Return
ОбработкаОшибок:
   MsgBox "При вычислении высоты сжатой зоны приведённого сечения при изгибе произошла ОШИБКА!" & vbLf & vbLf & _
         "Номер ошибки = " & Err.Number & "," & vbLf & vbLf & _
         "Описание ошибки: """ & Err.Description & """.", vbInformation, "Вычисление Vжд"
   Resume Next
End Function

Для внецентренного сжатия формулировка более запутанная:
"из уравнения моментов относительно оси, соответствующей положению продольной силы N"
Во первых вспомним что сумма моментов, если я не ошибаюсь, относительно любой оси остаётся величиной постоянной и не зависит от того относительно какой оси эти моменты вычисляют.
Ось может влиять на уравнение задавая собой высоту сжатой зоны x' (как для изгиба нейтральная ось задаёт высоту сжатой зоны), но здесь ось соответствует положению продольной силы N и если вспомнить продольная сила N задаётся с эксцентриситетом e, но это не значит что эксцентриситет равен высоте сжатой зоны.
Эксцентриситет e и продольная сила N задаёт величину момента M и вот мы приходим к выводу, что в нашем сечении действует только момент M=N*e, (создаётся впечатление что дальше можно считать по формулам для чистого изгиба).
Но попробуем вычислить x' используя условия сказанные для внецентренного сжатия, может случиться чудо и мы получим теже самые ответы для одинакового момента взятого как при изгибе и как вычисленнного (численно равного) по формуле: M=N*e.
Только вычисляя x' через уравнение моментов будем вычислять моменты относительно нижней стороны прямоугольного поперечного сечения.
Формула для Excel выглядит следующим образом:

Код:

[Выделить все]

Public Function ВычислитьXПриведСеч(dblb As Double, dblh As Double, dblAs1Нач As Double, _
dbla1 As Double, dblAs2Нач As Double, dbla2 As Double, _
dblRb As Double, dblRs As Double, dblRsc As Double, _
dblM As Double, dblN As Double, Optional dblТочн As Double = 0.001) As Variant
'Подпрограмма вычисляет высоту сжатой зоны прямоугольного сечения при внецентренном сжатии
'Основное условие: Сумма моментов внутренних и внешних сил должна быть равна нулю
'Моменты вычисляются относительно нижней стороны сечения
'Вводные данные:
'dblb - ширина прямоугольного сечения, (м)
'dblh - высота прямоугольного сечения, (м)
'dblAs1Нач - площадь растянутой арматуры, (см2)
'dbla1 - расстояние от низа сечения до ц.т. растянутой арматуры, (м)
'dblAs2Нач - площадь сжатой арматуры, (м2)
'dbla2 - расстояние от верхней стороны сечения до ц.т. сжатой арматуры, (м)
'dblRb - предел прочности бетона на сжатие, (МПа) (берётся из таблицы 23* СНиП 2.05.03-84* "Мосты и трубы")
'dblRs - предел прочности арматуры на растяжение, (МПа) (берётся из таблицы 31* СНиП 2.05.03-84* "Мосты и трубы")
'dblRsc - предел прочнсти арматуры на сжатие, (МПа) (обычно принимается dblRsc=dblRs)
'dblM - нормативный изгибающий момент, (МН*м)
'dblN - нормативная сжимающая сила, (МН) (к сожалению в расчёте не используется, оставлена для приличия чтобы не забывать, что это внецентренное сжатие)
'dblТочн - точность вычисления по умолчанию = 0,001
'НАЧИНАЕМ ВЫЧИСЛЕНИЯ
Dim dblx As Double, dblDeltah As Double
Dim intНапрПредыдущИтерации As Integer, dblAs1 As Double, dblAs2 As Double
Dim dblMарм As Double, dblMвнутр As Double
On Error GoTo ОбработкаОшибок
'Зададимся начальным значением x
   dblx = dblh / 2: dblDeltah = 0.1 * dblx
   dblAs1 = dblAs1Нач / 10000: dblAs2 = dblAs2Нач / 10000
   dblMарм = dblRsc * dblAs2 * (dblh - dbla2) - dblRs * dblAs1 * dbla1
'Вычислим момент внутренних сил относительно нижней стороны сечения
   GoSub ВычислимМоментВнутреннихСил
   intНапрПредыдущИтерации = Sgn(dblM - dblMвнутр)
'В цикле вычислим высоту сжатой зоны
   Do While Abs(dblMвнутр - dblM) > dblТочн
      If dblMвнутр < dblM Then
         If intНапрПредыдущИтерации = 1 Then
            dblDeltah = Abs(dblDeltah)
         Else
            dblDeltah = Abs(dblDeltah) / 2
         End If
      Else
         If intНапрПредыдущИтерации = -1 Then
            dblDeltah = -Abs(dblDeltah)
         Else
            dblDeltah = -Abs(dblDeltah) / 2
         End If
      End If
      intНапрПредыдущИтерации = Sgn(dblDeltah)
'Зададимся новым значением высоты сжатой зоны
      dblx = dblx + dblDeltah
'Вычислим новые статические моменты
      GoSub ВычислимМоментВнутреннихСил
   Loop
'Зададим ответное значение функции
   ВычислитьXПриведСеч = dblx
   Exit Function
ВычислимМоментВнутреннихСил:
'Подпрограмма вычисляет момент внутренних сил относительно нижней стороны сечения
'с учётом того, что эпюра напряжений в сжатом бетоне треугольная: (0 на нейтральной оси и Rb в крайнем волокне)
'   dblMвнутр = dblRb * dblb * dblx / 2 * (dblh - dblx / 3) + dblMарм
'в надежде на то, что получится удовлетворительный ответ с прямоугольной эпюрой напряжений в сжатом бетоне
   dblMвнутр = dblRb * dblb * dblx * (dblh - dblx / 2) + dblMарм
   Return
ОбработкаОшибок:
   MsgBox "При вычислении высоты сжатой зоны приведённого сечения произошла ОШИБКА!" & vbLf & vbLf & _
         "Номер ошибки = " & Err.Number & "," & vbLf & vbLf & _
         "Описание ошибки: """ & Err.Description & """.", vbInformation, "Вычисление Vжд"
   Resume Next
End Function

В функции для внецентренного сжатия есть 2 особенности:
1) задаваемая величина продольной силы N в расчёте не используется и оставлена для того чтобы пользователь не забывал, что он считает внецентренное сжатие.
2) Момент внутренних сил я пробовал вычислять для треугольной эпюры напряжений в бетоне и для прямоугольной эпюры, надеясь что баланс математических сил даст мне удовлетворительные ответы для обоих этих случаев.
Обе функции работают но к сожалению выдают разные ответы:
1 функция для изгиба:
Вводные данные: b=1 м; h=0.37 м; As1=30.79 см2; a1=0.03 м; As2=19.01 см2; a2=0.03 м; n=15
Ответ: x'=0.13875 м
2 функция для внецентренного сжатия (или в моём понимании как для изгиба только способ вычисления через моменты и ответ поэтому должен сойтись с ответом 1 функции)
Вводные данные: b=1 м; h=0.37 м; As1=30.79 см2; a1=0.03 м; As2=19.01 см2; a2=0.03 м; Rb=15.5 МПа; Rs=330 МПа; Rsc=330 МПа; Mn=0,154 МН*м; Nn=0.098 МН*м
Внутренние моменты вычисляются с учётом треугольной эпюры напряжений в сжатом бетоне
Ответ: x'=-0.009828 м
Внутренние моменты вычисляются с учётом прямоугольной эпюры напряжений в сжатом бетоне
Ответ: x'=-0.004914 м

Что мне делать с этими отрицательными ответами? Они просто неожиданные, не говоря уже о том, что эти ответы не равны ответу первой функции.

Люди добрые скажите в чём я не прав и научите вычислять x' для внецентренного сжатия пожалуйста!

Если можете подскажите на какие формы надо обратиться и где поискать литературы или статьи на эту тему.

С уважением Михаил.

Pek · 18.12.2008, 22:56

А определить растягивающие напряжения численным методом т.е. МКЭ не пойдет?

МишаИнженер · 19.12.2008, 21:05

Экспертиза говорит, что эту задача решается на бумаге

Pek · 20.12.2008, 16:41

Это да!! Только это не контрольная в институте, где задачу надо решать определенным методом. Напряжения можно определять любым способом, а они (если знают как) могут проверить это "на бумаге".
Получите напряжения и сравниваайте с чем угодно на здоровье.
Может они еще потребуют ст. неопр. балки решать методом сил??

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Электромагнитная пушка	T-Yoke	Машиностроение	112	06.08.2008 18:48
БРЕД СИВОЙ КОБЫЛЫ	Kryaker	Разное	1876	29.12.2006 23:41

14.12.2008, 18:01
Проблемы расчёта продольных трещин в сжатом железобетоне при внецентренном сжатии МишаИнженер Регистрация: 14.12.2008 Сообщений: 1,134 Обсудим очень важную тему: Расчёт образования продольных трещин в железобетоне сжатой зоны Основное условие проверки по образованию продольных трещин в сжатой зоне бетона выражается в следующем: Sigmab<=Rbmc2, где: Sigmab - Напряжение в крайнем волокне сжатой зоны бетона, (МПа) Rbmc2 - Сжатие осевое (призменная прочность) для расчетов по предотвращению образования в конструкциях продольных трещин на стадии эксплуатации, (МПа) берётся из таблицы 23* СНиП 2.05.03-84* "Мосты и трубы" Каким образом вычислить Sigmab? И 95% всех спрошенных ответят: "НЕ ЗНАЮ" потому что в СНиП хотя и сказано в п. 3.100: "Образование продольных трещин от нормальных сжимающих напряжений во всех конструкциях и на всех стадиях их работы недопустимо. Возникающие от действующих нормативных нагрузок и воздействий нормальные сжимающие напряжения sbx в сечениях элементов не должны превышать: в бетонных и железобетонных конструкциях с ненапрягаемой арматурой — расчетных сопротивлений Rb,mc2 (с учетом пп. 3.48 и 3.97);" Но как вычислить Sigmab=sbx в СНиП нигде не сказано, а экспертиза требует выполнения условия 3.100 и не принимает расчётов без проверки этого условия. Спрашивается где взять расчёт для вычисления Sigmab при изгибе и при внецентренном сжатии? К счастью в старой редакции СНиП 2.05.03-84 "Мосты и трубы" есть в тойже самой таблице 38 не просто буквенные обозначения усилий а формулы по котороым надо их вычислять правда не написано что эти формулы обозначают (нет знака "=") но по текстовым пояснениям в другом столбце можно догадаться, что это формулы для вычисления напряжений в бетоне и в арматуре, причём для изгиба и для внецентренного сжатия существуют разные формулы. Эти формулы объединяет одно: везде надо вычислить величину x'! Величина x' это: высота сжатой зоны бетона, определяемая по формулам упругого тела, без учета растянутой зоны бетона. Это означает, что эпюра напряжений в бетоне сжатой зоны принимается не прямоугольной как при расчёте прочности по 1 предельному состоянию, а треугольной как при расчёте по 2 предельному состоянию. И ещё раз к счастью в старой редакции СНиП 2.05.03-84 в п. 3.94 написано: При изгибе величину x' следует определять из условия, что статический момент приведённой площади сечения элемента (без площади растянутой зоны бетона) относительно нейтральной оси равен нулю, а при внецентренном сжатии - из уравнения моментов относительно оси, соответствующей положению продольной силы N. Для изгиба всё понятно: методом подбора вычисляем статический момент относительно нейтральной оси используя коэффициент приведения для арматуры n и добиваемся чтобы этот статический моенит был равен нулю. В Excel функция для этого выглядит следующим образом: Код: [Выделить все] Public Function ВычислитьXПриведСечПриИзгибе(dblb As Double, dblh As Double, dblAs1Нач As Double, _ dbla1 As Double, dblAs2Нач As Double, dbla2 As Double, dblN As Double, _ Optional dblТочн As Double = 0.001) As Variant 'Подпрограмма вычисляет высоту сжатой зоны приведённого сечекния при изгибе 'Вводные данные: 'dblb - ширина прямоугольного сечения, (м) 'dblh - высота прямоугольного сечения, (м) 'dblAs1Нач - площадь растянутой арматуры, (см2) 'dbla1 - расстояние от низа сечения до ц.т. растянутой арматуры, (м) 'dblAs2Нач - площадь сжатой арматуры, (м2) 'dbla2 - расстояние от верхней стороны сечения до ц.т. сжатой арматуры, (м) 'dblN - коэффициент приведения свойств арматуры к свойствам бетона n=Es/Eb 'dblТочн - точность вычисления по умолчанию = 0,001 'НАЧИНАЕМ ВЫЧИСЛЕНИЯ Dim dblSbSa2 As Double, dblSa1 As Double, dblx As Double, dblDeltah As Double Dim intНапрПредыдущИтерации As Integer, dblAs1 As Double, dblAs2 As Double On Error GoTo ОбработкаОшибок 'Зададимся начальным значением x dblx = dblh / 2: dblDeltah = 0.1 dblx dblAs1 = dblAs1Нач / 10000: dblAs2 = dblAs2Нач / 10000 'Вычислим статические моменты GoSub ВычислитьСтатическиеМоменты intНапрПредыдущИтерации = Sgn(dblSa1 - dblSbSa2) 'В цикле вычислим высоту сжатой зоны Do While Abs(dblSbSa2 - dblSa1) > dblТочн If dblSbSa2 < dblSa1 Then If intНапрПредыдущИтерации = 1 Then dblDeltah = Abs(dblDeltah) Else dblDeltah = Abs(dblDeltah) / 2 End If Else If intНапрПредыдущИтерации = -1 Then dblDeltah = -Abs(dblDeltah) Else dblDeltah = -Abs(dblDeltah) / 2 End If End If intНапрПредыдущИтерации = Sgn(dblDeltah) 'Зададимся новым значением высоты сжатой зоны dblx = dblx + dblDeltah 'Вычислим новые статические моменты GoSub ВычислитьСтатическиеМоменты Loop 'Зададим ответное значение функции ВычислитьXПриведСечПриИзгибе = dblx Exit Function ВычислитьСтатическиеМоменты: dblSbSa2 = dblb * dblx ^ 2 / 3 + dblAs2 * (dblx - dbla2) * dblN dblSa1 = dblAs1 * (dblh - dblx - dbla1) * dblN Return ОбработкаОшибок: MsgBox "При вычислении высоты сжатой зоны приведённого сечения при изгибе произошла ОШИБКА!" & vbLf & vbLf & _ "Номер ошибки = " & Err.Number & "," & vbLf & vbLf & _ "Описание ошибки: """ & Err.Description & """.", vbInformation, "Вычисление Vжд" Resume Next End Function Для внецентренного сжатия формулировка более запутанная: "из уравнения моментов относительно оси, соответствующей положению продольной силы N" Во первых вспомним что сумма моментов, если я не ошибаюсь, относительно любой оси остаётся величиной постоянной и не зависит от того относительно какой оси эти моменты вычисляют. Ось может влиять на уравнение задавая собой высоту сжатой зоны x' (как для изгиба нейтральная ось задаёт высоту сжатой зоны), но здесь ось соответствует положению продольной силы N и если вспомнить продольная сила N задаётся с эксцентриситетом e, но это не значит что эксцентриситет равен высоте сжатой зоны. Эксцентриситет e и продольная сила N задаёт величину момента M и вот мы приходим к выводу, что в нашем сечении действует только момент M=Ne, (создаётся впечатление что дальше можно считать по формулам для чистого изгиба). Но попробуем вычислить x' используя условия сказанные для внецентренного сжатия, может случиться чудо и мы получим теже самые ответы для одинакового момента взятого как при изгибе и как вычисленнного (численно равного) по формуле: M=Ne. Только вычисляя x' через уравнение моментов будем вычислять моменты относительно нижней стороны прямоугольного поперечного сечения. Формула для Excel выглядит следующим образом: Код: [Выделить все] Public Function ВычислитьXПриведСеч(dblb As Double, dblh As Double, dblAs1Нач As Double, _ dbla1 As Double, dblAs2Нач As Double, dbla2 As Double, _ dblRb As Double, dblRs As Double, dblRsc As Double, _ dblM As Double, dblN As Double, Optional dblТочн As Double = 0.001) As Variant 'Подпрограмма вычисляет высоту сжатой зоны прямоугольного сечения при внецентренном сжатии 'Основное условие: Сумма моментов внутренних и внешних сил должна быть равна нулю 'Моменты вычисляются относительно нижней стороны сечения 'Вводные данные: 'dblb - ширина прямоугольного сечения, (м) 'dblh - высота прямоугольного сечения, (м) 'dblAs1Нач - площадь растянутой арматуры, (см2) 'dbla1 - расстояние от низа сечения до ц.т. растянутой арматуры, (м) 'dblAs2Нач - площадь сжатой арматуры, (м2) 'dbla2 - расстояние от верхней стороны сечения до ц.т. сжатой арматуры, (м) 'dblRb - предел прочности бетона на сжатие, (МПа) (берётся из таблицы 23* СНиП 2.05.03-84* "Мосты и трубы") 'dblRs - предел прочности арматуры на растяжение, (МПа) (берётся из таблицы 31* СНиП 2.05.03-84* "Мосты и трубы") 'dblRsc - предел прочнсти арматуры на сжатие, (МПа) (обычно принимается dblRsc=dblRs) 'dblM - нормативный изгибающий момент, (МНм) 'dblN - нормативная сжимающая сила, (МН) (к сожалению в расчёте не используется, оставлена для приличия чтобы не забывать, что это внецентренное сжатие) 'dblТочн - точность вычисления по умолчанию = 0,001 'НАЧИНАЕМ ВЫЧИСЛЕНИЯ Dim dblx As Double, dblDeltah As Double Dim intНапрПредыдущИтерации As Integer, dblAs1 As Double, dblAs2 As Double Dim dblMарм As Double, dblMвнутр As Double On Error GoTo ОбработкаОшибок 'Зададимся начальным значением x dblx = dblh / 2: dblDeltah = 0.1 dblx dblAs1 = dblAs1Нач / 10000: dblAs2 = dblAs2Нач / 10000 dblMарм = dblRsc * dblAs2 * (dblh - dbla2) - dblRs * dblAs1 * dbla1 'Вычислим момент внутренних сил относительно нижней стороны сечения GoSub ВычислимМоментВнутреннихСил intНапрПредыдущИтерации = Sgn(dblM - dblMвнутр) 'В цикле вычислим высоту сжатой зоны Do While Abs(dblMвнутр - dblM) > dblТочн If dblMвнутр < dblM Then If intНапрПредыдущИтерации = 1 Then dblDeltah = Abs(dblDeltah) Else dblDeltah = Abs(dblDeltah) / 2 End If Else If intНапрПредыдущИтерации = -1 Then dblDeltah = -Abs(dblDeltah) Else dblDeltah = -Abs(dblDeltah) / 2 End If End If intНапрПредыдущИтерации = Sgn(dblDeltah) 'Зададимся новым значением высоты сжатой зоны dblx = dblx + dblDeltah 'Вычислим новые статические моменты GoSub ВычислимМоментВнутреннихСил Loop 'Зададим ответное значение функции ВычислитьXПриведСеч = dblx Exit Function ВычислимМоментВнутреннихСил: 'Подпрограмма вычисляет момент внутренних сил относительно нижней стороны сечения 'с учётом того, что эпюра напряжений в сжатом бетоне треугольная: (0 на нейтральной оси и Rb в крайнем волокне) ' dblMвнутр = dblRb * dblb * dblx / 2 * (dblh - dblx / 3) + dblMарм 'в надежде на то, что получится удовлетворительный ответ с прямоугольной эпюрой напряжений в сжатом бетоне dblMвнутр = dblRb * dblb * dblx * (dblh - dblx / 2) + dblMарм Return ОбработкаОшибок: MsgBox "При вычислении высоты сжатой зоны приведённого сечения произошла ОШИБКА!" & vbLf & vbLf & _ "Номер ошибки = " & Err.Number & "," & vbLf & vbLf & _ "Описание ошибки: """ & Err.Description & """.", vbInformation, "Вычисление Vжд" Resume Next End Function В функции для внецентренного сжатия есть 2 особенности: 1) задаваемая величина продольной силы N в расчёте не используется и оставлена для того чтобы пользователь не забывал, что он считает внецентренное сжатие. 2) Момент внутренних сил я пробовал вычислять для треугольной эпюры напряжений в бетоне и для прямоугольной эпюры, надеясь что баланс математических сил даст мне удовлетворительные ответы для обоих этих случаев. Обе функции работают но к сожалению выдают разные ответы: 1 функция для изгиба: Вводные данные: b=1 м; h=0.37 м; As1=30.79 см2; a1=0.03 м; As2=19.01 см2; a2=0.03 м; n=15 Ответ: x'=0.13875 м 2 функция для внецентренного сжатия (или в моём понимании как для изгиба только способ вычисления через моменты и ответ поэтому должен сойтись с ответом 1 функции) Вводные данные: b=1 м; h=0.37 м; As1=30.79 см2; a1=0.03 м; As2=19.01 см2; a2=0.03 м; Rb=15.5 МПа; Rs=330 МПа; Rsc=330 МПа; Mn=0,154 МНм; Nn=0.098 МНм Внутренние моменты вычисляются с учётом треугольной эпюры напряжений в сжатом бетоне Ответ: x'=-0.009828 м Внутренние моменты вычисляются с учётом прямоугольной эпюры напряжений в сжатом бетоне Ответ: x'=-0.004914 м Что мне делать с этими отрицательными ответами? Они просто неожиданные, не говоря уже о том, что эти ответы не равны ответу первой функции. Люди добрые скажите в чём я не прав и научите вычислять x' для внецентренного сжатия пожалуйста! Если можете подскажите на какие формы надо обратиться и где поискать литературы или статьи на эту тему. С уважением Михаил. Последний раз редактировалось Кулик Алексей aka kpblc, 14.12.2008 в 23:27.
Просмотров: 7520

	Реклама i