Calcula o valor da tangente de um ângulo (em radianos).
Sintaxe
Tan( < nAngle > )
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nAngle | numérico | Indica o valor do ângulo em radianos. | X |
|
Retorno
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico | Retorna o valor da tangente de acordo com o ângulo informado. |
Observações
Atenção ao utilizar como parâmetro valores maiores que 2^63 ou menores que -2^63, pois ocorrerá uma perda significante na chamada da função.
Entrada
SEH Exception
Matherr Exception
±∞
INVALID
Sem domínio
±QNAN,IND
None
Sem domínio
x ≥ 7.104760e+002
INEXACT+OVERFLOW
OVERFLOW
- Os resultados "-0" são retornados devido à precisão de retorno das funções trigonométricas trabalhando em cima de PI com 8 casas decimais. Caso o resultado da função seja um valor negativo muito próximo de zero, porém algo menor que 0.00000001, a função retornará "-0", e a comparação com 0 irá retornar .T..
Exemplos
Exemplo 1
#DEFINE CRLF Chr(13)+Chr(10) #DEFINE PI 3.14159265 // ACos(-1) user function tan1() Local cMensagem := "" //+----------------------------------------------------------------------------+ //|Exemplifica o uso da função Tan | //+----------------------------------------------------------------------------+ cMensagem += "Tan( 0) = " + cValToChar(Tan(0)) + CRLF cMensagem += "Tan( 30) = " + cValToChar(Tan(PI / 6)) + CRLF cMensagem += "Tan( 45) = " + cValToChar(Tan(PI / 4)) + CRLF cMensagem += "Tan( 60) = " + cValToChar(Tan(PI / 3)) + CRLF cMensagem += "Tan( 90) = " + cValToChar(Tan(PI / 2)) + CRLF cMensagem += "Tan(120) = " + cValToChar(Tan(2 * PI / 3)) + CRLF cMensagem += "Tan(135) = " + cValToChar(Tan(3 * PI / 4)) + CRLF cMensagem += "Tan(150) = " + cValToChar(Tan(5 * PI / 6)) + CRLF cMensagem += "Tan(180) = " + cValToChar(Tan(PI)) + CRLF cMensagem += "Tan(210) = " + cValToChar(Tan(7 * PI / 6)) + CRLF cMensagem += "Tan(225) = " + cValToChar(Tan(5 * PI / 4)) + CRLF cMensagem += "Tan(240) = " + cValToChar(Tan(4 * PI / 3)) + CRLF cMensagem += "Tan(270) = " + cValToChar(Tan(3 * PI / 2)) + CRLF cMensagem += "Tan(300) = " + cValToChar(Tan(5 * PI / 3)) + CRLF cMensagem += "Tan(315) = " + cValToChar(Tan(7 * PI / 4)) + CRLF cMensagem += "Tan(330) = " + cValToChar(Tan(11 * PI / 6)) + CRLF cMensagem += "Tan(360) = " + cValToChar(Tan(2 * PI)) + CRLF //+----------------------------------------------------------------------------+ //|Apresenta uma mensagem com os resultados obtidos | //+----------------------------------------------------------------------------+ Return MsgInfo(cMensagem, "Exemplo do Tan")
Resultado do Exemplo
Abrangência
Microsiga Protheus 8.11, Protheus 10, Protheus 11
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas