1 from Numeric import cos
5 S_CR=3.1415*(RAYCRA**2-(RAYCRA-EPCRA)**2)
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'),
22 CAREG=AFFE_CARA_ELEM(MODELE=MO,
23 DISCRET=_F(GROUP_MA=('LI1'),
27 ORIENTATION=(_F(GROUP_MA=('LI1',),
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)
41 # test de validateur qui accepte tout (typ=assd)
42 IMPR_CO(CONCEPT=_F(NOM=MA))