Added Moment

52 files changed, 311 insertions, 0 deletions

diff --git a/demos/Brijesh_Demos/test_moment.sci b/demos/Brijesh_Demos/test_moment.sci
new file mode 100644
index 0000000..35e0d7a
--- /dev/null
+++ b/demos/Brijesh_Demos/test_moment.sci
@@ -0,0 +1,14 @@
+function test_moment
+	disp('Datatype: Double');
+	i1 = [1 2 3; 4 5 6];
+	o1 = moment(i1,1,'r');
+	disp(o1);
+	disp('Datatype: float');
+	i2 = float([1 2 3; 4 5 6]);
+	o2 = moment(i2,1,'r');
+	disp(o2);
+	disp('Datatype: Double Complex');
+	i3 = [0 %i 3+4*%i;%i 5+%i 6+%i];
+	o3 = moment(i3,1,'r');
+	disp(o3);
+endfunction
diff --git a/includes/sci2clib.h b/includes/sci2clib.h
index 5f94371..40fa579 100644
--- a/includes/sci2clib.h
+++ b/includes/sci2clib.h
@@ -632,6 +632,9 @@ extern "C" {
 /* interfacing median */
 #include "median.h"
 #include "int_median.h"
+/* interfacing moment */
+#include "moment.h"
+#include "int_moment.h"
 /* interfacing nanmedian */
 #include "nanmedian.h"
 #include "int_nanmedian.h"
diff --git a/jar/scilab_en_US_help.jar b/jar/scilab_en_US_help.jar
index 5194f99..93393a0 100644
--- a/jar/scilab_en_US_help.jar
+++ b/jar/scilab_en_US_help.jar
diff --git a/macros/ASTManagement/lib b/macros/ASTManagement/lib
new file mode 100644
index 0000000..dee4362
--- /dev/null
+++ b/macros/ASTManagement/lib
diff --git a/macros/CCodeGeneration/lib b/macros/CCodeGeneration/lib
new file mode 100644
index 0000000..3d4fed1
--- /dev/null
+++ b/macros/CCodeGeneration/lib
diff --git a/macros/ErrorMessages/lib b/macros/ErrorMessages/lib
new file mode 100644
index 0000000..ba3b9a5
--- /dev/null
+++ b/macros/ErrorMessages/lib
diff --git a/macros/FunctionAnnotation/lib b/macros/FunctionAnnotation/lib
new file mode 100644
index 0000000..239105c
--- /dev/null
+++ b/macros/FunctionAnnotation/lib
diff --git a/macros/FunctionList/lib b/macros/FunctionList/lib
new file mode 100644
index 0000000..1c722dd
--- /dev/null
+++ b/macros/FunctionList/lib
diff --git a/macros/GeneralFunctions/lib b/macros/GeneralFunctions/lib
new file mode 100644
index 0000000..7586a91
--- /dev/null
+++ b/macros/GeneralFunctions/lib
diff --git a/macros/Hardware/AVR/lib b/macros/Hardware/AVR/lib
new file mode 100644
index 0000000..ed4c52b
--- /dev/null
+++ b/macros/Hardware/AVR/lib
diff --git a/macros/Hardware/RasberryPi/Digital/lib b/macros/Hardware/RasberryPi/Digital/lib
new file mode 100644
index 0000000..ba42ba7
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Digital/lib
diff --git a/macros/Hardware/RasberryPi/I2C/lib b/macros/Hardware/RasberryPi/I2C/lib
new file mode 100644
index 0000000..561476c
--- /dev/null
+++ b/macros/Hardware/RasberryPi/I2C/lib
diff --git a/macros/Hardware/RasberryPi/Interrupt/lib b/macros/Hardware/RasberryPi/Interrupt/lib
new file mode 100644
index 0000000..97a61ac
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Interrupt/lib
diff --git a/macros/Hardware/RasberryPi/Misc/lib b/macros/Hardware/RasberryPi/Misc/lib
new file mode 100644
index 0000000..c718615
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Misc/lib
diff --git a/macros/Hardware/RasberryPi/SPI/lib b/macros/Hardware/RasberryPi/SPI/lib
new file mode 100644
index 0000000..a16d474
--- /dev/null
+++ b/macros/Hardware/RasberryPi/SPI/lib
diff --git a/macros/Hardware/RasberryPi/Serial/lib b/macros/Hardware/RasberryPi/Serial/lib
new file mode 100644
index 0000000..a007f00
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Serial/lib
diff --git a/macros/Hardware/RasberryPi/Setup/lib b/macros/Hardware/RasberryPi/Setup/lib
new file mode 100644
index 0000000..83655c9
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Setup/lib
diff --git a/macros/Hardware/RasberryPi/Shift/lib b/macros/Hardware/RasberryPi/Shift/lib
new file mode 100644
index 0000000..2b12025
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Shift/lib
diff --git a/macros/Hardware/RasberryPi/Soft/lib b/macros/Hardware/RasberryPi/Soft/lib
new file mode 100644
index 0000000..09ecede
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Soft/lib
diff --git a/macros/Hardware/RasberryPi/Timing/lib b/macros/Hardware/RasberryPi/Timing/lib
new file mode 100644
index 0000000..d271c90
--- /dev/null
+++ b/macros/Hardware/RasberryPi/Timing/lib
diff --git a/macros/Hardware/RasberryPi/gertBoard/lib b/macros/Hardware/RasberryPi/gertBoard/lib
new file mode 100644
index 0000000..e8db080
--- /dev/null
+++ b/macros/Hardware/RasberryPi/gertBoard/lib
diff --git a/macros/Hardware/RasberryPi/lcd/lib b/macros/Hardware/RasberryPi/lcd/lib
new file mode 100644
index 0000000..c2b693f
--- /dev/null
+++ b/macros/Hardware/RasberryPi/lcd/lib
diff --git a/macros/Hardware/RasberryPi/lcd128x64/lib b/macros/Hardware/RasberryPi/lcd128x64/lib
new file mode 100644
index 0000000..94dfda8
--- /dev/null
+++ b/macros/Hardware/RasberryPi/lcd128x64/lib
diff --git a/macros/Hardware/RasberryPi/lib b/macros/Hardware/RasberryPi/lib
new file mode 100644
index 0000000..49ed811
--- /dev/null
+++ b/macros/Hardware/RasberryPi/lib
diff --git a/macros/Hardware/RasberryPi/mcp/lib b/macros/Hardware/RasberryPi/mcp/lib
new file mode 100644
index 0000000..d411aad
--- /dev/null
+++ b/macros/Hardware/RasberryPi/mcp/lib
diff --git a/macros/Hardware/RasberryPi/pcf/lib b/macros/Hardware/RasberryPi/pcf/lib
new file mode 100644
index 0000000..da6a8da
--- /dev/null
+++ b/macros/Hardware/RasberryPi/pcf/lib
diff --git a/macros/Hardware/RasberryPi/piGlow/lib b/macros/Hardware/RasberryPi/piGlow/lib
new file mode 100644
index 0000000..3f30f85
--- /dev/null
+++ b/macros/Hardware/RasberryPi/piGlow/lib
diff --git a/macros/Hardware/RasberryPi/pinMap/lib b/macros/Hardware/RasberryPi/pinMap/lib
new file mode 100644
index 0000000..133363e
--- /dev/null
+++ b/macros/Hardware/RasberryPi/pinMap/lib
diff --git a/macros/Hardware/RasberryPi/pwm/lib b/macros/Hardware/RasberryPi/pwm/lib
new file mode 100644
index 0000000..8711baf
--- /dev/null
+++ b/macros/Hardware/RasberryPi/pwm/lib
diff --git a/macros/ImageProcessing/core/lib b/macros/ImageProcessing/core/lib
new file mode 100644
index 0000000..40b7b0a
--- /dev/null
+++ b/macros/ImageProcessing/core/lib
diff --git a/macros/ImageProcessing/highgui/lib b/macros/ImageProcessing/highgui/lib
new file mode 100644
index 0000000..0d7f88a
--- /dev/null
+++ b/macros/ImageProcessing/highgui/lib
diff --git a/macros/ImageProcessing/imgproc/lib b/macros/ImageProcessing/imgproc/lib
new file mode 100644
index 0000000..63b5e7e
--- /dev/null
+++ b/macros/ImageProcessing/imgproc/lib
diff --git a/macros/Scilab-Arduino/lib b/macros/Scilab-Arduino/lib
new file mode 100644
index 0000000..a62fd4e
--- /dev/null
+++ b/macros/Scilab-Arduino/lib
diff --git a/macros/SymbolTable/lib b/macros/SymbolTable/lib
new file mode 100644
index 0000000..4379c83
--- /dev/null
+++ b/macros/SymbolTable/lib
diff --git a/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci
index 2ca622f..872a750 100644
--- a/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci
+++ b/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci
@@ -1015,6 +1015,46 @@ INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,Ex
 

 

 // -------------------

+// --- Class MOMENT. ---

+// -------------------

+ClassName = 'moment';

+

+// --- Class Annotation. ---

+PrintStringInfo('   Adding Class: '+ClassName+'.',GeneralReport,'file','y');

+ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls);

