Télécharger la plaquette Cast3M


fr en

Télécharger moyespec.procedur

Retour à la liste

Numérotation des lignes : 

  1. * MOYESPEC  PROCEDUR  FD218221  21/01/14    21:15:05     10849          
  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='INTG' SSPEC;
  38. MOYENNE=MOYENNE/(FFIN-FINI);
  39. *----------------------------------------------------------------------*
  40. 'FINPROC' MOYENNE;
  41.  
  42.  
  43.  

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