�ngulos no delphi

Question

oiminha d�vida � relacionada a �ngulosse eu tenho o ponto A na posi��o X 100 Y 100 e o ponto B na posi��oX 200 Y 50 e fizer uma linha lingando estes pontos qual � o angulo desta linha????Outra d�vida ...

::d::a::m::m::i::t:: · Answer

cara...naum sei exataente como fazer isso.... mas tenta usar a trigonometria..no delphi tem umas fun��es (sin(), cos().....)...tenta isso.....e se der cata um livro de matem�tica tb...hehefalow.......

Beppe · Answer

Uma linha por si s� n�o faz angulo, voc� precisa de uma segunda linha, que se encontre com a primeira.J� fiz alguns c�digos pra rotacionar, quando achar eu posto....

Robotizar · Answer

essa paradinha da matematica eu sei ...fa�o mecanica geral no senai e geometria � tudo por l�.... tipo tem q transformar em um triangulo e fazer o teorema de pitagoras pra achar o angulo mais eu queria saber como passar isso pro delphi

Beppe · Answer

Tenta isso:[code:1:31de2eb2fb]function RotatePoint(const P: TFloatPoint; Angle: Float): TFloatPoint;begin  Result.X := P.X * Cos(Angle) - P.Y * Sin(Angle);  Result.Y := P.X * Sin(Angle) + P.Y * Cos(Angle);end;[/code:1:31de2eb2fb]Angle n�o � 0..360, na verdade eu nem sei qual o dom�nio disso a�, mas funcionou pro que eu queria. Rotaciona em torno da posi��o (0, 0). Voc� precisar� fazer um translate nesse �ngulo....

Marcelo Saviski · Answer

Tava pesquisando sobre isso aqui no f�rum, achei a resposta para o que queria fazer,
ent�o rsolvi colocar a solu��o aqui..., pelo menso comogo funcionou

Angulo := (ArcTan2((X - 100), (Y - 100))) - pi/2;
//Isso descobre um �ngulo passando os valores dos catetos

Panel1.Left := Trunc(100 + Cos(Angulo)*100) - 4;
Panel1.Top := Trunc(100 - Sin(Angulo)*100) - 4;
isso calcula uma nova posi��o atrav�s do �ngulo

coloque isso no onmousemove do form, e Math no uses

Marco Salles · Answer

Vou Sugerir Uma Formula Matematica Simples Para Equacionar a Quest�o
O Ponto A Possui as Cordenadas : (Xa,Ya)
O Ponto B Possui as Cordenadas : (Xb,Yb)
Para Obertmos o Vou Simplificar em Duas Etapas:

AnguloRd:=ArcTan((Yb-Ya)/(Xb-Xa))===

A Primeira Etapa Se Obtem o Valor Do Angulo Em Radianos, Para Trasformar Este Valor Em Graus, Efetuar a
Segunda Etapa:

AnguloGr:=(360*AnguloRd)/(2*3,14159265359)====> Resposta Em Graus

Onde o AnguloRd:= Angulo Em  Radianos
           AnguloGr:= Angulo Em Graus

Obs:� Claro Que Voces Craques Em Inform�tica que S�o Podem e Devem Simplificar a Express�o anterior e Coloca-la Em Uma Fun��o

Acredito Por�m Que Transformando Radianos Para Graus Em Delphi Voce Deva Ter Um Pequeno Desvio De Arredondamento, Talves Se For o Caso � Mais Conveniente Trabalhar Com Radianos..[/code]

F�rum �ngulos no delphi #209182