Télécharger freqperi.procedur

Retour à la liste

Numérotation des lignes :

  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;
  24.  

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