diff options
author | jofret | 2009-04-28 06:53:00 +0000 |
---|---|---|
committer | jofret | 2009-04-28 06:53:00 +0000 |
commit | b56c1d5508edf80f36c9a48e8806641f5cdf2cd8 (patch) | |
tree | 921ff5c8b47befe9b797cffa57bea9c940a7224c /src/elementaryFunctions/interfaces/int_OpHat.h | |
parent | 127ac18608c72acfed9d59599252ad62cb562ee5 (diff) | |
download | scilab2c-b56c1d5508edf80f36c9a48e8806641f5cdf2cd8.tar.gz scilab2c-b56c1d5508edf80f36c9a48e8806641f5cdf2cd8.tar.bz2 scilab2c-b56c1d5508edf80f36c9a48e8806641f5cdf2cd8.zip |
Moving source code
Diffstat (limited to 'src/elementaryFunctions/interfaces/int_OpHat.h')
-rw-r--r-- | src/elementaryFunctions/interfaces/int_OpHat.h | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/src/elementaryFunctions/interfaces/int_OpHat.h b/src/elementaryFunctions/interfaces/int_OpHat.h deleted file mode 100644 index 8cc8849c..00000000 --- a/src/elementaryFunctions/interfaces/int_OpHat.h +++ /dev/null @@ -1,110 +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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPHAT_H__ -#define __INT_OPHAT_H__ - - -/* Scalar - Scalar */ -#define s0s0OpHats0(in1, in2) spows(in1, in2) - -#define d0d0OpHatd0(in1, in2) dpows(in1, in2) - -#define c0c0OpHatc0(in1, in2) cpows(in1, in2) - -#define s0c0OpHatc0(in1, in2) cpows(FloatComplex(in1,0), in2) - -#define c0s0OpHatc0(in1, in2) cpows(in1, FloatComplex(in2,0)) - -#define z0z0OpHatz0(in1, in2) zpows(in1, in2) - -#define d0z0OpHatz0(in1, in2) zpows(DoubleComplex(in1,0), in2) - -#define z0d0OpHatz0(in1, in2) zpows(in1, DoubleComplex(in2,0)) - - - -/* Scalar - Matrix */ -#define s0s2OpHats2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=spows(in1,in2[i]);\ - } - -#define d0d2OpHatd2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=dpows(in1,in2[i]);\ - } - - -#define c0c2OpHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1,in2[i]);\ - } - - -#define z0z2OpHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1,in2[i]);\ - } - - - -#define s0c2OpHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(FloatComplex(in1,0),in2[i]);\ - } - -#define d0z2OpHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1,0),in2[i]);\ - } - -#define c0s2OpHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1,FloatComplex(in2[i],0));\ - } - -#define z0d2OpHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1,DoubleComplex(in2[i],0));\ - } - - -/* Matrix - Scalar */ -/* Matrices must be square */ - -#define s2s0OpHats2(in1,size,in2,out) spowma(in1,size[0],in2,out); - -#define d2d0OpHatd2(in1,size,in2,out) dpowma(in1,size[0],in2,out); - -#define c2c0OpHatc2(in1,size,in2,out) cpowma(in1,size[0],in2,out); - -#define z2z0OpHatz2(in1,size,in2,out) zpowma(in1,size[0],in2,out); - -/* FIXME : malloc here */ -#define s2c0OpHatc2(in1,size,in2,out) {float* tmp;\ - tmp = malloc((uint)(size[0]*size[1])*sizeof(float));\ - szerosa(tmp,size[0],size[1]);\ - cpowma(FloatComplexMatrix(in1,tmp,size[0]*size[1]),size[0],in2,out);\ - free(tmp);\ - } - -#define d2z0OpHatz2(in1,size,in2,out) {double* tmp;\ - tmp = malloc((uint)(size[0]*size[1])*sizeof(double));\ - dzerosa(tmp,size[0],size[1]);\ - zpowma(DoubleComplexMatrix(in1,tmp,size[0]*size[1]),size[0],in2,out);\ - free(tmp);\ - } - -#define c2s0OpHatc2(in1,size,in2,out) cpowma(in1,size[0],FloatComplex(in2,0),out); - -#define z2d0OpHatz2(in1,size,in2,out) zpowma(in1,size[0],DoubleComplex(in2,0),out); - - - - - -#endif /* !__INT_OPHAT_H__ */ |