From 060805714d090ac0ea338978bd856338f3b1d0c9 Mon Sep 17 00:00:00 2001 From: torset Date: Tue, 10 Feb 2009 14:08:23 +0000 Subject: Add some interfaces, not tested --- src/elementaryFunctions/interfaces/int_exp10.h | 34 +++++++++++++++++++++++++ src/elementaryFunctions/interfaces/int_lnp1m1.h | 26 +++++++++++++++++++ 2 files changed, 60 insertions(+) create mode 100644 src/elementaryFunctions/interfaces/int_exp10.h create mode 100644 src/elementaryFunctions/interfaces/int_lnp1m1.h (limited to 'src/elementaryFunctions/interfaces') 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__ */ -- cgit