function [a,dega]=poltrf(b,degb,t);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% polynomial transformation:                                    %
%                                                               %
% a(s)=b(t*s)                                                   %
%                                                               %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% M. Sebek, October 1990                                        %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

a=b; dega=degb;

if t==0
  disp('Warning: poltrf: zero transformation');
end

ti=1;
for i=2:dega+1
  ti=ti*t;
  a(i)=a(i)*ti;
end