xlpoly.c

C标准库源代码

/* _LPoly function */
#include "wctype.h"
#include "xmath.h"
_STD_BEGIN

_CRTIMP2 long double _LPoly(long double x, const long double *tab, int n)
	{	/* compute polynomial */
	long double y;

	for (y = *tab; 0 <= --n; )
		y = y * x + *++tab;
	return (y);
	}
_STD_END

/*
 * Copyright (c) 1994 by P.J. Plauger.  ALL RIGHTS RESERVED. 
 * Consult your license regarding permissions and restrictions.
 */

/*
941029 pjp: added _STD machinery
 */