two2four.m

个人硕士论文的关于数字接收机调制解调方面的matlab程序

function[y,yn]=two2four(x,m);

%BBI 2000
if nargin<2;m=32;end;
if nargin<1;x=[1 0 1 0 1 0 0 1 1 1 0 1 0 0 0 0 1 1];end;
T=[0 1;3 2];n=length(x);ii=1;
for i=1:2:n-1;
    xi=x(i:i+1)+1;yn(ii)=T(xi(1),xi(2));ii=ii+1;
end;
yn=yn-1.5;  y=yn;
for i=1:m-1;  y=[y;yn];  end;  y=y(:)';

if nargout<1;
  subplot(211);plot(pulse(x));  v=axis;axis([v(1:2) -.5 1.5]);
  subplot(212);plot(y);  v=axis;axis([v(1:2) -2 2]);
end;