Tests/testcomm9/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                         );
  31
  32 DEFI_FICHIER(UNITE=50, FICHIER='./REPE_OUT/zzzz206a_resu.mail')
  33 #test de validateur LongStr avec parametre instance de PARAMETRE
  34 DEFI_FICHIER(UNITE=50, FICHIER=NOMF)
  35 #test de validateur LongStr avec parametre instance de Formula
  36 u=DEFI_FICHIER( FICHIER=NOMF*2)
  37 DEFI_FICHIER (ACTION='LIBERER',UNITE=50)
  38 #test de validateur d'objet entier (typ='I'), instance de la classe entier
  39 DEFI_FICHIER (ACTION='LIBERER',UNITE=u)
  40
  41 # test de validateur qui accepte tout (typ=assd)
  42 IMPR_CO(CONCEPT=_F(NOM=MA))
  43
  44 FIN()