flops(0)
P=input('introduzca los coeficientes del polinomio [a0 a1 ... aN]');
s=length(P);
x=input('introduzca el x en el cual desea evaluar= ');
d=P(1,s);
for j=1:s-1;
    y=x*d;
    w=P(1,s-j)+y;
    d=w;
end
k=flops
flops(0)
w
polyval(P,x)

Q=fliplr(P)
polyval(Q,x)
e=flops