[gazon]

Во многих публикациях российских авторов деформационная модель упоминается в виде: "...в последние годы стали применять общий метод анализа, который известен под названием ДМ..." или "...в настоящее время разработана обобщенная деформационная расчетная модель нормальных сечений".
Нигде еще не нашел определенной ссылки на автора (авторов). Некогда слышал, что в иностранной литературе такую модель называют моделью имени Хогнестада (Eivind Hognestad).
Помогите, пожалуйста, разобраться откуда ноги растут.

[tutanhamon]

Сообщение от swell{d} есть площадь, центра нет. разбираюсь с полилинией

А такая идея - что если в цикле запускать команду _massprop и попробовать результаты ее в переменные вставлять? Это реально для NanoCAD?

[swell{d}]

Boxa, в свойствах площадь нулёвая

----- добавлено через ~3 мин. -----

Сообщение от tutanhamon А такая идея - что если в цикле запускать команду _massprop и попробовать результаты ее в переменные вставлять? Это реально для NanoCAD?

massprop не реализован в нано.

----- добавлено через ~28 мин. -----
у меня из пожеланий - цифры напряжений и отн.деформаций разного знака показывать разным цветом

[swell{d}]

Вот файлик для "адаптации". Экспериментировал с примером "Бетонное сечение".
Если сделать всё, что там написано, то работают все построения (столбики, значения напряжений и деформаций), но не работает импорт геометрии.

П.С. Свойство Centroid есть ещё у 3дфейсов, но тоже не работает в нано =(

[tutanhamon]

у меня из пожеланий - цифры напряжений и отн.деформаций разного знака показывать разным цветом

Окей, подумаю!

П.С. Свойство Centroid есть ещё у 3дфейсов, но тоже не работает в нано =(

Я подумал было об использовании солидов из "областей" единичной толщины, но это какой-то изврат на самом деле.

[swell{d}]

Под полилинии переделать не проблема для прямоугольников. Но если это четырёхугольник, да ещё и с дугами - тут я пасую перед трудностями

[tutanhamon]

Всем привет!

Немного обновил макрос в Excel для расчета нормальных сечений по нелинейной деформационной модели.

Что исправлено:

• Исправлен учет положений п. 8.1.30 СП 63.13330.2012 и п. 6.2.31 СП 52-101-2003 – в случае, когда в сечении распределены деформации только одного знака (спасибо qiqimora).

Новая версия программы доступна по ссылке: http://dwg.ru/dnl/13011

----- добавлено через ~3 мин. -----

Под полилинии переделать не проблема для прямоугольников. Но если это четырёхугольник, да ещё и с дугами - тут я пасую перед трудностями

Это да, потому я и выбирал "область" в качестве объекта для работы.
В случае, если делать модель исключительно для четырехугольников, по аналогии с МКЭ, то трудоемкость подготовки сечения увеличивается, конечно.

[Boxa]

Сообщение от swell{d} Под полилинии переделать не проблема для прямоугольников. Но если это четырёхугольник, да ещё и с дугами - тут я пасую перед трудностями

Напрасно. Регион, можно взорвать и получить набор примитив его границ, затем создать штриховку и задать ей границы этим набором.

Взорвать можно как то так:

Код:

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

Dim WheelParts(0 To 0) As AcadCircle
Dim regions As Variant
regions = ThisDrawing.ModelSpace.AddRegion(WheelParts)

Dim GetObj as Variant
GetObj = regions(0).Explode

Тут про создание штриховки

Код:

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

Sub AddHatch()
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
 
    ' Define the hatch
    patternName = "ANSI31"
    PatternType = 0
    bAssociativity = True
 
    ' Create the associative Hatch object
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch _
                       (PatternType, patternName, bAssociativity)

    ' Create the outer boundary for the hatch. (a circle)
    Dim outerLoop(0 To 0) As AcadEntity
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 3: center(1) = 3: center(2) = 0
    radius = 1
    Set outerLoop(0) = ThisDrawing.ModelSpace. _
                           AddCircle(center, radius)
 
    ' Append the outerboundary to the hatch
    ' object, and display the hatch
    hatchObj.AppendOuterLoop (outerLoop)
    hatchObj.Evaluate
    ThisDrawing.Regen True
End Sub

[swell{d}]

Boxa, вопрос в определении центра тяжести, а для этого надо интегрировать.

[tutanhamon]

Сообщение от swell{d} Boxa, вопрос в определении центра тяжести, а для этого надо интегрировать.

Я как-то давно делал LISP для определения цт полилинии, но без круговых сегментов: http://dwg.ru/dnl/12166

[Boxa]

Сообщение от swell{d} Boxa, вопрос в определении центра тяжести, а для этого надо интегрировать.

Зачем? Как правило, объекты разбиения получатся довольно простые по форме и центр тяжести приблизительно совпадает с геом. центром описанного вокруг фигуры прямоугольника, т.о. для определения центра тяжести вполне подойдет AcadRegion.GetBoundingBox, который отдаёт координаты нижнего левого и верхнего правого углов, а из этих координат, просто найти координаты точки лежащей в центре отрезка соединяющего эти координаты.

[swell{d}]

Boxa, не, это фигня какая-то. Даже для треугольника уже отклонение будет существенным. Без БД похоже не обойтись =)

[qiqimora]

swell{d}, tutanhamon, можно вообще триангуляцию произвольного контура сделать в любой КЭ программе. Только треугольными КЭ. Создать список КЭ с координатами узлов для каждого КЭ. Далее определить ц.т. треугольника по координатам вершин проще простого. Ну и проверку по деформациям/напряжениям, конечно, нужно делать по угловым точкам. Выгода от этого будет значительная - можно крупно триангулировать контур, что значительно снизит время счета. Особенно, если планируется использование пакетного режима.

[4teenz]

realdoc, вызывающие споры на форуме и в чате вообще смысла не имеют. НДМ и МПУ у меня лично ассоциируются с традиционными для строительной механики методами перемещений и сил (в букве СП они к счастью прописаны). В КЭ могут быть реализованы оба - дело просто в вашем опыте и видении - формализованная в сознании задача может иметь решение, а может и не иметь. Настоящих бетонистов, к счастью, немало осталось - они всегда подскажут, что вы недоучли в представлении, а что не дозрели. Насколько я помню, в мире существуют около 5 исследовательских центров (формата НИИ), занимающихся проблемами железобетона - и около 10 типографских изданий посвящено формированию и развитию расчётной модели, методам диагностики, химии и добавкам, прочности и долговечности и т.д. а схоластических споров на форуме я давно не видел, к счастью, - иначе форум запретят).
Светло-рыжий оборванный кот, раскурив в фимиаме булгарского Бога, взмолился ему - повесь, только не в Еврокод, - там мне яйца срежут убогому (© Васька (слушаю и ем))

