function [R,tipo] = constroi_base(C,raio,tipobase)

nb = size(C,2);
for i = 1:nb
    R(1,i) = raio(1);
    R(2,i) = raio(2);
    tipo(i) = tipobase;
end
