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.

.. code-block:: text

    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.

.. code-block:: text

    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),)