source: branches/2925_AutoDiffForDynamicalModels/HeuristicLab.ExtLibs/HeuristicLab.NativeInterpreter/0.1/NativeInterpreter-0.1/src/vector_operations.h @ 16892

Last change on this file since 16892 was 16892, checked in by gkronber, 7 months ago

#2925 merged r16661:16890 from trunk to branch

File size: 4.5 KB
Line 
1#ifndef VECTOR_OPERATIONS_H
2#define VECTOR_OPERATIONS_H
3
4#define _USE_MATH_DEFINES
5#include <cmath>
6#include <cstring>
7
8#ifdef USE_VDT
9#include "vdt/vdtMath.h"
10#include "vdt/stdwrap.h"
11#define hl_exp vdt::fast_exp
12#define hl_log vdt::fast_log
13#define hl_sin vdt::fast_sin
14#define hl_cos vdt::fast_cos
15#define hl_tan vdt::fast_tan
16#define hl_tanh vdt::fast_tanh
17#define hl_sqrt vdt::fast_sqrt
18#define hl_pow vdt::fast_pow
19#define hl_round vdt::fast_round
20#define hl_inv vdt::fast_inv
21#else
22#define hl_exp std::exp
23#define hl_log std::log
24#define hl_sin std::sin
25#define hl_cos std::cos
26#define hl_tan std::tan
27#define hl_tanh std::tanh
28#define hl_sqrt std::sqrt
29#define hl_pow std::pow
30#define hl_round std::round
31#define hl_inv(x) 1. / x;
32
33#endif
34
35constexpr int BATCHSIZE = 64;
36
37#define FOR(i) for(int i = 0; i < BATCHSIZE; ++i)
38
39// When auto-vectorizing without __restrict,
40// gcc and clang check for overlap (with a bunch of integer code)
41// before running the vectorized loop
42
43// vector - vector operations
44inline void load(double* __restrict a, double const * __restrict b) noexcept { std::memcpy(a, b, BATCHSIZE * sizeof(double)); }
45inline void add(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] += b[i]; }
46inline void sub(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] -= b[i]; }
47inline void mul(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] *= b[i]; }
48inline void div(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] /= b[i]; }
49inline void exp(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_exp(b[i]); }
50inline void log(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_log(b[i]); }
51inline void sin(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_sin(b[i]); }
52inline void cos(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_cos(b[i]); }
53inline void tan(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_tan(b[i]); }
54inline void tanh(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_tanh(b[i]); }
55inline void sqrt(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_sqrt(b[i]); }
56inline void pow(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_pow(a[i], hl_round(b[i])); };
57inline void root(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_pow(a[i], 1. / hl_round(b[i])); };
58inline void square(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_pow(b[i], 2.); };
59inline void inv(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = hl_inv(b[i]); }
60inline void neg(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = -b[i]; }
61inline void abs(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] = std::fabs(b[i]); }
62inline void analytical_quotient(double* __restrict a, double const * __restrict b) noexcept { FOR(i) a[i] /= hl_sqrt(b[i]*b[i] + 1.); }
63
64// vector - scalar operations
65inline void load(double* __restrict a, double s) noexcept { FOR(i) a[i] = s; }
66inline void add(double* __restrict a, double s) noexcept { FOR(i) a[i] += s; }
67inline void sub(double* __restrict a, double s) noexcept { FOR(i) a[i] -= s; }
68inline void mul(double* __restrict a, double s) noexcept { FOR(i) a[i] *= s; }
69inline void div(double* __restrict a, double s) noexcept { FOR(i) a[i] /= s; }
70inline void pow(double* __restrict dst, double const * __restrict src, double s) noexcept { FOR(i) dst[i] = hl_pow(src[i], s); }
71
72// vector operations
73inline void neg(double* __restrict a) noexcept { FOR(i) a[i] = -a[i]; }
74inline void inv(double* __restrict a) noexcept { FOR(i) a[i] = hl_inv(a[i]); }
75inline void exp(double* __restrict a) noexcept { FOR(i) a[i] = hl_exp(a[i]); }
76inline void log(double* __restrict a) noexcept { FOR(i) a[i] = hl_log(a[i]); }
77inline void sin(double* __restrict a) noexcept { FOR(i) a[i] = hl_sin(a[i]); }
78inline void cos(double* __restrict a) noexcept { FOR(i) a[i] = hl_cos(a[i]); }
79inline void tan(double* __restrict a) noexcept { FOR(i) a[i] = hl_tan(a[i]); }
80inline void tanh(double* __restrict a) noexcept { FOR(i) a[i] = hl_tanh(a[i]); }
81inline void round(double* __restrict a) noexcept { FOR(i) a[i] = hl_round(a[i]); }
82inline void square(double* __restrict a) noexcept { FOR(i) a[i] = hl_pow(a[i], 2.); }
83
84#undef FOR
85#endif
Note: See TracBrowser for help on using the repository browser.