5. Example 1: adjusted mesh

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

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:

MA = DEFI_GROUP (MAILLAGE = MA,

CREA_GROUP_NO =_F (GROUP_MA =( “LEVINF1”, “LEVINFS”,))

Movement of the nodes to a quarter of the edges:

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

MODI_MAILLE =_F (OPTION = 'NOEUD_QUART',

GROUP_MA_FOND = 'LFF1',)

)

Calculate with MECA_STATIQUE…

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,

)