+PrintStringInfo('NIN=          2',ClassFileName,'file','y');

+PrintStringInfo('NOUT=         1',ClassFileName,'file','y');

+PrintStringInfo('OUT(1).TP=    IN(1).TP',ClassFileName,'file','y');

+PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y');

+PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');

+

+PrintStringInfo('NIN=          3',ClassFileName,'file','y');

+PrintStringInfo('NOUT=         1',ClassFileName,'file','y');

+PrintStringInfo('OUT(1).TP=    IN(1).TP',ClassFileName,'file','y');

+PrintStringInfo('OUT(1).SZ(1)= FA_SZ_SEL1(IN(1).SZ(1),IN(3).VAL)',ClassFileName,'file','y');

+PrintStringInfo('OUT(1).SZ(2)= FA_SZ_SEL2(IN(1).SZ(2),IN(3).VAL)',ClassFileName,'file','y');

+

+//---Function list class. ----

+ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls);

+PrintStringInfo('d2d0'+ArgSeparator+'d0',ClassFileName,'file','y');

+PrintStringInfo('d2d0g2'+ArgSeparator+'d2',ClassFileName,'file','y');

+PrintStringInfo('s2d0'+ArgSeparator+'s0',ClassFileName,'file','y');

+PrintStringInfo('s2d0g2'+ArgSeparator+'s2',ClassFileName,'file','y');

