Example 1: adjusted mesh
==========================

Circular crack in a 3D block (test SSLV134D).


.. code-block:: text

    MA = LIRE_MAILLAGE ()

LEVINF1, LEVINFS are the groups containing the surface meshes located on the upper and lower lips of the crack. The associated node groups are created:


.. code-block:: text

    MA = DEFI_GROUP (MAILLAGE = MA,
CREA_GROUP_NO =_F (GROUP_MA =( 'LEVINF1',
'LEVINFS',))

Movement of the nodes to a quarter of the edges:


.. code-block:: text

    MA = MODI_MAILLAGE (MAILLAGE = MA, reuse = MA,

    MODI_MAILLE =_F (OPTION = 'NOEUD_QUART',

    GROUP_MA_FOND = 'LFF1',)
)

Calculate with MECA_STATIQUE...


.. code-block:: text

    FISS = DEFI_FOND_FISS (MAILLAGE = MA,

    FOND_FISS = _F (GROUP_MA = 'LFF1',
GROUP_NO_ORIG = 'NFF1',
GROUP_NO_EXTR = 'NFF2',
),

    LEVRE_SUP = _F (GROUP_MA = 'LEVINFS'),

    LEVRE_INF = _F (GROUP_MA = 'LEVINF1'),

    DTAN_ORIG = (1., 0., 0.),

    DTAN_EXTR = (0., 1.0.)
PREC_NORM = 0.1,

    )


    TABK1K3 = POST_K1_K2_K3 (INFO =2,
FOND_FISS = FISS,
RESULTAT = RESU1,
ABSC_CURV_MAXI = 0.539,
PREC_VIS_A_VIS = 0.1,

    )