%TE-計算誤比特
%copyright:flyingxiang
function [numero,taxa]=erro1000(L,bit)

for i=1:length(L)
   if L(i)>=0
      saida(i)=1;
   elseif L(i)<0
      saida(i)=0;
   end
end

[numero,taxa]=biterr(saida,bit);