function pe_num=pe_bit(source,receive)
%誤碼率比計算
% source=[1 0 1];
% receive=[1 1 1];
if length(source)~=length(receive)
    msgbox('錯誤');
end
pe1=0;
for i=1:length(source)
    if source(i)~=receive(i)
        pe1=pe1+1;
    end
end
pe_num=pe1;
% pe=pe1/length(source);%ber