Die Position von Schiffswracks darstellen 

Plotten Sie Schiffswracks im Mittelmeer.

Ermitteln Sie eine Liste von Schiffswracks im Mittelmeer.

In[1]:=

X mediterraneanShipwrecks = GeoEntities[Entity["Ocean", "MediterraneanSea"], "Shipwreck"];

In[2]:=

X Take[mediterraneanShipwrecks, 10]

Out[2]=

Ermitteln Sie die Positionen der Schiffswracks.

In[3]:=

X mediterraneanShipwreckPositions = EntityValue[mediterraneanShipwrecks, "Position"];

Verwenden Sie das Symbol eines Bootes als Markierung.

In[4]:=

X boat = Graphics[{ FaceForm[{GrayLevel[1], Opacity[0.25]}], EdgeForm[GrayLevel[0.5]], Polygon[{{7, 18}, {0, 4}, {7, 4}, {7, 18}}], Polygon[{{8, 20}, {18, 4}, {8, 4}, {8, 20}}], FaceForm[{Opacity[0.75], RGBColor[0.6, 0.4, 0.2]}], Polygon[{{1, 3}, {16, 3}, {14, 0}, {4, 0}, {1, 3}}] }]

Out[4]=

In[5]:=

X GeoGraphics[ GeoMarker[mediterraneanShipwreckPositions, boat, "Scale" -> 1], GeoProjection -> "Mercator"]

Out[5]=