function i = bin_to_dec(x)
%Translates a binary vector to its
%decimal equivalent.
%NB= integer, number of bits
%x= NB component row vector;
% binary representation of i, prepadded with zeros so it has NB bits
%i= integer between 0 and 2^NB-1
NB=length(x);
if (NB<1)
error("NB is less than 1");
end
i=0;
for alp=0:(NB-1)
i = i + 2^alp*x(NB - alp);
end