Cos

Cos ( < nAngulo> ) --> nRet

nRet(numerico)
• 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.

#DEFINE CRLF Chr(13)+Chr(10)#DEFINE PI 3.14159265 // ACos(-1)User Function Exemplo()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")