cluster.m

来自「Lattice coding and decoding」· M 代码 · 共 31 行

function packed = cluster(pattern,times,clst_length)

%CLUSTER Pack set of entries to the cluster.
%  Y = CLUSTER(X,T,L) maps each element of X to a subset of length stored
%  in L and repeats created pattern T-times. X must be a column vector.
%
%  Example:
%       x = [1:3]'
%       y = cluster(x,2,3)
%
%  See also BLUR, SPAN.

%   Copyright 2001-2003 Kamil Anis, [e-mail]
%   Dept. of Radioelectronics, 
%   Faculty of Electrical Engineering
%   Czech Technical University in Prague
%   $Revision: 0.1 $  $Date: 2003/1/16 17:33:28 $
%   --
%   <additional stuff goes here>

l = length(pattern);
n = 1:times;
block = l * clst_length;
series = block * n - block + 1;

for i = 1:l
  mapto = series + (i - 1) * clst_length;
  pos = blur(mapto',clst_length,1);
  packed(pos,1) = pattern(i);
end