function ib = escolhe_elemento_central(base,CD)
%devolve o indice do elemento da base cujo centro esta mais proximo do
%centro do dominio CD
nb = size(base.elementos,2);
d_min = Inf;
i_min = 0;
for i = 1:nb
    D = base.elementos(i).centro - CD;
    di = norm(D,2);
    if di < d_min
        d_min = di;
        i_min = i;
    end
end
ib = i_min;