get_rand_seq.m

This a framework to test new ideas in transmission technology. Actual development is a LDPC-coder in

function [seq] = get_rand_seq( M, N, L, n_psk );
% get_rand_seq( M, N, L, alphabet )
% produces a matrix of M cyclic shifts of a random sequence of 
% length N and equiprobable out of the n_psk-alphabet. The shift
% is L


s = exp( 2 * pi * i * randint( N, 1, n_psk ) / n_psk );
seq = [];
for i=0:(M-1)
    seq = [seq circshift( s, i * L ) ];
end
seq = seq';