+PrintStringInfo('z2d0'+ArgSeparator+'z0',ClassFileName,'file','y');

+PrintStringInfo('z2d0g2'+ArgSeparator+'z2',ClassFileName,'file','y');

+

+

+

+// --- Annotation Function And Function List Function. ---

+FunctionName = 'moment';

+PrintStringInfo('      Adding Function: '+FunctionName+'.',GeneralReport,'file','y');

+INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun);

+INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun);

+

+

+

+

+// -------------------

 // --- Class Nanmin. ---

 // -------------------

 ClassName = 'Nanmin';

diff --git a/macros/ToolInitialization/lib b/macros/ToolInitialization/lib
new file mode 100644
index 0000000..670a52e
--- /dev/null
+++ b/macros/ToolInitialization/lib
diff --git a/macros/findDeps/getAllHeaders.sci b/macros/findDeps/getAllHeaders.sci
index 1a45523..7711b81 100644
--- a/macros/findDeps/getAllHeaders.sci
+++ b/macros/findDeps/getAllHeaders.sci
@@ -157,6 +157,7 @@ function allHeaders = getAllHeaders(SharedInfo)
       "src/c/statisticsFunctions/includes/dynlib_statisticsfunctions.h"
       "src/c/statisticsFunctions/includes/statMax.h"
       "src/c/statisticsFunctions/includes/statMin.h"
