Plote o trajeto da maratona de Tóquio

Visualize o percurso da Maratona de Tóquio e a mudança de elevação ao decorrer do trajeto.

mostre o input completo de Wolfram Language

In[4]:=

GeoGraphics[{Red, Thickness[0.01], course, 
  {EdgeForm[White], LightBlue, Opacity[0.9], 
   Disk[#[[2]], 0.003*{0.7*StringLength[#[[1]]], 1}] & /@ 
    courseMarkers},
  Text[Style[#[[1]], 
      Directive[FontFamily -> "Verdana", Blue, FontSize -> 14, 
       FontWeight -> Bold]], #[[2]]] & /@ courseMarkers,
  Inset[Rasterize[
    Grid[{{ListPlot[{#1/1000, #2} & @@@ elevationData, Joined -> True,
         Filling -> Bottom, 
        FillingStyle -> Directive[Orange, Opacity[0.5]], 
        PlotRangePadding -> {None, {None, Automatic}}, Frame -> True, 
        PlotStyle -> Directive[Thin], 
        FrameLabel -> {"Distance (km)", 
          Column[{"Elevation", "(m)"}, Alignment -> Center]},
        FrameTicks -> {Automatic, {0, 40}, None, None}, 
        GridLines -> {None, {20, 40}},
        AspectRatio -> 1/20, ImageSize -> 500]}}, Frame -> All, 
     FrameStyle -> GrayLevel[0.6]]], 
   GeoPosition[{35.6095, 139.708}], {100, 0}, 0.13]
  }, ImageSize -> 520, 
 GeoRangePadding -> {{Scaled[0.02], Scaled[0.1]}, {Scaled[0.1], 
    Scaled[0.12]}}]

Out[4]=

Wolfram Mathematica

Plote o trajeto da maratona de Tóquio

Mathematica

Wolfram Mathematica

Plote o trajeto da maratona de Tóquio

Related Examples

Mathematica