Tests/testcomm7/c.comm

   1 from Numeric import cos
   2 DEBUT()
   3 RAYCRA=1.
   4 EPCRA=0.1
   5 S_CR=3.1415*(RAYCRA**2-(RAYCRA-EPCRA)**2)
   6 T_CR=3.1415
   7 NOMF="nomfichier"
   8 n=2
   9
  10 MA=LIRE_MAILLAGE(  )
  11
  12 MO=AFFE_MODELE(  MAILLAGE=MA,
  13           #test de validateur GEOM (typ=grma) avec grma derive de GEOM
  14                  AFFE=(_F(GROUP_MA = ('LI1'),
  15                           PHENOMENE = 'MECANIQUE',
  16                           MODELISATION = 'DIS_TR'),
  17                                 ),
  18                   INFO=2,);
  19
  20 carel=[0.]*78
  21
  22 CAREG=AFFE_CARA_ELEM(MODELE=MO,
  23                      DISCRET=_F(GROUP_MA=('LI1'),
  24                                 CARA = 'K_TR_L',
  25                                 VALE = carel,
  26                                 REPERE='LOCAL' , ),
  27                                 ORIENTATION=(_F(GROUP_MA=('LI1',),
  28                                 CARA='VECT_Y',
  29                                 VALE=(0.,0.,1.),),),
  30                AFFE_FIBRE =( _F(GROUP_MA='CRAYON', COOR_AXE_POUTRE = (0.,0.,), CARA='SURFACE', VALE=( 0.,S_CR/4,)),
  31                              _F(GROUP_MA='CRAYON', COOR_AXE_POUTRE = (0.,0.,), CARA='SURFACE', VALE=( 0.,T_CR,)),
  32                              _F(GROUP_MA='CRAYON', COOR_AXE_POUTRE = (0.,sin(n*22.5*pi/180),), CARA='SURFACE', VALE=( 0.,T_CR/4,)),
  33                              _F(GROUP_MA='CRAYON', COOR_AXE_POUTRE = (0.,(cos(n*22.5*pi/180)),), CARA='SURFACE', VALE=( 0.,T_CR/4,)),
  34                            ),
  35                         );
  36
  37 DEFI_FICHIER(UNITE=50, FICHIER='./REPE_OUT/zzzz206a_resu.mail')
  38 #test de validateur LongStr avec parametre instance de PARAMETRE
  39 DEFI_FICHIER(UNITE=50, FICHIER=NOMF)
  40 #test de validateur LongStr avec parametre instance de Formula
  41 u=DEFI_FICHIER( FICHIER=NOMF*2)
  42 DEFI_FICHIER (ACTION='LIBERER',UNITE=50)
  43 #test de validateur d'objet entier (typ='I'), instance de la classe entier
  44 DEFI_FICHIER (ACTION='LIBERER',UNITE=u)
  45
  46 # test de validateur qui accepte tout (typ=assd)
  47 IMPR_CO(CO=MA)
  48
  49 FIN()