Wolfram Language

Nouveaux domaines de visualisation

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]:=
Click for copyable input
SeedRandom[12300321]
In[2]:=
Click for copyable input
polygons = {RandomColor[], #} & /@ EntityValue[EntityClass["Country", "Europe"], "Polygon"];
In[3]:=
Click for copyable input
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"]]
Jouer l'animation
Arrêter l'annimation

Exemples connexes

de en es ja ko pt-br ru zh