dominik_egert/MQLplus
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
MQLplus/lib_addons/lib_math_simple.mqh

563 lines
33 KiB
MQL5
Raw Permalink Normal View History

convert
2025-05-30 16:09:52 +02:00
#ifndef LIB_MATH_SIMPLE_MQH_INCLUDED
#define LIB_MATH_SIMPLE_MQH_INCLUDED
#property version "1.9";
/**********************************************************************************
* Copyright (C) 2010-2022 Dominik Egert <info@freie-netze.de>
*
* This file is the simple math include file.
*
* MQLplus, including this file may not be copied and/or distributed
* without explecit permit by the author.
* Author Dominik Egert / Freie Netze UG.
**********************************************************************************
*
* Version: 1.9
* State: production
*
* File information
* ================
*
* Use: A collection of math functions
*
*
*
*
*/
#ifdef DBG_MSG_TRACE_FILE_LOADER
DBG_MSG_TRACE_FILE_LOADER;
#endif
/////////////////////////////////////////
//
// Set function shadowing mode
//
#ifdef LIB_MQLPLUS_API_FUNCTION_SHADOWING
#define LIB_MATHSIMPLE_API_FUNCTION_SHADOWING
#endif
#ifdef LIB_MQLPLUS_BINARY_LIBRARY
#define LIB_MATHSIMPLE_API_FORCE_DISABLE_FUNCTION_SHADOWING
#endif
#ifdef LIB_MATHSIMPLE_API_FORCE_DISABLE_FUNCTION_SHADOWING
#ifdef LIB_MATHSIMPLE_API_FUNCTION_SHADOWING
#undef LIB_MATHSIMPLE_API_FUNCTION_SHADOWING
#endif
#endif
/*********************************************************************************************************************************************************/
/* */
/* MQLplus math definitions */
/* */
/*********************************************************************************************************************************************************/
/////////////////////////////////////
//
// Math constants
//
#define M_CONST_M_GR 1.61803398874989484820458683436563811772030917980576286213544862270526046281890
#define M_CONST_M_DIV1_GR 0.61803398874989484820458683436563811772030917980576286213544862270526046281890
#define M_CONST_M_PHI M_CONST_M_GR
#define M_CONST_M_DIV1_PHI M_CONST_M_DIV1_GR
/////////////////////////////////////
//
// Double and float macros
// and definitions
//
#define M_CONST_FLT_SNAN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_snan).f)
#define M_CONST_FLT_QNAN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_qnan).f)
#define M_CONST_FLT_NAN M_CONST_FLT_QNAN
#define M_CONST_FLT_INF_POS LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_inf_pos).f)
#define M_CONST_FLT_INF_NEG LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_inf_neg).f)
#define M_CONST_FLT_INF M_CONST_FLT_INF_POS
#define M_CONST_FLT_MIN_NEG LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_f_neg).f)
#define M_CONST_FLT_MAX_NEG -3.40282346638528859812e+38
#define M_CONST_DBL_INF_POS LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_inf_pos).d)
#define M_CONST_DBL_INF_NEG LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_inf_neg).d)
#define M_CONST_DBL_INF M_CONST_DBL_INF_POS
#define M_CONST_DBL_SNAN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_snan).d)
#define M_CONST_DBL_QNAN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_qnan).d)
#define M_CONST_DBL_NAN M_CONST_DBL_QNAN
#define M_CONST_DBL_MIN_NEG LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_f_neg).d)
#define M_CONST_DBL_MAX_NEG -1.79769313486231570815e+308
#define FLT_IS_SNAN(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_snan).ui)))
#define FLT_IS_QNAN(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_qnan).ui)))
#define FLT_IS_NAN(x) (FLT_IS_QNAN(x) || FLT_IS_SNAN(x))
#define FLT_IS_INF_POS(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_inf_pos).ui)))
#define FLT_IS_INF_NEG(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_inf_neg).ui)))
#define FLT_IS_INF(x) (FLT_IS_INF_POS(x) || FLT_IS_INF_NEG(x))
#define FLT_IS_NUMBER(x) (!(FLT_IS_NAN(x)) && !(FLT_IS_INF(x)))
#define DBL_IS_SNAN(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_snan).ul)))
#define DBL_IS_QNAN(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_qnan).ul)))
#define DBL_IS_NAN(x) (DBL_IS_QNAN(x) || DBL_IS_SNAN(x))
#define DBL_IS_INF_POS(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_inf_pos).ul)))
#define DBL_IS_INF_NEG(x) LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_cmp_invalid)(x, LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_inf_neg).ul)))
#define DBL_IS_INF(x) (DBL_IS_INF_POS(x) || DBL_IS_INF_NEG(x))
#define DBL_IS_NUMBER(x) (!(DBL_IS_NAN(x)) && !(DBL_IS_INF(x)))
#define M_CONST_MATH_NaN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_qnan).d)
#define M_CONST_MATH_INF LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_inf_pos).d)
#define M_CONST_FLT_NULL_P FLT_MIN
#define M_CONST_FLT_NULL_N LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, flt_f_neg).f)
#define M_CONST_DBL_NULL_P DBL_MIN
#define M_CONST_DBL_NULL_N LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, dbl_f_neg).d)
/////////////////////////////////////
//
// Additional definitions
//
#define CHAR_MAX_NEG CHAR_MIN
#define SHORT_MAX_NEG SHORT_MIN
#define INT_MAX_NEG INT_MIN
#define LONG_MAX_NEG LONG_MIN
#define _UI64_MAX LONG_MAX
#define _I64_MIN LONG_MAX_NEG
#define _UI32_MAX INT_MAX
#define _I32_MIN INT_MAX_NEG
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//
// Simple macro substitutions
//
// Boolean evaluation
#define inline_BooleanInteger(x) ((x) ? 0x01 : NULL)
#define inline_BooleanFloat(x) ((x) ? 1.0 : NULL)
#define inline_BooleanDouble(x) ((x) ? 1.0 : NULL)
// MathMax
#define inline_MathMax(value1, value2) ((value1 > value2) ? value1 : value2)
// MathMin
#define inline_MathMin(value1, value2) ((value1 < value2) ? value1 : value2)
// MathMinNN not null
#define inline_MathMinNN(value1, value2) (((value1 < value2) && (value1 != NULL) ? value1 : ((value2 == NULL) ? value1 : value2)))
// MathRange()
#define inline_MathRange(v, x, y) ((v <= x) ? x : ((v >= y) ? y : v))
#define inline_MathRangeX(v, x, y) ((v < x) ? x : ((v > y) ? y : v))
// MathDigits
#define inline_MathDigits(value) ((int)(::MathRound(::MathAbs(::MathLog10((double)(value))))))
// MathAbs
#define inline_MathAbs(value) (value * ((value < NULL) ? -1 : 1))
// MathNeg
#define inline_MathNeg(value) (value * ((value > NULL) ? -1 : 1))
// Can given value be evaluated to be zero
#ifdef LIB_MQLPLUS_EMPTY_VALUE
#define inline_MathIsZeroDouble(value) (double)( ((value <= NULL_P) && (value >= NULL_N)) || (value == LIB_MQLPLUS_EMPTY_VALUE) || (value == EMPTY_VALUE) || (value == MATH_NaN) )
#else
#define inline_MathIsZeroDouble(value) (double)( ((value <= NULL_P) && (value >= NULL_N)) || (value == EMPTY_VALUE) || (value == MATH_NaN) )
#endif
// Can given value be evaluated to be zero
#ifdef LIB_MQLPLUS_EMPTY_VALUE
#define inline_MathIsZeroInteger(value) (ulong)(((long)value == (long)0x0000000000000000) || ((long)value == ((long)0x8000000000000000)) || ((ulong)value == (ulong)LIB_MQLPLUS_EMPTY_VALUE) || ((ulong)value == (ulong)EMPTY_VALUE))
#else
#define inline_MathIsZeroInteger(value) (ulong)(((long)value == (long)0x0000000000000000) || ((long)value == ((long)0x8000000000000000)) || ((ulong)value == (ulong)EMPTY_VALUE))
#endif
// RoundPow2
#define inline_MathRoundPow2(x) ( ( (((((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) | ((((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) >> 4)) \
| (((((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) | ((((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) >> 4)) >> 8)) \
| ( (( (((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) | ((((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) >> 4)) \
| (((((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) | ((((x - 1) | ((x - 1) >> 1)) | (((x - 1) | ((x - 1) >> 1)) >> 2)) >> 4)) >> 8)) >> 16)) + 1)
//
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////
//
// Include main code
//
#ifndef LIB_MQLPLUS_IMPORT_SHARED_LIBRARY
#include "math_simple/lib_math_simple_main.mqh"
#endif
//////////////////////////////////
//
// Include math simple functions
//
#ifdef LIB_MQLPLUS_IMPORT_SHARED_LIBRARY
#include "math_simple/lib_math_simple_functions.mqh"
#endif
//////////////////////////////////
//
// Include tpl extensions
//
#include "math_simple/lib_math_simple_tpl.mqh"
/////////////////////////////////////
//
// Technical value definitions
//
#include <MQLplus/lib_structures/lib_unions.mqh>
#ifndef __MQL4_COMPATIBILITY_CODE__
namespace LIB_MQLPLUS_LIBRARY_PREFIX {
namespace numbers {
#endif
static const _32_bit LIB_NAMESPACE_DEF(numbers, flt_inf_neg) = (uint)0xFF800000;
static const _32_bit LIB_NAMESPACE_DEF(numbers, flt_inf_pos) = (uint)0x7F800000;
static const _32_bit LIB_NAMESPACE_DEF(numbers, flt_snan) = (uint)0xFF800001;
static const _32_bit LIB_NAMESPACE_DEF(numbers, flt_qnan) = (uint)0xFFC00001;
static const _32_bit LIB_NAMESPACE_DEF(numbers, flt_f_neg) = (uint)0x70000001;
static const _64_bit LIB_NAMESPACE_DEF(numbers, dbl_inf_neg) = (ulong)0xFFF0000000000000;
static const _64_bit LIB_NAMESPACE_DEF(numbers, dbl_inf_pos) = (ulong)0x7FF0000000000000;
static const _64_bit LIB_NAMESPACE_DEF(numbers, dbl_snan) = (ulong)0x7FF0000000000001;
static const _64_bit LIB_NAMESPACE_DEF(numbers, dbl_qnan) = (ulong)0x7FF8000000000001;
static const _64_bit LIB_NAMESPACE_DEF(numbers, dbl_f_neg) = (ulong)0x8010000000000000;
#ifndef __MQL4_COMPATIBILITY_CODE__
}; // END Namespace numbers
}; // END Namespace LIB_MQLPLUS_LIBRARY_PREFIX
#endif
//////////////////////////////////
//
// Constants definitions
//
#ifdef LIB_DEBUG
const static double M_GR = M_CONST_M_GR;
const static double M_DIV1_GR = M_CONST_M_DIV1_GR;
const static double M_PHI = M_CONST_M_PHI;
const static double M_DIV1_PHI = M_CONST_M_DIV1_PHI;
const static double FLT_SNAN = M_CONST_FLT_SNAN;
const static double FLT_QNAN = M_CONST_FLT_QNAN;
const static double FLT_NAN = M_CONST_FLT_NAN;
const static double FLT_INF_POS = M_CONST_FLT_INF_POS;
const static double FLT_INF_NEG = M_CONST_FLT_INF_NEG;
const static double FLT_INF = M_CONST_FLT_INF;
const static double FLT_MIN_NEG = M_CONST_FLT_MIN_NEG;
const static double FLT_MAX_NEG = M_CONST_FLT_MAX_NEG;
const static double DBL_INF_POS = M_CONST_DBL_INF_POS;
const static double DBL_INF_NEG = M_CONST_DBL_INF_NEG;
const static double DBL_INF = M_CONST_DBL_INF;
const static double DBL_SNAN = M_CONST_DBL_SNAN;
const static double DBL_QNAN = M_CONST_DBL_QNAN;
const static double DBL_NAN = M_CONST_DBL_NAN;
const static double DBL_MIN_NEG = M_CONST_DBL_MIN_NEG;
const static double DBL_MAX_NEG = M_CONST_DBL_MAX_NEG;
const static double MATH_NaN = M_CONST_MATH_NaN;
const static double MATH_INF = M_CONST_MATH_INF;
const static double FLT_NULL_P = M_CONST_FLT_NULL_P;
const static double FLT_NULL_N = M_CONST_FLT_NULL_N;
const static double DBL_NULL_P = M_CONST_DBL_NULL_P;
const static double DBL_NULL_N = M_CONST_DBL_NULL_N;
#else
#define M_GR M_CONST_M_GR
#define M_DIV1_GR M_CONST_M_DIV1_GR
#define M_PHI M_CONST_M_PHI
#define M_DIV1_PHI M_CONST_M_DIV1_PHI
#define FLT_SNAN M_CONST_FLT_SNAN
#define FLT_QNAN M_CONST_FLT_QNAN
#define FLT_NAN M_CONST_FLT_NAN
#define FLT_INF_POS M_CONST_FLT_INF_POS
#define FLT_INF_NEG M_CONST_FLT_INF_NEG
#define FLT_INF M_CONST_FLT_INF
#define FLT_MIN_NEG M_CONST_FLT_MIN_NEG
#define FLT_MAX_NEG M_CONST_FLT_MAX_NEG
#define DBL_INF_POS M_CONST_DBL_INF_POS
#define DBL_INF_NEG M_CONST_DBL_INF_NEG
#define DBL_INF M_CONST_DBL_INF
#define DBL_SNAN M_CONST_DBL_SNAN
#define DBL_QNAN M_CONST_DBL_QNAN
#define DBL_NAN M_CONST_DBL_NAN
#define DBL_MIN_NEG M_CONST_DBL_MIN_NEG
#define DBL_MAX_NEG M_CONST_DBL_MAX_NEG
#define MATH_NaN M_CONST_MATH_NaN
#define MATH_INF M_CONST_MATH_INF
#define FLT_NULL_P M_CONST_FLT_NULL_P
#define FLT_NULL_N M_CONST_FLT_NULL_N
#define DBL_NULL_P M_CONST_DBL_NULL_P
#define DBL_NULL_N M_CONST_DBL_NULL_N
#endif
//////////////////////////////////
//
// Setup function macros
//
#ifdef LIB_MATHSIMPLE_API_FUNCTION_SHADOWING
#ifdef MathMax
#undef MathMax
#endif
#ifdef MathMin
#undef MathMin
#endif
#ifdef MathPow
#undef MathPow
#endif
#ifdef MathAbs
#undef MathAbs
#endif
#ifdef MathRound
#undef MathRound
#endif
#ifdef MathCeil
#undef MathCeil
#endif
#ifdef MathFloor
#undef MathFloor
#endif
#ifdef MathRand
#undef MathRand
#endif
#define MathMax LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathMax))
#define MathMin LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathMin))
#define MathPow LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathPow))
#define MathAbs LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathAbs))
#define MathRound LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRound))
#define MathCeil LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))
#define MathFloor LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))
#define MathRand LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRand))
#endif
#define MathMinNN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathMinNN))
#define MathRoot LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRoot))
#define MathRange LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRange))
#define MathRangeX LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRangeX))
#define MathRangeMatch LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRangeMatch))
#define MathRangeOverlap LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRangeOverlap))
#define MathDigits LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathDigits))
#define MathNeg LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathNeg))
#define MathRandN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRandN))
//#define MathRandX LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRandX))
#define MathZero LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathZero))
#define MathGreaterThan LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathGreaterThan))
#define MathLessThan LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathLessThan))
#define MathCompare LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCompare))
#define MathRoundPow2 LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRoundPow2))
#define MathFiboLevel LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFiboLevel))
#define MathUID LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathUID))
#define RTCdeltaMilliseconds LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_RTCdeltaMilliseconds))
#define RTCdeltaMicroseconds LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_RTCdeltaMicroseconds))
#ifdef LIB_MQLPLUS_IMPORT_SHARED_LIBRARY
#define mqp_MathMinNN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathMinNN))
#define mqp_MathRoot LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRoot))
#define mqp_MathRange LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRange))
#define mqp_MathRangeX LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRangeX))
#define mqp_MathRangeMatch LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRangeMatch))
#define mqp_MathRangeOverlap LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRangeOverlap))
#define mqp_MathDigits LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathDigits))
#define mqp_MathNeg LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathNeg))
#define mqp_MathRandN LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRandN))
#define mqp_MathRandX LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRandX))
#define mqp_MathZero LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathZero))
#define mqp_MathGreaterThan LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathGreaterThan))
#define mqp_MathLessThan LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathLessThan))
#define mqp_MathCompare LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCompare))
#define mqp_MathRoundPow2 LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRoundPow2))
#define mqp_MathFiboLevel LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFiboLevel))
#define mqp_MathUID LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathUID))
#define mqp_RTCdeltaMilliseconds LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_RTCdeltaMilliseconds))
#define mqp_RTCdeltaMicroseconds LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_RTCdeltaMicroseconds))
#endif
//////////////////////////////////
//
// Unit test function
//
void unit_test_math_simple()
{
#ifdef LIB_MATHSIMPLE_API_FUNCTION_SHADOWING
printf("MathMax(1, 20, 5) %-40s", StringFormat("= %i", MathMax(1, 20, 5) ));
printf("MathMin(1, 20, 4) %-40s", StringFormat("= %i", MathMin(1, 20, 4) ));
printf("MathPow(10, 2) %-40s", StringFormat("= %i", MathPow(10, 2) ));
printf("MathAbs(-1) %-40s", StringFormat("= %i", MathAbs(-1) ));
printf("MathRound(4) %-40s", StringFormat("= %i", MathRound(4) ));
printf("MathCeil(11, 0) %-40s", StringFormat("= %i", MathCeil(11, 0) ));
printf("MathFloor(26, 0) %-40s", StringFormat("= %i", MathFloor(26, 0) ));
uchar arr_A[];
MathRand(arr_A ,5);
printf("MathRand(arr_A ,5)");
ArrayPrint(arr_A);
#else
printf("MathMax(1.0, 20.0) %-40s", StringFormat("= %f", MathMax(1.0, 20.0) ));
printf("MathMin(1.0, 20.0) %-40s", StringFormat("= %f", MathMin(1.0, 20.0) ));
printf("MathPow(10.0, 2.0) %-40s", StringFormat("= %f", MathPow(10.0, 2.0) ));
printf("MathAbs(-1.0) %-40s", StringFormat("= %f", MathAbs(-1.0) ));
printf("MathRound(4.5) %-40s", StringFormat("= %f", MathRound(4.5) ));
printf("MathCeil(1.987654321) %-40s", StringFormat("= %f", MathCeil(1.987654321) ));
printf("MathFloor(2.123456789) %-40s", StringFormat("= %f", MathFloor(2.123456789) ));
printf("MathRand() %-40s", StringFormat("= %f", MathRand() ));
#endif
printf("mqp_MathMax(1, 20, 5) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathMax))(1, 20, 5) ));
printf("mqp_MathMin(1, 20, 4) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathMin))(1, 20, 4) ));
printf("mqp_MathPow(10, 2) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathPow))(10, 2) ));
printf("mqp_MathAbs(-1) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathAbs))(-1) ));
printf("mqp_MathRound(4) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRound))(4) ));
printf("mqp_MathRound(6) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRound))(6) ));
printf("mqp_MathCeil(11, 2) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))(11, 2) ));
printf("mqp_MathFloor(26, 2) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))(26, 2) ));
printf("mqp_MathCeil(11.5432, 2) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))(11.5432, 2)));
printf("mqp_MathCeil(11.5432, 1) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))(11.5432, 1)));
printf("mqp_MathCeil(11.4321, 1) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))(11.4321, 1)));
printf("mqp_MathCeil(11.4321, 0) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))(11.4321, 0)));
printf("mqp_MathCeil(11, -1) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))(11, -1) ));
printf("mqp_MathCeil(11, -2) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathCeil))(11, -2) ));
printf("mqp_MathFloor(11.5432, 2) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))(11.5432, 2)));
printf("mqp_MathFloor(11.5432, 1) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))(11.5432, 1)));
printf("mqp_MathFloor(11.4321, 1) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))(11.4321, 1)));
printf("mqp_MathFloor(11.4321, 0) %-40s", StringFormat("= %f", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))(11.4321, 0)));
printf("mqp_MathFloor(11, -1) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))(11, -1) ));
printf("mqp_MathFloor(11, -2) %-40s", StringFormat("= %i", LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathFloor))(11, -2) ));
uchar arr_B[];
LIB_NAMESPACE_ADD(LIB_NAMESPACE(numbers, _mqlplus_MathRand))(arr_B ,5);
printf("mqp_MathRand(arr_B ,5)");
ArrayPrint(arr_B);
printf("MathMinNN(3.0, 2.0, NULL) %-40s", StringFormat("= %f", MathMinNN(3.0, 2.0, NULL) ));
printf("MathRoot(9.0, 2.0) %-40s", StringFormat("= %f", MathRoot(9.0, 2.0) ));
printf("MathRange(2.5, 1.0, 3.0) %-40s", StringFormat("= %f", MathRange(2.5, 1.0, 3.0) ));
bool in_range = false;
printf("MathRangeX(2.5, 2.5, 1) %-40s", StringFormat("= %f; in range: %i", MathRangeX(2.5, 2.5, 1, in_range), in_range ));
printf("MathRangeMatch(1.0, 2.0, 1.5, 2.5) %-40s", StringFormat("= %i", MathRangeMatch(1.0, 2.0, 1.5, 2.5) ));
printf("MathRangeMatch(1.0, 2.0, 2.0, 2.5) %-40s", StringFormat("= %i", MathRangeMatch(1.0, 2.0, 2.0, 2.5) ));
printf("MathRangeOverlap(1.0, 2.0, 1.5, 2.5) %-40s", StringFormat("= %f", MathRangeOverlap(1.0, 2.0, 1.5, 2.5) ));
printf("MathRangeOverlap(1.0, 2.0, 2.0, 2.5) %-40s", StringFormat("= %f", MathRangeOverlap(1.0, 2.0, 2.0, 2.5) ));
printf("MathDigits(0.001) %-40s", StringFormat("= %f", MathDigits(0.001) ));
printf("MathNeg(4.5) %-40s", StringFormat("= %f", MathNeg(4.5) ));
printf("MathZero(NULL) %-40s", StringFormat("= %i", MathZero(0.0) ));
printf("MathZero(DBL_MIN) %-40s", StringFormat("= %i", MathZero(DBL_MIN) ));
printf("MathGreaterThan(3.0, 2.0, 2.1, 2.3, 2.5) %-40s", StringFormat("= %f", MathGreaterThan(3.0, 2.0, 2.1, 2.3, 2.5) ));
printf("MathLessThan(3.0, 2.0, 2.1, 2.3, 2.5) %-40s", StringFormat("= %f", MathLessThan(3.0, 2.0, 2.1, 2.3, 2.5) ));
printf("MathCompare(3.002, 3.004, 2) %-40s", StringFormat("= %i", MathCompare(3.004, 3.002, 2) ));
printf("MathCompare(3.004, 3.002, 3) %-40s", StringFormat("= %i", MathCompare(3.004, 3.002, 3) ));
printf("MathCompare(3.002, 3.003, 3) %-40s", StringFormat("= %i", MathCompare(3.002, 3.003, 3) ));
printf("MathRoundPow2(54) %-40s", StringFormat("= %f", MathRoundPow2(54) ));
printf("MathFiboLevel(10.0, true) %-40s", StringFormat("= %f", MathFiboLevel(10.0, true) ));
printf("MathFiboLevel(20.0, true) %-40s", StringFormat("= %f", MathFiboLevel(20.0, true) ));
printf("MathFiboLevel(30.0, true) %-40s", StringFormat("= %f", MathFiboLevel(30.0, true) ));
printf("MathFiboLevel(50.0, true) %-40s", StringFormat("= %f", MathFiboLevel(50.0, true) ));
printf("MathFiboLevel(90.0, true) %-40s", StringFormat("= %f", MathFiboLevel(90.0, true) ));
printf("MathFiboLevel(2) %-40s", StringFormat("= %f", MathFiboLevel(2) ));
printf("MathFiboLevel(3) %-40s", StringFormat("= %f", MathFiboLevel(3) ));
printf("MathFiboLevel(4) %-40s", StringFormat("= %f", MathFiboLevel(4) ));
printf("MathFiboLevel(5) %-40s", StringFormat("= %f", MathFiboLevel(5) ));
printf("MathFiboLevel(6) %-40s", StringFormat("= %f", MathFiboLevel(6) ));
printf("MathFiboLevel(7, 1.0, 2.0, false, true) %-40s", StringFormat("= %f", MathFiboLevel(7, 1.0, 2.0, false, true) ));
printf("MathFiboLevel(8, 1.0, 2.0, false, true) %-40s", StringFormat("= %f", MathFiboLevel(8, 1.0, 2.0, false, true) ));
printf("MathFiboLevel(9, 1.0, 2.0, false, true) %-40s", StringFormat("= %f", MathFiboLevel(9, 1.0, 2.0, false, true) ));
printf("MathFiboLevel(10, 1.0, 2.0, false, true) %-40s", StringFormat("= %f", MathFiboLevel(10, 1.0, 2.0, false, true) ));
printf("MathFiboLevel(11, 1.0, 2.0, false, true) %-40s", StringFormat("= %f", MathFiboLevel(11, 1.0, 2.0, false, true) ));
printf("MathFiboLevel(4, 2.0, 3.0, false, false) %-40s", StringFormat("= %f", MathFiboLevel(4, 1.0, 2.0, false, false) ));
printf("MathFiboLevel(5, 2.0, 3.0, false, false) %-40s", StringFormat("= %f", MathFiboLevel(5, 1.0, 2.0, false, false) ));
printf("MathFiboLevel(8, 2.0, 3.0, false, false) %-40s", StringFormat("= %f", MathFiboLevel(8, 1.0, 2.0, false, false) ));
printf("MathFiboLevel(9, 2.0, 3.0, false, false) %-40s", StringFormat("= %f", MathFiboLevel(9, 1.0, 2.0, false, false) ));
printf("MathFiboLevel(12, 2.0, 3.0, false, false) %-40s", StringFormat("= %f", MathFiboLevel(12, 1.0, 2.0, false, false) ));
printf("MathFiboLevel(4, 1.0, 1.5, true, false) %-40s", StringFormat("= %f", MathFiboLevel(4, 1.0, 1.5, true, false) ));
printf("MathFiboLevel(5, 1.0, 1.5, true, false) %-40s", StringFormat("= %f", MathFiboLevel(5, 1.0, 1.5, true, false) ));
printf("MathFiboLevel(8, 1.0, 1.5, true, false) %-40s", StringFormat("= %f", MathFiboLevel(8, 1.0, 1.5, true, false) ));
printf("MathFiboLevel(9, 1.0, 1.5, true, false) %-40s", StringFormat("= %f", MathFiboLevel(9, 1.0, 1.5, true, false) ));
printf("MathFiboLevel(12, 1.0, 1.5, true, false) %-40s", StringFormat("= %f", MathFiboLevel(12, 1.0, 1.5, true, false) ));
printf("MathUID() %-40s", StringFormat("= %llu", MathUID() ));
}
//
// END Simple math functions */
//*********************************************************************************************************************************************************/
#endif // LIB_MATH_SIMPLE_MQH_INCLUDED
Reference in a new issue Copy permalink