5. Exemples

Des exemples d’utilisation de la commande POST_KCP sont fournis dans le cas test EPICU03.

Avant l’utilisation de la commande POST_KCP, il est nécessaire de relever les contraintes et les températures le long du défaut.

Les tables TABL_MECA et TABL_THER sont obtenues directement en utilisant la macro-commande MACR_LIGN_COUPE sur le segment support du défaut allant de la pointe A du défaut côté revêtement jusqu’à la pointe B côté métal de base.

S1G = MACR_LIGN_COUPE(RESULTAT=SIG,
                      VIS_A_VIS=_F(GROUP_MA_1='M'),
                      NOM_CHAM='SIGM ELNO',
                      LIGN_COUPE=_F(TYPE='SEGMENT',
                                    NB_POINTS=5,
                                    COOR_ORIG=(Pointe_A, 0., 0.),
                                    COOR_EXTR=(Pointe_B, 0., 0.)))

TEMP_G = MACR_LIGN_COUPE(RESULTAT=TEMP,
                         NOM_CHAM='TEMP',
                         LIST_INST=INST_TH,
                         LIGN_COUPE=_F(TYPE='SEGMENT',
                                       NB_POINTS=5,
                                       COOR_ORIG=(Pointe_A, 0., 0.),
                                       COOR_EXTR=(Pointe_B, 0., 0.)))

Après avoir effectué ces différents relevés, le calcul du facteur d’intensité de contrainte peut se faire effectivement à l’aide de la commande POST_KCP.

KBETA = POST_KCP(MODELE=MO,
                    MATER_REV=MAME_RE2,
                    MATER_MDB=MAME_MET,
                    EPAIS_REV=EPREV,
                    EPAIS_MDB=EPMDB,
                    UNITE_LONGUEUR='M',
                    FISSURE=_F(FORM_FISS='SEMI_ELLIPTIQUE',
                               PROFONDEUR=0.005,
                               LONGUEUR=0.025,
                               ORIENTATION='LONGI'),
                    K1D=_F(TABL_MECA=S1G,
                           TABL_THER=TEMP_G),)