Wolfram Language

Nouveaux domaines de visualisation

Zoomez sur toute l'Europe

Générez des polygones pour les pays d'Europe, puis tournez autour de la carte interactivement et zoomez sur l'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