4. Example of use

4.1. Mechanical calculation

At the end of the calculation, the user produces the tables required to generate the file OAR using the MACR_LIGN_COUPE command. The command MACR_LIGN_COUPE must be called as many times as necessary to obtain the tables used by IMPR_OAR, namely a command by load (Pressure, Plane Bending, Off-plane Bending, Torsion).

Command MACR_LIGN_COUPE can contain one or more azimuths.

# creation of tables in aster format, here on two azimuths

tableP = MACR_LIGN_COUPE (LIGN_COUPE =( _F (COOR_EXTR) =( 0.2032, 1.8904, 0.0),

COOR_ORIG =( 0.1818, 1.8904, 0.0),

NB_POINTS =40),

_F (COOR_EXTR =( 0.0, 1.8904, 0.2032),

COOR_ORIG =( 0.0, 1.8904, 0.1818),

NB_POINTS =40)),

NOM_CHAM =” SIGM_NOEU “,

RESULTAT =ResulP)

tableFP = MACR_LIGN_COUPE (LIGN_COUPE =( _F (COOR_EXTR) =( 0.2032, 1.8904, 0.0),

COOR_ORIG =( 0.1818, 1.8904, 0.0),

NB_POINTS =40),

_F (COOR_EXTR =( 0.0, 1.8904, 0.2032),

COOR_ORIG =( 0.0, 1.8904, 0.1818),

NB_POINTS =40)),

NOM_CHAM =” SIGM_NOEU “,

RESULTAT =ResulFP)

table HFP = MACR_LIGN_COUPE (LIGN_COUPE =( _F (COOR_EXTR =( 0.2032, 1.8904, 0.0),

COOR_ORIG =( 0.1818, 1.8904, 0.0),

NB_POINTS =40),

_F (COOR_EXTR =( 0.0, 1.8904, 0.2032),

COOR_ORIG =( 0.0, 1.8904, 0.1818),

NB_POINTS =40)),

NOM_CHAM =” SIGM_NOEU “,

RESULTAT =lonely HFP)

Tablet = MACR_LIGN_COUPE (LIGN_COUPE =( _F (COOR_EXTR =) =( 0.2032, 1.8904, 0.0),

COOR_ORIG =( 0.1818, 1.8904, 0.0),

NB_POINTS =40),

_F (COOR_EXTR =( 0.0, 1.8904, 0.2032),

COOR_ORIG =( 0.0, 1.8904, 0.1818),

NB_POINTS =40)),

NOM_CHAM =” SIGM_NOEU “,

RESULTAT =Result)

# printing tables in OAR format

IMPR_OAR (TABL_MECA =_F (PRESSION = tableP,

FLEXION_P = Table FP,

FLEXION_HP = table HFP,

TORSION = tablet,),

UNITE = 38,

TITRE = “Mechanical results”,

TYPE_UNIT = “IF”)

4.2. Thermomechanical calculation

The thermomechanical calculation produces two result fields, a thermal field and a stress field, respectively in the example below TEMPE and RESU.

At the end of the calculation, the user produces the tables needed to generate the file OAR using the MACR_LIGN_COUPE commands. MACR_LIGN_COUPE commands can contain one or more azimuths.

# 1. creating the thermal results table from the MACR_LIGN_COUPE command

table TEMP = MACR_LIGN_COUPE (LIGN_COUPE =( _F (COOR_EXTR =( 0.2032, 1.8904, 0.0),

COOR_ORIG =( 0.1818, 1.8904, 0.0),

NB_POINTS =40),

_F (COOR_EXTR =( 0.0, 1.8904, 0.2032),

COOR_ORIG =( 0.0, 1.8904, 0.1818),

NB_POINTS =40)),

NOM_CHAM =” TEMP “,

RESULTAT = TEMPE)

# 2. creating the mechanical results table from the MACR_LIGN_COUPE command

table TEMPSIG = MACR_LIGN_COUPE (

LIGN_COUPE =( _F (COOR_EXTR =( 0.2032, 1.8904, 0.0),

COOR_ORIG =( 0.1818, 1.8904, 0.0),

NB_POINTS =40),

_F (COOR_EXTR =( 0.0, 1.8904, 0.2032),

COOR_ORIG =( 0.0, 1.8904, 0.1818),

NB_POINTS =40)),

NOM_CHAM =” SIGM_NOEU “,

RESULTAT = RESU)

#3. Print in OAR format

IMPR_OAR (TABL_THER =_F (TEMP = table TEMP,

CONTRAINTE = table TEMPSIG),

UNITE = 38,

TITRE = “Thermal shock 300 70”)