+      "src/c/statisticsFunctions/includes/moment.h"
       "src/c/operations/includes/subtraction.h"
       "src/c/operations/includes/addition.h"
       "src/c/operations/includes/dynlib_operations.h"
diff --git a/macros/findDeps/getAllInterfaces.sci b/macros/findDeps/getAllInterfaces.sci
index 12f5b3d..0ff4775 100644
--- a/macros/findDeps/getAllInterfaces.sci
+++ b/macros/findDeps/getAllInterfaces.sci
@@ -145,6 +145,7 @@ function allInterfaces = getAllInterfaces(SharedInfo)
       "src/c/statisticsFunctions/interfaces/int_prod.h"
       "src/c/statisticsFunctions/interfaces/int_variance.h"
       "src/c/statisticsFunctions/interfaces/int_sum.h"
+      "src/c/statisticsFunctions/interfaces/int_moment.h"
       "src/c/operations/interfaces/int_OpEqual.h"
       "src/c/operations/interfaces/int_OpLogNot.h"
       "src/c/operations/interfaces/int_OpLogEq.h"
diff --git a/macros/findDeps/getAllSources.sci b/macros/findDeps/getAllSources.sci
index 7e0a806..949fe0d 100644
--- a/macros/findDeps/getAllSources.sci
+++ b/macros/findDeps/getAllSources.sci
@@ -1046,6 +1046,15 @@ function allSources = getAllSources(SharedInfo,BuildTool)
       "src/c/statisticsFunctions/stdevf/zrowstdevfa.c"
       "src/c/statisticsFunctions/stdevf/ccolumnstdevfa.c"
       "src/c/statisticsFunctions/stdevf/scolumnstdevfa.c"
+      "src/c/statisticsFunctions/moment/dmoments.c"
+      "src/c/statisticsFunctions/moment/dmomentrowa.c"
+      "src/c/statisticsFunctions/moment/dmomentcola.c"
+      "src/c/statisticsFunctions/moment/smoments.c"
+      "src/c/statisticsFunctions/moment/smomentrowa.c"
+      "src/c/statisticsFunctions/moment/smomentcola.c"
+      "src/c/statisticsFunctions/moment/zmoments.c"
+      "src/c/statisticsFunctions/moment/zmomentrowa.c"
+      "src/c/statisticsFunctions/moment/zmomentcola.c"
       "src/c/operations/multiplication/cmula.c"
       "src/c/operations/multiplication/cmuls.c"
       "src/c/operations/multiplication/cmulv.c"
