Grafique la trayectoria de la maratón de Tokyo 

Muestre la trayectoria de la maratón de Tokyo y cambie la elevación a lo largo de la ruta.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[1]:=

X course = {Line[ GeoPosition[{{35.6858, 139.788}, {35.6887, 139.786}, {35.6905, 139.785}, {35.6921, 139.785}}]], Line[GeoPosition[{{35.6665, 139.754}, {35.6705, 139.756}, {35.673, 139.758}, {35.6745, 139.759}, {35.675, 139.76}}]], Line[GeoPosition[{{35.6711, 139.765}, {35.6666, 139.771}, {35.6686, 139.773}, {35.6704, 139.775}, {35.6687, 139.78}, {35.6617, 139.788}}]], Line[GeoPosition[{{35.6921, 139.785}, {35.6959, 139.785}, {35.6964, 139.785}, {35.7021, 139.789}, {35.7033, 139.791}, {35.7061, 139.794}}]], Line[GeoPosition[{{35.7044, 139.792}, {35.7018, 139.79}, {35.6963, 139.786}, {35.6906, 139.785}, {35.6896, 139.785}, {35.6856, 139.789}}]], Line[GeoPosition[{{35.6708, 139.756}, {35.6693, 139.755}, {35.6608, 139.751}, {35.6588, 139.75}, {35.6538, 139.75}, {35.6508, 139.749}, {35.6477, 139.749}}]], Line[GeoPosition[{{35.675, 139.76}, {35.6712, 139.765}, {35.6751, 139.769}, {35.6826, 139.774}, {35.6801, 139.78}, {35.6825, 139.782}, {35.6858, 139.788}}]], Line[GeoPosition[{{35.6838, 139.76}, {35.683, 139.76}, {35.678, 139.757}, {35.6765, 139.756}, {35.6751, 139.759}, {35.6732, 139.758}, {35.6708, 139.756}}]], Line[GeoPosition[{{35.6856, 139.789}, {35.6826, 139.782}, {35.6823, 139.782}, {35.6797, 139.78}, {35.6823, 139.774}, {35.6752, 139.769}, {35.6716, 139.766}, {35.6711, 139.765}}]], Line[GeoPosition[{{35.7061, 139.794}, {35.7081, 139.796}, {35.7088, 139.796}, {35.7109, 139.796}, {35.7107, 139.798}, {35.7087, 139.796}, {35.706, 139.794}, {35.7044, 139.792}}]], Line[GeoPosition[{{35.6896, 139.692}, {35.6922, 139.692}, {35.6926, 139.695}, {35.6918, 139.696}, {35.6936, 139.697}, {35.6937, 139.701}, {35.6917, 139.708}, {35.6911, 139.714}, {35.6912, 139.717}, {35.693, 139.724}}]], Line[GeoPosition[{{35.6617, 139.788}, {35.6588, 139.788}, {35.659, 139.792}, {35.6497, 139.802}, {35.6455, 139.802}, {35.6453, 139.799}, {35.6402, 139.794}, {35.638, 139.79}, {35.6323, 139.795}, {35.6342, 139.799}, {35.6339, 139.8}, {35.6323, 139.801}}]], Line[GeoPosition[{{35.693, 139.724}, {35.6913, 139.728}, {35.691, 139.73}, {35.6916, 139.734}, {35.6928, 139.736}, {35.6937, 139.737}, {35.6994, 139.742}, {35.7026, 139.745}, {35.7006, 139.748}, {35.6982, 139.75}, {35.6975, 139.755}, {35.695, 139.756}, {35.6906, 139.756}, {35.69, 139.76}, {35.6892, 139.761}, {35.687, 139.762}, {35.6838, 139.76}}]], {Line[ GeoPosition[{{35.6475, 139.749}, {35.6542, 139.75}, {35.6588, 139.751}, {35.6665, 139.754}}]], Line[GeoPosition[{{35.6477, 139.749}, {35.6461, 139.745}, {35.6438, 139.743}, {35.6379, 139.739}, {35.6345, 139.738}, {35.633, 139.738}, {35.63, 139.737}, {35.63, 139.738}, {35.6331, 139.738}, {35.6378, 139.74}, {35.6407, 139.741}, {35.6437, 139.743}, {35.6448, 139.744}, {35.6459, 139.746}, {35.6475, 139.749}}]]}};

In[2]:=

