[BACK]Return to statistiques.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/statistiques.c between versions 1.49 and 1.54

version 1.49, 2015/01/05 13:12:42 version 1.54, 2015/09/18 13:41:22
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.19    RPL/2 (R) version 4.1.23
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2015 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 36 Line 36
 */  */
   
 struct_vecteur *  struct_vecteur *
 sommation_statistique(struct_matrice *s_matrice)  sommation_statistique(struct_processus *s_etat_processus,
           struct_matrice *s_matrice)
 {  {
     integer8                    *cumul_entier;      integer8                    *cumul_entier;
   
Line 50  sommation_statistique(struct_matrice *s_ Line 51  sommation_statistique(struct_matrice *s_
     integer8                    i;      integer8                    i;
     integer8                    j;      integer8                    j;
   
     if ((s_vecteur = (struct_vecteur *) malloc(sizeof(struct_vecteur))) == NULL)      if ((s_vecteur = (struct_vecteur *) malloc(sizeof(struct_vecteur)))
               == NULL)
     {      {
         return NULL;          return NULL;
     }      }
Line 204  sommation_statistique(struct_matrice *s_ Line 206  sommation_statistique(struct_matrice *s_
 */  */
   
 struct_vecteur *  struct_vecteur *
 sommation_produits_colonnes_statistiques(struct_matrice *s_matrice,  sommation_produits_colonnes_statistiques(struct_processus *s_etat_processus,
           struct_matrice *s_matrice,
         integer8 position_1, integer8 position_2)          integer8 position_1, integer8 position_2)
 {  {
     integer8                    *cumul_entier;      integer8                    *cumul_entier;
Line 370  sommation_produits_colonnes_statistiques Line 373  sommation_produits_colonnes_statistiques
 */  */
   
 struct_vecteur *  struct_vecteur *
 sommation_colonne_statistique(struct_matrice *s_matrice, integer8 position)  sommation_colonne_statistique(struct_processus *s_etat_processus,
           struct_matrice *s_matrice, integer8 position)
 {  {
     integer8                    *cumul_entier;      integer8                    *cumul_entier;
   
Line 525  sommation_colonne_statistique(struct_mat Line 529  sommation_colonne_statistique(struct_mat
 */  */
   
 struct_vecteur *  struct_vecteur *
 moyenne_statistique(struct_matrice *s_matrice)  moyenne_statistique(struct_processus *s_etat_processus,
           struct_matrice *s_matrice)
 {  {
     integer8                    *tampon;      integer8                    *tampon;
   
Line 535  moyenne_statistique(struct_matrice *s_ma Line 540  moyenne_statistique(struct_matrice *s_ma
   
     integer8                    i;      integer8                    i;
   
     if ((s_vecteur = sommation_statistique(s_matrice)) == NULL)      if ((s_vecteur = sommation_statistique(s_etat_processus, s_matrice))
               == NULL)
     {      {
         return NULL;          return NULL;
     }      }
Line 610  moyenne_statistique(struct_matrice *s_ma Line 616  moyenne_statistique(struct_matrice *s_ma
 */  */
   
 struct_vecteur *  struct_vecteur *
 variance_statistique(struct_matrice *s_matrice, unsigned char type)  variance_statistique(struct_processus *s_etat_processus,
           struct_matrice *s_matrice, unsigned char type)
 {  {
     integer8                        *tampon;      integer8                        *tampon;
   
Line 624  variance_statistique(struct_matrice *s_m Line 631  variance_statistique(struct_matrice *s_m
     struct_vecteur                  *s_moyenne;      struct_vecteur                  *s_moyenne;
     struct_vecteur                  *s_variance;      struct_vecteur                  *s_variance;
   
     if ((s_moyenne = moyenne_statistique(s_matrice)) == NULL)      if ((s_moyenne = moyenne_statistique(s_etat_processus, s_matrice)) == NULL)
     {      {
         return NULL;          return NULL;
     }      }
Line 759  variance_statistique(struct_matrice *s_m Line 766  variance_statistique(struct_matrice *s_m
 */  */
   
 struct_vecteur *  struct_vecteur *
 ecart_type_statistique(struct_matrice *s_matrice, unsigned char type)  ecart_type_statistique(struct_processus *s_etat_processus,
           struct_matrice *s_matrice, unsigned char type)
 {  {
     struct_vecteur                  *s_vecteur;      struct_vecteur                  *s_vecteur;
   
     integer8                        i;      integer8                        i;
   
     if ((s_vecteur = variance_statistique(s_matrice, type)) == NULL)      if ((s_vecteur = variance_statistique(s_etat_processus, s_matrice, type))
               == NULL)
     {      {
         return NULL;          return NULL;
     }      }
Line 809  correlation_statistique(struct_matrice * Line 818  correlation_statistique(struct_matrice *
   
     (*erreur) = d_absence_erreur;      (*erreur) = d_absence_erreur;
   
     if ((vecteur = (real8 *) malloc(((size_t) (nombre_observations =      if ((vecteur = sys_malloc(((size_t) (nombre_observations =
             (*s_matrice).nombre_lignes)) * sizeof(real8))) == NULL)              (*s_matrice).nombre_lignes)) * sizeof(real8))) == NULL)
     {      {
         (*erreur) = d_erreur;          (*erreur) = d_erreur;
Line 989  correlation_statistique(struct_matrice * Line 998  correlation_statistique(struct_matrice *
         denominateur = sqrt(denominateur);          denominateur = sqrt(denominateur);
     }      }
   
     free(vecteur);      sys_free(vecteur);
   
     return numerateur / denominateur;      return numerateur / denominateur;
 }  }
Line 1024  covariance_statistique(struct_matrice *s Line 1033  covariance_statistique(struct_matrice *s
   
     (*erreur) = d_absence_erreur;      (*erreur) = d_absence_erreur;
   
     if ((vecteur = (real8 *) malloc(((size_t) (nombre_observations =      if ((vecteur = sys_malloc(((size_t) (nombre_observations =
             (*s_matrice).nombre_lignes)) * sizeof(real8))) == NULL)              (*s_matrice).nombre_lignes)) * sizeof(real8))) == NULL)
     {      {
         (*erreur) = d_erreur;          (*erreur) = d_erreur;
Line 1143  covariance_statistique(struct_matrice *s Line 1152  covariance_statistique(struct_matrice *s
         }          }
     }      }
   
     free(vecteur);      sys_free(vecteur);
   
     return numerateur / denominateur;      return numerateur / denominateur;
 }  }
Removed from v.1.49  
changed lines
  Added in v.1.54

CVSweb interface <joel.bertrand@systella.fr>