NEW FEATURES AND NEW FUNCTIONS

1 files changed, 34 insertions, 0 deletions

diff --git a/src/c/statisticsFunctions/wcenter/dwcentera.c b/src/c/statisticsFunctions/wcenter/dwcentera.c
new file mode 100644
index 00000000..5c05cc86
--- /dev/null
+++ b/src/c/statisticsFunctions/wcenter/dwcentera.c
@@ -0,0 +1,34 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include <ones.h>
+#include "subtraction.h"
+#include "multiplication.h"
+#include "wcenter.h"
+
+void dwcentera (double* inp, int row, int col, double* out)
+{
+    double sum = 0, xbar = 0, sigma = 0;
+    for(int i = 0; i < row*col; i++)		// Findinag the maen of all the elements of the matrix
+        sum += inp[i];
+    xbar = sum/(row*col);
+    
+    double one[row*col];			// Creating a matrix of ones
+    donesa(one,row,col);
+
+    double prod[row*col];
+    for(int i = 0; i < row*col; i++)		// Applying the formula (x(i,j)-xbar)/sigma
+        prod[i] = one[i]*xbar;
+
+    for(int i = 0; i < row*col; i++)
+        out[i] = inp[i] - prod[i];
+
+    sum = 0;
+    for(int i = 0; i < row*col; i++)
+        sum =  sum + out[i]*out[i];
+
+    sigma = sqrt(sum/(row*col-1));
+    
+    for(int i = 0; i < row*col; i++)
+        out[i] = out[i]/sigma;
+}