--- rpl/src/statistiques.c	2015/01/05 15:32:25	1.50
+++ rpl/src/statistiques.c	2015/01/27 14:18:10	1.51
@@ -36,7 +36,8 @@
 */
 
 struct_vecteur *
-sommation_statistique(struct_matrice *s_matrice)
+sommation_statistique(struct_processus *s_etat_processus,
+		struct_matrice *s_matrice)
 {
 	integer8					*cumul_entier;
 
@@ -50,7 +51,8 @@ sommation_statistique(struct_matrice *s_
 	integer8					i;
 	integer8					j;
 
-	if ((s_vecteur = (struct_vecteur *) malloc(sizeof(struct_vecteur))) == NULL)
+	if ((s_vecteur = (struct_vecteur *) malloc(sizeof(struct_vecteur)))
+			== NULL)
 	{
 		return NULL;
 	}
@@ -204,7 +206,8 @@ sommation_statistique(struct_matrice *s_
 */
 
 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					*cumul_entier;
@@ -370,7 +373,8 @@ sommation_produits_colonnes_statistiques
 */
 
 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;
 
@@ -525,7 +529,8 @@ sommation_colonne_statistique(struct_mat
 */
 
 struct_vecteur *
-moyenne_statistique(struct_matrice *s_matrice)
+moyenne_statistique(struct_processus *s_etat_processus,
+		struct_matrice *s_matrice)
 {
 	integer8					*tampon;
 
@@ -535,7 +540,8 @@ moyenne_statistique(struct_matrice *s_ma
 
 	integer8					i;
 
-	if ((s_vecteur = sommation_statistique(s_matrice)) == NULL)
+	if ((s_vecteur = sommation_statistique(s_etat_processus, s_matrice))
+			== NULL)
 	{
 		return NULL;
 	}
@@ -610,7 +616,8 @@ moyenne_statistique(struct_matrice *s_ma
 */
 
 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;
 
@@ -624,7 +631,7 @@ variance_statistique(struct_matrice *s_m
 	struct_vecteur					*s_moyenne;
 	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;
 	}
@@ -759,13 +766,15 @@ variance_statistique(struct_matrice *s_m
 */
 
 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;
 
 	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;
 	}
@@ -809,7 +818,7 @@ correlation_statistique(struct_matrice *
 
 	(*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)
 	{
 		(*erreur) = d_erreur;
@@ -989,7 +998,7 @@ correlation_statistique(struct_matrice *
 		denominateur = sqrt(denominateur);
 	}
 
-	free(vecteur);
+	sys_free(vecteur);
 
 	return numerateur / denominateur;
 }
@@ -1024,7 +1033,7 @@ covariance_statistique(struct_matrice *s
 
 	(*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)
 	{
 		(*erreur) = d_erreur;
@@ -1143,7 +1152,7 @@ covariance_statistique(struct_matrice *s
 		}
 	}
 
-	free(vecteur);
+	sys_free(vecteur);
 
 	return numerateur / denominateur;
 }