Procedures | Cast3M

   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;