From b56c1d5508edf80f36c9a48e8806641f5cdf2cd8 Mon Sep 17 00:00:00 2001
From: jofret
Date: Tue, 28 Apr 2009 06:53:00 +0000
Subject: Moving source code
---
src/elementaryFunctions/int/testFloatInt.c | 149 -----------------------------
1 file changed, 149 deletions(-)
delete mode 100644 src/elementaryFunctions/int/testFloatInt.c
(limited to 'src/elementaryFunctions/int/testFloatInt.c')
diff --git a/src/elementaryFunctions/int/testFloatInt.c b/src/elementaryFunctions/int/testFloatInt.c
deleted file mode 100644
index 923ebf5b..00000000
--- a/src/elementaryFunctions/int/testFloatInt.c
+++ /dev/null
@@ -1,149 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008 - INRIA - Arnaud TORSET
- *
- * 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 <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include "int.h"
-
-static void sintsTest(void) {
-
- assert ((fabs( sints(-2) - (-2))/fabs(sints(-2)))<1e-16);
- assert ((fabs( sints(-1.9f) - (-1))/fabs(sints(-1.9f)))<1e-16);
- assert ((fabs( sints(-1.8f) - (-1))/fabs(sints(-1.8f)))<1e-16);
- assert ((fabs( sints(-1.7f) - (-1))/fabs(sints(-1.7f)))<1e-16);
- assert ((fabs( sints(-1.6f) - (-1))/fabs(sints(-1.6f)))<1e-16);
- assert ((fabs( sints(-1.5f) - (-1))/fabs(sints(-1.5f)))<1e-16);
- assert ((fabs( sints(-1.4f) - (-1))/fabs(sints(-1.4f)))<1e-16);
- assert ((fabs( sints(-1.3f) - (-1))/fabs(sints(-1.3f)))<1e-16);
- assert ((fabs( sints(-1.2f) - (-1))/fabs(sints(-1.2f)))<1e-16);
- assert ((fabs( sints(-1.1f) - (-1))/fabs(sints(-1.1f)))<1e-16);
- assert ((fabs( sints(-1.0f) - (-1))/fabs(sints(-1.0f)))<1e-16);
- assert (fabs( sints(-.9f))<1e-16);
- assert ((fabs( sints(1.0f) - (1))/fabs(sints(1.0f)))<1e-16);
- assert ((fabs( sints(1.1f) - (1))/fabs(sints(1.1f)))<1e-16);
- assert ((fabs( sints(1.2f) - (1))/fabs(sints(1.2f)))<1e-16);
- assert ((fabs( sints(1.3f) - (1))/fabs(sints(1.3f)))<1e-16);
- assert ((fabs( sints(1.4f) - (1))/fabs(sints(1.4f)))<1e-16);
- assert ((fabs( sints(1.5f) - (1))/fabs(sints(1.5f)))<1e-16);
- assert ((fabs( sints(1.6f) - (1))/fabs(sints(1.6f)))<1e-16);
- assert ((fabs( sints(1.7f) - (1))/fabs(sints(1.7f)))<1e-16);
- assert ((fabs( sints(1.8f) - (1))/fabs(sints(1.8f)))<1e-16);
- assert ((fabs( sints(1.9f) - (1))/fabs(sints(1.9f)))<1e-16);
- assert ((fabs( sints(2.0f) - (2))/fabs(sints(2.0f)))<1e-16);
-}
-
-static void cintsTest(void) {
- floatComplex in, out;
-
-
- /* tests allant de -2 + i a -1 + 2*i, les reels décroissants de 0.1, les imaginaires croissant de 0.1
- + 1 test supplementaire : -0.9 + 0.9*i*/
-
- in=FloatComplex(-2,1);
- out = cints(in);
- assert ((fabs( creals(out) - (-2))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.9f,1.1f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.8f,1.2f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.7f,1.3f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.6f,1.4f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.5f,1.5f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.4f,1.6f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.3f,1.7f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.2f,1.8f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.1f,1.9f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (1))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-1.0f,2.0f);
- out = cints(in);
- assert ((fabs( creals(out) - (-1))/fabs(creals(out)))<1e-16);
- assert ((fabs( cimags(out) - (2))/fabs(cimags(out)))<1e-16);
- in=FloatComplex(-.9f,.9f);
- out = cints(in);
- assert (fabs( creals(out))<1e-16);
- assert (fabs( cimags(out))<1e-16);
-}
-
-static void sintaTest(void) {
- int i;
- float in[10]={1.2f, 2.0f,-2.0f,-3.1f,-4.5f,6.1f,4.1f,4.9f,-0.7f, 0.5f};
- float res[10]={1,2,-2,-3,-4,6,4,4,0,0};
- float out[10];
-
- sinta(in,10,out);
-
- for (i=0;i<10;i++)
- if (out[i]!=0) assert(fabs(out[i]-res[i])/fabs(out[i]) <1e-16);
- else assert(fabs(out[i]-res[i]) <1e-16);
-
-}
-
-static void cintaTest(void) {
- int i;
- float inR[10]={1.2f, 2.0f,-2.0f,-3.1f,-4.5f,6.1f,4.1f,4.9f,-0.7f, 0.5f};
- float inI[10]={5.4f,1.8f,1.4f,-4.0f,-2.7f,-0.3f,1.5f,1.4f,7.3f,-4.6f};
- float resR[10]={1,2,-2,-3,-4,6,4,4,0,0};
- float resI[10]={5,1,1,-4,-2,0,1,1,7,-4};
- floatComplex out[10],*in;
-
- in=FloatComplexMatrix(inR,inI,10);
- cinta(in,10,out);
-
- for (i=0;i<10;i++){
- if (creals(out[i])!=0) assert(fabs(creals(out[i])-resR[i])/fabs(creals(out[i])) <1e-16);
- else assert(fabs(creals(out[i])-resR[i]) <1e-16);
- if (cimags(out[i])!=0) assert(fabs(cimags(out[i])-resI[i])/fabs(cimags(out[i])) <1e-16);
- else assert(fabs(cimags(out[i])-resI[i]) <1e-16);
- }
-}
-
-static int testInt() {
- printf("\n>>>> Float Int Tests\n");
- sintsTest();
- cintsTest();
- sintaTest();
- cintaTest();
-
- return 0;
-}
-
-int main() {
- assert(testInt() == 0);
- return 0;
-}
--
cgit