<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:arial,helvetica,sans-serif;font-size:14pt;color:#000000;">Alexandre!<br><br>Não sei se entendi direito, mais vai uma primeira tentativa aí.<br><br>p0<- c(15,15)#Ponto inicial<br><br>c0 <- seq(10,100,by=10)<br><br>malha <- list()<br>for(i in 1:length(c0)){<br> 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<br>}<br>malha[[2]]<br><br>plot(malha[[2]])<br>plot(malha[[3]])<br><br>Allaman<br>(S,f,P)<br><div> </div><div style="background-color: transparent; color: rgb(115, 115, 115);" align="center"><strong>M.Sc Ivan Bezerra Allaman</strong> <br>Zootecnista<br><font style="background-color: transparent;" face="comic sans ms" size="2"><font style="background-color: transparent;">Doutorando em Produção Animal/Aquicultura -
UFLA</font> <br></font><font size="2"><em><strong></strong></em></font><font style="background-color: transparent;" face="comic sans ms" size="2">email e msn - ivanalaman@yahoo.com.br <br><font size="1">Tel: (35)3826-6608/9900-2924</font></font></div><div><br></div>
</div></body></html>