Wolfram Language

Computergestützte Fotografie

Schlagen Sie ein Museum vor

Durch die geographiebezogene Analyse von Metadaten einer Sammlung touristischer Fotos können Sie andere Sehenswürdigkeiten in derselben Gegend, wei beispielsweise ein Museum, vorschlagen.

In[1]:=
Click for copyable input
files = Map[img \[Function] ExampleData[img, "FilePath"], ExampleData[{"TestImageSet", "Oxford2011"}]]; geopos = Map[file \[Function] Import[file, "GeoPosition"], files];

Berechnen Sie den Mittelpunkt der Locations, an denen Fotos aufgenommen wurden.

In[2]:=
Click for copyable input
geodata = GeoPosition[{Mean@geopos[[ All, 1, 1]], Mean@geopos[[All, 1, 2]], Mean@Cases[geopos, GeoPosition[{_, _, h_}] :> h]}]
Out[2]=

Ermitteln Sie das nähestgelegene Museum.

In[3]:=
Click for copyable input
entMus = Quiet[First@GeoNearest["Museum", geodata]];
In[4]:=
Click for copyable input
geoMus = Quiet[FindGeoLocation@entMus];

Rufen Sie Information über dieses Museum ab und formulieren Sie diese.

In[5]:=
Click for copyable input
mus = EntityValue[entMus, EntityProperty["Museum", "Name"]]; type = EntityValue[entMus, EntityProperty["Museum", "MuseumTypes"]]; about = WikipediaData[mus, "SummaryPlaintext"]; description = TextGrid[{ {Style["MUSEUM TO VISIT", 15], SpanFromLeft}, {Style["Name:", Bold], mus}, {Style["Types:", Bold], StringTake[ToString[type], {2, -2}]}, {Style["About:", Bold], about} }, ItemSize -> {{4, 30}, Automatic}]
Out[5]=

Visualisieren die Informationen zu diesem Museum als Tooltip auf einer Karte der Umgebung.

In[6]:=
Click for copyable input
tooltip = Tooltip[GeoMarker[geoMus, Entity["Icon", "Museum"]], description];
In[7]:=
Click for copyable input
GeoGraphics[{Thick, Red, GeoDisk[geodata, Quantity[1000, "Meters"]], tooltip}, "GeoRange" -> 1500, ImageSize -> Medium]
Out[7]=

Verwandte Beispiele

en es fr ja ko pt-br ru zh