Shuto Naruse / Mbed 2 deprecated Eurobot2012_Primary

Eurobot2012_Primary

Dependencies:   mbed Eurobot_2012_Primary

tvmet/VectorBinaryFunctions.h@26:0995f61cb7b8, 2012-10-17 (annotated)

Committer:
narshu
Date:
Wed Oct 17 22:22:47 2012 +0000
Revision:
26:0995f61cb7b8
Parent:
25:143b19c1fb05 
Eurobot 2012 Primary;

Who changed what in which revision?

UserRevisionLine numberNew contents of line
narshu 25:143b19c1fb05 1 /*
narshu 25:143b19c1fb05 2 * Tiny Vector Matrix Library
narshu 25:143b19c1fb05 3 * Dense Vector Matrix Libary of Tiny size using Expression Templates
narshu 25:143b19c1fb05 4 *
narshu 25:143b19c1fb05 5 * Copyright (C) 2001 - 2007 Olaf Petzold <opetzold@users.sourceforge.net>
narshu 25:143b19c1fb05 6 *
narshu 25:143b19c1fb05 7 * This library is free software; you can redistribute it and/or
narshu 25:143b19c1fb05 8 * modify it under the terms of the GNU Lesser General Public
narshu 25:143b19c1fb05 9 * License as published by the Free Software Foundation; either
narshu 25:143b19c1fb05 10 * version 2.1 of the License, or (at your option) any later version.
narshu 25:143b19c1fb05 11 *
narshu 25:143b19c1fb05 12 * This library is distributed in the hope that it will be useful,
narshu 25:143b19c1fb05 13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
narshu 25:143b19c1fb05 14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
narshu 25:143b19c1fb05 15 * Lesser General Public License for more details.
narshu 25:143b19c1fb05 16 *
narshu 25:143b19c1fb05 17 * You should have received a copy of the GNU Lesser General Public
narshu 25:143b19c1fb05 18 * License along with this library; if not, write to the Free Software
narshu 25:143b19c1fb05 19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
narshu 25:143b19c1fb05 20 *
narshu 25:143b19c1fb05 21 * $Id: VectorBinaryFunctions.h,v 1.17 2007-06-23 15:58:58 opetzold Exp $
narshu 25:143b19c1fb05 22 */
narshu 25:143b19c1fb05 23
narshu 25:143b19c1fb05 24 #ifndef TVMET_VECTOR_BINARY_FUNCTIONS_H
narshu 25:143b19c1fb05 25 #define TVMET_VECTOR_BINARY_FUNCTIONS_H
narshu 25:143b19c1fb05 26
narshu 25:143b19c1fb05 27 #include <tvmet/NumericTraits.h>
narshu 25:143b19c1fb05 28 #include <tvmet/Extremum.h>
narshu 25:143b19c1fb05 29
narshu 25:143b19c1fb05 30 namespace tvmet {
narshu 25:143b19c1fb05 31
narshu 25:143b19c1fb05 32
narshu 25:143b19c1fb05 33 /*********************************************************
narshu 25:143b19c1fb05 34 * PART I: DECLARATION
narshu 25:143b19c1fb05 35 *********************************************************/
narshu 25:143b19c1fb05 36
narshu 25:143b19c1fb05 37 /*
narshu 25:143b19c1fb05 38 * binary_function(Vector<T1, Sz>, Vector<T1, Sz>)
narshu 25:143b19c1fb05 39 * binary_function(Vector<T, Sz>, XprVector<E>)
narshu 25:143b19c1fb05 40 * binary_function(XprVector<E>, Vector<T, Sz>)
narshu 25:143b19c1fb05 41 */
narshu 25:143b19c1fb05 42 #define TVMET_DECLARE_MACRO(NAME) \
narshu 25:143b19c1fb05 43 template<class T1, class T2, std::size_t Sz> \
narshu 25:143b19c1fb05 44 inline \
narshu 25:143b19c1fb05 45 XprVector< \
narshu 25:143b19c1fb05 46 XprBinOp< \
narshu 25:143b19c1fb05 47 Fcnl_##NAME<T1, T2>, \
narshu 25:143b19c1fb05 48 VectorConstReference<T1, Sz>, \
narshu 25:143b19c1fb05 49 VectorConstReference<T2, Sz> \
narshu 25:143b19c1fb05 50 >, \
narshu 25:143b19c1fb05 51 Sz \
narshu 25:143b19c1fb05 52 > \
narshu 25:143b19c1fb05 53 NAME(const Vector<T1, Sz>& lhs, \
narshu 25:143b19c1fb05 54 const Vector<T2, Sz>& rhs) TVMET_CXX_ALWAYS_INLINE; \
narshu 25:143b19c1fb05 55 \
narshu 25:143b19c1fb05 56 template<class E, class T, std::size_t Sz> \
narshu 25:143b19c1fb05 57 inline \
narshu 25:143b19c1fb05 58 XprVector< \
narshu 25:143b19c1fb05 59 XprBinOp< \
narshu 25:143b19c1fb05 60 Fcnl_##NAME<typename E::value_type, T>, \
narshu 25:143b19c1fb05 61 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 62 XprVector<E, Sz> \
narshu 25:143b19c1fb05 63 >, \
narshu 25:143b19c1fb05 64 Sz \
narshu 25:143b19c1fb05 65 > \
narshu 25:143b19c1fb05 66 NAME(const XprVector<E, Sz>& lhs, \
narshu 25:143b19c1fb05 67 const Vector<T, Sz>& rhs) TVMET_CXX_ALWAYS_INLINE; \
narshu 25:143b19c1fb05 68 \
narshu 25:143b19c1fb05 69 template<class E, class T, std::size_t Sz> \
narshu 25:143b19c1fb05 70 inline \
narshu 25:143b19c1fb05 71 XprVector< \
narshu 25:143b19c1fb05 72 XprBinOp< \
narshu 25:143b19c1fb05 73 Fcnl_##NAME<T, typename E::value_type>, \
narshu 25:143b19c1fb05 74 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 75 XprVector<E, Sz> \
narshu 25:143b19c1fb05 76 >, \
narshu 25:143b19c1fb05 77 Sz \
narshu 25:143b19c1fb05 78 > \
narshu 25:143b19c1fb05 79 NAME(const Vector<T, Sz>& lhs, \
narshu 25:143b19c1fb05 80 const XprVector<E, Sz>& rhs) TVMET_CXX_ALWAYS_INLINE;
narshu 25:143b19c1fb05 81
narshu 25:143b19c1fb05 82 TVMET_DECLARE_MACRO(atan2)
narshu 25:143b19c1fb05 83 TVMET_DECLARE_MACRO(drem)
narshu 25:143b19c1fb05 84 TVMET_DECLARE_MACRO(fmod)
narshu 25:143b19c1fb05 85 TVMET_DECLARE_MACRO(hypot)
narshu 25:143b19c1fb05 86 TVMET_DECLARE_MACRO(jn)
narshu 25:143b19c1fb05 87 TVMET_DECLARE_MACRO(yn)
narshu 25:143b19c1fb05 88 TVMET_DECLARE_MACRO(pow)
narshu 25:143b19c1fb05 89 #if defined(TVMET_HAVE_COMPLEX)
narshu 25:143b19c1fb05 90 TVMET_DECLARE_MACRO(polar)
narshu 25:143b19c1fb05 91 #endif
narshu 25:143b19c1fb05 92
narshu 25:143b19c1fb05 93 #undef TVMET_DECLARE_MACRO
narshu 25:143b19c1fb05 94
narshu 25:143b19c1fb05 95
narshu 25:143b19c1fb05 96 /*
narshu 25:143b19c1fb05 97 * binary_function(Vector<T, Sz>, POD)
narshu 25:143b19c1fb05 98 */
narshu 25:143b19c1fb05 99 #define TVMET_DECLARE_MACRO(NAME, TP) \
narshu 25:143b19c1fb05 100 template<class T, std::size_t Sz> \
narshu 25:143b19c1fb05 101 inline \
narshu 25:143b19c1fb05 102 XprVector< \
narshu 25:143b19c1fb05 103 XprBinOp< \
narshu 25:143b19c1fb05 104 Fcnl_##NAME<T, TP >, \
narshu 25:143b19c1fb05 105 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 106 XprLiteral< TP > \
narshu 25:143b19c1fb05 107 >, \
narshu 25:143b19c1fb05 108 Sz \
narshu 25:143b19c1fb05 109 > \
narshu 25:143b19c1fb05 110 NAME(const Vector<T, Sz>& lhs, TP rhs) TVMET_CXX_ALWAYS_INLINE;
narshu 25:143b19c1fb05 111
narshu 25:143b19c1fb05 112 TVMET_DECLARE_MACRO(atan2, int)
narshu 25:143b19c1fb05 113 TVMET_DECLARE_MACRO(drem, int)
narshu 25:143b19c1fb05 114 TVMET_DECLARE_MACRO(fmod, int)
narshu 25:143b19c1fb05 115 TVMET_DECLARE_MACRO(hypot, int)
narshu 25:143b19c1fb05 116 TVMET_DECLARE_MACRO(jn, int)
narshu 25:143b19c1fb05 117 TVMET_DECLARE_MACRO(yn, int)
narshu 25:143b19c1fb05 118 TVMET_DECLARE_MACRO(pow, int)
narshu 25:143b19c1fb05 119
narshu 25:143b19c1fb05 120 #if defined(TVMET_HAVE_LONG_LONG)
narshu 25:143b19c1fb05 121 TVMET_DECLARE_MACRO(atan2, long long int)
narshu 25:143b19c1fb05 122 TVMET_DECLARE_MACRO(drem, long long int)
narshu 25:143b19c1fb05 123 TVMET_DECLARE_MACRO(fmod, long long int)
narshu 25:143b19c1fb05 124 TVMET_DECLARE_MACRO(hypot, long long int)
narshu 25:143b19c1fb05 125 TVMET_DECLARE_MACRO(jn, long long int)
narshu 25:143b19c1fb05 126 TVMET_DECLARE_MACRO(yn, long long int)
narshu 25:143b19c1fb05 127 TVMET_DECLARE_MACRO(pow, long long int)
narshu 25:143b19c1fb05 128 #endif // defined(TVMET_HAVE_LONG_LONG)
narshu 25:143b19c1fb05 129
narshu 25:143b19c1fb05 130 TVMET_DECLARE_MACRO(atan2, float)
narshu 25:143b19c1fb05 131 TVMET_DECLARE_MACRO(drem, float)
narshu 25:143b19c1fb05 132 TVMET_DECLARE_MACRO(fmod, float)
narshu 25:143b19c1fb05 133 TVMET_DECLARE_MACRO(hypot, float)
narshu 25:143b19c1fb05 134 TVMET_DECLARE_MACRO(jn, float)
narshu 25:143b19c1fb05 135 TVMET_DECLARE_MACRO(yn, float)
narshu 25:143b19c1fb05 136 TVMET_DECLARE_MACRO(pow, float)
narshu 25:143b19c1fb05 137
narshu 25:143b19c1fb05 138 TVMET_DECLARE_MACRO(atan2, double)
narshu 25:143b19c1fb05 139 TVMET_DECLARE_MACRO(drem, double)
narshu 25:143b19c1fb05 140 TVMET_DECLARE_MACRO(fmod, double)
narshu 25:143b19c1fb05 141 TVMET_DECLARE_MACRO(hypot, double)
narshu 25:143b19c1fb05 142 TVMET_DECLARE_MACRO(jn, double)
narshu 25:143b19c1fb05 143 TVMET_DECLARE_MACRO(yn, double)
narshu 25:143b19c1fb05 144 TVMET_DECLARE_MACRO(pow, double)
narshu 25:143b19c1fb05 145
narshu 25:143b19c1fb05 146 #if defined(TVMET_HAVE_LONG_DOUBLE)
narshu 25:143b19c1fb05 147 TVMET_DECLARE_MACRO(atan2, long double)
narshu 25:143b19c1fb05 148 TVMET_DECLARE_MACRO(drem, long double)
narshu 25:143b19c1fb05 149 TVMET_DECLARE_MACRO(fmod, long double)
narshu 25:143b19c1fb05 150 TVMET_DECLARE_MACRO(hypot, long double)
narshu 25:143b19c1fb05 151 TVMET_DECLARE_MACRO(jn, long double)
narshu 25:143b19c1fb05 152 TVMET_DECLARE_MACRO(yn, long double)
narshu 25:143b19c1fb05 153 TVMET_DECLARE_MACRO(pow, long double)
narshu 25:143b19c1fb05 154 #endif // defined(TVMET_HAVE_LONG_DOUBLE)
narshu 25:143b19c1fb05 155
narshu 25:143b19c1fb05 156 #undef TVMET_DECLARE_MACRO
narshu 25:143b19c1fb05 157
narshu 25:143b19c1fb05 158
narshu 25:143b19c1fb05 159 /*
narshu 25:143b19c1fb05 160 * complex support
narshu 25:143b19c1fb05 161 */
narshu 25:143b19c1fb05 162
narshu 25:143b19c1fb05 163 #if defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH1)
narshu 25:143b19c1fb05 164 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 165 XprVector<
narshu 25:143b19c1fb05 166 XprBinOp<
narshu 25:143b19c1fb05 167 Fcnl_pow<T, std::complex<T> >,
narshu 25:143b19c1fb05 168 VectorConstReference<T, Sz>,
narshu 25:143b19c1fb05 169 XprLiteral< std::complex<T> >
narshu 25:143b19c1fb05 170 >,
narshu 25:143b19c1fb05 171 Sz
narshu 25:143b19c1fb05 172 >
narshu 25:143b19c1fb05 173 pow(const Vector<T, Sz>& lhs,
narshu 25:143b19c1fb05 174 const std::complex<T>& rhs) TVMET_CXX_ALWAYS_INLINE;
narshu 25:143b19c1fb05 175
narshu 25:143b19c1fb05 176
narshu 25:143b19c1fb05 177 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 178 XprVector<
narshu 25:143b19c1fb05 179 XprBinOp<
narshu 25:143b19c1fb05 180 Fcnl_pow<std::complex<T>, std::complex<T> >,
narshu 25:143b19c1fb05 181 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 182 XprLiteral< std::complex<T> >
narshu 25:143b19c1fb05 183 >,
narshu 25:143b19c1fb05 184 Sz
narshu 25:143b19c1fb05 185 >
narshu 25:143b19c1fb05 186 pow(const Vector<std::complex<T>, Sz>& lhs,
narshu 25:143b19c1fb05 187 const std::complex<T>& rhs) TVMET_CXX_ALWAYS_INLINE;
narshu 25:143b19c1fb05 188
narshu 25:143b19c1fb05 189
narshu 25:143b19c1fb05 190 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 191 XprVector<
narshu 25:143b19c1fb05 192 XprBinOp<
narshu 25:143b19c1fb05 193 Fcnl_pow<std::complex<T>, T>,
narshu 25:143b19c1fb05 194 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 195 XprLiteral<T>
narshu 25:143b19c1fb05 196 >,
narshu 25:143b19c1fb05 197 Sz
narshu 25:143b19c1fb05 198 >
narshu 25:143b19c1fb05 199 pow(const Vector<std::complex<T>, Sz>& lhs,
narshu 25:143b19c1fb05 200 const T& rhs) TVMET_CXX_ALWAYS_INLINE;
narshu 25:143b19c1fb05 201
narshu 25:143b19c1fb05 202
narshu 25:143b19c1fb05 203 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 204 XprVector<
narshu 25:143b19c1fb05 205 XprBinOp<
narshu 25:143b19c1fb05 206 Fcnl_pow<std::complex<T>, int>,
narshu 25:143b19c1fb05 207 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 208 XprLiteral<int>
narshu 25:143b19c1fb05 209 >,
narshu 25:143b19c1fb05 210 Sz
narshu 25:143b19c1fb05 211 >
narshu 25:143b19c1fb05 212 pow(const Vector<std::complex<T>, Sz>& lhs,
narshu 25:143b19c1fb05 213 int rhs) TVMET_CXX_ALWAYS_INLINE;
narshu 25:143b19c1fb05 214
narshu 25:143b19c1fb05 215
narshu 25:143b19c1fb05 216 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 217 XprVector<
narshu 25:143b19c1fb05 218 XprBinOp<
narshu 25:143b19c1fb05 219 Fcnl_polar<T, T>,
narshu 25:143b19c1fb05 220 VectorConstReference<T, Sz>,
narshu 25:143b19c1fb05 221 XprLiteral<T>
narshu 25:143b19c1fb05 222 >,
narshu 25:143b19c1fb05 223 Sz
narshu 25:143b19c1fb05 224 >
narshu 25:143b19c1fb05 225 polar(const Vector<T, Sz>& lhs, const T& rhs) TVMET_CXX_ALWAYS_INLINE;
narshu 25:143b19c1fb05 226
narshu 25:143b19c1fb05 227 #endif // defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH1)
narshu 25:143b19c1fb05 228
narshu 25:143b19c1fb05 229 #if defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH2)
narshu 25:143b19c1fb05 230 // to be written (atan2)
narshu 25:143b19c1fb05 231 #endif // defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH2)
narshu 25:143b19c1fb05 232
narshu 25:143b19c1fb05 233
narshu 25:143b19c1fb05 234 /*********************************************************
narshu 25:143b19c1fb05 235 * PART II: IMPLEMENTATION
narshu 25:143b19c1fb05 236 *********************************************************/
narshu 25:143b19c1fb05 237
narshu 25:143b19c1fb05 238 /*
narshu 25:143b19c1fb05 239 * binary_function(Vector<T1, Sz>, Vector<T1, Sz>)
narshu 25:143b19c1fb05 240 * binary_function(Vector<T, Sz>, XprVector<E>)
narshu 25:143b19c1fb05 241 * binary_function(XprVector<E>, Vector<T, Sz>)
narshu 25:143b19c1fb05 242 */
narshu 25:143b19c1fb05 243 #define TVMET_IMPLEMENT_MACRO(NAME) \
narshu 25:143b19c1fb05 244 template<class T1, class T2, std::size_t Sz> \
narshu 25:143b19c1fb05 245 inline \
narshu 25:143b19c1fb05 246 XprVector< \
narshu 25:143b19c1fb05 247 XprBinOp< \
narshu 25:143b19c1fb05 248 Fcnl_##NAME<T1, T2>, \
narshu 25:143b19c1fb05 249 VectorConstReference<T1, Sz>, \
narshu 25:143b19c1fb05 250 VectorConstReference<T2, Sz> \
narshu 25:143b19c1fb05 251 >, \
narshu 25:143b19c1fb05 252 Sz \
narshu 25:143b19c1fb05 253 > \
narshu 25:143b19c1fb05 254 NAME(const Vector<T1, Sz>& lhs, const Vector<T2, Sz>& rhs) { \
narshu 25:143b19c1fb05 255 typedef XprBinOp < \
narshu 25:143b19c1fb05 256 Fcnl_##NAME<T1, T2>, \
narshu 25:143b19c1fb05 257 VectorConstReference<T1, Sz>, \
narshu 25:143b19c1fb05 258 VectorConstReference<T2, Sz> \
narshu 25:143b19c1fb05 259 > expr_type; \
narshu 25:143b19c1fb05 260 return XprVector<expr_type, Sz>( \
narshu 25:143b19c1fb05 261 expr_type(lhs.const_ref(), rhs.const_ref())); \
narshu 25:143b19c1fb05 262 } \
narshu 25:143b19c1fb05 263 \
narshu 25:143b19c1fb05 264 template<class E, class T, std::size_t Sz> \
narshu 25:143b19c1fb05 265 inline \
narshu 25:143b19c1fb05 266 XprVector< \
narshu 25:143b19c1fb05 267 XprBinOp< \
narshu 25:143b19c1fb05 268 Fcnl_##NAME<typename E::value_type, T>, \
narshu 25:143b19c1fb05 269 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 270 XprVector<E, Sz> \
narshu 25:143b19c1fb05 271 >, \
narshu 25:143b19c1fb05 272 Sz \
narshu 25:143b19c1fb05 273 > \
narshu 25:143b19c1fb05 274 NAME(const XprVector<E, Sz>& lhs, const Vector<T, Sz>& rhs) { \
narshu 25:143b19c1fb05 275 typedef XprBinOp< \
narshu 25:143b19c1fb05 276 Fcnl_##NAME<typename E::value_type, T>, \
narshu 25:143b19c1fb05 277 XprVector<E, Sz>, \
narshu 25:143b19c1fb05 278 VectorConstReference<T, Sz> \
narshu 25:143b19c1fb05 279 > expr_type; \
narshu 25:143b19c1fb05 280 return XprVector<expr_type, Sz>( \
narshu 25:143b19c1fb05 281 expr_type(lhs, rhs.const_ref())); \
narshu 25:143b19c1fb05 282 } \
narshu 25:143b19c1fb05 283 \
narshu 25:143b19c1fb05 284 template<class E, class T, std::size_t Sz> \
narshu 25:143b19c1fb05 285 inline \
narshu 25:143b19c1fb05 286 XprVector< \
narshu 25:143b19c1fb05 287 XprBinOp< \
narshu 25:143b19c1fb05 288 Fcnl_##NAME<T, typename E::value_type>, \
narshu 25:143b19c1fb05 289 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 290 XprVector<E, Sz> \
narshu 25:143b19c1fb05 291 >, \
narshu 25:143b19c1fb05 292 Sz \
narshu 25:143b19c1fb05 293 > \
narshu 25:143b19c1fb05 294 NAME(const Vector<T, Sz>& lhs, const XprVector<E, Sz>& rhs) { \
narshu 25:143b19c1fb05 295 typedef XprBinOp< \
narshu 25:143b19c1fb05 296 Fcnl_##NAME<T, typename E::value_type>, \
narshu 25:143b19c1fb05 297 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 298 XprVector<E, Sz> \
narshu 25:143b19c1fb05 299 > expr_type; \
narshu 25:143b19c1fb05 300 return XprVector<expr_type, Sz>( \
narshu 25:143b19c1fb05 301 expr_type(lhs.const_ref(), rhs)); \
narshu 25:143b19c1fb05 302 }
narshu 25:143b19c1fb05 303
narshu 25:143b19c1fb05 304 TVMET_IMPLEMENT_MACRO(atan2)
narshu 25:143b19c1fb05 305 TVMET_IMPLEMENT_MACRO(drem)
narshu 25:143b19c1fb05 306 TVMET_IMPLEMENT_MACRO(fmod)
narshu 25:143b19c1fb05 307 TVMET_IMPLEMENT_MACRO(hypot)
narshu 25:143b19c1fb05 308 TVMET_IMPLEMENT_MACRO(jn)
narshu 25:143b19c1fb05 309 TVMET_IMPLEMENT_MACRO(yn)
narshu 25:143b19c1fb05 310 TVMET_IMPLEMENT_MACRO(pow)
narshu 25:143b19c1fb05 311 #if defined(TVMET_HAVE_COMPLEX)
narshu 25:143b19c1fb05 312 TVMET_IMPLEMENT_MACRO(polar)
narshu 25:143b19c1fb05 313 #endif
narshu 25:143b19c1fb05 314
narshu 25:143b19c1fb05 315 #undef TVMET_IMPLEMENT_MACRO
narshu 25:143b19c1fb05 316
narshu 25:143b19c1fb05 317
narshu 25:143b19c1fb05 318 /*
narshu 25:143b19c1fb05 319 * binary_function(Vector<T, Sz>, POD)
narshu 25:143b19c1fb05 320 */
narshu 25:143b19c1fb05 321 #define TVMET_IMPLEMENT_MACRO(NAME, TP) \
narshu 25:143b19c1fb05 322 template<class T, std::size_t Sz> \
narshu 25:143b19c1fb05 323 inline \
narshu 25:143b19c1fb05 324 XprVector< \
narshu 25:143b19c1fb05 325 XprBinOp< \
narshu 25:143b19c1fb05 326 Fcnl_##NAME<T, TP >, \
narshu 25:143b19c1fb05 327 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 328 XprLiteral< TP > \
narshu 25:143b19c1fb05 329 >, \
narshu 25:143b19c1fb05 330 Sz \
narshu 25:143b19c1fb05 331 > \
narshu 25:143b19c1fb05 332 NAME(const Vector<T, Sz>& lhs, TP rhs) { \
narshu 25:143b19c1fb05 333 typedef XprBinOp< \
narshu 25:143b19c1fb05 334 Fcnl_##NAME<T, TP >, \
narshu 25:143b19c1fb05 335 VectorConstReference<T, Sz>, \
narshu 25:143b19c1fb05 336 XprLiteral< TP > \
narshu 25:143b19c1fb05 337 > expr_type; \
narshu 25:143b19c1fb05 338 return XprVector<expr_type, Sz>( \
narshu 25:143b19c1fb05 339 expr_type(lhs.const_ref(), XprLiteral< TP >(rhs))); \
narshu 25:143b19c1fb05 340 }
narshu 25:143b19c1fb05 341
narshu 25:143b19c1fb05 342 TVMET_IMPLEMENT_MACRO(atan2, int)
narshu 25:143b19c1fb05 343 TVMET_IMPLEMENT_MACRO(drem, int)
narshu 25:143b19c1fb05 344 TVMET_IMPLEMENT_MACRO(fmod, int)
narshu 25:143b19c1fb05 345 TVMET_IMPLEMENT_MACRO(hypot, int)
narshu 25:143b19c1fb05 346 TVMET_IMPLEMENT_MACRO(jn, int)
narshu 25:143b19c1fb05 347 TVMET_IMPLEMENT_MACRO(yn, int)
narshu 25:143b19c1fb05 348 TVMET_IMPLEMENT_MACRO(pow, int)
narshu 25:143b19c1fb05 349
narshu 25:143b19c1fb05 350 #if defined(TVMET_HAVE_LONG_LONG)
narshu 25:143b19c1fb05 351 TVMET_IMPLEMENT_MACRO(atan2, long long int)
narshu 25:143b19c1fb05 352 TVMET_IMPLEMENT_MACRO(drem, long long int)
narshu 25:143b19c1fb05 353 TVMET_IMPLEMENT_MACRO(fmod, long long int)
narshu 25:143b19c1fb05 354 TVMET_IMPLEMENT_MACRO(hypot, long long int)
narshu 25:143b19c1fb05 355 TVMET_IMPLEMENT_MACRO(jn, long long int)
narshu 25:143b19c1fb05 356 TVMET_IMPLEMENT_MACRO(yn, long long int)
narshu 25:143b19c1fb05 357 TVMET_IMPLEMENT_MACRO(pow, long long int)
narshu 25:143b19c1fb05 358 #endif // defined(TVMET_HAVE_LONG_LONG)
narshu 25:143b19c1fb05 359
narshu 25:143b19c1fb05 360 TVMET_IMPLEMENT_MACRO(atan2, float)
narshu 25:143b19c1fb05 361 TVMET_IMPLEMENT_MACRO(drem, float)
narshu 25:143b19c1fb05 362 TVMET_IMPLEMENT_MACRO(fmod, float)
narshu 25:143b19c1fb05 363 TVMET_IMPLEMENT_MACRO(hypot, float)
narshu 25:143b19c1fb05 364 TVMET_IMPLEMENT_MACRO(jn, float)
narshu 25:143b19c1fb05 365 TVMET_IMPLEMENT_MACRO(yn, float)
narshu 25:143b19c1fb05 366 TVMET_IMPLEMENT_MACRO(pow, float)
narshu 25:143b19c1fb05 367
narshu 25:143b19c1fb05 368 TVMET_IMPLEMENT_MACRO(atan2, double)
narshu 25:143b19c1fb05 369 TVMET_IMPLEMENT_MACRO(drem, double)
narshu 25:143b19c1fb05 370 TVMET_IMPLEMENT_MACRO(fmod, double)
narshu 25:143b19c1fb05 371 TVMET_IMPLEMENT_MACRO(hypot, double)
narshu 25:143b19c1fb05 372 TVMET_IMPLEMENT_MACRO(jn, double)
narshu 25:143b19c1fb05 373 TVMET_IMPLEMENT_MACRO(yn, double)
narshu 25:143b19c1fb05 374 TVMET_IMPLEMENT_MACRO(pow, double)
narshu 25:143b19c1fb05 375
narshu 25:143b19c1fb05 376 #if defined(TVMET_HAVE_LONG_DOUBLE)
narshu 25:143b19c1fb05 377 TVMET_IMPLEMENT_MACRO(atan2, long double)
narshu 25:143b19c1fb05 378 TVMET_IMPLEMENT_MACRO(drem, long double)
narshu 25:143b19c1fb05 379 TVMET_IMPLEMENT_MACRO(fmod, long double)
narshu 25:143b19c1fb05 380 TVMET_IMPLEMENT_MACRO(hypot, long double)
narshu 25:143b19c1fb05 381 TVMET_IMPLEMENT_MACRO(jn, long double)
narshu 25:143b19c1fb05 382 TVMET_IMPLEMENT_MACRO(yn, long double)
narshu 25:143b19c1fb05 383 TVMET_IMPLEMENT_MACRO(pow, long double)
narshu 25:143b19c1fb05 384 #endif // defined(TVMET_HAVE_LONG_DOUBLE)
narshu 25:143b19c1fb05 385
narshu 25:143b19c1fb05 386 #undef TVMET_IMPLEMENT_MACRO
narshu 25:143b19c1fb05 387
narshu 25:143b19c1fb05 388
narshu 25:143b19c1fb05 389 /*
narshu 25:143b19c1fb05 390 * complex support
narshu 25:143b19c1fb05 391 */
narshu 25:143b19c1fb05 392
narshu 25:143b19c1fb05 393 #if defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH1)
narshu 25:143b19c1fb05 394 /**
narshu 25:143b19c1fb05 395 * \fn pow(const Vector<T, Sz>& lhs, const std::complex<T>& rhs)
narshu 25:143b19c1fb05 396 * \ingroup _binary_function
narshu 25:143b19c1fb05 397 */
narshu 25:143b19c1fb05 398 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 399 inline
narshu 25:143b19c1fb05 400 XprVector<
narshu 25:143b19c1fb05 401 XprBinOp<
narshu 25:143b19c1fb05 402 Fcnl_pow<T, std::complex<T> >,
narshu 25:143b19c1fb05 403 VectorConstReference<T, Sz>,
narshu 25:143b19c1fb05 404 XprLiteral< std::complex<T> >
narshu 25:143b19c1fb05 405 >,
narshu 25:143b19c1fb05 406 Sz
narshu 25:143b19c1fb05 407 >
narshu 25:143b19c1fb05 408 pow(const Vector<T, Sz>& lhs, const std::complex<T>& rhs) {
narshu 25:143b19c1fb05 409 typedef XprBinOp<
narshu 25:143b19c1fb05 410 Fcnl_pow<T, std::complex<T> >,
narshu 25:143b19c1fb05 411 VectorConstReference<T, Sz>,
narshu 25:143b19c1fb05 412 XprLiteral< std::complex<T> >
narshu 25:143b19c1fb05 413 > expr_type;
narshu 25:143b19c1fb05 414 return XprVector<expr_type, Sz>(
narshu 25:143b19c1fb05 415 expr_type(lhs.const_ref(), XprLiteral< std::complex<T> >(rhs)));
narshu 25:143b19c1fb05 416 }
narshu 25:143b19c1fb05 417
narshu 25:143b19c1fb05 418
narshu 25:143b19c1fb05 419 /**
narshu 25:143b19c1fb05 420 * \fn pow(const Vector<std::complex<T>, Sz>& lhs, const std::complex<T>& rhs)
narshu 25:143b19c1fb05 421 * \ingroup _binary_function
narshu 25:143b19c1fb05 422 */
narshu 25:143b19c1fb05 423 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 424 inline
narshu 25:143b19c1fb05 425 XprVector<
narshu 25:143b19c1fb05 426 XprBinOp<
narshu 25:143b19c1fb05 427 Fcnl_pow<std::complex<T>, std::complex<T> >,
narshu 25:143b19c1fb05 428 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 429 XprLiteral< std::complex<T> >
narshu 25:143b19c1fb05 430 >,
narshu 25:143b19c1fb05 431 Sz
narshu 25:143b19c1fb05 432 >
narshu 25:143b19c1fb05 433 pow(const Vector<std::complex<T>, Sz>& lhs, const std::complex<T>& rhs) {
narshu 25:143b19c1fb05 434 typedef XprBinOp<
narshu 25:143b19c1fb05 435 Fcnl_pow<std::complex<T>, std::complex<T> >,
narshu 25:143b19c1fb05 436 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 437 XprLiteral< std::complex<T> >
narshu 25:143b19c1fb05 438 > expr_type;
narshu 25:143b19c1fb05 439 return XprVector<expr_type, Sz>(
narshu 25:143b19c1fb05 440 expr_type(lhs.const_ref(), XprLiteral< std::complex<T> >(rhs)));
narshu 25:143b19c1fb05 441 }
narshu 25:143b19c1fb05 442
narshu 25:143b19c1fb05 443
narshu 25:143b19c1fb05 444 /**
narshu 25:143b19c1fb05 445 * \fn pow(const Vector<std::complex<T>, Sz>& lhs, const T& rhs)
narshu 25:143b19c1fb05 446 * \ingroup _binary_function
narshu 25:143b19c1fb05 447 */
narshu 25:143b19c1fb05 448 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 449 inline
narshu 25:143b19c1fb05 450 XprVector<
narshu 25:143b19c1fb05 451 XprBinOp<
narshu 25:143b19c1fb05 452 Fcnl_pow<std::complex<T>, T>,
narshu 25:143b19c1fb05 453 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 454 XprLiteral<T>
narshu 25:143b19c1fb05 455 >,
narshu 25:143b19c1fb05 456 Sz
narshu 25:143b19c1fb05 457 >
narshu 25:143b19c1fb05 458 pow(const Vector<std::complex<T>, Sz>& lhs, const T& rhs) {
narshu 25:143b19c1fb05 459 typedef XprBinOp<
narshu 25:143b19c1fb05 460 Fcnl_pow<std::complex<T>, T>,
narshu 25:143b19c1fb05 461 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 462 XprLiteral<T>
narshu 25:143b19c1fb05 463 > expr_type;
narshu 25:143b19c1fb05 464 return XprVector<expr_type, Sz>(
narshu 25:143b19c1fb05 465 expr_type(lhs.const_ref(), XprLiteral<T>(rhs)));
narshu 25:143b19c1fb05 466 }
narshu 25:143b19c1fb05 467
narshu 25:143b19c1fb05 468
narshu 25:143b19c1fb05 469 /**
narshu 25:143b19c1fb05 470 * \fn pow(const Vector<std::complex<T>, Sz>& lhs, int rhs)
narshu 25:143b19c1fb05 471 * \ingroup _binary_function
narshu 25:143b19c1fb05 472 */
narshu 25:143b19c1fb05 473 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 474 inline
narshu 25:143b19c1fb05 475 XprVector<
narshu 25:143b19c1fb05 476 XprBinOp<
narshu 25:143b19c1fb05 477 Fcnl_pow<std::complex<T>, int>,
narshu 25:143b19c1fb05 478 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 479 XprLiteral<int>
narshu 25:143b19c1fb05 480 >,
narshu 25:143b19c1fb05 481 Sz
narshu 25:143b19c1fb05 482 >
narshu 25:143b19c1fb05 483 pow(const Vector<std::complex<T>, Sz>& lhs, int rhs) {
narshu 25:143b19c1fb05 484 typedef XprBinOp<
narshu 25:143b19c1fb05 485 Fcnl_pow<std::complex<T>, int>,
narshu 25:143b19c1fb05 486 VectorConstReference<std::complex<T>, Sz>,
narshu 25:143b19c1fb05 487 XprLiteral<int>
narshu 25:143b19c1fb05 488 > expr_type;
narshu 25:143b19c1fb05 489 return XprVector<expr_type, Sz>(
narshu 25:143b19c1fb05 490 expr_type(lhs.const_ref(), XprLiteral<int>(rhs)));
narshu 25:143b19c1fb05 491 }
narshu 25:143b19c1fb05 492
narshu 25:143b19c1fb05 493
narshu 25:143b19c1fb05 494 /**
narshu 25:143b19c1fb05 495 * \fn polar(const Vector<T, Sz>& lhs, const T& rhs)
narshu 25:143b19c1fb05 496 * \ingroup _binary_function
narshu 25:143b19c1fb05 497 */
narshu 25:143b19c1fb05 498 template<class T, std::size_t Sz>
narshu 25:143b19c1fb05 499 inline
narshu 25:143b19c1fb05 500 XprVector<
narshu 25:143b19c1fb05 501 XprBinOp<
narshu 25:143b19c1fb05 502 Fcnl_polar<T, T>,
narshu 25:143b19c1fb05 503 VectorConstReference<T, Sz>,
narshu 25:143b19c1fb05 504 XprLiteral<T>
narshu 25:143b19c1fb05 505 >,
narshu 25:143b19c1fb05 506 Sz
narshu 25:143b19c1fb05 507 >
narshu 25:143b19c1fb05 508 polar(const Vector<T, Sz>& lhs, const T& rhs) {
narshu 25:143b19c1fb05 509 typedef XprBinOp<
narshu 25:143b19c1fb05 510 Fcnl_polar<T, T>,
narshu 25:143b19c1fb05 511 VectorConstReference<T, Sz>,
narshu 25:143b19c1fb05 512 XprLiteral<T>
narshu 25:143b19c1fb05 513 > expr_type;
narshu 25:143b19c1fb05 514 return XprVector<expr_type, Sz>(
narshu 25:143b19c1fb05 515 expr_type(lhs.const_ref(), XprLiteral<T>(rhs)));
narshu 25:143b19c1fb05 516 }
narshu 25:143b19c1fb05 517 #endif // defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH1)
narshu 25:143b19c1fb05 518
narshu 25:143b19c1fb05 519 #if defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH2)
narshu 25:143b19c1fb05 520 // to be written (atan2)
narshu 25:143b19c1fb05 521 #endif // defined(TVMET_HAVE_COMPLEX) && defined(TVMET_HAVE_COMPLEX_MATH2)
narshu 25:143b19c1fb05 522
narshu 25:143b19c1fb05 523
narshu 25:143b19c1fb05 524 } // namespace tvmet
narshu 25:143b19c1fb05 525
narshu 25:143b19c1fb05 526 #endif // TVMET_VECTOR_BINARY_FUNCTIONS_H
narshu 25:143b19c1fb05 527
narshu 25:143b19c1fb05 528 // Local Variables:
narshu 25:143b19c1fb05 529 // mode:C++
narshu 25:143b19c1fb05 530 // tab-width:8
narshu 25:143b19c1fb05 531 // End: