diff options
| -rw-r--r-- | src/auxiliaryFunctions/interfaces/int_frexp.h | 22 | ||||
| -rw-r--r-- | src/auxiliaryFunctions/interfaces/int_pythag.h | 27 | ||||
| -rw-r--r-- | src/elementaryFunctions/interfaces/int_exp10.h | 34 | ||||
| -rw-r--r-- | src/elementaryFunctions/interfaces/int_lnp1m1.h | 26 | ||||
| -rw-r--r-- | src/matrixOperations/interfaces/int_dist.h | 34 | ||||
| -rw-r--r-- | src/matrixOperations/interfaces/int_fill.h | 51 | ||||
| -rw-r--r-- | src/matrixOperations/interfaces/int_v2magn.h | 34 | ||||
| -rw-r--r-- | src/matrixOperations/interfaces/int_vmagn.h | 35 | ||||
| -rw-r--r-- | src/signalProcessing/interfaces/int_hilbert.h | 26 | ||||
| -rw-r--r-- | src/signalProcessing/interfaces/int_lpc2cep.h | 27 | ||||
| -rw-r--r-- | src/signalProcessing/interfaces/int_xcorr.h | 176 |
11 files changed, 492 insertions, 0 deletions
diff --git a/src/auxiliaryFunctions/interfaces/int_frexp.h b/src/auxiliaryFunctions/interfaces/int_frexp.h new file mode 100644 index 00000000..fa72417d --- /dev/null +++ b/src/auxiliaryFunctions/interfaces/int_frexp.h @@ -0,0 +1,22 @@ +/* + * 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_FREXP_H__ +#define __INT_FREXP_H__ + +#define s0s2frexps0(in1,in2) sfrexps(in1,in2) + +#define d0d2frexps0(in1,in2) dfrexps(in1,in2) + +#endif /* !__INT_FREXP_H__ */ diff --git a/src/auxiliaryFunctions/interfaces/int_pythag.h b/src/auxiliaryFunctions/interfaces/int_pythag.h new file mode 100644 index 00000000..67f559ae --- /dev/null +++ b/src/auxiliaryFunctions/interfaces/int_pythag.h @@ -0,0 +1,27 @@ +/* + * 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_PYTHAG_H__ +#define __INT_PYTHAG_H__ + +#define s0s0pythags0(in1,in2) spythags(in1,in2) + +#define d0d0pythagd0(in1,in2) dpythags(in1,in2) + +#define c0c0pythagc0(in1,in2) cpythags(in1,in2) + +#define z0z0pythagz0(in1,in2) zpythags(in1,in2) + + +#endif /* !__INT_PYTHAG_H__ */ diff --git a/src/elementaryFunctions/interfaces/int_exp10.h b/src/elementaryFunctions/interfaces/int_exp10.h new file mode 100644 index 00000000..6cd9f136 --- /dev/null +++ b/src/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/src/elementaryFunctions/interfaces/int_lnp1m1.h b/src/elementaryFunctions/interfaces/int_lnp1m1.h new file mode 100644 index 00000000..0a745112 --- /dev/null +++ b/src/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/src/matrixOperations/interfaces/int_dist.h b/src/matrixOperations/interfaces/int_dist.h new file mode 100644 index 00000000..3d5835df --- /dev/null +++ b/src/matrixOperations/interfaces/int_dist.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_DIST_H__ +#define __INT_DIST_H__ + +#define s0s0dists0(in1,in2) sdists(in1,in2) + +#define d0d0distd0(in1,in2) ddists(in1,in2) + +#define c0c0dists0(in1,in2) cdists(in1,in2) + +#define z0z0distd0(in1,in2) zdists(in1,in2) + +#define s2s2dists0(in1,size1,in2,size2) sdista(in1, in2, size1[0], size2[0]) + +#define d2d2distd0(in1,size1,in2,size2) ddista(in1, in2, size1[0], size2[0]) + +#define c2c2dists0(in1,size1,in2,size2) cdista(in1, in2, size1[0], size2[0]) + +#define z2z2distd0(in1,size1,in2,size2) zdista(in1, in2, size1[0], size2[0]) + +#endif /* !__INT_DIST_H__ */ diff --git a/src/matrixOperations/interfaces/int_fill.h b/src/matrixOperations/interfaces/int_fill.h new file mode 100644 index 00000000..5614cb1f --- /dev/null +++ b/src/matrixOperations/interfaces/int_fill.h @@ -0,0 +1,51 @@ +/* + * 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_FILL_H__ +#define __INT_FILL_H__ + + +#define fills0(in) in; + +#define filld0(in) in; + +#define fillc0(in) in; + +#define fillz0(in) in; + +#define s0fills0(in,out) out=in; + +#define d0filld0(in,out) out=in; + +#define c0fillc0(in,out) out=in; + +#define z0fillz0(in,out) out=in; + +#define s2s0fills2(in1,size,in2,out) sfilla(out,size[0],size[1],in2); + +#define d2d0filld2(in1,size,in2,out) dfilla(out,size[0],size[1],in2); + +#define c2c0fillc2(in1,size,in2,out) cfilla(out,size[0],size[1],in2); + +#define z2z0fillz2(in1,size,in2,out) zfilla(out,size[0],size[1],in2); + +#define s0s0s0fills2(in1,in2,in3,out) sfilla(out,in1,in2,in3) + +#define d0d0d0filld2(in1,in2,in3,out) sfilla(out,in1,in2,in3) + +#define s0s0c0fillc2(in1,in2,in3,out) sfilla(out,in1,in2,in3) + +#define d0d0z0fillz2(in1,in2,in3,out) sfilla(out,in1,in2,in3) + +#endif /* !__INT_FILL_H__ */ diff --git a/src/matrixOperations/interfaces/int_v2magn.h b/src/matrixOperations/interfaces/int_v2magn.h new file mode 100644 index 00000000..759cecf1 --- /dev/null +++ b/src/matrixOperations/interfaces/int_v2magn.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_V2MAGN_H__ +#define __INT_V2MAGN_H__ + +#define s0v2magns0(in) ssquMagns(in) + +#define d0v2magnd0(in) dsquMagns(in) + +#define c0v2magnc0(in) csquMagns(in) + +#define z0v2magnz0(in) zsquMagns(in) + +#define s2v2magns2(in,size) ssquMagna(in, size[0], size[1]) + +#define d2v2magnd2(in,size) dsquMagna(in, size[0], size[1]) + +#define c2v2magnc2(in,size) csquMagna(in, size[0], size[1]) + +#define z2v2magnz2(in,size) zsquMagna(in, size[0], size[1]) + +#endif /* !__INT_V2MAGN_H__ */ diff --git a/src/matrixOperations/interfaces/int_vmagn.h b/src/matrixOperations/interfaces/int_vmagn.h new file mode 100644 index 00000000..8a51755e --- /dev/null +++ b/src/matrixOperations/interfaces/int_vmagn.h @@ -0,0 +1,35 @@ +/* + * 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_VMAGN_H__ +#define __INT_VMAGN_H__ + + +#define s0vmagns0(in) smagns(in) + +#define d0vmagnd0(in) dmagns(in) + +#define c0vmagnc0(in) cmagns(in) + +#define z0vmagnz0(in) zmagns(in) + +#define s2vmagns2(in,size) smagna(in, size[0], size[1]) + +#define d2vmagnd2(in,size) dmagna(in, size[0], size[1]) + +#define c2vmagnc2(in,size) cmagna(in, size[0], size[1]) + +#define z2vmagnz2(in,size) zmagna(in, size[0], size[1]) + +#endif /* !__INT_VMAGN_H__ */ diff --git a/src/signalProcessing/interfaces/int_hilbert.h b/src/signalProcessing/interfaces/int_hilbert.h new file mode 100644 index 00000000..c4c9c7e9 --- /dev/null +++ b/src/signalProcessing/interfaces/int_hilbert.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_HILBERT_H__ +#define __INT_HILBERT_H__ + +#define s0hilberts0(in) shilberts(in) + +#define d0hilbertd0(in) dhilberts(in) + +#define s2hilbertc2(in,size,out) shilberta(in, size[0], size[1], out) + +#define d2hilbertz2(in,size,out) dhilberta(in, size[0], size[1], out) + +#endif /* !__INT_HILBERT_H__ */ diff --git a/src/signalProcessing/interfaces/int_lpc2cep.h b/src/signalProcessing/interfaces/int_lpc2cep.h new file mode 100644 index 00000000..6e6e719f --- /dev/null +++ b/src/signalProcessing/interfaces/int_lpc2cep.h @@ -0,0 +1,27 @@ +/* + * 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_LPC2CEP_H__ +#define __INT_LPC2CEP_H__ + + +#define s2lpc2ceps2(in,size,out) slpc2cepa(in, size[0]*size[1], out) + +#define d2lpc2cepd2(in,size,out) dlpc2cepa(in, size[0]*size[1], out) + +#define c2lpc2cepc2(in,size,out) clpc2cepa(in, size[0]*size[1], out) + +#define z2lpc2cepz2(in,size,out) zlpc2cepa(in, size[0]*size[1], out) + +#endif /* !__INT_LPC2CEP_H__ */ diff --git a/src/signalProcessing/interfaces/int_xcorr.h b/src/signalProcessing/interfaces/int_xcorr.h new file mode 100644 index 00000000..50a99d74 --- /dev/null +++ b/src/signalProcessing/interfaces/int_xcorr.h @@ -0,0 +1,176 @@ +/* + * 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_XCORR_H__ +#define __INT_XCORR_H__ + +#define s0xcorrs0(in) in*in + +#define d0xcorrd0(in) in*in + +#define c0xcorrc0(in) cmuls(in,cconjs(in)) + +#define z0xcorrz0(in) zmuls(in,zconjs(in)) + +#define s2xcorrs2(in,size) s2s2xcorrs2(in,size,in,size,out) + +#define d2xcorrd2(in,size) d2d2xcorrd2(in,size,in,size,out) + +#define c2xcorrc2(in,size) c2c2xcorrc2(in,size,in,size,out) + +#define z2xcorrz2(in,size) z2z2xcorrz2(in,size,in,size,out) + + +/* Scalar - Scalar */ + +#define s0s0xcorrs0(in1,in2) in1*in2 + +#define d0d0xcorrd0(in1,in2) in1*in2 + +#define c0c0xcorrc0(in1,in2) cmuls(in1,cconjs(in2)) + +#define z0z0xcorrz0(in1,in2) zmuls(in1,zconjs(in2)) + +#define s0c0xcorrs0(in1,in2) cmuls(FloatComplex(in1,0),cconjs(in2)) + +#define d0z0xcorrd0(in1,in2) zmuls(DoubleComplex(in1,0),zconjs(in2)) + +#define c0s0xcorrc0(in1,in2) cmuls(in1,FloatComplex(in2,0)) + +#define z0d0xcorrz0(in1,in2) zmuls(in1,DoubleComplex(in2,0)) + +/* Scalar - Scalar*/ + +#define s0s2xcorrs2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=in1*in2[mn-i];\ + } + +#define d0d2xcorrd2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=in1*in2[mn-i];\ + } + +#define c0c2xcorrc2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=cmuls(in1,cconjs(in2[mn-i]));\ + } + +#define z0z2xcorrz2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=zmuls(in1,zconjs(in2[mn-i]));\ + } + +#define s0c2xcorrs2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=cmuls(FloatComplex(in1,0),cconjs(in2[mn-i]));\ + } + +#define d0z2xcorrd2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=zmuls(DoubleComplex(in1,0),zconjs(in2[mn-i]));\ + } + +#define c0s2xcorrc2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=cmuls(in1,FloatComplex(in2[mn-i],0));\ + } + +#define z0d2xcorrz2(in1,in2,size,out) {int i;\ + int mn=size[0]*size[1];\ + for (i=1;i<=mn;i++) out[i]=zmuls(in1,DoubleComplex(in2[mn-i],0)));\ + } + + + + + +/* Matrix - Scalar*/ + +#define s2s0xcorrs2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ + } + +#define d2d0xcorrd2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ + } + +#define c2c0xcorrc2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1[i],cconjs(in2));\ + } + +#define z2z0xcorrz2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1[i],zconjs(in2));\ + } + +#define s2c0xcorrc2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ + } + +#define d2z0xcorrz2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ + } + +#define c2s0xcorrc2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1[i],FloatComplex(in2,0));\ + } + +#define z2d0xcorrz2(in1,size,in2,out) {int i;\ + for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1[i],DoubleComplex(in2,0));\ + } + + + +/* Matrix - Matrix */ + +#define s2s2xcorrs2(in1,size1,in2,size2,out) scrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) + +#define d2d2xcorrd2(in1,size1,in2,size2,out) dcrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) + +#define c2c2xcorrc2(in1,size1,in2,size2,out) ccrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) + +#define z2z2xcorrz2(in1,size1,in2,size2,out) zcrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) + + +/*FIXME : malloc here*/ +#define s2c2xcorrc2(in1,size1,in2,size2,out) {float* temp;\ + temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ + sfilla(temp,size1[0],size1[1],0);\ + c2c2xcorrc2(FloatComplex(in1,0,size1[0]*size1[1]),size1,in2,size2,out);\ + free(temp);\ + } + +#define d2z2xcorrz2(in1,size1,in2,size2,out) {double* temp;\ + temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ + dfilla(temp,size[0],size[1],0);\ + z2z2xcorrz2(DoubleComplex(in1,0,size1[0]*size1[1]),size1,in2,size2,out);\ + free(temp);\ + } + + +#define c2s2xcorrc2(in1,size1,in2,size2,out) {float* temp;\ + temp=malloc((uint)(size2[0]*size2[1])*sizeof(float));\ + sfilla(temp,size2[0],size2[1],0);\ + c2c2xcorrc2(in1,size1,FloatComplex(in2,0,size2[0]*size2[1]),size2,out);\ + free(temp);\ + } + +#define z2d2xcorrz2(in1,size1,in2,size2,out) {double* temp;\ + temp=malloc((uint)(size2[0]*size2[1])*sizeof(double));\ + sfilla(temp,size2[0],size2[1],0);\ + c2c2xcorrc2(in1,size1,DoubleComplex(in2,0,size2[0]*size2[1]),size2,out);\ + free(temp);\ + } + +#endif /* !__INT_XCORR_H__ */ |