function s=randsn1(K)
Tb=10;   % 1/Tb is baud rate
%K=1024;
 r=rand(1,ceil(K/Tb));
 for i=1:ceil(K/Tb)
    if r(i)>=0.5
       sb(i)=1;
    else
       sb(i)=-1;
    end
 end

for i=1:ceil(K/Tb)
   for n=1:Tb
      s(Tb*(i-1)+n)=sb(i);
   end
end