Added Center, Wcenter and Correl

1 files changed, 29 insertions, 0 deletions

diff --git a/src/c/statisticsFunctions/center/zcentera.c b/src/c/statisticsFunctions/center/zcentera.c
new file mode 100644
index 0000000..22ce70d
--- /dev/null
+++ b/src/c/statisticsFunctions/center/zcentera.c
@@ -0,0 +1,29 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include <ones.h>
+#include "addition.h"
+#include "subtraction.h"
+#include "multiplication.h"
+#include "division.h"
+#include "center.h"
+#include "doubleComplex.h"
+#include "sqrt.h"
+
+void zcentera (doubleComplex* inp, int row, int col, doubleComplex* out)
+{
+    doubleComplex 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 = zadds(sum,inp[i]);
+    xbar = zrdivs(sum,(row*col));
+    
+    doubleComplex one[row*col];			// Creating a matrix of ones
+    zonesa(one,row,col);
+
+    doubleComplex prod[row*col];
+    for(int i = 0; i < row*col; i++)		// Applying the formula (x(i,j)-xbar)/sigma
+        prod[i] = zmuls(one[i],xbar);
+
+    for(int i = 0; i < row*col; i++)
+        out[i] = zdiffs(inp[i], prod[i]);
+}