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<[email protected]> 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
[email protected]
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
[email protected]
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.
