sortx.m

mimo系统中的DBOST编码的详细源程序

function out2=sortx(in1,in2,in3,in4);
%if in1>in2
 %    temp=in1;
  %  in1=in2;
   % in2=temp;

   %end;
out=in3(find(in3>=in1));
out1=out(find(out<=in2));
%out2=[out1,zeros(size(1:10-length(out1)))];
n=length(out1);
for ii=1:n
    metric1(ii)=(abs(out1(ii)-in4))^2;
end;
for ii=1:n-1
    for jj=ii:n
        if (metric1(ii)>metric1(jj))
            temp1=out1(ii);
            out1(ii)=out1(jj);
            out1(jj)=temp1;
        
            temp2=metric1(ii);
            metric1(ii)=metric1(jj);
            metric1(jj)=temp2;
        end;       
    end;
end;

out2=[out1,zeros(size(1:10-length(out1)))];;