Работа в программе Marc Mentat

Вариант №7

Исходные данные: E=30000000Па; ν=0.33; a=30м; b=20м; p=120Па

Созданиегеометрии:

Строим точки:

Geometry\Create\Point\XYZ\Point Coordinates List: [0 0 0]\Apply

: [10 0 0]\Apply

: [20 0 0]\Apply

: [30 0 0]\Apply

: [0 10 0]\Apply

: [0 20 0]\Apply

: [10 10 0]\Apply

: [10 20 0]\Apply

: [20 10 0]\Apply

: [20 20 0]\Apply

: [30 10 0]\Apply

: [30 20 0]\Apply

: [4 0 0]\Apply

: [4 20 0]\Apply

: [10 6 0]\Apply

: [10 14 0]\Apply

Строим кривые, соединяя точки:

Geometry\Create\Curve\Point\Option: 2 Point\Starting Point List: (выбираем первую точку)\Ending Point List: (выбираем вторую точку)\Apply

Аналогично остальные

Создаем поверхность:

Geometry\Create\Surface\Trimmed\ (выбираем нужные кривые)\Аpply

Аналогично остальные

Связываем построенные отрезки с поверхностью:

Geometry\Associate\Curve\Surface\Curve List: Curve 1:3 \Surface List: Surface 1 \Apply

Geometry\Associate\Curve\Surface\Curve List: Curve 4:6 \Surface List: Surface 2 \Apply

Задаемсетку:

Elements\Create\Mesh Seed\One Way Bias\Number=2;  L2/L1=1\Curve List:  Curve 5,6,14,15,16,17\Apply

Elements\Create\Mesh Seed\One Way Bias\Number=3;  L2/L1=1\Curve List:  Curve 1,10,11,18,19,20,21,22,23,\Apply

Elements\Create\Mesh\Surface\Elem Share: Quad; Mesher: Paver; Topology: Quad4\Surface List: Surface 1:6\Value:10.0\Apply

Удаляем совмещенные узлы:

Equivalence\All \Apply

Полученная сетка (Рисунок 1.)

Рисунок1.

Свойстваматериала:

Materials\Create\Isotropic\Material Name: mat\Input Properties\Elastic Modulus: 30e6; Poisson Ratio: 0.3\OK\Apply

Properties\Create\2D\2D Solid\Properties Set Name: pr\Options: Axisymmetric\ Input Properties\ Material Name: m:mat\OK\ Select Application Region\ выбираем все элементы\Apply 

Задание нагрузок и граничных условий:

LoadsBCs\Create\Displacement\New Set Name: x\Input Data: Translation <T1 T2 T3>: <0,,>\OK\Select Application Region: Select Application Entities: Curve …\Add\OK\Apply

LoadsBCs\Create\Displacement\New Set Name: y\Input Data: Translation <T1 T2 T3>: <,0,>\OK\Select Application Region: Select Application Entities: Curve … \Add\OK\Apply

Создаем входной файл для Marc:

Analysis\Analyze\Entire Model\Analysis Desk\Apply

Запускаем программу Marc Mentat:

Files \ Marc Input File: Read \ Выбираем созданный в Patran файл \ …..

Определяем вершины трещины и параметры расчета:

Modeling Tools \ Cracks \ New : 2D \ Crack Tip Node: Set : указываем узел вершины трещины \ Application: J-Integral.

Задаем нагрузку Mechanical BC\Edge Load\ creep\120\ok (рис.2)

Рисунок 2

Удаляем существующий Load Case

LoadCases \ Rem

Определяем параметры расчета:

Jobs \ Mechanical \ Initial Loads \ выделяем все нагрузки \ Ok

\ Job Results \ указываются необходимые результаты \ Ok

\ Ok

\Run \ Submit .

В файле model1_Default.out находим результаты расчета j – интеграла. (рис. 3)

Рисунок 3