fluent编程帮助源码.zip_fluent_fluent udf_udf_源文件

/* * math.h * This file has no copyright assigned and is placed in the Public Domain. * This file is a part of the mingw-runtime package. * No warranty is given; refer to the file DISCLAIMER within the package. * * Mathematical functions. * */ #ifndef _MATH_H_ #define _MATH_H_ #if __GNUC__ >= 3 #pragma GCC system_header #endif /* All the headers include this file. */ #include <_mingw.h> /* * Types for the _exception structure. */ #define _DOMAIN 1 /* domain error in argument */ #define _SING 2 /* singularity */ #define _OVERFLOW 3 /* range overflow */ #define _UNDERFLOW 4 /* range underflow */ #define _TLOSS 5 /* total loss of precision */ #define _PLOSS 6 /* partial loss of precision */ /* * Exception types with non-ANSI names for compatibility. */ #ifndef __STRICT_ANSI__ #ifndef _NO_OLDNAMES #define DOMAIN _DOMAIN #define SING _SING #define OVERFLOW _OVERFLOW #define UNDERFLOW _UNDERFLOW #define TLOSS _TLOSS #define PLOSS _PLOSS #endif /* Not _NO_OLDNAMES */ #endif /* Not __STRICT_ANSI__ */ /* Traditional/XOPEN math constants (double precison) */ #ifndef __STRICT_ANSI__ #define M_E 2.7182818284590452354 #define M_LOG2E 1.4426950408889634074 #define M_LOG10E 0.43429448190325182765 #define M_LN2 0.69314718055994530942 #define M_LN10 2.30258509299404568402 #define M_PI 3.14159265358979323846 #define M_PI_2 1.57079632679489661923 #define M_PI_4 0.78539816339744830962 #define M_1_PI 0.31830988618379067154 #define M_2_PI 0.63661977236758134308 #define M_2_SQRTPI 1.12837916709551257390 #define M_SQRT2 1.41421356237309504880 #define M_SQRT1_2 0.70710678118654752440 #endif /* These are also defined in Mingw float.h; needed here as well to work around GCC build issues. */ #ifndef __STRICT_ANSI__ #ifndef __MINGW_FPCLASS_DEFINED #define __MINGW_FPCLASS_DEFINED 1 /* IEEE 754 classication */ #define _FPCLASS_SNAN 0x0001 /* Signaling "Not a Number" */ #define _FPCLASS_QNAN 0x0002 /* Quiet "Not a Number" */ #define _FPCLASS_NINF 0x0004 /* Negative Infinity */ #define _FPCLASS_NN 0x0008 /* Negative Normal */ #define _FPCLASS_ND 0x0010 /* Negative Denormal */ #define _FPCLASS_NZ 0x0020 /* Negative Zero */ #define _FPCLASS_PZ 0x0040 /* Positive Zero */ #define _FPCLASS_PD 0x0080 /* Positive Denormal */ #define _FPCLASS_PN 0x0100 /* Positive Normal */ #define _FPCLASS_PINF 0x0200 /* Positive Infinity */ #endif /* __MINGW_FPCLASS_DEFINED */ #endif /* Not __STRICT_ANSI__ */ #ifndef RC_INVOKED #ifdef __cplusplus extern "C" { #endif /* * HUGE_VAL is returned by strtod when the value would overflow the * representation of 'double'. There are other uses as well. * * __imp__HUGE is a pointer to the actual variable _HUGE in * MSVCRT.DLL. If we used _HUGE directly we would get a pointer * to a thunk function. * * NOTE: The CRTDLL version uses _HUGE_dll instead. */ #ifndef __DECLSPEC_SUPPORTED #ifdef __MSVCRT__ extern double* _imp___HUGE; #define HUGE_VAL (*_imp___HUGE) #else /* CRTDLL */ extern double* _imp___HUGE_dll; #define HUGE_VAL (*_imp___HUGE_dll) #endif #else /* __DECLSPEC_SUPPORTED */ #ifdef __MSVCRT__ __MINGW_IMPORT double _HUGE; #define HUGE_VAL _HUGE #else /* CRTDLL */ __MINGW_IMPORT double _HUGE_dll; #define HUGE_VAL _HUGE_dll #endif #endif /* __DECLSPEC_SUPPORTED */ struct _exception { int type; char *name; double arg1; double arg2; double retval; }; _CRTIMP double __cdecl sin (double); _CRTIMP double __cdecl cos (double); _CRTIMP double __cdecl tan (double); _CRTIMP double __cdecl sinh (double); _CRTIMP double __cdecl cosh (double); _CRTIMP double __cdecl tanh (double); _CRTIMP double __cdecl asin (double); _CRTIMP double __cdecl acos (double); _CRTIMP double __cdecl atan (double); _CRTIMP double __cdecl atan2 (double, double); _CRTIMP double __cdecl exp (double); _CRTIMP double __cdecl log (double); _CRTIMP double __cdecl log10 (double); _CRTIMP double __cdecl pow (double, double); _CRTIMP double __cdecl sqrt (double); _CRTIMP double __cdecl ceil (double); _CRTIMP double __cdecl floor (double); _CRTIMP double __cdecl fabs (double); _CRTIMP double __cdecl ldexp (double, int); _CRTIMP double __cdecl frexp (double, int*); _CRTIMP double __cdecl modf (double, double*); _CRTIMP double __cdecl fmod (double, double); /* Excess precision when using a 64-bit mantissa for FPU math ops can cause unexpected results with some of the MSVCRT math functions. For example, unless the function return value is stored (truncating to 53-bit mantissa), calls to pow with both x and y as integral values sometimes produce a non-integral result. One workaround is to reset the FPU env to 53-bit mantissa by a call to fesetenv (FE_PC53_ENV). Amother is to force storage of the return value of individual math functions using wrappers. NB, using these wrappers will disable builtin math functions and hence disable the folding of function results at compile time when arguments are constant. */ #if 0 #define __DEFINE_FLOAT_STORE_MATHFN_D1(fn1) \ static __inline__ double \ __float_store_ ## fn1 (double x) \ { \ __volatile__ double res = (fn1) (x); \ return res; \ } #define __DEFINE_FLOAT_STORE_MATHFN_D2(fn2) \ static __inline__ double \ __float_store_ ## fn2 (double x, double y) \ { \ __volatile__ double res = (fn2) (x, y); \ return res; \ } #endif /* For example, here is how to force the result of the pow function to be stored: */ #if 0 #undef pow /* Define the ___float_store_pow function and use it instead of pow(). */ __DEFINE_FLOAT_STORE_MATHFN_D2 (pow) #define pow __float_store_pow #endif #ifndef __STRICT_ANSI__ /* Complex number (for _cabs). This is the MS version. The ISO C99 counterpart _Complex is an intrinsic type in GCC and 'complex' is defined as a macro. See complex.h */ struct _complex { double x; /* Real part */ double y; /* Imaginary part */ }; _CRTIMP double __cdecl _cabs (struct _complex); _CRTIMP double __cdecl _hypot (double, double); _CRTIMP double __cdecl _j0 (double); _CRTIMP double __cdecl _j1 (double); _CRTIMP double __cdecl _jn (int, double); _CRTIMP double __cdecl _y0 (double); _CRTIMP double __cdecl _y1 (double); _CRTIMP double __cdecl _yn (int, double); _CRTIMP int __cdecl _matherr (struct _exception *); /* These are also declared in Mingw float.h; needed here as well to work around GCC build issues. */ /* BEGIN FLOAT.H COPY */ /* * IEEE recommended functions */ _CRTIMP double __cdecl _chgsign (double); _CRTIMP double __cdecl _copysign (double, double); _CRTIMP double __cdecl _logb (double); _CRTIMP double __cdecl _nextafter (double, double); _CRTIMP double __cdecl _scalb (double, long); _CRTIMP int __cdecl _finite (double); _CRTIMP int __cdecl _fpclass (double); _CRTIMP int __cdecl _isnan (double); /* END FLOAT.H COPY */ /* * Non-underscored versions of non-ANSI functions. * These reside in liboldnames.a. */ #if !defined (_NO_OLDNAMES) _CRTIMP double __cdecl j0 (double); _CRTIMP double __cdecl j1 (double); _CRTIMP double __cdecl jn (int, double); _CRTIMP double __cdecl y0 (double); _CRTIMP double __cdecl y1 (double); _CRTIMP double __cdecl yn (int, double); _CRTIMP double __cdecl chgsign (double); _CRTIMP double __cdecl scalb (double, long); _CRTIMP int __cdecl finite (double); _CRTIMP int __cdecl fpclass (double); #define FP_SNAN _FPCLASS_SNAN #define FP_QNAN _FPCLASS_QNAN #define FP_NINF _FPCLASS_NINF #define FP_PINF _FPCLASS_PINF #define FP_NDENORM _FPCLASS_ND #define FP_PDENORM _FPCLASS_PD #define FP_NZERO _FPCLASS_NZ #define FP_PZERO _FPCLASS_PZ #define FP_NNORM _FPCLASS_NN #define FP_PNORM _FPCLASS_PN #endif /* Not _NO_OLDNAMES */ /* This require msvcr70.dll or higher. */ #if __MSVCRT_VERSION__ >= 0x0700 _CRTIMP int __cdecl _set_SSE2_enable (int); #endif /* __MSVCRT_VERSION__ >= 0x0700 */ #endif /* __STRICT_ANSI__ */ #ifndef __NO_ISOCEXT #if (defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) \ || !defined __STRICT_ANSI__ || defined __cplusplus