function [hc,cid]=histc_tlbo(ind,chr,m,h,k)
hl=length(ind);
cid=0;
for i=1:k
    %if chr(1,i)>0.5
        cid=cid+1;
        mu(cid)=chr(i);
    %end
end
for i=1:hl
      c=abs(ind(i)-mu);
      cc=find(c==min(c));
      hc(ind(i))=cc(1);
  end