DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦34c9d607c⟧ TextFile

    Length: 301 (0x12d)
    Types: TextFile
    Notes: UNIX file
    Names: »pol.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »libm/pol.c«

TextFile

/*
 * Evaluate a polynomial.
 * The polynomial must contain at least two terms.
 */
#include <math.h>

double
_pol(x, c, n)
double x;
double c[];
register int n;
{
	double r, d;
	register int i;

	r = c[0];
	d = x;
	--n;
	for (i=1; i<n; i++) {
		r += d*c[i];
		d *= x;
	}
	r += d*c[i];
	return (r);
}