Télécharger moyespec.procedur

Retour à la liste

Numérotation des lignes :

  1. * MOYESPEC PROCEDUR BP208322 16/05/24 21:15:12 8932
  2. *----------------------------------------------------------------------*
  3. * *
  4. * PROCEDURE MOYESPEC *
  5. * *
  6. * VALEUR MOYENNE D'UNE COURBE SUR UN INTERVALLE *
  7. * *
  8. *----------------------------------------------------------------------*
  9. * *
  10. * ENTREE *
  11. * *
  12. * SPEC S/F CONTENANT LE SPECTRE *
  13. * *
  14. * FINI FREQUENCE INITIALE *
  15. * *
  16. * FFIN FREQUENCE FINALE *
  17. * *
  18. *----------------------------------------------------------------------*
  19. * *
  20. * SORTIE *
  21. * *
  22. * MOYENNE VALEUR MOYENNE *
  23. * *
  24. *----------------------------------------------------------------------*
  25. 'DEBPROC' MOYESPEC SPEC*'EVOLUTION' FINI*'FLOTTANT' FFIN*'FLOTTANT';
  26. *----------------------------------------------------------------------*
  27. FREQ='EXTRAIRE' SPEC 'ABSC' 1;
  28. FI='EXTRAIRE' FREQ 1;
  29. FF='EXTRAIRE' FREQ ('DIMENSION' FREQ);
  30. 'SI' (FINI '>' FI); FI=FINI; 'FINSI';
  31. 'SI' (FFIN '<' FF); FF=FFIN; 'FINSI';
  32. NI=1000;PAS=(FF-FI)/NI;
  33. FFREQ='PROG' FI 'PAS' PAS FF;
  34. *----------------------------------------------------------------------*
  35. SS='IPOL' FFREQ FREQ ('EXTRAIRE' SPEC 'ORDO' 1);
  36. SSPEC='EVOL' MANU FFREQ SS;
  37. MOYENNE='EXTRAIRE' ('INTG' SSPEC) 1;
  38. MOYENNE=MOYENNE/(FFIN-FINI);
  39. *----------------------------------------------------------------------*
  40. 'FINPROC' MOYENNE;
  41.  
  42.  

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