poly.h

Go to the documentation of this file.

 
#ifndef LIBA_POLY_H
#define LIBA_POLY_H
 
#include "a.h"

 
#if defined(__cplusplus)
extern "C" {
#endif /* __cplusplus */
#if defined(LIBA_POLY_C)
#undef A_INTERN
#define A_INTERN A_INLINE
#endif /* LIBA_POLY_C */

#if !defined A_HAVE_INLINE || defined(LIBA_POLY_C)
A_EXTERN void a_poly_swap(a_real *a, a_size n);
#endif /* A_HAVE_INLINE */
A_EXTERN void a_poly_swap_(a_real *a, a_real *b);
#if defined(A_HAVE_INLINE) || defined(LIBA_POLY_C)
A_INTERN void a_poly_swap(a_real *a, a_size n)
{
    if (n > 1) { a_poly_swap_(a, a + n); }
}
#endif /* A_HAVE_INLINE */

#if !defined A_HAVE_INLINE || defined(LIBA_POLY_C)
A_EXTERN a_real a_poly_eval(a_real const *a, a_size n, a_real x);
#endif /* A_HAVE_INLINE */
A_EXTERN a_real a_poly_eval_(a_real const *a, a_real const *b, a_real x);
#if defined(A_HAVE_INLINE) || defined(LIBA_POLY_C)
A_INTERN a_real a_poly_eval(a_real const *a, a_size n, a_real x)
{
    return n ? a_poly_eval_(a, a + n, x) : 0;
}
#endif /* A_HAVE_INLINE */

#if !defined A_HAVE_INLINE || defined(LIBA_POLY_C)
A_EXTERN a_real a_poly_evar(a_real const *a, a_size n, a_real x);
#endif /* A_HAVE_INLINE */
A_EXTERN a_real a_poly_evar_(a_real const *a, a_real const *b, a_real x);
#if defined(A_HAVE_INLINE) || defined(LIBA_POLY_C)
A_INTERN a_real a_poly_evar(a_real const *a, a_size n, a_real x)
{
    return n ? a_poly_evar_(a, a + n, x) : 0;
}
#endif /* A_HAVE_INLINE */

A_EXTERN void a_poly_xTx(a_uint m, a_real const *x, a_uint n, a_real *A);

A_EXTERN void a_poly_xTy(a_uint m, a_real const *x, a_real const *y, a_uint n, a_real *b);
 
#if defined(LIBA_POLY_C)
#undef A_INTERN
#define A_INTERN static A_INLINE
#endif /* LIBA_POLY_C */
#if defined(__cplusplus)
} /* extern "C" */
#endif /* __cplusplus */

 
#endif /* a/poly.h */