diff options
author | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
---|---|---|
committer | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
commit | 6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26 (patch) | |
tree | 1b7bd89fdcfd01715713d8a15db471dc75a96bbf /2.3-1/src/c/elementaryFunctions/interfaces | |
download | Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.gz Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.bz2 Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.zip |
Original Version
Diffstat (limited to '2.3-1/src/c/elementaryFunctions/interfaces')
27 files changed, 1181 insertions, 0 deletions
diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_OpDotHat.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_OpDotHat.h new file mode 100644 index 00000000..8e5c7042 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_OpDotHat.h @@ -0,0 +1,139 @@ +/* + * 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_OPDOTHAT_H__ +#define __INT_OPDOTHAT_H__ + + +/* Scalar - Scalar */ +#define s0s0OpDotHats0(in1, in2) spows(in1, in2) + +#define d0d0OpDotHatd0(in1, in2) dpows(in1, in2) + +#define c0c0OpDotHatc0(in1, in2) cpows(in1, in2) + +#define z0z0OpDotHatz0(in1, in2) zpows(in1, in2) + +#define s0c0OpDotHatc0(in1, in2) cpows(FloatComplex(in1,0), in2) + +#define c0s0OpDotHatc0(in1, in2) cpows(in1, FloatComplex(in2,0)) + +#define d0z0OpDotHatz0(in1, in2) zpows(DoubleComplex(in1,0), in2) + +#define z0d0OpDotHatz0(in1, in2) zpows(in1, DoubleComplex(in2,0)) + + +/* Scalar - Matrix */ +#define s0s2OpDotHats2(in1, in2, size, out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=spows(in1,in2[i]);\ + } + +#define d0d2OpDotHatd2(in1, in2, size, out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=dpows(in1,in2[i]);\ + } + + +#define c0c2OpDotHatc2(in1, in2, size, out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1,in2[i]);\ + } + + +#define z0z2OpDotHatz2(in1, in2, size, out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1,in2[i]);\ + } + + + +#define s0c2OpDotHatc2(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 d0z2OpDotHatz2(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 c0s2OpDotHatc2(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 z0d2OpDotHatz2(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 */ + +#define s2s0OpDotHats2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=spows(in1[i],in2);\ + } + +#define d2d0OpDotHatd2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=dpows(in1[i],in2);\ + } + +#define c2c0OpDotHatc2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1[i],in2);\ + } + +#define z2z0OpDotHatz2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1[i],in2);\ + } + +#define s2c0OpDotHatc2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=cpows(FloatComplex(in1[i],0),in2);\ + } + +#define d2z0OpDotHatz2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1[i],0),in2);\ + } + +#define c2s0OpDotHatc2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1[i],FloatComplex(in2,0));\ + } + +#define z2d0OpDotHatz2(in1,size,in2,out) {int i=0;\ + for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1[i],DoubleComplex(in2,0));\ + } + + +/* Matrix - Matrix */ + +#define s2s2OpDotHats2(in1, size1, in2, size2, out) spowa(in1, size1[0]*size2[1], in2, out) + +#define d2d2OpDotHatd2(in1, size1, in2, size2, out) dpowa(in1, size1[0]*size2[1], in2, out) + +#define c2c2OpDotHatc2(in1, size1, in2, size2, out) cpowa(in1, size1[0]*size2[1], in2, out) + +#define z2z2OpDotHatz2(in1, size1, in2, size2, out) zpowa(in1, size1[0]*size2[1], in2, out) + +#define s2c2OpDotHatc2(in1, size1, in2, size2, out) {int i=0;\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=cpows(FloatComplex(in1[i],0),in2[i]);\ + } + +#define c2s2OpDotHatc2(in1, size1, in2, size2, out) {int i=0;\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=cpows(in1[i],FloatComplex(in2[i],0));\ + } + +#define d2z2OpDotHatz2(in1, size1, in2, size2, out) {int i=0;\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=zpows(DoubleComplex(in1[i],0),in2[i]);\ + } + +#define z2d2OpDotHatz2(in1, size1, in2, size2, out) {int i=0;\ + for (i=0;i<size1[0]*size2[1];i++) out[i]=zpows(in1[i],DoubleComplex(in2[i],0));\ + } + + + + +#endif /* !__INT_OPDOTHAT_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_OpHat.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_OpHat.h new file mode 100644 index 00000000..8cc8849c --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_OpHat.h @@ -0,0 +1,110 @@ +/* + * 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__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_acos.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_acos.h new file mode 100644 index 00000000..ad625348 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_acos.h @@ -0,0 +1,42 @@ +/* + * 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_ACOS_H__ +#define __INT_ACOS_H__ + +#define s0acoss0(in) sacoss(in) + +#define s0acosc0(in) cacoss(FloatComplex(in,0)) + +#define d0acosd0(in) dacoss(in) + +#define d0acosz0(in) zacoss(DoubleComplex(in,0)) + +#define c0acosc0(in) cacoss(in) + +#define z0acosz0(in) zacoss(in) + +#define s2acoss2(in,size,out) sacosa(in, size[0]*size[1], out) + +#define s2acosc2(in,size,out) cacosa(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2acosd2(in,size,out) dacosa(in, size[0]*size[1], out) + +#define d2acosz2(in,size,out) zacosa(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2acosc2(in,size,out) cacosa(in, size[0]*size[1], out) + +#define z2acosz2(in,size,out) zacosa(in, size[0]*size[1], out) + +#endif /* !__INT_ACOS_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_acosh.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_acosh.h new file mode 100644 index 00000000..51280aa4 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_acosh.h @@ -0,0 +1,42 @@ +/* + * 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_ACOSH_H__ +#define __INT_ACOSH_H__ + +#define s0acoshs0(in) sacoshs(in) + +#define s0acoshc0(in) cacoshs(FloatComplex(in,0)) + +#define d0acoshd0(in) dacoshs(in) + +#define d0acoshz0(in) zacoshs(DoubleComplex(in,0)) + +#define c0acoshc0(in) cacoshs(in) + +#define z0acoshz0(in) zacoshs(in) + +#define s2acoshs2(in,size,out) sacosha(in, size[0]*size[1], out) + +#define s2acoshc2(in,size,out) cacosha(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2acoshd2(in,size,out) dacosha(in, size[0]*size[1], out) + +#define d2acoshz2(in,size,out) zacosha(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2acoshc2(in,size,out) cacosha(in, size[0]*size[1], out) + +#define z2acoshz2(in,size,out) zacosha(in, size[0]*size[1], out) + +#endif /* !__INT_ACOSH_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_asin.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_asin.h new file mode 100644 index 00000000..65b5d17f --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_asin.h @@ -0,0 +1,42 @@ +/* + * 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_ASIN_H__ +#define __INT_ASIN_H__ + +#define s0asins0(in) sasins(in) + +#define s0asinc0(in) casins(FloatComplex(in,0)) + +#define d0asind0(in) dasins(in) + +#define d0asinz0(in) zasins(DoubleComplex(in,0)) + +#define c0asinc0(in) casins(in) + +#define z0asinz0(in) zasins(in) + +#define s2asins2(in,size,out) sasina(in, size[0]*size[1], out) + +#define s2asinc2(in,size,out) casina(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2asind2(in,size,out) dasina(in, size[0]*size[1], out) + +#define d2asinz2(in,size,out) zasina(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2asinc2(in,size,out) casina(in, size[0]*size[1], out) + +#define z2asinz2(in,size,out) zasina(in, size[0]*size[1], out) + +#endif /* !__INT_ASIN_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_asinh.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_asinh.h new file mode 100644 index 00000000..590d0ad9 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_asinh.h @@ -0,0 +1,34 @@ +/* + * 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_ASINH_H__ +#define __INT_ASINH_H__ + +#define s0asinhs0(in) sasinhs(in) + +#define d0asinhd0(in) dasinhs(in) + +#define c0asinhc0(in) casinhs(in) + +#define z0asinhz0(in) zasinhs(in) + +#define s2asinhs2(in,size,out) sasinha(in, size[0]*size[1], out) + +#define d2asinhd2(in,size,out) dasinha(in, size[0]*size[1], out) + +#define c2asinhc2(in,size,out) casinha(in, size[0]*size[1], out) + +#define z2asinhz2(in,size,out) zasinha(in, size[0]*size[1], out) + +#endif /* !__INT_ASINH_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_atan.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_atan.h new file mode 100644 index 00000000..ad87e675 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_atan.h @@ -0,0 +1,44 @@ +/* + * 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_ATAN_H__ +#define __INT_ATAN_H__ + +#define s0atans0(in) satans(in) + +#define d0atand0(in) datans(in) + +#define c0atanc0(in) catans(in) + +#define z0atanz0(in) zatans(in) + +#define s2atans2(in,size,out) satana(in, size[0]*size[1], out) + +#define d2atand2(in,size,out) datana(in, size[0]*size[1], out) + +#define c2atanc2(in,size,out) catana(in, size[0]*size[1], out) + +#define z2atanz2(in,size,out) zatana(in, size[0]*size[1], out) + +#define s0s0atans0(in1, in2) satan2s(in1, in2) + +#define d0d0atand0(in1, in2) datan2s(in1, in2) + +#define s2s2atans2(in1,size1, in2, size2, out) satan2a(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) + +#define d2d2atand2(in1, size1, in2,size2, out) datan2a(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) + + + +#endif /* !__INT_ATAN_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_atanh.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_atanh.h new file mode 100644 index 00000000..492fa746 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_atanh.h @@ -0,0 +1,42 @@ +/* + * 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_ATANH_H__ +#define __INT_ATANH_H__ + +#define s0atanhs0(in) satanhs(in) + +#define s0atanhc0(in) catanhs(FloatComplex(in,0)) + +#define d0atanhd0(in) datanhs(in) + +#define d0atanhz0(in) zatanhs(DoubleComplex(in,0)) + +#define c0atanhc0(in) catanhs(in) + +#define z0atanhz0(in) zatanhs(in) + +#define s2atanhs2(in,size,out) satanha(in, size[0]*size[1], out) + +#define s2atanhc2(in,size,out) catanha(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2atanhd2(in,size,out) datanha(in, size[0]*size[1], out) + +#define d2atanhz2(in,size,out) zatanha(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2atanhc2(in,size,out) catanha(in, size[0]*size[1], out) + +#define z2atanhz2(in,size,out) zatanha(in, size[0]*size[1], out) + +#endif /* !__INT_ATANH_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_ceil.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_ceil.h new file mode 100644 index 00000000..918dd5a0 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_ceil.h @@ -0,0 +1,34 @@ +/* + * 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_CEIL_H__ +#define __INT_CEIL_H__ + +#define s0ceils0(in) sceils(in) + +#define d0ceild0(in) dceils(in) + +#define c0ceilc0(in) cceils(in) + +#define z0ceilz0(in) zceils(in) + +#define s2ceils2(in,size,out) sceila(in, size[0]*size[1], out) + +#define d2ceild2(in,size,out) dceila(in, size[0]*size[1], out) + +#define c2ceilc2(in,size,out) cceila(in, size[0]*size[1], out) + +#define z2ceilz2(in,size,out) zceila(in, size[0]*size[1], out) + +#endif /* !__INT_CEIL_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_cos.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_cos.h new file mode 100644 index 00000000..647bff6c --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_cos.h @@ -0,0 +1,34 @@ +/* + * 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_COS_H__ +#define __INT_COS_H__ + +#define s0coss0(in) scoss(in) + +#define d0cosd0(in) dcoss(in) + +#define c0cosc0(in) ccoss(in) + +#define z0cosz0(in) zcoss(in) + +#define s2coss2(in,size,out) scosa(in, size[0]*size[1], out) + +#define d2cosd2(in,size,out) dcosa(in, size[0]*size[1], out) + +#define c2cosc2(in,size,out) ccosa(in, size[0]*size[1], out) + +#define z2cosz2(in,size,out) zcosa(in, size[0]*size[1], out) + +#endif /* !__INT_COS_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_cosh.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_cosh.h new file mode 100644 index 00000000..28915ca3 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_cosh.h @@ -0,0 +1,34 @@ +/* + * 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_COSH_H__ +#define __INT_COSH_H__ + +#define s0coshs0(in) scoshs(in) + +#define d0coshd0(in) dcoshs(in) + +#define c0coshc0(in) ccoshs(in) + +#define z0coshz0(in) zcoshs(in) + +#define s2coshs2(in,size,out) scosha(in, size[0]*size[1], out) + +#define d2coshd2(in,size,out) dcosha(in, size[0]*size[1], out) + +#define c2coshc2(in,size,out) ccosha(in, size[0]*size[1], out) + +#define z2coshz2(in,size,out) zcosha(in, size[0]*size[1], out) + +#endif /* !__INT_COSH_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_exp.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_exp.h new file mode 100644 index 00000000..3727e3b6 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_exp.h @@ -0,0 +1,34 @@ +/* + * 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_EXP_H__ +#define __INT_EXP_H__ + +#define s0exps0(in) sexps(in) + +#define d0expd0(in) dexps(in) + +#define c0expc0(in) cexps(in) + +#define z0expz0(in) zexps(in) + +#define s2exps2(in,size,out) sexpa(in, size[0]*size[1], out) + +#define d2expd2(in,size,out) dexpa(in, size[0]*size[1], out) + +#define c2expc2(in,size,out) cexpa(in, size[0]*size[1], out) + +#define z2expz2(in,size,out) zexpa(in, size[0]*size[1], out) + +#endif /* !__INT_EXP_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_exp10.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_exp10.h new file mode 100644 index 00000000..6cd9f136 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_exp10.h @@ -0,0 +1,34 @@ +/* + * 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_EXP10_H__ +#define __INT_EXP10_H__ + +#define s0exp10s0(in) sexp10s(in) + +#define d0exp10d0(in) dexp10s(in) + +#define c0exp10c0(in) cexp10s(in) + +#define z0exp10z0(in) zexp10s(in) + +#define s2exp10s2(in,size,out) sexp10a(in, size[0]*size[1], out) + +#define d2exp10d2(in,size,out) dexp10a(in, size[0]*size[1], out) + +#define c2exp10c2(in,size,out) cexp10a(in, size[0]*size[1], out) + +#define z2exp10z2(in,size,out) zexp10a(in, size[0]*size[1], out) + +#endif /* !__INT_EXP10_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_fix.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_fix.h new file mode 100644 index 00000000..ac483c92 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_fix.h @@ -0,0 +1,34 @@ +/* + * 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_FIX_H__ +#define __INT_FIX_H__ + +#define s0fixs0(in) sfixs(in) + +#define d0fixd0(in) dfixs(in) + +#define c0fixc0(in) cfixs(in) + +#define z0fixz0(in) zfixs(in) + +#define s2fixs2(in,size,out) sfixa(in, size[0]*size[1], out) + +#define d2fixd2(in,size,out) dfixa(in, size[0]*size[1], out) + +#define c2fixc2(in,size,out) cfixa(in, size[0]*size[1], out) + +#define z2fixz2(in,size,out) zfixa(in, size[0]*size[1], out) + +#endif /* !__INT_FIX_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_floor.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_floor.h new file mode 100644 index 00000000..548c5e2a --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_floor.h @@ -0,0 +1,34 @@ +/* + * 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_FLOOR_H__ +#define __INT_FLOOR_H__ + +#define s0floors0(in) sfloors(in) + +#define d0floord0(in) dfloors(in) + +#define c0floorc0(in) cfloors(in) + +#define z0floorz0(in) zfloors(in) + +#define s2floors2(in,size,out) sfloora(in, size[0]*size[1], out) + +#define d2floord2(in,size,out) dfloora(in, size[0]*size[1], out) + +#define c2floorc2(in,size,out) cfloora(in, size[0]*size[1], out) + +#define z2floorz2(in,size,out) zfloora(in, size[0]*size[1], out) + +#endif /* !__INT_FLOOR_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_int.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_int.h new file mode 100644 index 00000000..b40811ad --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_int.h @@ -0,0 +1,34 @@ +/* + * 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_INT_H__ +#define __INT_INT_H__ + +#define s0ints0(in) sints(in) + +#define d0intd0(in) dints(in) + +#define c0intc0(in) cints(in) + +#define z0intz0(in) zints(in) + +#define s2ints2(in,size,out) sinta(in, size[0]*size[1], out) + +#define d2intd2(in,size,out) dinta(in, size[0]*size[1], out) + +#define c2intc2(in,size,out) cinta(in, size[0]*size[1], out) + +#define z2intz2(in,size,out) zinta(in, size[0]*size[1], out) + +#endif /* !__INT_INT_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_lnp1m1.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_lnp1m1.h new file mode 100644 index 00000000..0a745112 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_lnp1m1.h @@ -0,0 +1,26 @@ +/* + * 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_LNP1M1_H__ +#define __INT_LNP1M1_H__ + +/* +** Compute v = log ( (1 + s)/(1 - s) ) for different types . +*/ + +#define s0lnp1m1s0(in1) slnp1m1s(in1) + +#define d0lnp1m1d0(in1) dlnp1m1s(in1) + +#endif /* !__INT_LNP1M1_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_log.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_log.h new file mode 100644 index 00000000..d7f19fee --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_log.h @@ -0,0 +1,42 @@ +/* + * 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_LOG_H__ +#define __INT_LOG_H__ + +#define s0logs0(in) slogs(in) + +#define s0logc0(in) clogs(FloatComplex(in,0)) + +#define d0logd0(in) dlogs(in) + +#define d0logz0(in) zlogs(DoubleComplex(in,0)) + +#define c0logc0(in) clogs(in) + +#define z0logz0(in) zlogs(in) + +#define s2logs2(in,size,out) sloga(in, size[0]*size[1], out) + +#define s2logc2(in,size,out) cloga(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2logd2(in,size,out) dloga(in, size[0]*size[1], out) + +#define d2logz2(in,size,out) zloga(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2logc2(in,size,out) cloga(in, size[0]*size[1], out) + +#define z2logz2(in,size,out) zloga(in, size[0]*size[1], out) + +#endif /* !__INT_LOG_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_log10.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_log10.h new file mode 100644 index 00000000..85d5ddeb --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_log10.h @@ -0,0 +1,42 @@ +/* + * 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_LOG10_H__ +#define __INT_LOG10_H__ + +#define s0log10s0(in) slog10s(in) + +#define s0log10c0(in) clog10s(FloatComplex(in,0)) + +#define d0log10d0(in) dlog10s(in) + +#define d0log10z0(in) zlog10s(DoubleComplex(in,0)) + +#define c0log10c0(in) clog10s(in) + +#define z0log10z0(in) zlog10s(in) + +#define s2log10s2(in,size,out) slog10a(in, size[0]*size[1], out) + +#define s2log10c2(in,size,out) clog10a(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2log10d2(in,size,out) dlog10a(in, size[0]*size[1], out) + +#define d2log10z2(in,size,out) zlog10a(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2log10c2(in,size,out) clog10a(in, size[0]*size[1], out) + +#define z2log10z2(in,size,out) zlog10a(in, size[0]*size[1], out) + +#endif /* !__INT_LOG10_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_log1p.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_log1p.h new file mode 100644 index 00000000..29f6fb3a --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_log1p.h @@ -0,0 +1,41 @@ +/* + * 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_LOG1p1P_H__ +#define __INT_LOG1p1P_H__ + +#define s0log1ps0(in) slog1ps(in) + +#define s0log1pc0(in) clog1ps(FloatComplex(in,0)) + +#define d0log1pd0(in) dlog1ps(in) + +#define d0log1pz0(in) zlog1ps(DoubleComplex(in,0)) + +#define c0log1pc0(in) clog1ps(in) + +#define z0log1pz0(in) zlog1ps(in) + +#define s2log1ps2(in,size,out) slog1pa(in, size[0]*size[1], out) + +#define s2log1pc2(in,size,out) clog1pa(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2log1pd2(in,size,out) dlog1pa(in, size[0]*size[1], out) + +#define d2log1pz2(in,size,out) zlog1pa(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2log1pc2(in,size,out) clog1pa(in, size[0]*size[1], out) + +#define z2log1pz2(in,size,out) zlog1pa(in, size[0]*size[1], out) +#endif /* !__INT_LOG1p1P_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_pow.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_pow.h new file mode 100644 index 00000000..39f5e1ae --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_pow.h @@ -0,0 +1,34 @@ +/* + * 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_OPDOTHAT_H__ +#define __INT_OPDOTHAT_H__ + +#define s0s0OpDotHats0(in1, in2) spows(in1, in2) + +#define d0d0OpDotHatd0(in1, in2) dpows(in1, in2) + +#define c0c0OpDotHatc0(in1, in2) cpows(in1, in2) + +#define z0z0OpDotHatz0(in1, in2) zpows(in1, in2) + +#define s2s0OpDotHats2(in1, size, in2, out) spowa(in1, size[0]*size[1], in2, out) + +#define d2d0OpDotHatd2(in1, size, in2, out) dpowa(in1, size[0]*size[1], in2, out) + +#define c2c0OpDotHatc2(in1, size, in2, out) cpowa(in1, size[0]*size[1], in2, out) + +#define z2z0OpDotHatz2(in1, size, in2, out) zpowa(in1, size[0]*size[1], in2, out) + +#endif /* !__INT_OPDOTHAT_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_round.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_round.h new file mode 100644 index 00000000..a5da230c --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_round.h @@ -0,0 +1,34 @@ +/* + * 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_ROUND_H__ +#define __INT_ROUND_H__ + +#define s0rounds0(in) srounds(in) + +#define d0roundd0(in) drounds(in) + +#define c0roundc0(in) crounds(in) + +#define z0roundz0(in) zrounds(in) + +#define s2rounds2(in,size,out) srounda(in, size[0]*size[1], out) + +#define d2roundd2(in,size,out) drounda(in, size[0]*size[1], out) + +#define c2roundc2(in,size,out) crounda(in, size[0]*size[1], out) + +#define z2roundz2(in,size,out) zrounda(in, size[0]*size[1], out) + +#endif /* !__INT_ROUND_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_sin.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_sin.h new file mode 100644 index 00000000..556281a5 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_sin.h @@ -0,0 +1,34 @@ +/* + * 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_SIN_H__ +#define __INT_SIN_H__ + +#define s0sins0(in) ssins(in) + +#define d0sind0(in) dsins(in) + +#define c0sinc0(in) csins(in) + +#define z0sinz0(in) zsins(in) + +#define s2sins2(in,size,out) ssina(in, size[0]*size[1], out) + +#define d2sind2(in,size,out) dsina(in, size[0]*size[1], out) + +#define c2sinc2(in,size,out) csina(in, size[0]*size[1], out) + +#define z2sinz2(in,size,out) zsina(in, size[0]*size[1], out) + +#endif /* !__INT_SIN_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_sinh.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_sinh.h new file mode 100644 index 00000000..e0c930e9 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_sinh.h @@ -0,0 +1,34 @@ +/* + * 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_SINH_H__ +#define __INT_SINH_H__ + +#define s0sinhs0(in) ssinhs(in) + +#define d0sinhd0(in) dsinhs(in) + +#define c0sinhc0(in) csinhs(in) + +#define z0sinhz0(in) zsinhs(in) + +#define s2sinhs2(in,size,out) ssinha(in, size[0]*size[1], out) + +#define d2sinhd2(in,size,out) dsinha(in, size[0]*size[1], out) + +#define c2sinhc2(in,size,out) csinha(in, size[0]*size[1], out) + +#define z2sinhz2(in,size,out) zsinha(in, size[0]*size[1], out) + +#endif /* !__INT_SINH_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_sqrt.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_sqrt.h new file mode 100644 index 00000000..0efbca96 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_sqrt.h @@ -0,0 +1,59 @@ +/* +** -*- C -*- +** +** int_sqrt.h +** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> +** +** +** Copyright POLIBA 2008 +*/ +/* + 1. Search for sqrt in INIT_FillSCI2LibCDirs.sci + 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci + 3. You will find + PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); + PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); + PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); + PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); + PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); + PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); + + PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); + PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); + PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); + PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); + PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); + PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); + 4. These are all the functions to be implemented. + 5. According to functions available in src you have to generate the mapping between + functions in step3 and functions in src. +*/ + +#ifndef __INT_SQRT_H__ +#define __INT_SQRT_H__ + +#define s0sqrts0(in) ssqrts(in) +
+#define s0sqrtc0(in) csqrts(FloatComplex(in,0)) + +#define d0sqrtd0(in) dsqrts(in) +
+#define d0sqrtz0(in) zsqrts(DoubleComplex(in,0)) + +#define c0sqrtc0(in) csqrts(in) +
+#define z0sqrtz0(in) zsqrts(in) +
+#define s2sqrts2(in,size,out) ssqrta(in, size[0]*size[1], out) + +#define s2sqrtc2(in,size,out) csqrta(FloatComplexMatrix(in,0), size[0]*size[1], out) + +#define d2sqrtd2(in,size,out) dsqrta(in, size[0]*size[1], out) +
+#define d2sqrtz2(in,size,out) zsqrta(DoubleComplexMatrix(in,0), size[0]*size[1], out) + +#define c2sqrtc2(in,size,out) csqrta(in, size[0]*size[1], out) +
+#define z2sqrtz2(in,size,out) zsqrta(in, size[0]*size[1], out)
+ +#endif /* !__INT_SQRT_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_tan.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_tan.h new file mode 100644 index 00000000..c2c3df2e --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_tan.h @@ -0,0 +1,34 @@ +/* + * 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_TAN_H__ +#define __INT_TAN_H__ + +#define s0tans0(in) stans(in) + +#define d0tand0(in) dtans(in) + +#define c0tanc0(in) ctans(in) + +#define z0tanz0(in) ztans(in) + +#define s2tans2(in,size,out) stana(in, size[0]*size[1], out) + +#define d2tand2(in,size,out) dtana(in, size[0]*size[1], out) + +#define c2tanc2(in,size,out) ctana(in, size[0]*size[1], out) + +#define z2tanz2(in,size,out) ztana(in, size[0]*size[1], out) + +#endif /* !__INT_TAN_H__ */ diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_tanh.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_tanh.h new file mode 100644 index 00000000..1819d3a1 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_tanh.h @@ -0,0 +1,34 @@ +/* + * 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_TANH_H__ +#define __INT_TANH_H__ + +#define s0tanhs0(in) stanhs(in) + +#define d0tanhd0(in) dtanhs(in) + +#define c0tanhc0(in) ctanhs(in) + +#define z0tanhz0(in) ztanhs(in) + +#define s2tanhs2(in,size,out) stanha(in, size[0]*size[1], out) + +#define d2tanhd2(in,size,out) dtanha(in, size[0]*size[1], out) + +#define c2tanhc2(in,size,out) ctanha(in, size[0]*size[1], out) + +#define z2tanhz2(in,size,out) ztanha(in, size[0]*size[1], out) + +#endif /* !__INT_TANH_H__ */ |