function??[IDXisnoise]?=?DBSCAN（DataRadiusMinPts）
%
%?Syntax:??[IDXisnoise]?=?DSCAN（DataRadiusMinPts）
%?
Cluster_Num?=?0;
Num?=?size（Data1）;
IDX?=?zeros（Num1）;
Distance?=?pdist2（Data（:1:2）Data（:1:2））;
visited?=?false（Num1）;
isnoise?=?false（Num1）;
%?DBSCAN?密度聚類
for?index_i?=?1:Num
????if?~visited（index_i）
????????visited（index_i）?=?true;
????????Neighbors?=?find（Distance（index_i:）<=Radius&Distance（index_i:）>0）;%此處返回的為行向量
????????if?numel（Neighbors）????????????isnoise（index_i）?=?true;
????????else
????????????Cluster_Num?=?Cluster_Num?+?1;
????????????IDX（index_i）?=?Cluster_Num;
????????????%?尋找index_i周圍鄰近點
????????????index_j?=?1;
????????????while?true
????????????????????if?~v