| 1 | /** | 
 
 
 
 
 | 2 | * This file has no copyright assigned and is placed in the Public Domain. | 
 
 
 
 
 | 3 | * This file is part of the mingw-w64 runtime package. | 
 
 
 
 
 | 4 | * No warranty is given; refer to the file DISCLAIMER.PD within this package. | 
 
 
 
 
 | 5 | */ | 
 
 
 
 
 | 6 | /* | 
 
 
 
 
 | 7 | * complex.h | 
 
 
 
 
 | 8 | * | 
 
 
 
 
 | 9 | * This file is part of the Mingw32 package. | 
 
 
 
 
 | 10 | * | 
 
 
 
 
 | 11 | * Contributors: | 
 
 
 
 
 | 12 | *  Created by Danny Smith <dannysmith@users.sourceforge.net> | 
 
 
 
 
 | 13 | * | 
 
 
 
 
 | 14 | *  THIS SOFTWARE IS NOT COPYRIGHTED | 
 
 
 
 
 | 15 | * | 
 
 
 
 
 | 16 | *  This source code is offered for use in the public domain. You may | 
 
 
 
 
 | 17 | *  use, modify or distribute it freely. | 
 
 
 
 
 | 18 | * | 
 
 
 
 
 | 19 | *  This code is distributed in the hope that it will be useful but | 
 
 
 
 
 | 20 | *  WITHOUT ANY WARRANTY. ALL WARRANTIES, EXPRESS OR IMPLIED ARE HEREBY | 
 
 
 
 
 | 21 | *  DISCLAIMED. This includes but is not limited to warranties of | 
 
 
 
 
 | 22 | *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. | 
 
 
 
 
 | 23 | * | 
 
 
 
 
 | 24 | */ | 
 
 
 
 
 | 25 |  | 
 
 
 
 
 | 26 | #ifndef _COMPLEX_H_ | 
 
 
 
 
 | 27 | #define _COMPLEX_H_ | 
 
 
 
 
 | 28 |  | 
 
 
 
 
 | 29 | /* All the headers include this file. */ | 
 
 
 
 
 | 30 | #include <crtdefs.h> | 
 
 
 
 
 | 31 |  | 
 
 
 
 
 | 32 | /* These macros are specified by C99 standard */ | 
 
 
 
 
 | 33 |  | 
 
 
 
 
 | 34 | #ifndef __cplusplus | 
 
 
 
 
 | 35 | #define complex _Complex | 
 
 
 
 
 | 36 | #endif | 
 
 
 
 
 | 37 |  | 
 
 
 
 
 | 38 | #define _Complex_I  (__extension__  1.0iF) | 
 
 
 
 
 | 39 |  | 
 
 
 
 
 | 40 | /* GCC doesn't support _Imaginary type yet, so we don't | 
 
 
 
 
 | 41 | define _Imaginary_I */ | 
 
 
 
 
 | 42 |  | 
 
 
 
 
 | 43 | #define I _Complex_I | 
 
 
 
 
 | 44 |  | 
 
 
 
 
 | 45 | #ifdef __cplusplus | 
 
 
 
 
 | 46 | extern "C" { | 
 
 
 
 
 | 47 | #endif | 
 
 
 
 
 | 48 |  | 
 
 
 
 
 | 49 | #ifndef RC_INVOKED | 
 
 
 
 
 | 50 |  | 
 
 
 
 
 | 51 | double __MINGW_ATTRIB_CONST creal (double _Complex); | 
 
 
 
 
 | 52 | double __MINGW_ATTRIB_CONST cimag (double _Complex); | 
 
 
 
 
 | 53 | double __MINGW_ATTRIB_CONST carg (double _Complex); | 
 
 
 
 
 | 54 | double __MINGW_ATTRIB_CONST cabs (double _Complex) __MINGW_ATTRIB_DEPRECATED_MSVC2005; | 
 
 
 
 
 | 55 | double _Complex __MINGW_ATTRIB_CONST conj (double _Complex); | 
 
 
 
 
 | 56 | double _Complex  cacos (double _Complex); | 
 
 
 
 
 | 57 | double _Complex  casin (double _Complex); | 
 
 
 
 
 | 58 | double _Complex  catan (double _Complex); | 
 
 
 
 
 | 59 | double _Complex  ccos (double _Complex); | 
 
 
 
 
 | 60 | double _Complex  csin (double _Complex); | 
 
 
 
 
 | 61 | double _Complex  ctan (double _Complex); | 
 
 
 
 
 | 62 | double _Complex  cacosh (double _Complex); | 
 
 
 
 
 | 63 | double _Complex  casinh (double _Complex); | 
 
 
 
 
 | 64 | double _Complex  catanh (double _Complex); | 
 
 
 
 
 | 65 | double _Complex  ccosh (double _Complex); | 
 
 
 
 
 | 66 | double _Complex  csinh (double _Complex); | 
 
 
 
 
 | 67 | double _Complex  ctanh (double _Complex); | 
 
 
 
 
 | 68 | double _Complex  cexp (double _Complex); | 
 
 
 
 
 | 69 | double _Complex  clog (double _Complex); | 
 
 
 
 
 | 70 | #ifdef _GNU_SOURCE | 
 
 
 
 
 | 71 | double _Complex  clog10(double _Complex); | 
 
 
 
 
 | 72 | #endif  /* _GNU_SOURCE */ | 
 
 
 
 
 | 73 | double _Complex  cpow (double _Complex, double _Complex); | 
 
 
 
 
 | 74 | double _Complex  csqrt (double _Complex); | 
 
 
 
 
 | 75 | double _Complex __MINGW_ATTRIB_CONST cproj (double _Complex); | 
 
 
 
 
 | 76 |  | 
 
 
 
 
 | 77 | float __MINGW_ATTRIB_CONST crealf (float _Complex); | 
 
 
 
 
 | 78 | float __MINGW_ATTRIB_CONST cimagf (float _Complex); | 
 
 
 
 
 | 79 | float __MINGW_ATTRIB_CONST cargf (float _Complex); | 
 
 
 
 
 | 80 | float __MINGW_ATTRIB_CONST cabsf (float _Complex); | 
 
 
 
 
 | 81 | float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex); | 
 
 
 
 
 | 82 | float _Complex  cacosf (float _Complex); | 
 
 
 
 
 | 83 | float _Complex  casinf (float _Complex); | 
 
 
 
 
 | 84 | float _Complex  catanf (float _Complex); | 
 
 
 
 
 | 85 | float _Complex  ccosf (float _Complex); | 
 
 
 
 
 | 86 | float _Complex  csinf (float _Complex); | 
 
 
 
 
 | 87 | float _Complex  ctanf (float _Complex); | 
 
 
 
 
 | 88 | float _Complex  cacoshf (float _Complex); | 
 
 
 
 
 | 89 | float _Complex  casinhf (float _Complex); | 
 
 
 
 
 | 90 | float _Complex  catanhf (float _Complex); | 
 
 
 
 
 | 91 | float _Complex  ccoshf (float _Complex); | 
 
 
 
 
 | 92 | float _Complex  csinhf (float _Complex); | 
 
 
 
 
 | 93 | float _Complex  ctanhf (float _Complex); | 
 
 
 
 
 | 94 | float _Complex  cexpf (float _Complex); | 
 
 
 
 
 | 95 | float _Complex  clogf (float _Complex); | 
 
 
 
 
 | 96 | #ifdef _GNU_SOURCE | 
 
 
 
 
 | 97 | float _Complex  clog10f(float _Complex); | 
 
 
 
 
 | 98 | #endif  /* _GNU_SOURCE */ | 
 
 
 
 
 | 99 | float _Complex  cpowf (float _Complex, float _Complex); | 
 
 
 
 
 | 100 | float _Complex  csqrtf (float _Complex); | 
 
 
 
 
 | 101 | float _Complex __MINGW_ATTRIB_CONST cprojf (float _Complex); | 
 
 
 
 
 | 102 |  | 
 
 
 
 
 | 103 | long double __MINGW_ATTRIB_CONST creall (long double _Complex); | 
 
 
 
 
 | 104 | long double __MINGW_ATTRIB_CONST cimagl (long double _Complex); | 
 
 
 
 
 | 105 | long double __MINGW_ATTRIB_CONST cargl (long double _Complex); | 
 
 
 
 
 | 106 | long double __MINGW_ATTRIB_CONST cabsl (long double _Complex); | 
 
 
 
 
 | 107 | long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex); | 
 
 
 
 
 | 108 | long double _Complex  cacosl (long double _Complex); | 
 
 
 
 
 | 109 | long double _Complex  casinl (long double _Complex); | 
 
 
 
 
 | 110 | long double _Complex  catanl (long double _Complex); | 
 
 
 
 
 | 111 | long double _Complex  ccosl (long double _Complex); | 
 
 
 
 
 | 112 | long double _Complex  csinl (long double _Complex); | 
 
 
 
 
 | 113 | long double _Complex  ctanl (long double _Complex); | 
 
 
 
 
 | 114 | long double _Complex  cacoshl (long double _Complex); | 
 
 
 
 
 | 115 | long double _Complex  casinhl (long double _Complex); | 
 
 
 
 
 | 116 | long double _Complex  catanhl (long double _Complex); | 
 
 
 
 
 | 117 | long double _Complex  ccoshl (long double _Complex); | 
 
 
 
 
 | 118 | long double _Complex  csinhl (long double _Complex); | 
 
 
 
 
 | 119 | long double _Complex  ctanhl (long double _Complex); | 
 
 
 
 
 | 120 | long double _Complex  cexpl (long double _Complex); | 
 
 
 
 
 | 121 | long double _Complex  clogl (long double _Complex); | 
 
 
 
 
 | 122 | #ifdef _GNU_SOURCE | 
 
 
 
 
 | 123 | long double _Complex  clog10l(long double _Complex); | 
 
 
 
 
 | 124 | #endif  /* _GNU_SOURCE */ | 
 
 
 
 
 | 125 | long double _Complex  cpowl (long double _Complex, long double _Complex); | 
 
 
 
 
 | 126 | long double _Complex  csqrtl (long double _Complex); | 
 
 
 
 
 | 127 | long double _Complex __MINGW_ATTRIB_CONST cprojl (long double _Complex); | 
 
 
 
 
 | 128 |  | 
 
 
 
 
 | 129 | #ifdef __GNUC__ | 
 
 
 
 
 | 130 | #if !defined (__CRT__NO_INLINE) && defined (_MATH_H_) | 
 
 
 
 
 | 131 | /* double */ | 
 
 
 
 
 | 132 | __CRT_INLINE double __MINGW_ATTRIB_CONST creal (double _Complex _Z) | 
 
 
 
 
 | 133 | { | 
 
 
 
 
 | 134 | return __real__ _Z; | 
 
 
 
 
 | 135 | } | 
 
 
 
 
 | 136 |  | 
 
 
 
 
 | 137 | __CRT_INLINE double __MINGW_ATTRIB_CONST cimag (double _Complex _Z) | 
 
 
 
 
 | 138 | { | 
 
 
 
 
 | 139 | return __imag__ _Z; | 
 
 
 
 
 | 140 | } | 
 
 
 
 
 | 141 |  | 
 
 
 
 
 | 142 | __CRT_INLINE double _Complex __MINGW_ATTRIB_CONST conj (double _Complex _Z) | 
 
 
 
 
 | 143 | { | 
 
 
 
 
 | 144 | return __extension__ ~_Z; | 
 
 
 
 
 | 145 | } | 
 
 
 
 
 | 146 |  | 
 
 
 
 
 | 147 | __CRT_INLINE  double __MINGW_ATTRIB_CONST carg (double _Complex _Z) | 
 
 
 
 
 | 148 | { | 
 
 
 
 
 | 149 | return atan2 (__imag__ _Z, __real__ _Z); | 
 
 
 
 
 | 150 | } | 
 
 
 
 
 | 151 |  | 
 
 
 
 
 | 152 | __CRT_INLINE double __MINGW_ATTRIB_CONST cabs (double _Complex _Z) | 
 
 
 
 
 | 153 | { | 
 
 
 
 
 | 154 | return hypot (__real__ _Z, __imag__ _Z); | 
 
 
 
 
 | 155 | } | 
 
 
 
 
 | 156 |  | 
 
 
 
 
 | 157 | /* float */ | 
 
 
 
 
 | 158 | __CRT_INLINE float __MINGW_ATTRIB_CONST crealf (float _Complex _Z) | 
 
 
 
 
 | 159 | { | 
 
 
 
 
 | 160 | return __real__ _Z; | 
 
 
 
 
 | 161 | } | 
 
 
 
 
 | 162 |  | 
 
 
 
 
 | 163 | __CRT_INLINE float __MINGW_ATTRIB_CONST cimagf (float _Complex _Z) | 
 
 
 
 
 | 164 | { | 
 
 
 
 
 | 165 | return __imag__ _Z; | 
 
 
 
 
 | 166 | } | 
 
 
 
 
 | 167 |  | 
 
 
 
 
 | 168 | __CRT_INLINE float _Complex __MINGW_ATTRIB_CONST conjf (float _Complex _Z) | 
 
 
 
 
 | 169 | { | 
 
 
 
 
 | 170 | return __extension__ ~_Z; | 
 
 
 
 
 | 171 | } | 
 
 
 
 
 | 172 |  | 
 
 
 
 
 | 173 | __CRT_INLINE  float __MINGW_ATTRIB_CONST cargf (float _Complex _Z) | 
 
 
 
 
 | 174 | { | 
 
 
 
 
 | 175 | return atan2f (__imag__ _Z, __real__ _Z); | 
 
 
 
 
 | 176 | } | 
 
 
 
 
 | 177 |  | 
 
 
 
 
 | 178 | __CRT_INLINE float __MINGW_ATTRIB_CONST cabsf (float _Complex _Z) | 
 
 
 
 
 | 179 | { | 
 
 
 
 
 | 180 | return hypotf (__real__ _Z, __imag__ _Z); | 
 
 
 
 
 | 181 | } | 
 
 
 
 
 | 182 |  | 
 
 
 
 
 | 183 | /* long double */ | 
 
 
 
 
 | 184 | __CRT_INLINE long double __MINGW_ATTRIB_CONST creall (long double _Complex _Z) | 
 
 
 
 
 | 185 | { | 
 
 
 
 
 | 186 | return __real__ _Z; | 
 
 
 
 
 | 187 | } | 
 
 
 
 
 | 188 |  | 
 
 
 
 
 | 189 | __CRT_INLINE long double __MINGW_ATTRIB_CONST cimagl (long double _Complex _Z) | 
 
 
 
 
 | 190 | { | 
 
 
 
 
 | 191 | return __imag__ _Z; | 
 
 
 
 
 | 192 | } | 
 
 
 
 
 | 193 |  | 
 
 
 
 
 | 194 | __CRT_INLINE long double _Complex __MINGW_ATTRIB_CONST conjl (long double _Complex _Z) | 
 
 
 
 
 | 195 | { | 
 
 
 
 
 | 196 | return __extension__ ~_Z; | 
 
 
 
 
 | 197 | } | 
 
 
 
 
 | 198 |  | 
 
 
 
 
 | 199 | __CRT_INLINE  long double __MINGW_ATTRIB_CONST cargl (long double _Complex _Z) | 
 
 
 
 
 | 200 | { | 
 
 
 
 
 | 201 | return atan2l (__imag__ _Z, __real__ _Z); | 
 
 
 
 
 | 202 | } | 
 
 
 
 
 | 203 |  | 
 
 
 
 
 | 204 | __CRT_INLINE long double __MINGW_ATTRIB_CONST cabsl (long double _Complex _Z) | 
 
 
 
 
 | 205 | { | 
 
 
 
 
 | 206 | return hypotl (__real__ _Z, __imag__ _Z); | 
 
 
 
 
 | 207 | } | 
 
 
 
 
 | 208 | #endif /* !__CRT__NO_INLINE */ | 
 
 
 
 
 | 209 | #endif /* __GNUC__ */ | 
 
 
 
 
 | 210 |  | 
 
 
 
 
 | 211 |  | 
 
 
 
 
 | 212 | #endif /* RC_INVOKED */ | 
 
 
 
 
 | 213 |  | 
 
 
 
 
 | 214 | #ifdef __cplusplus | 
 
 
 
 
 | 215 | } | 
 
 
 
 
 | 216 | #endif | 
 
 
 
 
 | 217 |  | 
 
 
 
 
 | 218 | #endif /* _COMPLEX_H */ |