Download filc_test.dgibi

Back to the list

*******************************************************
*  Cas test de la procedure FILC
*******************************************************
*  Developpe par : 
*     Alberto FRAU             (alberto.frau[at]cea.fr)     
*     Benjamin RICHARD     (benjamin.richard[at]cea.fr)
* 
*******************************************************
* Institution : 
*     CEA/DEN/DANS/DM2S/SEMT/EMSI
*******************************************************
* Commentaires
*
*     On teste la procedure avec une signal composé de deux 
*     harmoniques et on verifie que le signal filtré l'harmonique
*     de frequence plus elevee est bien filtree
*
*******************************************************
*
* Parametres pour la definition du signal d'entree
T0 = 0.;
TMAX1 = 5.;
DT1 = 1/((2.)*(40.));
FO1 = 2.;
FO2 = 10.;
AMP1  = 2.;
*
GRAP1 = CHAINE 'N';
*
* Construction du signal par la somme des deux harmoniques (2Hz et 10Hz)
LL1 = PROG T0 PAS DT1 TMAX1;
VAL1 = ((((2)*(PI))*(FO1))/(PI))*(180.);
VAL2 = ((((2)*(PI))*(FO2))/(PI))*(180.);
LL2 = ((AMP1)*(SIN((VAL1)*(LL1)))) + ((SIN((VAL2)*(LL1))));
EV1 = EVOL MANU LL1 LL2;
EV1 = EV1 COUL BLEU;
*
* Filtrage à 5 Hz
EV2 = FILC EV1 5. 0.1;
EV2 = EV2 COUL ROUG;
*
SI ('NEG' GRAP1 'N');
  DESS (EV1 ET EV2);
FINSI;
*
* Test
SI (((MAXI (EXTR EV2 ORDO)) - (AMP1)) > 0.01);
  ERREUR 5;
FINSI;
*
FIN;



 

© Cast3M 2003 - All rights reserved.
Disclaimer