[R-br] Cálculo de coordenadas finais à partir da distância e ângulo

[Leonard de Assis]

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 em 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 em 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.
>>
>