Jeśli możesz zdobyć zestaw danych, istnieją narzędzia R
do tego. Mam Etopo1 jako GeoTIFF, myślę, że jest to ten lodowy / komórkowy stąd, chociaż mogłem go przekonwertować z formatu binarnego.
http://www.ngdc.noaa.gov/mgg/global/global.html
Odczytaj dane (ewentualnie ze zmniejszoną rozdzielczością), oblicz nachylenie i wykreśl.
library(rgdal)
library(raster)
## orig dims, reduced 4-fold (choose divisor to suit your needs / system)
x <- readGDAL("Etopo1.tif", output.dim = c(10800, 21600)/4)
## convert to raster format for calculations
r <- raster(x)
g <- slopeAspect(r, out = "slope", unit = "degrees")
## plot histogram
hist(g)
Korzystam z readGDAL, ponieważ jestem bardziej zaznajomiony z tym, ale możesz trzymać się rastra jako owijki wokół rgdal, aby poradzić sobie ze zmniejszaniem rozdzielczości i tak dalej, i nie wymaga użycia pamięci.
g
class : RasterLayer
dimensions : 2700, 5400, 14580000 (nrow, ncol, ncell)
resolution : 0.06666667, 0.06666667 (x, y)
extent : -180, 180, -90, 90 (xmin, xmax, ymin, ymax)
coord. ref. : +proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs +towgs84=0,0,0
values : in memory
min value : 0
max value : 38.11677
Zobacz ?hist
więcej opcji drukowania.