WOLFRAM

Wolfram 语言与系统参考资料中心

使用推土机距离的图像的相似图

    
Wolfram Language code: l = {[image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image]};
Wolfram Language code: distances = Table[ ImageDistance[l[[i]], l[[j]], DistanceFunction -> "EarthMoverDistance"], {i, 1, Length@l}, {j, i + 1, Length@l}];
Wolfram Language code: mtemp = PadLeft[#, Length[l]]& /@ distances; distmatrix = mtemp + Transpose[mtemp];
Wolfram Language code: adjmatrix = 1 - Unitize[Threshold[distmatrix, Quantile[Flatten[distances], 1 / 4]]]; GraphPlot[adjmatrix, VertexShapeFunction -> (Inset[l[[#2]], #, Center, .5]&), SelfLoopStyle -> None, Method -> "SpringEmbedding", ImageSize -> 500]