function [cluster,cid]=cluster_create_tlbo(Data,population,k,l)
[m,n]=size(Data)
cluster=zeros(m)
    for i=1:m
        dist=zeros(1,k)
        cid=0
        mini=inf
        for j=0:k-1
            if population(l,j+1)>=0.5
                cid=cid+1
            dist(j+1)=seucli(Data(i,:),population(l,k+(j*n+1):k+(j+1)*n))
            if mini>dist(j+1)
                mini=dist(j+1)
                minind=cid
            end
            end
        end
            %[v,ind]=min(dist)
            cluster(i)=minind;
    end