Aster/az.comm

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