Árvore de páginas

Calcula o valor do ângulo, em radianos, de um valor que representa o seno e de um valor que representa o cosseno.

Sintaxe

Atn2( < nSin >, < nCos > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nSin

numérico

Indica o valor que representa o seno de um ângulo.

X

 

nCos

numérico

Indica o valor que representa o cosseno 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 atn2()
  Local cMensagem := ""
  
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função Atn2                                            |
  //+----------------------------------------------------------------------------+
  
  cMensagem += "Atn2(Sin(-PI), Cos(-PI)) = "     + cValToChar(Atn2(Sin(-PI), Cos(-PI)))     + CRLF
  cMensagem += "Atn2(Sin(-PI/2), Cos(-PI/2)) = " + cValToChar(Atn2(Sin(-PI/2), Cos(-PI/2))) + CRLF
  cMensagem += "Atn2(Sin(0), Cos(0)) = "         + cValToChar(Atn2(Sin(0), Cos(0)))         + CRLF
  cMensagem += "Atn2(Sin(PI/2), Cos(PI/2)) = "   + cValToChar(Atn2(Sin(PI/2), Cos(PI/2)))   + CRLF
  cMensagem += "Atn2(Sin(PI), Cos(PI)) = "       + cValToChar(Atn2(Sin(PI), Cos(PI)))       + CRLF
  
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Atn2 - Exemplo")

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Protheus 10, Protheus 11

Veja também

 

  • Sem rótulos