TOTVSTEC

Árvore de páginas

Calcula o valor em radianos do arco tangente de um valor que representa a tangente de um ângulo.

Sintaxe

ATan( < nTan > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nTan

numérico

Indica o valor que representa a tangente de um ângulo.

X

 

Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna um valor entre 0 e PI radianos.

Observações

  • 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 atan1()
  Local cMensagem := ""
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função ATan                                            |
  //+----------------------------------------------------------------------------+
  
  cMensagem += "ATan(-2*PI) = "   + cValToChar(ATan(-2*PI))   + CRLF
  cMensagem += "ATan(-7*PI/4) = " + cValToChar(ATan(-7*PI/4)) + CRLF
  cMensagem += "ATan(-5*PI/3) = " + cValToChar(ATan(-5*PI/3)) + CRLF
  cMensagem += "ATan(-3*PI/2) = " + cValToChar(ATan(-3*PI/2)) + CRLF
  cMensagem += "ATan(-4*PI/3) = " + cValToChar(ATan(-4*PI/3)) + CRLF
  cMensagem += "ATan(-5*PI/4) = " + cValToChar(ATan(-5*PI/4)) + CRLF
  cMensagem += "ATan(-PI) = "     + cValToChar(ATan(-PI))     + CRLF
  cMensagem += "ATan(-3*PI/4) = " + cValToChar(ATan(-3*PI/4)) + CRLF
  cMensagem += "ATan(-2*PI/3) = " + cValToChar(ATan(-2*PI/3)) + CRLF
  cMensagem += "ATan(-PI/2) = "   + cValToChar(ATan(-PI/2))   + CRLF
  cMensagem += "ATan(-PI/3) = "   + cValToChar(ATan(-PI/3))   + CRLF
  cMensagem += "ATan(-PI/4) = "   + cValToChar(ATan(-PI/4))   + CRLF
  cMensagem += "ATan(0) = "       + cValToChar(ATan(0))       + CRLF
  cMensagem += "ATan(PI/4) = "    + cValToChar(ATan(PI/4))    + CRLF
  cMensagem += "ATan(PI/3) = "    + cValToChar(ATan(PI/3))    + CRLF
  cMensagem += "ATan(PI/2) = "    + cValToChar(ATan(PI/2))    + CRLF
  cMensagem += "ATan(2*PI/3) = "  + cValToChar(ATan(2*PI/3))  + CRLF
  cMensagem += "ATan(3*PI/4) = "  + cValToChar(ATan(3*PI/4))  + CRLF
  cMensagem += "ATan(PI) = "      + cValToChar(ATan(PI))      + CRLF
  cMensagem += "ATan(5*PI/4) = "  + cValToChar(ATan(5*PI/4))  + CRLF
  cMensagem += "ATan(4*PI/3) = "  + cValToChar(ATan(4*PI/3))  + CRLF
  cMensagem += "ATan(3*PI/2) = "  + cValToChar(ATan(3*PI/2))  + CRLF
  cMensagem += "ATan(5*PI/3) = "  + cValToChar(ATan(5*PI/3))  + CRLF
  cMensagem += "ATan(7*PI/4) = "  + cValToChar(ATan(7*PI/4))  + CRLF
  cMensagem += "ATan(2*PI) = "    + cValToChar(ATan(2*PI))
  
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "ATan - Exemplo")

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Protheus 10, Protheus 11

Veja também

  • Sem rótulos