From 652761d30174c933e2ab5784868b121ca26d8106 Mon Sep 17 00:00:00 2001
From: torset
Date: Tue, 27 Jan 2009 09:29:11 +0000
Subject: Debug variance

---
 src/statisticsFunctions/variance/dvariancea.c | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'src/statisticsFunctions/variance/dvariancea.c')

diff --git a/src/statisticsFunctions/variance/dvariancea.c b/src/statisticsFunctions/variance/dvariancea.c
index 39bd6abf..98ebf014 100644
--- a/src/statisticsFunctions/variance/dvariancea.c
+++ b/src/statisticsFunctions/variance/dvariancea.c
@@ -17,22 +17,18 @@ double	dvariancea(double *in, int size)
     int i = 0 ;
     
     double temp = 0 ;
-    double sumc = 0 ;
     double variance = 0;
     
     double mean =  dmeana ( in , size );
  
     for ( i = 0 ; i < size ; i++)
     { 
-
        temp += dpows (  (in[i]  - mean ) ,2 ) ;
-       sumc += (in[i]  - mean);     
     }
     
-    if ( fabs ( sumc) > 1e-16)
-        variance =  ( temp - dpows( sumc,2))/ ( size-1);
-    else 
-        variance = ( temp )/ ( size -1);    
+    
+    variance =  ( temp )/ ( size -1);
+   
     
     return variance ;
 }
-- 
cgit