level 6
冉qx
楼主
如下图所示的数据点,明显被分成两类,但使用FindClusters怎么都得不到如下效果。有什么解决办法吗?

代码:
methods = {Automatic,
"Agglomerate", "DBSCAN", "GaussianMixture", "JarvisPatrick",
"MeanShift", "SpanningTree", "Spectral"};
(lis = Join[
Table[{x, x^2}, {x, 1, 10, 0.1}], {{2.1, 16}, {3.3, 30}, {4.3,
50}, {5.5, 80}}]) // ListPlot
ListPlot /@
Table[FindClusters[lis, Method -> methods[[i]]], {i,
Length[methods]}]
2022年10月05日 08点10分
1

代码:methods = {Automatic,
"Agglomerate", "DBSCAN", "GaussianMixture", "JarvisPatrick",
"MeanShift", "SpanningTree", "Spectral"};
(lis = Join[
Table[{x, x^2}, {x, 1, 10, 0.1}], {{2.1, 16}, {3.3, 30}, {4.3,
50}, {5.5, 80}}]) // ListPlot
ListPlot /@
Table[FindClusters[lis, Method -> methods[[i]]], {i,
Length[methods]}]