seq_to_s.m

来自「This a framework to test new ideas in tr」· M 代码 · 共 18 行

function [S] = seq_to_S( seq, L );

% This makes it more easy, as seq is supposed to be
% s11, s12, s13, ...
% s21, s22, s23, ...
% and the resulting matrix is supposed to be inverted...
seq = fliplr( seq );
[ M N ] = size( seq );

S = [];
for seq_nr=1:M
    part = [];
    for line_nr=1:N-L+1
        part = [ part; seq( seq_nr, line_nr:line_nr+L-1 ) ];
    end
    S = [ S part ];
end