import.css=/download/attachments/6062824/tecnologia.css

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

Exemplos

#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