-# MODIF DATE 13/01/2004 AUTEUR DURAND C.DURAND
+# MODIF DATE 20/09/2004 AUTEUR DURAND C.DURAND
# TITRE TEST DE NON REGRESSION DE L IHM EFICAS - DERIVE DE SDND102A
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
#
-DEBUT(CODE=_F(NOM='EFICA01A',NIV_PUB_WEB='INTERNET'),)
+DEBUT(CODE=_F(NOM='EFICA01A',NIV_PUB_WEB='INTERNET',VISU_EFICAS='NON'),)
MAILLAGE=LIRE_MAILLAGE()
INTERVALLE=_F(JUSQU_A=1.0,
PAS=1.E-4,),)
-OMEGAA=DEFI_VALEUR(R8=EVAL("""2.*PI*10."""),)
+OMEGAA=2.*pi*10.
-ACCE1 = FORMULE(REEL = '''(REEL:INST) = SIN(OMEGAA*INST)''')
+ACCE1 = FORMULE(VALE = 'sin(OMEGAA*INST)',
+ NOM_PARA='INST')
ACCELER1=CALC_FONC_INTERP(FONCTION=ACCE1,
NOM_RESU='ACCE',
PROL_DROITE='LINEAIRE',
PROL_GAUCHE='LINEAIRE',)
-ACCE2 = FORMULE(REEL = '''(REEL:INST) = - SIN(OMEGAA*INST)''')
+ACCE2 = FORMULE(VALE = '-sin(OMEGAA*INST)',
+ NOM_PARA='INST')
ACCELER2=CALC_FONC_INTERP(FONCTION=ACCE2,
NOM_RESU='ACCE',
PROL_DROITE='LINEAIRE',
PROL_GAUCHE='LINEAIRE',)
-VITE1 = FORMULE(REEL = '''(REEL:INST) = -COS(OMEGAA*INST)/OMEGAA''')
+VITE1 = FORMULE(VALE = '-cos(OMEGAA*INST)/OMEGAA',
+ NOM_PARA='INST')
VITESSE1=CALC_FONC_INTERP(FONCTION=VITE1,
NOM_RESU='VITE',
PROL_DROITE='LINEAIRE',
PROL_GAUCHE='LINEAIRE',)
-DEPL1 = FORMULE(REEL = '''(REEL:INST) = -SIN(OMEGAA*INST)/(OMEGAA**2)''')
+DEPL1 = FORMULE(VALE = '-sin(OMEGAA*INST)/(OMEGAA**2)',
+ NOM_PARA='INST')
DEPLACE1=CALC_FONC_INTERP(FONCTION=DEPL1,
NOM_RESU='DEPL',
PROL_DROITE='LINEAIRE',
PROL_GAUCHE='LINEAIRE',)
-VITE2 = FORMULE(REEL = '''(REEL:INST) = COS(OMEGAA*INST)/OMEGAA''')
+VITE2 = FORMULE(VALE = 'cos(OMEGAA*INST)/OMEGAA',
+ NOM_PARA='INST')
VITESSE2=CALC_FONC_INTERP(FONCTION=VITE2,
NOM_RESU='VITE',
PROL_DROITE='LINEAIRE',
PROL_GAUCHE='LINEAIRE',)
+xx=2
+
INCLUDE(UNITE=11,
INFO=1,)