diff options
| author | Ankit Raj | 2017-06-21 10:26:59 +0530 |
|---|---|---|
| committer | Ankit Raj | 2017-06-21 10:26:59 +0530 |
| commit | 958577cac90a99124cd673fde1926781d966d91f (patch) | |
| tree | 134d9fe7f5b97a647cb055bb7b4c21820a749f49 /src/c/statisticsFunctions/variance/dvariancea.c | |
| download | scilab2c-958577cac90a99124cd673fde1926781d966d91f.tar.gz scilab2c-958577cac90a99124cd673fde1926781d966d91f.tar.bz2 scilab2c-958577cac90a99124cd673fde1926781d966d91f.zip | |
Updated Scilab2C
Diffstat (limited to 'src/c/statisticsFunctions/variance/dvariancea.c')
| -rw-r--r-- | src/c/statisticsFunctions/variance/dvariancea.c | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/c/statisticsFunctions/variance/dvariancea.c b/src/c/statisticsFunctions/variance/dvariancea.c new file mode 100644 index 00000000..05ed4ff3 --- /dev/null +++ b/src/c/statisticsFunctions/variance/dvariancea.c @@ -0,0 +1,35 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Allan SIMON + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + * + */ + +#include "variance.h" + +double dvariancea(double *in, int size) +{ + int i = 0 ; + + double temp = 0 ; + double variance = 0; + + double mean = dmeana ( in, size ); + + for ( i = 0 ; i < size ; i++) + { + temp += dpows ( (in[i] - mean ) ,2 ) ; + } + + + variance = ( temp )/ ( size -1); + + + return variance ; +} + |