Procedures | Cast3M

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