reintegration of LatCore & folder restructuration

2025-06-22 08:52:01 +01:00 · 2019-02-10 00:23:36 +00:00
parent 6addec5e14
commit 83d5428c3a
111 changed files with 6974 additions and 315 deletions
--- a/lib/Core/Math.cpp
+++ b/lib/Core/Math.cpp
@ -0,0 +1,114 @@
+/*
+ * Math.cpp, part of LatAnalyze 3
+ *
+ * Copyright (C) 2013 - 2016 Antonin Portelli
+ *
+ * LatAnalyze 3 is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * LatAnalyze 3 is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with LatAnalyze 3.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <LatAnalyze/Core/Math.hpp>
+#include <LatAnalyze/includes.hpp>
+#include <gsl/gsl_cdf.h>
+
+using namespace std;
+using namespace Latan;
+
+/******************************************************************************
+ *                             Custom math functions                          *
+ ******************************************************************************/
+DMat MATH_NAMESPACE::varToCorr(const DMat &var)
+{
+    DMat res = var, invDiag = res.diagonal();
+    
+    invDiag = invDiag.cwiseInverse().cwiseSqrt();
+    res     = (invDiag*invDiag.transpose()).cwiseProduct(res);
+    
+    return res;
+}
+
+/******************************************************************************
+ *                             Standard C functions                           *
+ ******************************************************************************/
+
+#define DEF_STD_FUNC_1ARG(name) \
+auto name##VecFunc = [](const double arg[1]){return (name)(arg[0]);};\
+DoubleFunction STDMATH_NAMESPACE::name(name##VecFunc, 1);
+
+#define DEF_STD_FUNC_2ARG(name) \
+auto name##VecFunc = [](const double arg[2]){return (name)(arg[0], arg[1]);};\
+DoubleFunction STDMATH_NAMESPACE::name(name##VecFunc, 2);
+
+// Trigonometric functions
+DEF_STD_FUNC_1ARG(cos)
+DEF_STD_FUNC_1ARG(sin)
+DEF_STD_FUNC_1ARG(tan)
+DEF_STD_FUNC_1ARG(acos)
+DEF_STD_FUNC_1ARG(asin)
+DEF_STD_FUNC_1ARG(atan)
+DEF_STD_FUNC_2ARG(atan2)
+
+// Hyperbolic functions
+DEF_STD_FUNC_1ARG(cosh)
+DEF_STD_FUNC_1ARG(sinh)
+DEF_STD_FUNC_1ARG(tanh)
+DEF_STD_FUNC_1ARG(acosh)
+DEF_STD_FUNC_1ARG(asinh)
+DEF_STD_FUNC_1ARG(atanh)
+
+// Exponential and logarithmic functions
+DEF_STD_FUNC_1ARG(exp)
+DEF_STD_FUNC_1ARG(log)
+DEF_STD_FUNC_1ARG(log10)
+DEF_STD_FUNC_1ARG(exp2)
+DEF_STD_FUNC_1ARG(expm1)
+DEF_STD_FUNC_1ARG(log1p)
+DEF_STD_FUNC_1ARG(log2)
+
+// Power functions
+DEF_STD_FUNC_2ARG(pow)
+DEF_STD_FUNC_1ARG(sqrt)
+DEF_STD_FUNC_1ARG(cbrt)
+DEF_STD_FUNC_2ARG(hypot)
+
+// Error and gamma functions
+DEF_STD_FUNC_1ARG(erf)
+DEF_STD_FUNC_1ARG(erfc)
+DEF_STD_FUNC_1ARG(tgamma)
+DEF_STD_FUNC_1ARG(lgamma)
+
+// Rounding and remainder functions
+DEF_STD_FUNC_1ARG(ceil)
+DEF_STD_FUNC_1ARG(floor)
+DEF_STD_FUNC_2ARG(fmod)
+DEF_STD_FUNC_1ARG(trunc)
+DEF_STD_FUNC_1ARG(round)
+DEF_STD_FUNC_1ARG(rint)
+DEF_STD_FUNC_1ARG(nearbyint)
+DEF_STD_FUNC_2ARG(remainder)
+
+// Minimum, maximum, difference functions
+DEF_STD_FUNC_2ARG(fdim)
+DEF_STD_FUNC_2ARG(fmax)
+DEF_STD_FUNC_2ARG(fmin)
+
+// Absolute value
+DEF_STD_FUNC_1ARG(fabs)
+
+// p-value
+auto chi2PValueVecFunc = [](const double arg[2])
+{
+    return gsl_cdf_chisq_Q(arg[0], arg[1]);
+};
+
+DoubleFunction MATH_NAMESPACE::chi2PValue(chi2PValueVecFunc, 2);