function y=cod2str(x);
%
% Usage: s=cod2str(x);BBI 2000;x是二進制碼流是行向量 每八位代表一個字符
% to convert the binary vector to strings
if nargin<1;
    x=str2cod(str2mat('MATLAB 5.2','BBI 2000'));
end;
[m,n]=size(x);n=n/8;
for j=1:m;
    s=[];
    for i=1:n;
        I=(1:8)+(i-1)*8;
        a=sum(x(j,I).*[128 64 32 16 8 4 2 1]);
        s=[s setstr(a)];
    end ;
    if j==1;y=s;else;y=str2mat(y,s);end;
end;