X courseMarkers = {{"10k", GeoPosition[{35.6761, 139.76}]}, {"15k", GeoPosition[{35.6306, 139.736}]}, {"20k", GeoPosition[{35.668, 139.758}]}, {"25k", GeoPosition[{35.688, 139.784}]}, {"30k", GeoPosition[{35.6949, 139.788}]}, {"35k", GeoPosition[{35.6671, 139.771}]}, {"40k", GeoPosition[{35.6439, 139.797}]}, {"5k", GeoPosition[{35.6982, 139.738}]}, {"Goal", GeoPosition[{35.6316, 139.8}]}, {"Start", GeoPosition[{35.6885, 139.692}]}};

In[3]:=

X elevationData = {{0, 59.67}, {246.58, 40.}, {491.5, 43.05}, {694.28, 48.76}, {825.29, 50.86}, {918.59, 59.96}, {1159.8, 52.9}, {1394.85, 57.26}, {1647.81, 54.21}, {1791.67, 48.59}, {1948.06, 51.75}, {2169.71, 48.86}, {2400.07, 49.7}, {2551.85, 43.32}, {2678.92, 35.37}, {3031.35, 36.45}, {3151.15, 33.46}, {3484.77, 26.52}, {3670.52, 23.44}, {3953.56, 32.51}, {4276.72, 26.3}, {4633.53, 24.27}, {4890.26, 19.61}, {5520.15, 16.15}, {5723.02, 18.85}, {5844.53, 13.94}, {6170.75, 21.53}, {6533.86, 26.57}, {6906.01, 17.94}, {7188.39, 19.71}, {7468.78, 19.84}, {7601.46, 8.51}, {7721.62, 12.33}, {8036.58, 10.31}, {8158.06, 3.07}, {8402.54, 16.99}, {8575.32, 10.22}, {8709.15, 0.82}, {9097.27, 6.98}, {9515.1, 27.12}, {9709.16, 24.42}, {10059.9, 27.75}, {10324.7, 14.59}, {10898., 25.16}, {11431.4, 22.63}, {11990.5, 14.57}, {12470.5, 9.92}, {12958.4, 13.05}, {13290.9, 18.2}, {13562.5, 18.6}, {13773.8, 26.69}, {13963.3, 20.77}, {14196.4, 15.66}, {14452.9, 25.91}, {14738.7, 12.89}, {15143.5, 13.37}, {15376.3, 22.45}, {15620.6, 28.34}, {15650.4, 22.22}, {15890.4, 21.1}, {16121.4, 11.57}, {16536.5, 13.17}, {16812.5, 28.}, {17067.5, 13.75}, {17291., 17.99}, {17469.7, 26.95}, {17683.4, 17.18}, {17968.4, 16.66}, {18317.1, 14.15}, {18806.7, 8.61}, {19280.9, 16.8}, {19837.8, 21.4}, {20364.7, 24.93}, {20940.5, 16.43}, {21194.8, 28.14}, {21813.6, 24.38}, {22308.3, 25.46}, {22373.4, 27.12}, {22992.4, 22.08}, {23299.7, 24.74}, {23660., 17.88}, {23954.2, 16.44}, {24262.4, 16.13}, {24637.4, 10.84}, {24937.3, 12.77}, {25547.5, 18.03}, {26154.2, 17.01}, {26690.8, 12.53}, {26959.4, 11.83}, {27425.3, 17.01}, {27590.5, 18.5}, {27905.3, 8.61}, {28131.8, 15.7}, {28250., 4.88}, {28507.8, 5.31}, {28816.6, 15.46}, {28984.5, 16.32}, {29294.4, 8.3}, {29450.7, 12.45}, {29709., 11.56}, {30205.8, 15.04}, {30244.6, 17.43}, {30514.6, 15.68}, {30835.3, 17.64}, {31466.2, 13.7}, {31738.4, 10.9}, {31877.2, 12.38}, {32151.1, 15.96}, {32485.3, 15.37}, {33139.9, 23.06}, {33510.3, 23.59}, {33912.9, 26.51}, {34062.8, 27.78}, {34282.7, 21.63}, {34618.4, 24.47}, {35169.4, 19.19}, {35330., 12.16}, {35793.4, 14.8}, {35891.8, 13.58}, {36221.6, 12.87}, {36914.5, 3.63}, {37354.1, 3.62}, {37700.6, 8.54}, {38342.3, 8.59}, {38667.7, 5.67}, {39048.1, 3.54}, {39497.7, 10.9}, {39761.9, 8.49}, {40150.1, 1.89}, {40408., 3.73}, {40650.8, 5.89}, {40888.8, 6.06}, {41261.3, 9.38}, {41661.2, 13.74}, {41919.5, 24.15}};

In[4]:=

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