Сравнительный анализ форм разных стран
Воспользуемся функцией CanonicalWarpingDistance, чтобы найти сходство между формами разных стран.
In[1]:=
names = {"USA", "Poland", "Portugal", "Vietnam", "Brazil",
"Finland"};
borders = <|# ->
ArrayResample[CountryData[#, "Polygon"][[1, 1, 1]], 200] & /@
names|>;In[2]:=
shapes = Graphics[CountryData[#, "Shape"][[1]],
ImageSize -> {50, 50}] & /@ Keys[borders]Out[2]=
Рассчитаем разницу между формами стран с помощью канонического преобразования временного масштаба.
In[3]:=
dm = DistanceMatrix[Values[borders],
DistanceFunction -> (Chop[
CanonicalWarpingDistance[##, MaxIterations -> 6]] &)];Построим матрицу различий между формами стран.
In[4]:=
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]=
