Calcula o valor do cosseno de um ângulo (em radianos).
Cos( < nAngle > )
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nAngle | numérico | Indica o valor do ângulo em radianos. | X |
|
Nome | Tipo | Descrição |
---|---|---|
nRet | numérico | Retorna o valor do cosseno de acordo com o ângulo informado. |
Atenção ao utilizar como parâmetro valores maiores que 2^63 ou menores que -2^63, pois ocorrerá uma perda significante na chamada da função.
Entrada | SEH Exception | Matherr Exception |
---|---|---|
±∞ | INVALID | Sem domínio |
±QNAN,IND | None | Sem domínio |
x ≥ 7.104760e+002 | INEXACT+OVERFLOW | OVERFLOW |
#DEFINE CRLF Chr(13)+Chr(10) #DEFINE PI 3.14159265 // ACos(-1) User Function cos1() Local cMensagem := "" //+----------------------------------------------------------------------------+ //|Exemplifica o uso da função Cos | //+----------------------------------------------------------------------------+ cMensagem += "Cos( 0) = " + cValToChar(Cos(0)) + CRLF cMensagem += "Cos( 30) = " + cValToChar(Cos(PI / 6)) + CRLF cMensagem += "Cos( 45) = " + cValToChar(Cos(PI / 4)) + CRLF cMensagem += "Cos( 60) = " + cValToChar(Cos(PI / 3)) + CRLF cMensagem += "Cos( 90) = " + cValToChar(Cos(PI / 2)) + CRLF cMensagem += "Cos(120) = " + cValToChar(Cos(2 * PI / 3)) + CRLF cMensagem += "Cos(135) = " + cValToChar(Cos(3 * PI / 4)) + CRLF cMensagem += "Cos(150) = " + cValToChar(Cos(5 * PI / 6)) + CRLF cMensagem += "Cos(180) = " + cValToChar(Cos(PI)) + CRLF cMensagem += "Cos(210) = " + cValToChar(Cos(7 * PI / 6)) + CRLF cMensagem += "Cos(225) = " + cValToChar(Cos(5 * PI / 4)) + CRLF cMensagem += "Cos(240) = " + cValToChar(Cos(4 * PI / 3)) + CRLF cMensagem += "Cos(270) = " + cValToChar(Cos(3 * PI / 2)) + CRLF cMensagem += "Cos(300) = " + cValToChar(Cos(5 * PI / 3)) + CRLF cMensagem += "Cos(315) = " + cValToChar(Cos(7 * PI / 4)) + CRLF cMensagem += "Cos(330) = " + cValToChar(Cos(11 * PI / 6)) + CRLF cMensagem += "Cos(360) = " + cValToChar(Cos(2 * PI)) //+----------------------------------------------------------------------------+ //|Apresenta uma mensagem com os resultados obtidos | //+----------------------------------------------------------------------------+ Return MsgInfo(cMensagem, "Exemplo do Cos")
Microsiga Protheus 8.11, Protheus 10