#
# Numerical Mathematics and Computing, Fifth Edition
# Ward Cheney & David Kincaid
# Brooks/Cole Publ. Co.
# (c) 2003
#
# file:  horner_symbolic
#
# Maple symbolic manipulation of nested or
# Horner polynomial:
 
 poly := a*x^3 + b*x^2 + c*x + d;
 convert(poly, horner, x);

# This can also be done with the package
# 'numapprox' within Maple for the numerical
# approximation of functions:

 with(numapprox):
 f :=x -> a*x^3 + b*x^2 + c*x + d;
 hornerform(f);