function punti=media_punti2(punti_doppi,dist_unic_punto)

%Se due punti ricostruiti distano tra loro mono di dist_unic_punto essi
%vengono considerati corrispondenti allo stesso marker. Si procede
%mediandoli.

i=1;

bound=length(punti_doppi)+1;

while i<bound-1
    j=i+1;
    while j<bound
      if distanza_punto_punto(punti_doppi(i,1:2),punti_doppi(j,1:2))<dist_unic_punto
         %calcolo la media aritmetica e la salvo su indice i
         punti_doppi(i,1)=(punti_doppi(i,1)+punti_doppi(j,1))/2; 
         punti_doppi(i,2)=(punti_doppi(i,2)+punti_doppi(j,2))/2;
         %elimino l'info in corrispondenza di j
         punti_doppi=[punti_doppi(1:j-1,:) ;punti_doppi(j+1:length(punti_doppi),:)];
         bound=bound-1;
         j=j-1;
      end
      j=j+1;  
    end
    i=i+1;
end
punti=punti_doppi; 
end