Displaying 1 result from an estimated 1 matches for "nxo".
Did you mean:
no
2010 Jul 27
0
3d topographic map [SEC=UNCLASSIFIED]
...t;- xf[xn]
y <- yf[yn]
z <- zf[xn,yn]
za <- apply(z,1,rev)
zb <- t(za)
yb <- -rev(y)
xb <- x
nx <- length(xb)
dx <- (xb[nx]-xb[1])/(nx-1)
ny <- length(yb)
dy <- (yb[ny]-yb[1])/(ny-1)
mf <- 5
xo <- seq(xb[1],xb[nx],by=dx/mf)
yo <- seq(yb[1],yb[ny],by=dy/mf)
nxo <- length(xo)
nyo <- length(yo)
zo1 <- matrix(NA,nrow=nxo,ncol=nyo)
(4) Fill your matrix with the data
io <- 1
for (i in 1:nx) {
jo <- 1
for (j in 1:ny) {
zo1[io,jo] <- zb[i,j]
jo <- jo+mf
}
io <- io+mf
}
(5)...