diff options
| author | simon | 2009-07-30 08:36:46 +0000 |
|---|---|---|
| committer | simon | 2009-07-30 08:36:46 +0000 |
| commit | c740030d9faa5fd160f1bb1b311c5efd6d0d532c (patch) | |
| tree | fbc7b6cbad731cb4839dbb0d35040fa061e29830 /src/c/statisticsFunctions/stdevf/srowstdevfa.c | |
| parent | e32e264022ce45e272612623c17a649823859130 (diff) | |
| download | scilab2c-c740030d9faa5fd160f1bb1b311c5efd6d0d532c.tar.gz scilab2c-c740030d9faa5fd160f1bb1b311c5efd6d0d532c.tar.bz2 scilab2c-c740030d9faa5fd160f1bb1b311c5efd6d0d532c.zip | |
added all stdevf-related files (except interfaces)
updated the Makefile.am
remove remaing printf from scolumnvariancefa
Diffstat (limited to 'src/c/statisticsFunctions/stdevf/srowstdevfa.c')
| -rw-r--r-- | src/c/statisticsFunctions/stdevf/srowstdevfa.c | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/src/c/statisticsFunctions/stdevf/srowstdevfa.c b/src/c/statisticsFunctions/stdevf/srowstdevfa.c new file mode 100644 index 00000000..486111b6 --- /dev/null +++ b/src/c/statisticsFunctions/stdevf/srowstdevfa.c @@ -0,0 +1,55 @@ +/* + * 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 "stdevf.h" +#include "meanf.h" + +#include <stdio.h> + +void srowstdevfa(float *in1, int lines, int columns, float *in2, float* out){ + int i = 0; + int j = 0; + float temp = 0.0f; + float accumulate = 0.0f; + float accumulateFre = 0.0f ; + + srowmeanfa(in1, lines, columns, in2, out ); +printf ("\nmfwerfwerfwefwef \n" ); + + /*we first multiply each cell of the input matrix by its coefficient*/ + for (j = 0; j < columns; ++j) + { + accumulate = 0.0f; + accumulateFre= 0.0f; + temp = 0.0f; + + for ( i = 0 ; i < lines; ++i ) + { + temp = spows ( (in1[lines*j + i] - out[j] ) ,2 ); + temp *= in2[lines*j + i]; + + accumulate += temp ; + accumulateFre += in2[lines*j + i]; + } + + if (lines <= 1) + { + out[j] = 0.0f * accumulate ; + } + else + { + out[j] = ssqrts(accumulate/ (accumulateFre - 1)); + } + } + +} |