function [b,Label]=float_mean(E)

[K,L]=size(E);
q=zeros(1,L);
m=E(:,1);
count=1;
lj=L;
Label=zeros(1,L);
ind=1:L;
while(lj~=0)
    m=E(:,ind(1));
    m1=-m;
    while(m~=m1)
        for i=1:length(ind)
            q(ind(i))=max(abs(m-E(:,ind(i))));
        end
        J=find(q(ind)<0.05);
        m1=m;
        m=mean(E(:,ind(J)),2);
        m=m/sqrt(m'*m);
    end
    b(:,count)=m;
    Label(ind(J))=count;
    count=count+1;
    ind=find(Label==0);
    lj=length(ind);
end

if max(Label)==1
    e=mean(E,2);
    [md,mj]=max(sum((E-e*ones(1,L)).^2));
    b=[e E(:,mj)];
    D=zeros(2,L);
    D(1,:)=sum((E-b(:,1)*ones(1,L)).^2);
    D(2,:)=sum((E-b(:,2)*ones(1,L)).^2);
    [d,Label]=min(D);
end