Alexandre, Não seria isso uma aplicação de trigonometria básica? Com a distância (hipotenusa) e angulo você encontra as projeções verticais (y) e horizontais (x) de cada novo ponto e a sua coordenada seria a soma deles valores (y e x) aos do ponto de referência. p0 <- c(100,100) ## Coordenada conhecida dist <- c(5,15,7.5,3.5) ## Distância à partir de p0 ang <- c(256,93,183,15) ## Angulos em graus ang <- 2*pi*ang/360 ## angulos em radianos dist <- c(0, dist) ang <- c(0, ang) # projeções verticais, sin (seno sem sono, em pé, projeta no y) dy <- dist*sin(ang) # projeções verticais, cos (coseno com sono, deitado, projeta no x) dx <- dist*cos(ang) # verifica cbind(sqrt(dx^2+dy^2), dist) # coordenadas coord <- t(apply(cbind(x=dx, y=dy), 1, function(i) i+p0)) coord # gráfico plot(coord) À disposição. Walmes. On 6/7/12, ASANTOS <alexandresantosbr@yahoo.com.br> wrote:
Boa tarde pessoal,
Gostaria de calcular as coordenadas e representá-las à partir de um ponto inicial (p0) com as distâncias (dist) e ângulos (ang) conhecidos, sendo:
##Cálculo das coordenadas à partir da distância e ângulo em relação à p0 p0<-c(100,100)##Coordenada conhecida dist<-c(5,15,7.5,3.5)##Distância à partir de p0 ang<-c(256,93,183,15)
Fiz algumas pesquisas e encontrei a função grid.curve() do pacote grid, que faz a representação gráfica das distâncias(retas) dados o ponto inicial (p0), pontos finais (x,y) e o ângulo (ang), meu problema é que as coordenadas finais são as variáveis que desejo encontrar, para depois fazer a representação gráfica Alguém teria alguma sugestão de por onde eu poderia começar?
Obrigado
-- Alexandre dos Santos Engenheiro Florestal, Dr. Universidade Federal de Lavras Departamento de Entomologia Laboratório de Entomologia Florestal Caixa Postal 3037 37200-000 - Lavras/MG Fone: +55 (35) 9223-0304
_______________________________________________ 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.
-- ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================