import.css=/download/attachments/6062824/tecnologia.css |
Calcula o valor em radianos do arco tangente de um valor que representa a tangente de um ângulo.
ATan( < nTan > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nTan | numérico | Indica o valor que representa a tangente de um ângulo. | X |
|
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico | Retorna um valor entre 0 e PI radianos. |
#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") |
Microsiga Protheus 8.11, Protheus 10, Protheus 11