Procedures | Cast3M

   1 : * FREQPERI  PROCEDUR  PICA      92/07/03    21:21:25     619            
   2 : ********************************************************************************
   3 : * PROCEDURE FREQPERI
   4 : *
   5 : * passage d'une courbe frequence en periode et reciproquement
   6 : *
   7 : * RSP=FREQPERI RSF;
   8 : *
   9 : ********************************************************************************
  10 : 'DEBPROC' FREQPERI RSF*'EVOLUTION';
  11 : *
  12 : NC='DIME' RSF;
  13 : J=0;
  14 : 'REPE' LAB1 NC;
  15 :   J=J+1;
  16 :   RSFX='EXTR' RSF 'ABSC' J;
  17 :   RSPX=('PROG' ('DIME' RSFX)*1.)/RSFX;
  18 :   RSPJ='EVOL' 'MANU' RSPX ('EXTR' RSF 'ORDO' J);
  19 :   'SI' (J 'EGA' 1); RSP=RSPJ;
  20 :   'SINON';          RSP=RSP 'ET' RSPJ; 'FINSI';
  21 : 'FIN' LAB1;
  22 : *
  23 : 'FINPROC' RSP;