Télécharger la plaquette Cast3M


fr en

Télécharger enrichis.procedur

Retour à la liste

Numérotation des lignes : 

  1. * ENRICHIS  PROCEDUR  PICA      92/07/03    21:21:15     619            
  2. ********************************************************************************
  3. * PROCEDURE ENRICHIS
  4. *
  5. * generation d'un signal sur une grille plus riche sans modification de
  6. * son contenu en frequence
  7. *
  8. * SSIGNAL = ENRICHIS SIGNAL NIVEAU;
  9. *
  10. ********************************************************************************
  11. * ENTRES
  12. *
  13. * SIGNAL  : signal original
  14. * NIVEAU  : nb de nouveaux intervalles (2**NIVEAU)
  15. *
  16. ********************************************************************************
  17. * SORTIES
  18. *
  19. * SSIGNAL : signal genere
  20. *
  21. ********************************************************************************
  22. 'DEBPROC' ENRICHIS SIGNAL*'EVOLUTION' NIVEAU*'ENTIER';
  23. *
  24. OPTIO=TABLE;
  25. OPTIO.'LREC'=NIVEAU;
  26. OPTIO.'FORC'=VRAI;
  27. *
  28. NS='DIME' SIGNAL;
  29. II=0;
  30. 'REPETER' LAB1 NS;
  31.   II=II+1;
  32.   IGNAL='EXTR' SIGNAL 'COUR' II;
  33.   OOOO=0.*IGNAL;
  34. *
  35.   N IIGNAL=RECOMPOS IGNAL OOOO OPTIO;
  36. *
  37.   'SI' (II 'EGA' 1); SSIGNAL = IIGNAL;
  38.   'SINON';           SSIGNAL = SSIGNAL 'ET' IIGNAL;
  39.   'FINSI';
  40. *
  41. 'FIN' LAB1;
  42. 'FINPROC' SSIGNAL;
  43.  

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