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\find_close_indeces.m

?????文件???????1245??2010-06-29?22:42??fourier\make_fft_sec.m

?????文件????????124??2010-06-30?16:34??fourier\readme.txt

?????文件????????335??2010-06-30?00:13??fourier\test.m

?????文件???????1467??2010-06-30?16:20??fourier\test_fourier.m

?????文件?????983094??2008-04-24?12:26??fourier\tron.bmp

?????目錄??????????0??2010-07-19?10:07??fourier

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

???????????????986860????????????????????7