Wolfram言語とWolframノートブックの決定的な経験
オリジナルの技術計算環境
複雑なシステムのマルチドメインモデリングおよびシミュレーション
その他のモバイルアプリ
シンボリック計算，データに基づく洞察，深い技術的専門知識を組み合せて，AI時代のソリューションをお届けします．
Wolfram Consulting
その他のWolframソリューション
その他の教育用ソリューション
計算，科学，生活，その他のコース
学び，問題を解決し，アイディアを共有
Wolframのニュース，視点，洞察
リソース
l = {[image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image], [image]};
distances = Table[ ImageDistance[l[[i]], l[[j]], DistanceFunction -> "EarthMoverDistance"], {i, 1, Length@l}, {j, i + 1, Length@l}];
mtemp = PadLeft[#, Length[l]]& /@ distances; distmatrix = mtemp + Transpose[mtemp];
adjmatrix = 1 - Unitize[Threshold[distmatrix, Quantile[Flatten[distances], 1 / 4]]]; GraphPlot[adjmatrix, VertexShapeFunction -> (Inset[l[[#2]], #, Center, .5]&), SelfLoopStyle -> None, Method -> "SpringEmbedding", ImageSize -> 500]