function [q] = horner(c,x,a)

q = [];
n = length(x);
d=length(a);

for i=1:d
    qx=c(n);
    for j=n-1:-1:1
        qx=c(j)+(a(i)-x(j))*qx;
    end
    q=[q;qx];
end
figure
uitable('Data',q)
end