function dec=bin2dec(bin)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  ENCODE: Ruturn the decimal number corresponding 
%                binary number
%
%	Fist Coded			20 May		1997
%	Last Modefied		20 May		1997
%
%	Copyright (c)
%	T. Suzudo JAERI-CAIL
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% bin     	 : binary number
% dec     :rule number

dec=0;
digit=size(bin,2);
for ii=1:digit
	dec=dec+2^(digit-ii)*bin(ii);
end