| 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 */ |