diff options
Diffstat (limited to '2.3-1/src/c/operations/division/crdivs.c')
| -rw-r--r-- | 2.3-1/src/c/operations/division/crdivs.c | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/2.3-1/src/c/operations/division/crdivs.c b/2.3-1/src/c/operations/division/crdivs.c new file mode 100644 index 00000000..f0d5c9bc --- /dev/null +++ b/2.3-1/src/c/operations/division/crdivs.c @@ -0,0 +1,38 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + * + */ + +#ifdef __STDC_VERSION__ +# ifndef STDC +# define STDC +# endif +# if __STDC_VERSION__ >= 199901L +# ifndef STDC99 +# define STDC99 +# endif +# endif +#endif + +#include "division.h" + +/* +** \function cdivides +** \brief Divide 2 Complex numbers. +*/ +floatComplex crdivs(floatComplex z1, floatComplex z2) { +#ifndef STDC99 + return FloatComplex((z1.real*z2.real + z1.imag*z2.imag) / (z2.real*z2.real + z2.imag* z2.imag), + (z1.imag*z2.real - z1.real*z2.imag) / (z2.real*z2.real + z2.imag* z2.imag)); +#else + return z1 / z2; +#endif +} + |