src/TestsEltsVisu/Poutres/pcerclehomocreuse.comm

   1
   2
   3 DEBUT();
   4
   5 maillage=LIRE_MAILLAGE();
   6
   7 modele=AFFE_MODELE(MAILLAGE=maillage,
   8                    AFFE=_F(TOUT='OUI',
   9                            PHENOMENE='MECANIQUE',
  10                            MODELISATION='POU_D_E',),);
  11 P1 = 3;
  12
  13
  14 Affe=AFFE_CARA_ELEM(MODELE=modele,
  15                     POUTRE=_F(GROUP_MA='element1D',
  16                               SECTION='CERCLE',
  17                               VARI_SECT='HOMOTHETIQUE',
  18                               CARA=('R1','R2','EP1','EP2',),
  19                               VALE=(3.0,5.0,2.0,3.0,),),);
  20
  21 FIN();