qdpskcd.m

来自「交全面的给出了好几种调制解调方案的matlab代码,又ASK,BPSK,FSK,」· M 代码 · 共 20 行

function y=qdpskcd(x,Kmod);
%
% Code& Decode for QDPSK BBI 2000,用来完成QDPSK码的变换功能
if nargin<2; Kmod=1;end;
if nargin<1;x=str2cod('MATLAB');end;
T=[0 3;1 2];
n=length(x);y(1:2)=x(1:2);a=T(y(1)+1,y(2)+1);
for i=3:2:n-1;
    xn=x(i:i+1)+1;b=T(xn(1),xn(2));
    if Kmod==1;%code
        [y(i),y(i+1)]=find(T==rem(b+a,4));a=T(y(i),y(i+1));
    elseif Kmod==2;%decode
        if b<a;b=b+4;end;
        [y(i),y(i+1)]=find(T==rem(b-a,4));
        a=rem(b,4);a=a+(a==0)*4;
    end;
    y(i:i+1)=y(i:i+1)-1;
end;