Alexandre! Não sei se entendi direito, mais vai uma primeira tentativa aí. p0<- c(15,15)#Ponto inicial c0 <- seq(10,100,by=10) malha <- list() for(i in 1:length(c0)){ malha[[i]] <- expand.grid(xp=seq(p0[1], by=c0[[i]], length.out=20), yp=seq(p0[2], by=c0[[i]], length.out=20))#Criando um grid de pontos a cada 10 metros } malha[[2]] plot(malha[[2]]) plot(malha[[3]]) Allaman (S,f,P) M.Sc Ivan Bezerra Allaman Zootecnista Doutorando em Produção Animal/Aquicultura - UFLA email e msn - ivanalaman@yahoo.com.br Tel: (35)3826-6608/9900-2924