Procedures | Cast3M

   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;