// Updated(18-7-07)
// 11.16
// finds the value of a polynomial in powers of z^{-1}
// function Y = filtval(P,z)

function Y = filtval(P,z)

N = length(P)-1;
Q = polyno(P,'x');
Y = horner(Q,z)/z^N; 
endfunction;