Tests/testelem/az.comm

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