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