Visible Region from a Building

Retrieve the

Entity

of the highest building in the United States:

In[1]:=

building=

One World Trade Center

BUILDING

;

Find its position and height:

In[2]:=

buildingData=building[{"Latitude","Longitude","Height"}]

Out[2]=



40.713

°

,

-74.0135

°

,

1775.92

ft



Get an image of the building:

In[3]:=

image=building["Image"]

Out[3]=

Find the region visible from the top of the building with

GeoVisibleRegion

, assuming flat terrain:

In[4]:=

GeoGraphics{GeoStyling["StreetMap"],GeoVisibleRegion[buildingData],GeoMarker[building,image,"Scale"0.3]},



Out[4]=

Find the location and height of another structure:

In[5]:=

statue=

Statue of Liberty

BUILDING

;buildingData2=statue[{"Latitude","Longitude","Height"}];

Compare the regions visible from the tops of the two buildings:

In[6]:=

GeoGraphics[{EdgeForm[Black],GeoStyling@Opacity[.4,ColorData[116,3]],GeoVisibleRegion[buildingData],GeoVisibleRegion[buildingData2]},GeoScaleBar"Kilometers"]

Out[6]=

Compare the areas covered by the regions:

In[7]:=

GeoArea[GeoVisibleRegion[buildingData2]]/GeoArea[GeoVisibleRegion[buildingData]]

Out[7]=

0.17182

Wolfram Language Example Repository

See Also

Publisher Information

Visible Region from a Building

See Also

Related Symbols

Publisher Information