/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   D E S   D I F F E R E N C E S   2   A   2   D E S   E L E M E N T S                                          */
/*        D ' U N   F I C H I E R   N U M E R I Q U E  :                                                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/differ.01$K' :                                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20030928094256).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   NE_CALCULER_QUE_LES_DIFFERENCES_ENTRE_LES_PLUS_PROCHES_VOISINS                                                                \
                    VRAI                                                                                                                \
                                        /* Indique si l'on doit calculer les distances entre plus proches voisins ('VRAI') ou bien   */ \
                                        /* toutes les distances 2 a 2 ('FAUX') ?                                                     */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D U   F I C H I E R  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
                                        /* Passage a l'allocation dynamique le 20060214190340...                                     */
#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.                                                    */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   E D I T I O N S  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   EDITION_D_UNE_DIFFERENCE(valeur_1,valeur_2)                                                                                   \
                    Bblock                                                                                                              \
                    EDITION_DANS_gOPERATION_SUR_LES_FICHIERS_AVEC_SAUT_DE_LIGNE(SOUS(valeur_2,valeur_1));                               \
                    Eblock                                                                                                              \
                                        /* Edition de la difference de deux valeurs...                                               */ \
                                        /*                                                                                           */ \
                                        /* Introduit sous cette forme le 20160804094930...                                           */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   D E S   D I F F E R E N C E S   2   A   2   D E S   E L E M E N T S                                          */
/*        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(Logical,INIT(ne_calculer_que_les_differences_entre_les_plus_proches_voisins
                      ,NE_CALCULER_QUE_LES_DIFFERENCES_ENTRE_LES_PLUS_PROCHES_VOISINS
                       )
          );
                                        /* Indique si l'on doit calculer les distances entre plus proches voisins ('VRAI') ou bien   */
                                        /* toutes les distances 2 a 2 ('FAUX') ?                                                     */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"
                                        /* Ceci fut introduit le 20070103173446...                                                   */

     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_L("ppv=""plus_proches_voisins="
                                       ,ne_calculer_que_les_differences_entre_les_plus_proches_voisins
                                        );
                         GET_ARGUMENT_N("toutes=",ne_calculer_que_les_differences_entre_les_plus_proches_voisins);

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
                                        /* Cette procedure fut introduite le 20070103173446...                                       */

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
                                        /* Cette procedure fut introduite le 20061226193245...                                       */
                         )
                    );

     Test(IFGT(nombre_d_elements,UN))
          Bblock
          DEFV(Int,INIT(index_1,UNDEF));
                                        /* Index du premier element du couple courant dans le fichier.                               */

          DoIn(index_1
              ,PREMIER_ELEMENT_D_UN_FICHIER
              ,PRED(DERNIER_ELEMENT_D_UN_FICHIER)
              ,I
               )
               Bblock
               DEFV(Float,INIT(valeur_courante_1,ELEMENT_DU_FICHIER(index_1)));
                                        /* Recuperation de la valeur du premier element du couple courant dans le fichier.           */

               Test(IL_FAUT(ne_calculer_que_les_differences_entre_les_plus_proches_voisins))
                    Bblock
                    DEFV(Int,INIT(index_2,SUCC(index_1)));
                                        /* Index du second element du couple courant dans le fichier.                                */
                    DEFV(Float,INIT(valeur_courante_2,ELEMENT_DU_FICHIER(index_2)));
                                        /* Recuperation de la valeur du second element du couple courant dans le fichier.            */

                    EDITION_D_UNE_DIFFERENCE(valeur_courante_1,valeur_courante_2);
                                        /* Edition de la difference associee au couple courant dans le fichier.                      */
                    Eblock
               ATes
                    Bblock
                    DEFV(Int,INIT(index_2,UNDEF));
                                        /* Index du second element du couple courant dans le fichier.                                */

                    DoIn(index_2
                        ,SUCC(index_1)
                        ,NEUT(DERNIER_ELEMENT_D_UN_FICHIER)
                        ,I
                         )
                         Bblock
                         DEFV(Float,INIT(valeur_courante_2,ELEMENT_DU_FICHIER(index_2)));
                                        /* Recuperation de la valeur du second element du couple courant dans le fichier.            */

                         EDITION_D_UNE_DIFFERENCE(valeur_courante_1,valeur_courante_2);
                                        /* Edition de la difference associee au couple courant dans le fichier.                      */
                         Eblock
                    EDoI
                    Eblock
               ETes
               Eblock
          EDoI
          Eblock
     ATes
          Bblock
                                        /* Dans le cas ou le fichier n'a qu'un seul element, il n'y a rien a editer...               */
          Eblock
     ETes

     lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande