wcl_mseq_shift.m

Hybrid DS-FH communication systems

%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%
% 	Shift, use in WCL_CreateMSeq.m
%	
% 	Copyright(c) 2009-2015 HanYang University Wireless Communication Lab
% 
% 	Date		Name            Version         Description
%   ----------  -----------     -----------     ---------------------------
% 	2009.05.22	JINMINGSONG     v1.00           Create
% 	2009.05.23	JINMINGSONG     v1.01           Upgrade
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

function[outregi] = WCL_mseq_shift(inregi,shiftr,shiftu)
[h,v] = size(inregi);
outregi = inregi;
shiftr = rem(shiftr,v);
shiftu = rem(shiftu,h);
if shiftr > 0 
    outregi(:,1 :shiftr) = inregi(:,v-shiftr+1:v);
    outregi(:,1+shiftr:v) = inregi(:,1:v-shiftr);
elseif shiftr < 0
    outregi(:,1 :v+shiftr) + inregi(:,1-shiftr:v );
    outregi(:,v+shiftr_1:v) = inregi(:,1:-shiftr);
end

inregi = outregi;

if shiftu>0
    outregi(1 :h-shiftru,:) = inregi(1+shiftru:h,:);
    outregi(h-shiftru+1:h,:) = inregi(1 :shiftu,:);
elseif shiftu <0
    outregi(1:-shiftu+1:h,:) = inregi(h+shiftu+1:h,:);
    outregi(1-shiftu:h,:) = inregi(1 :h+shiftu,:);
end