Compare the Shape of Different Countries

Start with a list of countries:

In[1]:=

names={"USA","Poland","Portugal","Vietnam","Brazil","Finland"};

Display the map of each country:

In[2]:=

shapes=Graphics[CountryData[#,"Shape"]〚1〛,ImageSize{50,50}]&/@names

Out[2]=

Calculate shape distances using canonical time warping (CTW):

In[3]:=

borders=#ArrayResample[CountryData[#,"Polygon"]〚1,1,1〛,200]&/@names;

In[4]:=

dm=DistanceMatrix[Values[borders],DistanceFunction(Chop[CanonicalWarpingDistance[##,MaxIterations6]]&)];MatrixForm[dm]

Out[4]//MatrixForm=

Show the distance matrix:

In[5]:=

MatrixPlotdm,



Out[5]=

Wolfram Language Example Repository