function bit_error_rate=BER(bit_in,bit_out)
 bit_errors=find(bit_in~=bit_out);
 bit_error_count=size(bit_errors,2);
total_bits=size(bit_out,2);
bit_error_rate=bit_error_count/total_bits;