src/TestsEltsVisu/Poutres/pcerclehomocreuse.comm

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