www.pudn.com > tfarma10.rar > btoep.m, change:2004-01-14,size:405b


function T= btoep(t)
% function T= btoep(t)
%   This file is part of the TFPM toolbox v1.0 (c)
%   michael.jachan@tuwien.ac.at and underlies the GPL.
% 
% Generates a PxP block Toeplitz matrix T using the (M x M(2P-1))
% matrix sequence t.

PP= size(t);
M= PP(1);
P= (PP(2)/M+1)/2;
T= zeros(P*M);
for i= 1:P
   for j= 1:P
      T((i-1)*M+1:i*M, (j-1)*M+1:j*M)= t(:, (P-1+j-i)*M+1:(P+j-i)*M);
   end;
end;