diff options
author | torset | 2009-01-27 09:29:11 +0000 |
---|---|---|
committer | torset | 2009-01-27 09:29:11 +0000 |
commit | 652761d30174c933e2ab5784868b121ca26d8106 (patch) | |
tree | 5d1c142e485026e9a152389cb2b1b7e0a3ff4bf2 /src/statisticsFunctions/variance/dvariancea.c | |
parent | 8f6b3360f5188b92f573e7aedc8b15146d2a72bc (diff) | |
download | scilab2c-652761d30174c933e2ab5784868b121ca26d8106.tar.gz scilab2c-652761d30174c933e2ab5784868b121ca26d8106.tar.bz2 scilab2c-652761d30174c933e2ab5784868b121ca26d8106.zip |
Debug variance
Diffstat (limited to 'src/statisticsFunctions/variance/dvariancea.c')
-rw-r--r-- | src/statisticsFunctions/variance/dvariancea.c | 10 |
1 files changed, 3 insertions, 7 deletions
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 ; } |