Aster/Tests/err3.comm

   1
   2
   3 DEBUT();
   4
   5 ma=LIRE_MAILLAGE();
   6
   7 air=DEFI_MATERIAU();
   8
   9 champmat=AFFE_MATERIAU(MAILLAGE=ma,
  10                        AFFE=_F(TOUT='OUI',
  11                                MATER=air,),);
  12
  13 mo=AFFE_MODELE(MAILLAGE=ma,
  14                AFFE=_F(TOUT='OUI',
  15                        PHENOMENE='ACOUSTIQUE',
  16                        MODELISATION='3D',),);
  17
  18 characou=AFFE_CHAR_ACOU(MODELE=mo,
  19                         VITE_FACE=_F(GROUP_MA=('ENTREE','SORTIE','TOTO','TITI',),
  20                                      VNOR=('RI',0.014,0.0,),),);
  21
  22 MACRO_MATR_ASSE(MODELE=mo,
  23                 NUME_DDL=CO('num'),
  24                 MATR_ASSE=_F(MATRICE=CO('matasm'),
  25                              OPTION='MASS_ACOU',),);
  26
  27 vectelem=CALC_VECT_ELEM(OPTION='CHAR_ACOU',
  28                         CHAM_MATER=champmat,
  29                         CHARGE=characou,);
  30
  31 sansnom=ASSE_VECTEUR(VECT_ELEM=None,
  32                      NUME_DDL=num,);
  33
  34 sansnom=ASSE_VECTEUR(VECT_ELEM=vectelem,
  35                      NUME_DDL=num,);
  36
  37 ch=ASSE_VECTEUR(VECT_ELEM=vectelem,
  38                      NUME_DDL=num,);
  39
  40 sansnom=COMB_CHAM_NO(COMB_C=_F(CHAM_NO=None,),);
  41
  42 sansnom=COMB_CHAM_NO(COMB_C=_F(CHAM_NO=ch,
  43                             COEF_R=1,),);
  44
  45 chno=COMB_CHAM_NO(COMB_C=_F(CHAM_NO=ch,
  46                             COEF_R=1,),);
  47
  48 matasm=FACT_LDLT(reuse =matasm,
  49                  MATR_ASSE=matasm,);
  50
  51 sansnom=RESO_LDLT(MATR_FACT=matasm,
  52                   CHAM_NO=None,
  53                   );
  54 sansnom=RESO_LDLT(MATR_FACT=matasm,
  55                   CHAM_NO=chno,
  56                   );
  57 rr =RESO_LDLT(MATR_FACT=matasm,
  58                   CHAM_NO=chno,
  59                   );
  60