/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        R E C H E R C H E   D E S   E X T R E M A   L O C A U X   D ' U N   F I C H I E R   N U M E R I Q U E  :                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/extrema.02$K' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20131203172843).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V A L E U R S   I M P L I C I T E S   D E S   P A R A M E T R E S  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   TAILLE_DES_PAQUETS                                                                                                            \
                    UN                                                                                                                  \
                                        /* Taille des paquets "glissants" le long du fichier...                                      */

#define   PONDERATION_MINIMUM___                                                                                                        \
                    FZERO
#define   PONDERATION_MAXIMUM___                                                                                                        \
                    FZERO
#define   PONDERATION_MOYENNE___                                                                                                        \
                    FU
#define   PONDERATION_MODULE____                                                                                                        \
                    FZERO
#define   PONDERATION_ECART_TYPE                                                                                                        \
                    FZERO
                                        /* Ponderations de calcul du resultat "synthetique"...                                       */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D U   F I C H I E R  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   VALEUR_IMPLICITE                                                                                                              \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_valeurs,liste_des_valeurs);
                                        /* Definition en memoire du fichier.                                                         */

#define   ELEMENT_DU_FICHIER(index)                                                                                                     \
                    gELEMENT_DU_FICHIER(liste_des_valeurs,index)                                                                        \
                                        /* Acces a un element courant du fichier.                                                    */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        R E C H E R C H E   D E S   E X T R E M A   L O C A U X   D ' U N   F I C H I E R   N U M E R I Q U E  :                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"

     DEFV(Int,INIT(taille_des_paquets,TAILLE_DES_PAQUETS));
                                        /* Taille des paquets "glissants" le long du fichier...                                      */

     DEFV(Float,INIT(ponderation_minimum___,PONDERATION_MINIMUM___));
     DEFV(Float,INIT(ponderation_maximum___,PONDERATION_MAXIMUM___));
     DEFV(Float,INIT(ponderation_moyenne___,PONDERATION_MOYENNE___));
     DEFV(Float,INIT(ponderation_module____,PONDERATION_MODULE____));
     DEFV(Float,INIT(ponderation_ecart_type,PONDERATION_ECART_TYPE));
                                        /* Ponderations de calcul du resultat "synthetique"...                                       */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"

     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
                                           ,BLOC(VIDE;)
                                           ,BLOC(Bblock
                                                 PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
                                                 Eblock
                                                 )
                                            );

                         PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;

                         PROKESF_ARGUMENT_FICHIER("fichier="
                                                 ,fichier_des_valeurs
                                                 ,liste_des_valeurs
                                                 ,VALEUR_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_I("taille=""paquets=""t=",taille_des_paquets);

                         GET_ARGUMENT_F("ponderation_minimum=""minimum=""pmin=",ponderation_minimum___);
                         GET_ARGUMENT_F("ponderation_maximum=""maximum=""pmax=",ponderation_maximum___);
                         GET_ARGUMENT_F("ponderation_moyenne=""moyenne=""pmoy=",ponderation_moyenne___);
                         GET_ARGUMENT_F("ponderation_modulee=""module=""pmod=",ponderation_module____);
                         GET_ARGUMENT_F("ponderation_ecart_type=""ecart_type=""pet=",ponderation_ecart_type);

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
                                        /* Cette procedure fut introduite le 20211005105537...                                       */
                         )
                    );

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Int,INIT(index_glissant,UNDEF));

                                      DEFV(Float,INIT(valeur_courante,FLOT__UNDEF));

                                      DEFV(Float,INIT(minimum_courant,F_INFINI));
                                      DEFV(Float,INIT(maximum_courant,F_MOINS_L_INFINI));
                                      DEFV(Float,INIT(module,FLOT__UNDEF));
                                      DEFV(Float,INIT(moyenne_courante,FZERO));
                                      DEFV(Float,INIT(ecart_type,FZERO));
                                      DEFV(Int,INIT(nombre_d_elements_traites,ZERO));
                                        /* Preparation des resultats...                                                              */

                                      DoIn(index_glissant
                                          ,index
                                          ,MIN2(LSTX(index,taille_des_paquets),DERNIER_ELEMENT_D_UN_FICHIER)
                                          ,I
                                           )
                                           Bblock
                                           DEFV(Float,INIT(valeur_courante_du_paquet_glissant,ELEMENT_DU_FICHIER(index_glissant)));
                                        /* Recuperation de la valeur courante dans le fichier.                                       */

                                           EGAL(minimum_courant,MIN2(valeur_courante_du_paquet_glissant,minimum_courant));
                                           EGAL(maximum_courant,MAX2(valeur_courante_du_paquet_glissant,maximum_courant));
                                        /* Recherche des extrema.                                                                    */

                                           INCR(moyenne_courante,valeur_courante_du_paquet_glissant);
                                           INCR(nombre_d_elements_traites,I);
                                        /* Recherche de la moyenne.                                                                  */
                                           Eblock
                                      EDoI

                                      EGAL(module,MAX2(ABSO(minimum_courant),ABSO(maximum_courant)));
                                        /* Recherche du "module".                                                                    */

                                      EGAL(moyenne_courante,DIVZ(moyenne_courante,nombre_d_elements_traites));
                                        /* Recherche de la moyenne.                                                                  */

                                      DoIn(index_glissant
                                          ,index
                                          ,MIN2(LSTX(index,taille_des_paquets),DERNIER_ELEMENT_D_UN_FICHIER)
                                          ,I
                                           )
                                           Bblock
                                           DEFV(Float,INIT(valeur_courante_du_paquet_glissant,ELEMENT_DU_FICHIER(index_glissant)));
                                        /* Recuperation de la valeur courante dans le fichier.                                       */

                                           INCR(ecart_type,EXP2(SOUS(valeur_courante_du_paquet_glissant,moyenne_courante)));
                                        /* Recherche de l'ecart-type.                                                                */
                                           Eblock
                                      EDoI

                                      EGAL(ecart_type,RACX(DIVI(ecart_type,nombre_d_elements_traites)));
                                        /* Le calcul de l'ecart-type a ete introduit le 20130512082010...                            */

                                      EGAL(valeur_courante
                                          ,LIZ5(ponderation_minimum___,minimum_courant
                                               ,ponderation_maximum___,maximum_courant
                                               ,ponderation_moyenne___,moyenne_courante
                                               ,ponderation_module____,module
                                               ,ponderation_ecart_type,ecart_type
                                                )
                                           );
                                        /* Calcul de la valeur resultante...                                                         */
                                      )
                                ,valeur_courante
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Reformatage eventuel des valeurs...                                                       */

     lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande