Aster/Tests/Recette/az.comm

   1
   2 DEBUT();
   3 P1 = 9.8;
   4
   5 P2 = 8.8;
   6
   7 P9 = 7;
   8
   9 P5 = (P9 * P1);
  10
  11 _param_6 = (P1 - 3);
  12
  13
  14 #Pas trouve                shellpanel
  15
  16 MAILLA2=LIRE_MAILLAGE();
  17
  18 aaa = FORMULE(VALE='a+z',
  19               NOM_PARA=('a','z',),);
  20
  21 MAIL=LIRE_MAILLAGE(UNITE=P9,);
  22
  23 # 'LIRE_MAILLAGE', 'UNITE'            --> uniquebasepanel
  24
  25 az = FORMULE(VALE='aaaaa',
  26              NOM_PARA=('ae','inst',),);
  27
  28 AFFE1=AFFE_MODELE(MAILLAGE=MAIL,
  29                   AFFE=(_F(GROUP_MA=('RESSORT','eee','Group_1',),
  30                            PHENOMENE='MECANIQUE',
  31                            MODELISATION='DIS_T',),
  32                         _F(GROUP_MA='MASSES',
  33                            PHENOMENE='MECANIQUE',
  34                            MODELISATION='DIS_T',),
  35                         _F(GROUP_NO=('GNP3','GNP5','GNP6','GNP7','GNP8','GNP9','GNP10','GNP11','GNP12',),
  36                            PHENOMENE='ACOUSTIQUE',
  37                            MODELISATION='PLAN',),),);
  38
  39 MOD=AFFE_MODELE(MAILLAGE=MAIL,
  40                 AFFE=(_F(GROUP_MA='RESSORT',
  41                          PHENOMENE='MECANIQUE',
  42                          MODELISATION='DIS_T',),
  43                       _F(GROUP_MA='MASSES',
  44                          PHENOMENE='MECANIQUE',
  45                          MODELISATION='DIS_T',),
  46                       _F(TOUT='OUI',
  47                          PHENOMENE='THERMIQUE',
  48                          MODELISATION='COQUE',),),);
  49
  50 CARA=AFFE_CARA_ELEM(MODELE=MOD,
  51                     POUTRE=_F(GROUP_MA='MA',
  52                               SECTION='CERCLE',
  53                               CARA='R',
  54                               VALE=(3.0,_param_6,),),);
  55
  56 # 'AFFE_MODELE', 'MAILLAGE'           --> uniqueassdpanel
  57 #  AFFE_MODELE', 'AFFE', 'GROUP_MA'   --> plusieursbasepanel
  58 # 'AFFE_MODELE', 'AFFE', 'PHENOMENE'  --> uniqueintopanel
  59 # 'AFFE_MODELE', 'AFFE', 'b_mecanique'--> plusieursintopanel
  60
  61 F1=DEFI_FONCTION(NOM_PARA='DX',VALE=(5.0,3.0,
  62                        ),);
  63
  64 F3=DEFI_FONCTION(NOM_PARA='DRX',VALE_C=(5.0,7.0,9.0,
  65                          9.0,8.0,7.0,
  66                          ),);
  67
  68 # 'DEFI_FONCTION', 'VALE'             --> fonctionpanel
  69
  70 MATER2=DEFI_MATERIAU(ELAS=_F(E=P5,
  71                              NU=0.0,),
  72                      ECRO_ASYM_LINE=_F(DC_SIGM_EPSI=0.0,
  73                                        SY_C=200000000.0,
  74                                        DT_SIGM_EPSI=0.0,
  75                                        SY_T=50000000.0,),);
  76
  77 PS1=DEFI_PARA_SENSI(VALE=1.0,);
  78
  79 PS2=DEFI_PARA_SENSI(VALE=1.0,);
  80
  81 PS3=DEFI_PARA_SENSI(VALE=1.0,);
  82
  83 CHMAT2=AFFE_MATERIAU(MAILLAGE=MAIL,
  84                      AFFE=_F(TOUT='OUI',
  85                              MATER=MATER2,),);
  86
  87 AAAZ=AFFE_CHAR_THER(MODELE=AFFE1,
  88                     TEMP_IMPO=_F(TOUT='OUI',
  89                                  TEMP=0.0,),);
  90
  91 TH1=THER_LINEAIRE(MODELE=AFFE1,
  92                   CHAM_MATER=CHMAT2,
  93                   EXCIT=_F(CHARGE=AAAZ,),
  94                   SENSIBILITE=(PS1,PS2,),);
  95
  96 # 'THER_LINEAIRE', 'SENSIBILITE'       --> plusieursassdpanel
  97
  98 ACA1=AFFE_CHAR_ACOU(MODELE=AFFE1,
  99                     PRES_IMPO=_F(TOUT='OUI',
 100                                  PRES=('RI',3.0,3.0,),),);
 101
 102 # 'AFFE_CHAR_ACOU', 'PRES_IMPO', 'PRES' --> uniquecomppanel
 103
 104 MACRO_MATR_ASSE(MODELE=AFFE1,
 105                 NUME_DDL=CO('DDL1'),
 106                 MATR_ASSE=_F(MATRICE=CO('MAT1'),
 107                              OPTION='RIGI_THER',),);
 108
 109 # 'MACRO_MATR_ASSE', 'MATR_ASSE', 'MATRICE'  --> uniquesdcopanel
 110
 111 INCLUDE(UNITE=12,);
 112
 113 Tinclude=AFFE_MODELE(MAILLAGE=MINCLUDE,
 114                      AFFE=_F(MAILLE='ss',
 115                              PHENOMENE='THERMIQUE',
 116                              MODELISATION='AXIS_FOURIER',),);
 117
 118 FIN();
 119 #CHECKSUM:62d9fdf65439daf4987e928b1c76bfbd  -:FIN CHECKSUM