function?[new_indeces]=find_close_indeces（im_in）

[rc]=find（im_in）;

p=pdist（[r?c]）;
psqr=squareform（p）;

?nl=length（r）;
?
new_indeces=[r（1）?c（1）];
ind_ind_data=1;
lenindata=1;
newind=1;
?for?ind=2:nl
??
????mcur_dist=psqr（newind:）;
????[dist_mindist_min_ind]=sort（mcur_dist）;
????[dmin?inddmin]=setdiff（?dist_min_indind_ind_data）;
????dist_min_ind?=??dist_min_ind（sort（inddmin））;
????newind=dist_min_ind（1）;
????new_indeces??=[new_indeces;?[r（newind）?c（newind）]];
????
?????ind_ind_data=[ind_ind_data;?newind];
????lenindata=length（ind_ind_data）;
????
?end
?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????595??2010-02-27?13:01??Fourier?Descriptor\find_close_indeces.m

?????文件???????1340??2010-03-01?12:27??Fourier?Descriptor\license.txt

?????文件???????1215??2010-02-28?18:03??Fourier?Descriptor\make_fft_sec.m

?????文件????????717??2011-03-13?14:17??Fourier?Descriptor\test_fourier.asv

?????文件????????812??2011-03-13?14:23??Fourier?Descriptor\test_fourier.m

?????目錄??????????0??2011-03-14?18:09??Fourier?Descriptor

-----------?---------??----------?-----??----

?????????????????4679????????????????????6