Zoomez sur toute l'Europe : Nouveautés de Wolfram Language 11

Zoomez sur toute l'Europe

Générez des polygones colorés pour les pays d'Europe, puis déplacez-vous de manière interactive sur la carte et observez de plus près Andorre et Londres.

In[1]:=

SeedRandom[12300321]

In[2]:=

polygons = {RandomColor[], #} & /@ 
   EntityValue[EntityClass["Country", "Europe"], "Polygon"];

In[3]:=

DynamicGeoGraphics[polygons, GeoCenter -> \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Zurich", Typeset`boxes$$ = 
      TemplateBox[{"\"Zurich\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"City\"", ",", 
RowBox[{"{", 
RowBox[{"\"Zurich\"", ",", "\"Zurich\"", ",", "\"Switzerland\""}], 
              "}"}]}], "]"}], 
        "\"Entity[\\\"City\\\", {\\\"Zurich\\\", \\\"Zurich\\\", \
\\\"Switzerland\\\"}]\"", "\"city\""}, "Entity"], 
      Typeset`allassumptions$$ = {{
       "type" -> "Clash", "word" -> "Zurich", 
        "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
        "Values" -> {{
          "name" -> "City", "desc" -> "a city", 
           "input" -> "*C.Zurich-_*City-"}, {
          "name" -> "AdministrativeDivision", 
           "desc" -> "an administrative division", 
           "input" -> "*C.Zurich-_*AdministrativeDivision-"}, {
          "name" -> "Lake", "desc" -> "a lake", 
           "input" -> "*C.Zurich-_*Lake-"}}}, {
       "type" -> "SubCategory", "word" -> "Zurich", 
        "template" -> "Assuming ${desc1}. Use ${desc2} instead", 
        "count" -> "2", 
        "Values" -> {{
          "name" -> "{Zurich, Zurich, Switzerland}", 
           "desc" -> "Zurich (Switzerland)", 
           "input" -> "*DPClash.CityE.Zurich-_**Zurich.Zurich.\
Switzerland--"}, {
          "name" -> "{Zurich, Kansas, UnitedStates}", 
           "desc" -> "Zurich (United States)", 
           "input" -> "*DPClash.CityE.Zurich-_**Zurich.Kansas.\
UnitedStates--"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 
      2}, Typeset`querystate$$ = {
      "Online" -> True, "Allowed" -> True, 
       "mparse.jsp" -> 1.089823`6.488900962661124, "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{127., {7., 15.}},
TrackedSymbols:>{
        Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, 
         Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\), GeoRange -> Quantity[1500, "Kilometers"]]