Télécharger valnom.procedur

Retour à la liste

Numérotation des lignes :

  1. * VALNOM PROCEDUR PICA 92/07/03 21:39:00 619
  2. ********************************************************************************
  3. * PROCEDURE VALNOM
  4. *
  5. * passage spectre stationaire ---> ponderation de modulation en ondelette
  6. *
  7. * VVALR VVALO = VALNOM SPECT DELTT;
  8. *
  9. ********************************************************************************
  10. * ENTRES
  11. *
  12. * SPECT : spectre
  13. * DELTT : pas de temps du residu
  14. *
  15. ********************************************************************************
  16. * SORTIES
  17. *
  18. * VVALR : ponderation du residu
  19. * VVALO : ponderation ondelette (basse vers haute frequence)
  20. *
  21. ********************************************************************************
  22. 'DEBPROC' VALNOM SPECT*'LISTREEL' DELTT*'FLOTTANT';
  23. *
  24. M=('DIME' SPECT) - 1;
  25. MM4=PROG;
  26. 'REPE' LAB1 M;
  27. MM4=((2 * MM4) 'ET' ('PROG' 2));
  28. 'FIN' LAB1;
  29. MM4=MM4*(2*DELTT);
  30. *MM4=(('PROG' M * 2)**('PROG' M PAS -1 1))*(2*DELTT);
  31. VVALR=(('EXTR' SPECT 1) / ('EXTR' MM4 1)) ** .5;
  32. VVALO=(('ENLE' SPECT 1) / MM4) ** .5;
  33. *
  34. 'FINPROC' VVALR VVALO;
  35.  

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