function p=pstupid(x,a)
% calcola il valore del polinomio di coefficienti dati da a
% col metodo stupido
% controllo che a sia un vettore e ne calcolo la dimensione
[nn,mm]=size(a);
if ((nn ~=1) & (mm ~= 1)) error('a deve essere un vettore');end;
n=nn+mm-1;
% se x matrice quadrata m dimensione
[nn,mm]=size(x);
if (nn ~= mm) error('x deve essere scalare o quadrata');end;
e=eye(nn);
p=a(1)*e;
for k=2:n
    p=p+a(k)*x^(k-1);
end
end