summaryrefslogtreecommitdiff
path: root/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c
diff options
context:
space:
mode:
authorpmarecha2008-06-05 08:49:05 +0000
committerpmarecha2008-06-05 08:49:05 +0000
commit42659d6cdbe63972aea27baf0289db8fcc1310fa (patch)
tree05cc1eb42b985cf657be112ae5a2e842a13c2126 /src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c
parentc4ca26eb9d2bbe224e41fc40658279cb865c48fc (diff)
downloadscilab2c-42659d6cdbe63972aea27baf0289db8fcc1310fa.tar.gz
scilab2c-42659d6cdbe63972aea27baf0289db8fcc1310fa.tar.bz2
scilab2c-42659d6cdbe63972aea27baf0289db8fcc1310fa.zip
SVN is not FTP !
Diffstat (limited to 'src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c')
-rw-r--r--src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c31
1 files changed, 0 insertions, 31 deletions
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c
deleted file mode 100644
index 4e7b4dd3..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/zabss.c
+++ /dev/null
@@ -1,31 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007-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 <math.h>
-
-#include "abs.h"
-#include "sqrt.h"
-#include "max.h"
-#include "min.h"
-
-double zabss(doubleComplex in) {
- double real = dabss(zreals(in));
- double imag = dabss(zimags(in));
- double zMax = max(real, imag);
- double zMin = min(real, imag);
-
- if(zMin == 0)
- {
- return zMax;
- }
- return zMax * (dsqrts(1 + (zMin / zMax) * (zMin / zMax)));
-}