5. Exemple 1 : maillage réglé

Fissure circulaire dans un bloc 3D (test SSLV134D).

MA = LIRE_MAILLAGE()

LEVINF1, LEVINFS sont les groupes contenant les mailles surfaciques situées sur les lèvres supérieure et inférieure de la fissure. On crée les groupes de nœuds associés :

MA = DEFI_GROUP    (    MAILLAGE = MA,

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

Déplacement des nœuds au quart des arêtes :

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

MODI_MAILLE =_F( OPTION            = 'NOEUD_QUART',

GROUP_MA_FOND    = 'LFF1', )

)

Calcul avec 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,

)