Group Abstract Group Abstract

Message Boards Message Boards

Do something similar using my own coordinates

Posted 10 years ago
POSTED BY: Luis Ledesma
4 Replies
Posted 10 years ago
POSTED BY: Luis Ledesma
Posted 10 years ago
POSTED BY: Luis Ledesma
POSTED BY: Marco Thiel

Hi Luis,

I guess that in principle this works:

data = GeoElevationData[GeoDisk[Here, Quantity[10, "Miles"]]];
ListPlot3D[data, MeshFunctions -> {#3 &}, Mesh -> 40]

It tries to estimate your GPS coordinates from our IP address. Sometimes that doesn't work quite well. If you know your geoposition you can use an inline semantic input like so:

enter image description here

For your position this is:

data = GeoElevationData[GeoDisk[GeoPosition[{35227/1800, -7409/75}], Quantity[10, "Miles"]]];
ListPlot3D[data, MeshFunctions -> {#3 &}, Mesh -> 40]

enter image description here

You can make this look a bit nicer like so:

img = Image[GeoGraphics[GeoBoundingBox[GeoPosition[{35227/1800, -7409/75}], Quantity[10, "Miles"]]]]
ListPlot3D[data, MeshFunctions -> {#3 &}, Mesh -> 40, PlotStyle -> Directive[Texture[img]]]

enter image description here

Cheers,

Marco

POSTED BY: Marco Thiel
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard