TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Função: ATan

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

Sintaxe

ATan ( < nTangente> ) --> nAngulo

Parâmetros/Elementos
NomeTipoDescriçãoObrigatórioReferência
nTangenteNuméricoIndica o valor que representa a tangente de um ângulo. X
Retorno
    nAngulo(numerico)
  • 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 Exemplo()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")

Preview
Exemplo da função ATan()
Abrangência
Microsiga Protheus 8.11 , Protheus 10
Veja Também
Trigonométricas

  • Sem rótulos