[Boxa]

swell{d}, ок. тогда можно попробовать так:
Взорвать регион, получить набор элементов, сохранить список точек элементов, включая точки центров элементов, а потом посчитать центр масс, по простому...

Код:

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

    Private Function centerMass(ByVal varPnt As List(Of Point3d)) As Point3d
        Dim pntCenterMass_x As Double = 0
        Dim pntCenterMass_y As Double = 0
        Dim pntCenterMass_z As Double = 0
        For Each i As Point3d In varPnt
            pntCenterMass_x = pntCenterMass_x + i.X
            pntCenterMass_y = pntCenterMass_y + i.Y
            pntCenterMass_z = pntCenterMass_z + i.Z
        Next
        Dim count As Integer = varPnt.Count
        pntCenterMass_x = pntCenterMass_x / count
        pntCenterMass_y = pntCenterMass_y / count
        pntCenterMass_z = pntCenterMass_z / count
        Return New Point3d(pntCenterMass_x, pntCenterMass_y, pntCenterMass_z)
    End Function

[eilukha]

А действительно ли часто нужны произвольные сечения? Кольцо (круг), прямоугольник, двутавр (тавр) можно разбивать по заданному алгоритму на без использования графической программы.

[realdoc]

Сообщение от 4teenz realdoc, вызывающие споры на форуме и в чате вообще смысла не имеют.

Тогда к чему Вы это начали?

Сообщение от 4teenz НДМ и МПУ у меня лично ассоциируются с традиционными для строительной механики методами перемещений и сил (в букве СП они к счастью прописаны)

- Дети! о чем Вы думаете глядя на этот кирпич?
- я думаю о выдающихся успехах советских строителей.
- я думаю о достижениях советской промышленности.
Вовочка: - а я думаю о бабах.
- Но почему?
- А я всегда о них думаю...

Сообщение от 4teenz В КЭ могут быть реализованы оба - дело просто в вашем опыте и видении - формализованная в сознании задача может иметь решение, а может и не иметь

Причем тут МКЭ, причем метод сил и метод перемещений? Какое отношение метод предельных усилий в железобетоне имеет отношение к методу сил в строительной механике кроме слова "сила"? Решение НДМ может отыскиваться как от усилий к деформациям, так и от деформаций к усилиям. Но к методу конечных элементов это не имеет никакого отношения.

Сообщение от 4teenz Настоящих бетонистов, к счастью, немало осталось - они всегда подскажут, что вы недоучли в представлении, а что не дозрели

Вот спасибо... Пойду подумаю еще раз, что я недоучил. Может Вы подскажете, с чего мне начать изучение железобетона? Вы же знаете:

Сообщение от 4teenz около 10 типографских изданий

[qiqimora]

Сообщение от eilukha Кольцо (круг), прямоугольник, двутавр (тавр) можно разбивать по заданному алгоритму на без использования графической программы.

Но показывать результаты счета в графической программе очень полезно.

[eilukha]

Согласен.

[Сет]

Сообщение от eilukha А действительно ли часто нужны произвольные сечения? Кольцо (круг), прямоугольник, двутавр (тавр) можно разбивать по заданному алгоритму на без использования графической программы.

Разумно. Я именно этим руководствовался при создании своей программы. Считая простые сечения значительно упрощается ввод данных, он становится параметрическим (размеры сечения), отсутствует привязка к графической среде, простое разбиение на участки. А ведь процентов 99 реальных задач - именно простые (в плане формы сечения). С другой стороны бывает 1% задач со сложной формой сечения и их тоже надо считать

[Boxa]

Сет, Вы сайт то проверьте...