Aster/az.comm

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