Wolfram 언어

계산 사진학

박물관 추천

여행 사진의 메타 데이터에서 지리 정보를 분석하여, 같은 지역에 있는 박물관과 같은 명소를 추천합니다.

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

사진을 찍은 장소의 중심을 계산합니다.

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]=

가장 가까운 미술관을 찾습니다.

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

미술관에 대한 유형 집합 정보를 얻을 수 있습니다.

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]=

이 미술관의 정보를 주변 지도에 툴팁으로 시각화합니다.

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]=

관련 예제

de en es fr ja pt-br ru zh