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.
Atn2( < nSin >, < nCos > ) |
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 |
|
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 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") |
Microsiga Protheus 8.11, Protheus 10, Protheus 11