diff --git a/macros/findDeps/lib b/macros/findDeps/lib
new file mode 100644
index 0000000..afcd3ca
--- /dev/null
+++ b/macros/findDeps/lib
diff --git a/macros/lib b/macros/lib
new file mode 100644
index 0000000..551263e
--- /dev/null
+++ b/macros/lib
diff --git a/src/c/statisticsFunctions/includes/moment.h b/src/c/statisticsFunctions/includes/moment.h
new file mode 100644
index 0000000..3f419d0
--- /dev/null
+++ b/src/c/statisticsFunctions/includes/moment.h
@@ -0,0 +1,42 @@
+ /* Copyright (C) 2017 - IIT Bombay - FOSSEE
+
+ 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
+ Author: Brijesh Gupta C R
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+ */
+
+#ifndef __MOMENT_H__
+#define __MOMENT_H__
+#include "types.h"
+#include "doubleComplex.h"
+#include "floatComplex.h"
+#include "pow.h"
+#include "addition.h"
+
+#ifdef  __cplusplus
+extern "C" {
+#endif
+
+double dmoments (double* inp, int size, double ord);
+void dmomentrowa (double* inp, int row, int col, double ord, double* out);
+void dmomentcola (double* inp, int row, int col, double ord, double* out);
+
+float smoments (float* inp, int size, double ord);
+void smomentrowa (float* inp, int row, int col, double ord, float* out);
+void smomentcola (float* inp, int row, int col, double ord, float* out);
+
+doubleComplex zmoments (doubleComplex* inp, int size, double ord);
+void zmomentrowa (doubleComplex* inp, int row, int col, double ord, doubleComplex* out);
+void zmomentcola (doubleComplex* inp, int row, int col, double ord, doubleComplex* out);
+
+
+#ifdef  __cplusplus 
+} /* extern "C" */
+#endif
+
+#endif /*__MOMENT_H__*/
diff --git a/src/c/statisticsFunctions/interfaces/int_moment.h b/src/c/statisticsFunctions/interfaces/int_moment.h
new file mode 100644
index 0000000..5e9a036
--- /dev/null
+++ b/src/c/statisticsFunctions/interfaces/int_moment.h
@@ -0,0 +1,33 @@
+ /* Copyright (C) 2017 - IIT Bombay - FOSSEE
+
+ 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
+ Author: Brijesh Gupta C R
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+ */
+#ifndef __INT_MOMENT_H__
+#define __INT_MOMENT_H__
+
+#ifdef  __cplusplus
+extern "C" {
+#endif
+
+#define d2d0momentd0(in1,size,in2) 				dmoments(in1,size[0]*size[1], in2)
+#define d2d0g2momentd2(in1, size, in2, in3, size2 ,out)		(in3[0] == 'r') ? dmomentrowa(in1, size[0], size[1], in2, out) :  dmomentcola(in1, size[0], size[1], in2, out)	
+
+#define s2d0moments0(in1,size,in2) 				smoments(in1,size[0]*size[1], in2)
+#define s2d0g2moments2(in1, size, in2, in3, size2 ,out)		(in3[0] == 'r') ? smomentrowa(in1, size[0], size[1], in2, out) :  smomentcola(in1, size[0], size[1], in2, out)	
+
+#define z2d0momentz0(in1,size,in2) 				zmoments(in1,size[0]*size[1], in2)
+#define z2d0g2momentz2(in1, size, in2, in3, size2 ,out)		(in3[0] == 'r') ? zmomentrowa(in1, size[0], size[1], in2, out) :  zmomentcola(in1, size[0], size[1], in2, out)	
+
+
+#ifdef  __cplusplus
+} /* extern "C" */
+#endif
+
+#endif /*__INT_MOMENT_H__*/
diff --git a/src/c/statisticsFunctions/moment/dmomentcola.c b/src/c/statisticsFunctions/moment/dmomentcola.c
new file mode 100644
index 0000000..538328e
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/dmomentcola.c
@@ -0,0 +1,18 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+
+void dmomentcola (double* inp, int row, int col, double ord, double* out)
+{
+    double vect[col];
+    for(int i = 0; i < row ; i++)
+    {
+	for(int j = 0; j < col ; j++)
+	{
+	    vect[j] = inp[i + j*row];
+	}
+	out[i] = dmoments(vect, col, ord);
+    }
+
+}
diff --git a/src/c/statisticsFunctions/moment/dmomentrowa.c b/src/c/statisticsFunctions/moment/dmomentrowa.c
new file mode 100644
index 0000000..811aac3
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/dmomentrowa.c
@@ -0,0 +1,18 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+
+void dmomentrowa (double* inp, int row, int col, double ord, double* out)
+{
+    double vect[row];
+    for(int i = 0; i < col ; i++)
+    {
+	for(int j = 0; j < row ; j++)
+	{
+	    vect[j] = inp[j + i*row];
+	}
+	out[i] = dmoments(vect, row, ord);
+    }
+
+}
diff --git a/src/c/statisticsFunctions/moment/dmoments.c b/src/c/statisticsFunctions/moment/dmoments.c
new file mode 100644
index 0000000..b9d8564
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/dmoments.c
@@ -0,0 +1,17 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+
+
+double dmoments (double* inp, int size, double ord)
+{
+    double sum = 0;
+
+    for(int i = 0; i < size; i++)
+    {
+        sum = sum + pow(inp[i], ord);
+    }
+
+    return sum/size;
+}
diff --git a/src/c/statisticsFunctions/moment/smomentcola.c b/src/c/statisticsFunctions/moment/smomentcola.c
new file mode 100644
index 0000000..4255782
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/smomentcola.c
@@ -0,0 +1,18 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+
+void smomentcola (float* inp, int row, int col, double ord, float* out)
+{
+    float vect[col];
+    for(int i = 0; i < row ; i++)
+    {
+	for(int j = 0; j < col ; j++)
+	{
+	    vect[j] = inp[i + j*row];
+	}
+	out[i] = smoments(vect, col, ord);
+    }
+
+}
diff --git a/src/c/statisticsFunctions/moment/smomentrowa.c b/src/c/statisticsFunctions/moment/smomentrowa.c
new file mode 100644
index 0000000..574ebe7
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/smomentrowa.c
@@ -0,0 +1,18 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+
+void smomentrowa (float* inp, int row, int col, double ord, float* out)
+{
+    float vect[row];
+    for(int i = 0; i < col ; i++)
+    {
+	for(int j = 0; j < row ; j++)
+	{
+	    vect[j] = inp[j + i*row];
+	}
+	out[i] = smoments(vect, row, ord);
+    }
+
+}
diff --git a/src/c/statisticsFunctions/moment/smoments.c b/src/c/statisticsFunctions/moment/smoments.c
new file mode 100644
index 0000000..aee9dc9
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/smoments.c
@@ -0,0 +1,17 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+
+
+float smoments (float* inp, int size, double ord)
+{
+    float sum = 0;
+
+    for(int i = 0; i < size; i++)
+    {
+        sum = sum + pow(inp[i], ord);
+    }
+
+    return sum/size;
+}
diff --git a/src/c/statisticsFunctions/moment/zmomentcola.c b/src/c/statisticsFunctions/moment/zmomentcola.c
new file mode 100644
index 0000000..2b3cebb
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/zmomentcola.c
@@ -0,0 +1,20 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+#include "doubleComplex.h"
+#include "floatComplex.h"
+
+void zmomentcola (doubleComplex* inp, int row, int col, double ord, doubleComplex* out)
+{
+    double vect[col];
+    for(int i = 0; i < row ; i++)
+    {
+	for(int j = 0; j < col ; j++)
+	{
+	    vect[j] = inp[i + j*row];
+	}
+	out[i] = zmoments(vect, col, ord);
+    }
+
+}
diff --git a/src/c/statisticsFunctions/moment/zmomentrowa.c b/src/c/statisticsFunctions/moment/zmomentrowa.c
new file mode 100644
index 0000000..e1e1b47
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/zmomentrowa.c
@@ -0,0 +1,20 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+#include "doubleComplex.h"
+#include "floatComplex.h"
+
+void zmomentrowa (doubleComplex* inp, int row, int col, double ord, doubleComplex* out)
+{
+    doubleComplex vect[row];
+    for(int i = 0; i < col ; i++)
+    {
+	for(int j = 0; j < row ; j++)
+	{
+	    vect[j] = inp[j + i*row];
+	}
+	out[i] = zmoments(vect, row, ord);
+    }
+
+}
diff --git a/src/c/statisticsFunctions/moment/zmoments.c b/src/c/statisticsFunctions/moment/zmoments.c
new file mode 100644
index 0000000..1b84737
--- /dev/null
+++ b/src/c/statisticsFunctions/moment/zmoments.c
@@ -0,0 +1,22 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "moment.h"
+#include "doubleComplex.h"
+#include "floatComplex.h"
+#include "pow.h"
+#include "addition.h"
+#include "division.h"
+
+
+doubleComplex zmoments (doubleComplex* inp, int size, double ord)
+{
+    doubleComplex sum = DoubleComplex(0,0);
+
+    for(int i = 0; i < size; i++)
+    {
+        sum = zadds(sum,zpows(inp[i], ord));
+    }
+
+    return zrdivs(sum,size);
+}