1 # -*- coding: utf-8 -*-
2 # MODIF DATE 16/01/2002 AUTEUR DURAND C.DURAND
3 # TITRE TEST DE NON REGRESSION DE L IHM EFICAS - DERIVE DE SDND102A
4 # CONFIGURATION MANAGEMENT OF EDF VERSION
5 # ======================================================================
6 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8 # REDISTRIBUTION OF THIS FILE.
9 # ======================================================================
10 # Ce cas test est gere en configuration dans la base ASTER, il sert de
11 # modele pour prononcer la recette de l IHM d EFICAS : l objectif est de
12 # pouvoir recreer ce test a l identique dans EFICAS a partir d une page
14 # On a donc essaye d y placer toutes les commandes un peu particulieres
15 # du langage de commandes d ASTER
17 # Il s agit en fait du test SDND102A auquel on a ajoute :
18 # la definition d un parametre (VAL)
19 # l inclusion d un fichier (INCLUDE)
20 # une poursuite (POURSUITE)
22 # des parametres, des formules, des macros, des mots cles facteurs repetes
23 # (y compris conditionnes par des regles : calc_fonction / COMB),
24 # des blocs (mode_iter_simult,calc_char_seisme), un defi_valeur, un parametre.
27 # Il faudra y associer quelques recommandations pour la recette :
28 # - verifier qu en ouvrant le .com0, il demande bien a browser le .comm puis, en cascade, le .11
29 # - verifier qu on peut bien supprimer une commande, un mot cle simple et facteur
30 # - verifier les acces a la doc
33 DEBUT(CODE=_F( NOM = 'EFICA01A'),
37 MAILLAGE=LIRE_MAILLAGE( )
39 MAILLA2=LIRE_MAILLAGE( UNITE=19 )
41 MODELE=AFFE_MODELE( MAILLAGE=MAILLAGE,
43 _F( PHENOMENE = 'MECANIQUE', MODELISATION = 'DIS_T',
44 GROUP_MA = 'RESSORT'),
45 _F( PHENOMENE = 'MECANIQUE', MODELISATION = 'DIS_T',
46 GROUP_NO = 'MASSES') )
49 BICHOC=AFFE_MODELE( MAILLAGE=MAILLA2,
51 _F( PHENOMENE = 'MECANIQUE', MODELISATION = 'DIS_T',
52 GROUP_MA = 'RESSORTS'),
53 _F( PHENOMENE = 'MECANIQUE', MODELISATION = 'DIS_T',
54 GROUP_NO = ( 'MASSES1', 'MASSES2',)))
59 CARA_ELE=AFFE_CARA_ELEM( MODELE=MODELE,
61 _F( CARA = 'K_T_D_L', REPERE = 'GLOBAL', GROUP_MA = 'RESSORT',
62 VALE = (VAL, 0., 0., )),
63 _F( CARA = 'M_T_D_N', GROUP_NO = 'MASSES', VALE = 25.0))
66 CARA_BIC=AFFE_CARA_ELEM( MODELE=BICHOC,
68 _F( CARA = 'K_T_D_L', REPERE = 'GLOBAL', GROUP_MA = 'RESSORTS',
69 VALE = (VAL, 0., 0., )),
70 _F( CARA = 'M_T_D_N', GROUP_NO = 'MASSES1', VALE = 25.0),
71 _F( CARA = 'M_T_D_N', GROUP_NO = 'MASSES2', VALE = 25.0))
75 CON_LIM=AFFE_CHAR_MECA( MODELE=MODELE,DDL_IMPO=(
76 _F( GROUP_NO = 'ENCASTRE', DX = 0., DY = 0., DZ = 0.),
77 _F( GROUP_NO = 'MASSES', DY = 0., DZ = 0.))
80 CL_BICHO=AFFE_CHAR_MECA( MODELE=BICHOC,DDL_IMPO=(
81 _F( GROUP_NO = 'ENCBICHO', DX = 0., DY = 0., DZ = 0.),
82 _F( GROUP_NO = ( 'MASSES1', 'MASSES2',), DY = 0., DZ = 0.))
85 MACRO_MATR_ASSE( MODELE=MODELE,
88 NUME_DDL=CO("NUMEDDL"),
90 _F( MATRICE = CO("RIGIDITE"), OPTION = 'RIGI_MECA'),
91 _F( MATRICE = CO("MASSE"), OPTION = 'MASS_MECA'))
94 MACRO_MATR_ASSE( MODELE=BICHOC,
97 NUME_DDL=CO("NUMDDLC"),
99 _F( MATRICE = CO("RIGI_BIC"), OPTION = 'RIGI_MECA'),
100 _F( MATRICE = CO("MASS_BIC"), OPTION = 'MASS_MECA'))
103 MODE_MEC=MODE_ITER_SIMULT( MATR_A=RIGIDITE, MATR_B=MASSE )
105 MODE_MEC=NORM_MODE(reuse=MODE_MEC, MODE=MODE_MEC, NORME='MASS_GENE' )
107 MODE_BIC=MODE_ITER_SIMULT( MATR_A=RIGI_BIC, MATR_B=MASS_BIC,
110 CALC_FREQ=_F( OPTION = 'BANDE', FREQ = (1., 10., ))
113 MODE_BIC=NORM_MODE(reuse=MODE_BIC, MODE=MODE_BIC, NORME='MASS_GENE' )
115 MODE_STA=MODE_STATIQUE( MATR_RIGI=RIGIDITE, MATR_MASS=MASSE,
116 MODE_STAT=_F( TOUT = 'OUI', AVEC_CMP = 'DX') )
118 MSTA_BIC=MODE_STATIQUE( MATR_RIGI=RIGI_BIC, MATR_MASS=MASS_BIC,
119 MODE_STAT=_F( TOUT = 'OUI', AVEC_CMP = 'DX') )
122 L_INST=DEFI_LIST_REEL( DEBUT=0.,
123 INTERVALLE=_F( JUSQU_A = 1., PAS = 0.0001) )
125 OMEGAA=DEFI_VALEUR( R8=EVAL("""2.*PI*10.""") )
127 ACCE1 = FORMULE(REEL="""(REEL:INST) = SIN(OMEGAA*INST) """)
128 ACCELER1=CALC_FONC_INTERP( FONCTION=ACCE1, LIST_PARA=L_INST,
129 PROL_DROITE='LINEAIRE',
130 PROL_GAUCHE='LINEAIRE',
133 ACCE2 = FORMULE(REEL="""(REEL:INST) =- SIN(OMEGAA*INST) """)
134 ACCELER2=CALC_FONC_INTERP( FONCTION=ACCE2, LIST_PARA=L_INST,
135 PROL_DROITE='LINEAIRE',
136 PROL_GAUCHE='LINEAIRE',
139 VITE1 = FORMULE(REEL="""(REEL:INST) =-COS(OMEGAA*INST)/OMEGAA """)
140 VITESSE1=CALC_FONC_INTERP( FONCTION=VITE1, LIST_PARA=L_INST,
141 PROL_DROITE='LINEAIRE',
142 PROL_GAUCHE='LINEAIRE',
145 DEPL1 = FORMULE(REEL="""(REEL:INST) =-SIN(OMEGAA*INST)/(OMEGAA**2) """)
146 DEPLACE1=CALC_FONC_INTERP( FONCTION=DEPL1, LIST_PARA=L_INST,
147 PROL_DROITE='LINEAIRE',
148 PROL_GAUCHE='LINEAIRE',
151 VITE2 = FORMULE(REEL="""(REEL:INST) =COS(OMEGAA*INST)/OMEGAA """)
152 VITESSE2=CALC_FONC_INTERP( FONCTION=VITE2, LIST_PARA=L_INST,
153 PROL_DROITE='LINEAIRE',
154 PROL_GAUCHE='LINEAIRE',
157 INCLUDE( UNITE=11, INFO=1 )
159 MUR=DEFI_OBSTACLE( TYPE='PLAN_Z' )
161 TRAN_GE1=DYNA_TRAN_MODAL( MASS_GENE=MASS_GEN, RIGI_GENE=RIGI_GEN,
171 DIRECTION = ( 1., 0., 0.,),
173 CHOC=_F( GROUP_NO_1 = 'MASSES',
175 INTITULE = 'NO2/MUR',
176 ORIG_OBST = ( -1., 0., 0., ),
177 NORM_OBST = ( 0., 0., 1., ),
183 INCREMENT=_F( INST_INIT = 0., INST_FIN = 1., PAS = 0.0002),
184 ARCHIVAGE=_F( PAS_ARCH = 8)
188 MULT_X1=CALC_CHAR_SEISME( MATR_MASS=MASS_BIC, DIRECTION=( 1., 0., 0.,),
189 MODE_STAT=MSTA_BIC, NOEUD='NO1' )
191 MULT_X2=CALC_CHAR_SEISME( MATR_MASS=MASS_BIC, DIRECTION=( 1., 0., 0.,),
192 MODE_STAT=MSTA_BIC, NOEUD='NO11' )
194 MACRO_PROJ_BASE(BASE=MODE_BIC,
196 _F( MATRICE = CO("MGEN_BIC"), MATR_ASSE = MASS_BIC),
197 _F( MATRICE = CO("RGEN_BIC"), MATR_ASSE = RIGI_BIC)),
199 _F( VECTEUR = CO("VECT_X1"), VECT_ASSE = MULT_X1),
200 _F( VECTEUR = CO("VECT_X2"), VECT_ASSE = MULT_X2))
204 GRILLE=DEFI_OBSTACLE( TYPE='BI_PLAN_Z' )