Télécharger filc_test.dgibi

Retour à la liste

Numérotation des lignes :

  1. *******************************************************
  2. ************************************************************************
  3. ************************************************************************
  4. * Cas test de la procedure FILC
  5. *******************************************************
  6. * Developpe par :
  7. * Alberto FRAU (alberto.frau[at]cea.fr)
  8. * Benjamin RICHARD (benjamin.richard[at]cea.fr)
  9. *
  10. *******************************************************
  11. * Institution :
  12. * CEA/DEN/DANS/DM2S/SEMT/EMSI
  13. *******************************************************
  14. * Commentaires
  15. *
  16. * On teste la procedure avec une signal composé de deux
  17. * harmoniques et on verifie que le signal filtré l'harmonique
  18. * de frequence plus elevee est bien filtree
  19. *
  20. *******************************************************
  21. *
  22. * Parametres pour la definition du signal d'entree
  23. T0 = 0.;
  24. TMAX1 = 5.;
  25. DT1 = 1/((2.)*(40.));
  26. FO1 = 2.;
  27. FO2 = 10.;
  28. AMP1 = 2.;
  29. *
  30. GRAP1 = CHAINE 'N';
  31. *
  32. * Construction du signal par la somme des deux harmoniques (2Hz et 10Hz)
  33. LL1 = PROG T0 PAS DT1 TMAX1;
  34. VAL1 = ((((2)*(PI))*(FO1))/(PI))*(180.);
  35. VAL2 = ((((2)*(PI))*(FO2))/(PI))*(180.);
  36. LL2 = ((AMP1)*(SIN((VAL1)*(LL1)))) + ((SIN((VAL2)*(LL1))));
  37. EV1 = EVOL MANU LL1 LL2;
  38. EV1 = EV1 COUL BLEU;
  39. *
  40. * Filtrage à 5 Hz
  41. EV2 = FILC EV1 5. 0.1;
  42. EV2 = EV2 COUL ROUG;
  43. *
  44. SI ('NEG' GRAP1 'N');
  45. DESS (EV1 ET EV2);
  46. FINSI;
  47. *
  48. * Test
  49. SI (((MAXI (EXTR EV2 ORDO)) - (AMP1)) > 0.01);
  50. ERREUR 5;
  51. FINSI;
  52. *
  53. FIN;
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales