str2cod.m

对ASK调制解调进行了仿真,包括程序仿真和模型仿真

function x=str2cod (s);
if nargin<1;s='MATLAB 5.2/BBI 2000'; end;
[m, n] =size (s);
for i=1:m 
    xi=dec2bin (abs (s (i,:))) -48; [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;