str2cod.m

用matlab实现ASCII和二进制码的互换

%ASCII码转换成二进制码
function x=str2cod(s);
if nargin<1;  %nargin是用来判断输入变量个数的函数
    s='MATLAB7.0/BBI 2000';
end;
[m,n]=size(s);
for i=1:m
    xi=dec2bin(abs(s(i,:)))-48;  %dec2bin函数将十进制数转换成二进制数
    [m1,n1]=size(xi);
    if n1==6;
        xi=[zeros(m1,2) xi];
    elseif n1==7;
        xi=[zeros(m1,1) xi];
    end;
    xi=xi'; xi=xi(:)'; x(i,:)=xi;
end;