Added Covar

1 files changed, 71 insertions, 0 deletions

diff --git a/2.3-1/src/c/statisticsFunctions/covar/zcovars.c b/2.3-1/src/c/statisticsFunctions/covar/zcovars.c
new file mode 100644
index 00000000..6adbd3c9
--- /dev/null
+++ b/2.3-1/src/c/statisticsFunctions/covar/zcovars.c
@@ -0,0 +1,71 @@
+#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 "sqrt.h"
+#include "sum.h"
+#include "correl.h"
+#include "matrix.h"
+#include "mean.h"
+#include "doubleComplex.h"
+
+doubleComplex zcovars (doubleComplex* inp1, int sr1, int sc1, doubleComplex* inp2, int sr2, int sc2, doubleComplex* fre, int sr3, int sc3)
+{
+    doubleComplex fr[sr3*sc3], s3 = 0, sfrr[sc3], p1[sc2*sc3], s1 = 0, d1[sc2] , one[sr1*sc1], p2[sc1 * sc2], p3[sr3*sc3], sfrc[sr3], p4[sr3], s2 = 0, d2[sr1*sc1], one2[sr2*sc2], p5[sr1*sc1*sr2*sc2],            p6[sr1*sc1*sr2*sc2],s4 = 0;
+
+    for(int i = 0; i < sr3*sc3; i++)
+	s3 = zadds(s3, fre[i]);
+
+    for(int i = 0; i < sr3*sc3; i++)
+	fr[i] = zrdivs(fre[i], s3);
+
+    zrowsuma(fr, sr3, sc3, sfrr);
+
+    for(int i = 0; i < sc3; i++)
+	p1[i] = zmuls(inp2[i], sfrr[i]);
+
+    for(int i = 0; i < sc3; i++)
+	s1 = zadds(s1, p1[i]);
+
+
+
+    for(int i = 0; i < sc2; i++)
+	d1[i] = zdiffs(inp2[i], s1);
+
+    zonesa(one, sr1*sc1, 1);
+
+    zmulma(one, sr1*sc1, 1, d1, 1, sc2,  p2);
+
+    for(int i = 0; i < sr3*sc3; i++)
+	p3[i] = fr[i] * p2[i];
+
+    zcolumnsuma(fr, sr3, sc3, sfrc);
+
+    for(int i = 0; i < sr3; i++)
+	p4[i] = zmuls(inp1[i], sfrc[i]);
+
+    for(int i = 0; i < sr3; i++)
+	s2 = zadds(s2, p4[i]);
+
+    for(int i = 0; i < sr1*sc1; i++)
+	d2[i] = zdiffs(inp1[i], s2);
+
+    zonesa(one2, 1, sr2*sc2);
+
+    zmulma(d2, sr1*sc1, 1, one2, 1, sr2*sc2, p5);
+
+    for(int i = 0; i < sr1*sc1*sr2*sc2; i++)
+	p6[i] = zmuls(p5[i], p3[i]);
+
+
+    for(int i = 0; i < sr1*sc1*sr2*sc2; i++)
+	s4 = zadds(s4, p6[i]);
+
+
+    return s4;      
+
+}