diff options
author | siddhu8990 | 2015-11-28 11:55:38 +0530 |
---|---|---|
committer | siddhu8990 | 2015-11-28 11:55:38 +0530 |
commit | 28917732a0c500c5db111ed49dbd7755758f5f72 (patch) | |
tree | 1951c56a3a9971445399724bfdbbfd23987646ef /src/c/elementaryFunctions/pow/zpows.c~ | |
parent | 21f458fb84f08fa6a76d07a45a66233ceac4d531 (diff) | |
download | scilab2c-28917732a0c500c5db111ed49dbd7755758f5f72.tar.gz scilab2c-28917732a0c500c5db111ed49dbd7755758f5f72.tar.bz2 scilab2c-28917732a0c500c5db111ed49dbd7755758f5f72.zip |
Merged 'master' with Mushir's work'
Diffstat (limited to 'src/c/elementaryFunctions/pow/zpows.c~')
-rw-r--r-- | src/c/elementaryFunctions/pow/zpows.c~ | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/src/c/elementaryFunctions/pow/zpows.c~ b/src/c/elementaryFunctions/pow/zpows.c~ deleted file mode 100644 index 1a7059b2..00000000 --- a/src/c/elementaryFunctions/pow/zpows.c~ +++ /dev/null @@ -1,28 +0,0 @@ -/* - * 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 - * - */ - -#include "pow.h" -#include "log.h" -#include "exp.h" - -doubleComplex zpows(doubleComplex z, doubleComplex power) { - /*Cas z=0 */ - if ( (zreals(z)==0) && (zimags(z)==0) ){ - /* Cas 0^0 */ - if ( (zreals(power)==0) && (zimags(power)==0) ) return DoubleComplex(1,0); - /* Cas 0^x, x!=0 */ - return DoubleComplex(0,0); - } - - /* Cas z!=0 */ - return zexps(zmuls(zlogs(z), power)); -} |