Grande Walmes, Tentei por trigonometria básica, mas pelo caminho errado, o problema é que como os ângulos não eram retos não funcionava quando eu aplicava h^2=a^2+b^2, mas quando vi sua quarta linha do script ##angulos em radianos, caiu a ficha. Adorei a dica para lembrar dos catetos: com e sem sono. Muito obrigado pela solução, -- 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 Em 07/06/2012 20:17, Walmes Zeviani escreveu:
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.