diff options
author | jofret | 2009-04-28 06:55:15 +0000 |
---|---|---|
committer | jofret | 2009-04-28 06:55:15 +0000 |
commit | 89ce1d449dde70966962946e197c576cf350dc31 (patch) | |
tree | 913252b78bddfb80d8a7a98db0592950372f91d0 /src/matrixOperations/zeros/testMatrixZeros.c | |
parent | 49ad35ec2d8a12428a1613e2a955ddae4195e216 (diff) | |
download | scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.gz scilab2c-89ce1d449dde70966962946e197c576cf350dc31.tar.bz2 scilab2c-89ce1d449dde70966962946e197c576cf350dc31.zip |
Moving source code
Diffstat (limited to 'src/matrixOperations/zeros/testMatrixZeros.c')
-rw-r--r-- | src/matrixOperations/zeros/testMatrixZeros.c | 137 |
1 files changed, 0 insertions, 137 deletions
diff --git a/src/matrixOperations/zeros/testMatrixZeros.c b/src/matrixOperations/zeros/testMatrixZeros.c deleted file mode 100644 index b6ebe36f..00000000 --- a/src/matrixOperations/zeros/testMatrixZeros.c +++ /dev/null @@ -1,137 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Allan SIMON - * - * 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 <stdio.h> -#include <math.h> - -#include "zeros.h" - -#define ROWS 20 -#define COLS 50 - -static void dzerosaTest ( void ) -{ - int i = 0 ; - - double result = 0 ; - - double in [ROWS*COLS] ; - - dzerosa ( in , ROWS , COLS ) ; - - for ( i = 0 ; i < ROWS*COLS ; i++ ) - { - result = 0 ; - - printf ( "\t\t %d in : %e\tresult : %e\tassert : %e \n" , i, in[i] , result , fabs( in[i] - result) / fabs( in[i]) ) ; - - assert ( fabs ( in[i] - result) == 0 ) ; - } -} - - -static void szerosaTest ( void ) -{ - int i = 0 ; - - float result = 0 ; - - float in[ROWS*COLS] ; - - szerosa ( in , ROWS , COLS ) ; - - for ( i = 0 ; i < ROWS*COLS ; i++) - { - result = 0.0f ; - - - assert ( fabs ( in[i] - result) == 0 ) ; - } -} - - -static void zzerosaTest ( void ) -{ - int i = 0 ; - - doubleComplex result = DoubleComplex ( 0 , 0) ; - - doubleComplex in[ROWS*COLS] ; - - zzerosa ( in , ROWS , COLS ) ; - - for ( i = 0 ; i < ROWS*COLS ; i++ ) - { - result = DoubleComplex ( 0 , 0 ) ; - - - assert ( fabs ( zreals(in[i]) - zreals(result)) == 0 ) ; - assert ( fabs ( zimags(in[i]) - zimags(result)) == 0 ) ; - - } -} - - - - - -static void czerosaTest ( void ) -{ - int i = 0 ; - - floatComplex result = FloatComplex ( 0 , 0 ) ; - - floatComplex in[ROWS*COLS] ; - - czerosa ( in , ROWS , COLS ) ; - - for ( i = 0 ; i < ROWS*COLS ; i++) - { - result = FloatComplex ( 0.0f , 0 ) ; - - - assert ( fabs ( creals(in[i]) - creals(result)) == 0 ) ; - assert ( fabs ( cimags(in[i]) - cimags(result)) == 0 ) ; - - } -} - - - -static int testZeros(void) { - - printf("\n>>>> Matrix ZEROS Tests\n"); - printf("\t>>>> Matrix Double Real Tests\n"); - dzerosaTest(); - - printf("\n\n\t>>>> Matrix Float Real Tests\n"); - szerosaTest(); - - printf("\n\n\n"); - printf("\t>>>> Matrix Float Complex Tests\n"); - czerosaTest(); - - printf("\n\n\n"); - printf("\t>>>> Matrix Double Complex Tests\n"); - zzerosaTest(); - - return 0; -} - - - -int main(void) { - assert(testZeros() == 0); - return 0; -} - |