Comparez la météo à Chicago et dans les capitales européennes

Trouvez la capitale de l'union européenne dont la température a été la plus proche de celle de Chicago au cours de l'année écoulée. Utilisez WarpingDistance pour déterminer la similarité entre les séquences de température.

In[1]:=

chicagoTemp = WeatherData["Chicago", "Temperature", {{2015, 7}, {2016, 6}, "Week"}, "Value"];

Obtenez la température pour toutes les capitales de l'union européenne.

In[2]:=

capitals = CityData /@ CountryData["EU", "CapitalCity"] // Sort

Out[2]=

In[3]:=

capitalsTemp = WeatherData[#, "Temperature", {{2015, 7}, {2016, 6}, "Week"}, "Value"] -> # & /@ capitals;

Trouvez la capitale ayant des températures les plus similaires à Chicago.

In[4]:=

Nearest[capitalsTemp, chicagoTemp, DistanceFunction -> (QuantityMagnitude@WarpingDistance[##] &)]

Out[4]=

Calculez les distances par paires dans une matrice.

In[5]:=

dm = DistanceMatrix[Keys@capitalsTemp, DistanceFunction -> (QuantityMagnitude@WarpingDistance[##] &)];

Affichez la sous-matrice 7×7 de la matrice de distance.

In[6]:=

MatrixForm[Take[dm, 7, 7]]

Out[6]//MatrixForm=

Visualisez la similarité des températures à l'aide d'une matrice de distance calculée précédemment.

In[7]:=

MatrixPlot[dm, FrameTicks -> {{Transpose[{Range[Length@capitals], capitals}], None}, {Transpose[{Range[Length@capitals], Rotate[#, \[Pi]/2] & /@ capitals}], None}}, Mesh -> True, ColorFunction -> "BlueGreenYellow", PlotLegends -> Placed[Automatic, Above], PlotLabel -> "Distance based on temperature", ImageSize -> Large]

Out[7]=