2 * mono-complex.h: C99 Complex math cross-platform support code
5 * Joao Matos (joao.matos@xamarin.com)
7 * Copyright 2015 Xamarin, Inc (http://www.xamarin.com)
13 #if !defined (HAVE_COMPLEX_H)
14 #include <../../support/libm/complex.h>
19 #define _USE_MATH_DEFINES // needed by MSVC to define math constants
24 #define double_complex _C_double_complex
27 double_complex mono_double_complex_make(gdouble re, gdouble im)
29 return _Cbuild (re, im);
33 double_complex mono_double_complex_scalar_div(double_complex c, gdouble s)
35 return mono_double_complex_make(creal(c) / s, cimag(c) / s);
39 double_complex mono_double_complex_scalar_mul(double_complex c, gdouble s)
41 return mono_double_complex_make(creal(c) * s, cimag(c) * s);
45 double_complex mono_double_complex_div(double_complex left, double_complex right)
47 double denom = creal(right) * creal(right) + cimag(right) * cimag(right);
49 return mono_double_complex_make(
50 (creal(left) * creal(right) + cimag(left) * cimag(right)) / denom,
51 (-creal(left) * cimag(right) + cimag(left) * creal(right)) / denom);
55 double_complex mono_double_complex_sub(double_complex left, double_complex right)
57 return mono_double_complex_make(creal(left) - creal(right), cimag(left)
63 #define double_complex double complex
66 double_complex mono_double_complex_make(gdouble re, gdouble im)
72 double_complex mono_double_complex_scalar_div(double_complex c, gdouble s)
78 double_complex mono_double_complex_scalar_mul(double_complex c, gdouble s)
84 double_complex mono_double_complex_div(double_complex left, double_complex right)
90 double_complex mono_double_complex_sub(double_complex left, double_complex right)