X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=pkg%2Fsrc%2Ffunctions.c;h=b634c98ddab1c8713171b1437e8597bbf98e5a11;hp=1c7295a4fcd192e2fc3a2011bafdd2c0d9aa9290;hb=9ac8ecc09912bba5c6109557ebe20575e49b2870;hpb=f4e42a2bc86f5b36a549f356033e4da8d07d0f81 diff --git a/pkg/src/functions.c b/pkg/src/functions.c index 1c7295a..b634c98 100644 --- a/pkg/src/functions.c +++ b/pkg/src/functions.c @@ -1,16 +1,10 @@ #include // Index matrix (by columns) -int inline mi(int i, int j, int d1, int d2) -{ - return j*d1 + i; -} +#define mi(i, j, d1, d2) (j*d1 + i) // Index 3-tensor (by columns, matrices ordered by last dim) -int inline ti(int i, int j, int k, int d1, int d2, int d3) -{ - return k*d1*d2 + j*d1 + i; -} +#define ti(i, j, k, d1, d2, d3) (k*d1*d2 + j*d1 + i) // Empirical cross-moment of order 2 between X size nxd and Y size n void Moments_M2(double* X, double* Y, int* pn, int* pd, double* M2)