Calcular Tan-� .

16/11/2010

Aos amigos do Delphi, N�o sei se o Delphi calcula Tan-� de um valor, mas eu preciso calcular a Tan-� de um valor para saber o �ngulo em graus. Se alguem puder me ajudar desde j� eu agrade�o, Atenciosamente. Valdir Lima

Valdir Lima

Curtir t�pico + 0

Responder

Posts

16/11/2010

Pietro Braga

Bem, essa a� voc� me pegou (ou n�o, vamos ver).
Na minha calculadora tan-1 seria o inverso de Tan. Ent�o Tan-1= 1/Tan. Tente isso a�.

Responder

Gostei + 0

16/11/2010

Valdir Lima

Ol� Pietro, Montei assim mas o resultado ainda n�o deu certo. var
T: Extended;
begin
T := 1/Tan(6.27);
edit8.Text := FloatToStr(T);
end;
Talvez eu esteja montando a formula de meneira errada. Valdir

Responder

Gostei + 0

16/11/2010

Pietro Braga

Estranho, devria funcionar, tente assim:
var
T: Extended;
begin
T := Tan(6.27); T := 1/T edit8.Text := FloatToStr(T);
end;

Responder

Gostei + 0

16/11/2010

Valdir Lima

Ainda n�o deu certo, Na calculadora ci�ntifica o resultado de Tan-� de 6,27 � 80,938 e o resultado do Delphi est� sendo -78,8375 para qualquer uma das f�rmulas que voc� passou. O que estou tentando fazer � extrair a Tan-� do valor do arcotengente de Y/X, sendo Y=859,68 e X= 137,0 e o resultado � 6,27, o resultado � 80,938 Graus. Talvez tenha uma outra f�rmula de fazer este c�lculo. Abra�o Valdir

Responder

Gostei + 0

16/11/2010

Pietro Braga

Estranho, devria funcionar, tente assim:
var
T: Extended;
begin
T := Tan(6.27); T := 1/T edit8.Text := FloatToStr(T);
end;

Voltei, testado:
var
T: Extended;
begin
T := ArcTan(6.27); edit8.Text := FloatToStr(RadToDeg(T));end;
Voltando as aulas de trigonometria e minhas aulas chatas de eletr�nica industrial...tan-1 � realmente o inverso de Tangente que tamb�m � o Arco da Tangente que retorna um valor em Radianos... bastou converter para Graus.
Abs

Responder

Gostei + 0

17/11/2010

Valdir Lima

Beleza, agora deu certo, quem manja, manja. Muito obrigado amigo Abra�o. Valdir Lima

Responder

Gostei + 0