
Cara, lembrei do Heitor, meu professor de cursinho, kkk Ele falava desse jeito qdo citava Seno e Cosseno []s Leonard de Assis assis <dot> leonard <at> gmail <dot> com 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.