function hex=bin2hex(bin)
%bin = vektor double
n=length(bin)./4;
hex=blanks(n);
for i=1:n
    bin_i=bin((i*4)-3:i*4);
    if bin_i==[1 1 1 1]
       hex(1,i)='F';
    elseif bin_i==[1 1 1 0]
       hex(1,i)='E';  
    elseif bin_i==[1 1 0 1]
       hex(1,i)='D';    
    elseif bin_i==[1 1 0 0]
       hex(1,i)='C';     
    elseif bin_i==[1 0 1 1]
       hex(1,i)='B';     
    elseif bin_i==[1 0 1 0]
       hex(1,i)='A';     
    elseif bin_i==[1 0 0 1]
        hex(1,i)='9';           
    elseif bin_i==[1 0 0 0]
        hex(1,i)='8';            
    elseif bin_i==[0 1 1 1]
        hex(1,i)='7';            
    elseif bin_i==[0 1 1 0]
        hex(1,i)='6';            
    elseif bin_i==[0 1 0 1]
        hex(1,i)='5';        
    elseif bin_i==[0 1 0 0]
        hex(1,i)='4';           
    elseif bin_i==[0 0 1 1]
        hex(1,i)='3';            
    elseif bin_i==[0 0 1 0]
        hex(1,i)='2';            
    elseif bin_i==[0 0 0 1]
        hex(1,i)='1';            
    elseif bin_i==[0 0 0 0]
        hex(1,i)='0';        
    end
end
