summaryrefslogtreecommitdiff
path: root/src/statisticsFunctions/variance/dcolumnvariancea.c
diff options
context:
space:
mode:
authortorset2009-01-27 09:29:11 +0000
committertorset2009-01-27 09:29:11 +0000
commit652761d30174c933e2ab5784868b121ca26d8106 (patch)
tree5d1c142e485026e9a152389cb2b1b7e0a3ff4bf2 /src/statisticsFunctions/variance/dcolumnvariancea.c
parent8f6b3360f5188b92f573e7aedc8b15146d2a72bc (diff)
downloadscilab2c-652761d30174c933e2ab5784868b121ca26d8106.tar.gz
scilab2c-652761d30174c933e2ab5784868b121ca26d8106.tar.bz2
scilab2c-652761d30174c933e2ab5784868b121ca26d8106.zip
Debug variance
Diffstat (limited to 'src/statisticsFunctions/variance/dcolumnvariancea.c')
-rw-r--r--src/statisticsFunctions/variance/dcolumnvariancea.c24
1 files changed, 23 insertions, 1 deletions
diff --git a/src/statisticsFunctions/variance/dcolumnvariancea.c b/src/statisticsFunctions/variance/dcolumnvariancea.c
index 104e9860..42c12560 100644
--- a/src/statisticsFunctions/variance/dcolumnvariancea.c
+++ b/src/statisticsFunctions/variance/dcolumnvariancea.c
@@ -15,9 +15,31 @@
void dcolumnvariancea(double *in, int lines, int columns, double* out){
int i = 0 ;
+ int j = 0 ;
+
+ double* transp = (double*) malloc ( sizeof (double) *(unsigned int) (lines*columns));
+
+
+ for ( i = 0; i < 5 ; i++){
+ for ( j = 0; j < 4 ; j++)
+ printf("%f ",in[i+j*lines]);
+ printf("\n");
+ }
+
+
+ dtransposea ( in , lines , columns , transp ) ;
+
+
+ for ( i = 0; i < 4 ; i++){
+ for ( j = 0; j < 5 ; j++)
+ printf("%f ",transp[i+j*columns]);
+ printf("\n");
+ }
for ( i = 0; i < lines ; i++)
- out[i] = dvariancea ( in + i*columns , columns ) ;
+ out[i] = dvariancea ( transp + i*columns , columns ) ;
+
+ free (transp);
}