Aster/az.comm

   1
   2
   3 DEBUT();
   4 #Pas trouve             shellpanel
   5
   6 MAIL=LIRE_MAILLAGE();
   7
   8 MAILLA2=LIRE_MAILLAGE(UNITE=20,);
   9 # 'LIRE_MAILLAGE', 'UNITE'            --> uniquebasepanel
  10
  11 AFFE1=AFFE_MODELE(MAILLAGE=MAILLA2,
  12                   AFFE=(_F(GROUP_MA=('RESSORT','eee',),
  13                            PHENOMENE='MECANIQUE',
  14                            MODELISATION='DIS_T',),
  15                         _F(GROUP_MA='MASSES',
  16                            PHENOMENE='MECANIQUE',
  17                            MODELISATION='DIS_T',),
  18                         _F(GROUP_NO=('GNP3','GNP5','GNP6','GNP7','GNP8','GNP9','GNP10','GNP11','GNP12',),
  19                            PHENOMENE='ACOUSTIQUE',
  20                            MODELISATION='PLAN',),),);
  21
  22 MOD=AFFE_MODELE(MAILLAGE=MAILLA2,
  23                 AFFE=(_F(GROUP_MA='RESSORT',
  24                          PHENOMENE='MECANIQUE',
  25                          MODELISATION='DIS_T',),
  26                       _F(GROUP_MA='MASSES',
  27                          PHENOMENE='MECANIQUE',
  28                          MODELISATION='DIS_T',),),);
  29 # 'AFFE_MODELE', 'MAILLAGE'           --> uniqueassdpanel
  30 #  AFFE_MODELE', 'AFFE', 'GROUP_MA'   --> plusieursbasepanel
  31 # 'AFFE_MODELE', 'AFFE', 'PHENOMENE'  --> uniqueintopanel
  32 # 'AFFE_MODELE', 'AFFE', 'b_mecanique'--> plusieursintopanel
  33
  34 F1=DEFI_FONCTION(NOM_PARA='DX',
  35                  VALE=(5.0,3.0,),);
  36
  37 F3=DEFI_FONCTION(NOM_PARA='DRX',
  38                  VALE_C=(5.0,7.0,9.0,9.0,8.0,7.0,),);
  39 # 'DEFI_FONCTION', 'VALE'             --> fonctionpanel
  40
  41 MATER2=DEFI_MATERIAU(ELAS=_F(E=100000000000.0,
  42                              NU=0.0,),
  43                      ECRO_ASYM_LINE=_F(DC_SIGM_EPSI=0.0,
  44                                        SY_C=200000000.0,
  45                                        DT_SIGM_EPSI=0.0,
  46                                        SY_T=50000000.0,),);
  47
  48 PS1=DEFI_PARA_SENSI(VALE=1.0,);
  49
  50 PS2=DEFI_PARA_SENSI(VALE=1.0,);
  51
  52 PS3=DEFI_PARA_SENSI(VALE=1.0,);
  53
  54 CHMAT2=AFFE_MATERIAU(MAILLAGE=MAIL,
  55                      AFFE=_F(TOUT='OUI',
  56                              MATER=MATER2,),);
  57
  58 AAAZ=AFFE_CHAR_THER(MODELE=AFFE1,
  59                     TEMP_IMPO=_F(TOUT='OUI',
  60                                  TEMP=0.0,),);
  61
  62 TH1=THER_LINEAIRE(MODELE=AFFE1,
  63                   CHAM_MATER=CHMAT2,
  64                   EXCIT=_F(CHARGE=AAAZ,),
  65                   SENSIBILITE=(PS1,PS2,),);
  66 # 'THER_LINEAIRE', 'SENSIBILITE'       --> plusieursassdpanel
  67
  68 ACA1=AFFE_CHAR_ACOU(MODELE=AFFE1,
  69                     PRES_IMPO=_F(TOUT='OUI',
  70                                  PRES=('RI',3.0,3.0,),),);
  71 # 'AFFE_CHAR_ACOU', 'PRES_IMPO', 'PRES' --> uniquecomppanel
  72
  73 MACRO_MATR_ASSE(MODELE=AFFE1,
  74                 NUME_DDL=CO('DDL1'),
  75                 MATR_ASSE=_F(MATRICE=CO('MAT1'),
  76                              OPTION='RIGI_THER',),);
  77 # 'MACRO_MATR_ASSE', 'MATR_ASSE', 'MATRICE'  --> uniquesdcopanel
  78
  79 FIN();