Obrigado Prof. Paulo, funcionou, segue solução abaixo para arquivamento, #Exemplo 2 x<-c(0,0,100,100,0) y<-c(0,100,100,0,0) plot(x,y, type="l", col="red") xy45<-cbind(x,y) xy45<-as.matrix(xy45) ang<- 45 #### Angulo a ser rotacionado Q<-rbind(c(cos(ang),sin(ang)),c(-sin(ang), cos(ang))) ## Matriz de rotação xyrt<-xy45 %*% Q # Multiplicação de matrizes plot(xyrt[,1],xyrt[,2], type="l", col="red") # p0<-c(1,1) # # c0 <- seq(p0[1],p0[1]+100,by=10) d0 <- seq(p0[2],p0[2]+100,by=10) d1 <- expand.grid(x=c0, y=d0) # d2<-as.matrix(d1) ang<- 45 #### Angulo a ser rotacionado Q<-rbind(c(cos(ang),sin(ang)),c(-sin(ang), cos(ang))) ## Matriz de rotação drt<-d2 %*% Q # Multiplicação de matrizes points(drt[,1],drt[,2]) # Em 26/03/2013 09:58, Paulo Justiniano escreveu:
expand.grid vai sempre gerar uma malçha retaugular
se voce que alterar considere multiplicar a matriz de coordenadas gerada por uma matrix (2x2) de rotacao
On Mon, 25 Mar 2013, ASANTOS wrote:
Boa noite pessoal,
Gostaria de saber se existe uma maneira de controlar a inclinação da distribuição dos pontos em expand.grid() em função de um limite de área, como por exemplo no meu CRM abaixo, onde no exemplo 1 esta tudo Ok, mas no exemplo 2 as coordenadas não consideram a inclinação da área. Seria possível usar algum argumento para controlar isto?
# Exemplo 1 x<-c(0,0,100,100,0) y<-c(0,100,100,0,0) plot(x,y, type="l", col="red") # p0<-c(10,10) # # c0 <- seq(p0[1],p0[1]+95,by=20) d0 <- seq(p0[2],p0[2]+95,by=20) d1 <- expand.grid(x=c0, y=d0) points(d1[,1],d1[,2]) # #Exemplo 2 x<-c(0,0,50,50,0) y<-c(0,100,150,50,0) plot(x,y, type="l", col="red") # p0<-c(10,10) # # c0 <- seq(p0[1],p0[1]+95,by=20) d0 <- seq(p0[2],p0[2]+95,by=20) d1 <- expand.grid(x=c0, y=d0) points(d1[,1],d1[,2]) #
Obrigado,
-- ====================================================================== Alexandre dos Santos Proteção Florestal Coordenador do curso Técnico em Florestas Vice Coordenador do curso de Engenharia Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br ======================================================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- ====================================================================== Alexandre dos Santos Proteção Florestal Coordenador do curso Técnico em Florestas Vice Coordenador do curso de Engenharia Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br ======================================================================