Wolfram 语言

图像和信号处理

比较不同国家的形状

使用 CanonicalWarpingDistance 来计算不同国家的形状间的相似度.

In[1]:=
Click for copyable input
names = {"USA", "Poland", "Portugal", "Vietnam", "Brazil", "Finland"}; borders = <|# -> ArrayResample[CountryData[#, "Polygon"][[1, 1, 1]], 200] & /@ names|>;
In[2]:=
Click for copyable input
shapes = Graphics[CountryData[#, "Shape"][[1]], ImageSize -> {50, 50}] & /@ Keys[borders]
Out[2]=

利用经典时间规整计算形状距离.

In[3]:=
Click for copyable input
dm = DistanceMatrix[Values[borders], DistanceFunction -> (Chop[ CanonicalWarpingDistance[##, MaxIterations -> 6]] &)];

显示距离矩阵.

In[4]:=
Click for copyable input
MatrixPlot[dm, FrameTicks -> {{MapIndexed[{#2[[1]], #1} &, shapes], None}, {MapIndexed[{#2[[1]], Rotate[#1, \[Pi]/4]} &, names], None}}, Mesh -> True, ColorFunction -> "BlueGreenYellow", PlotLegends -> Automatic, PlotLabel -> "Distance based on country shape", ImageSize -> Medium]
Out[4]=

相关范例

de en es fr ja ko pt-br ru