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.