{ RCSid $Id: polynomial.cal,v 1.2 2018/10/23 22:19:07 greg Exp $ }
{
	Simple Horner's rule evaluation of N-degree polynomial
	given as coefficient array:
	
		c(i) : select(i,coef0,coef1,coef2,...,coefN);
}

eval_poly(x,c,i) : if(c(0)-i-.5, x*eval_poly(x,c,i+1), 0) + c(i);

polynomial(x,c) : eval_poly(x,c,1);