Procedures | Cast3M

   1 : * MOYESPEC  PROCEDUR  PICA      92/07/03    21:27:13     619            
   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' ('SOMME' SSPEC) 1;
  38 : MOYENNE=MOYENNE/(FFIN-FINI);
  39 : *----------------------------------------------------------------------*
  40 : 'FINPROC' MOYENNE;