Tan

Tan ( < nAngulo> ) --> nRet

nRet(numerico)
• Retorna o valor da tangente 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 Tan                                             |//+----------------------------------------------------------------------------+  cMensagem += "Tan(  0) = " + cValToChar(Tan(0))           + CRLF  cMensagem += "Tan( 30) = " + cValToChar(Tan(PI / 6))      + CRLF  cMensagem += "Tan( 45) = " + cValToChar(Tan(PI / 4))      + CRLF  cMensagem += "Tan( 60) = " + cValToChar(Tan(PI / 3))      + CRLF  cMensagem += "Tan( 90) = " + cValToChar(Tan(PI / 2))      + CRLF  cMensagem += "Tan(120) = " + cValToChar(Tan(2 * PI / 3))  + CRLF  cMensagem += "Tan(135) = " + cValToChar(Tan(3 * PI / 4))  + CRLF  cMensagem += "Tan(150) = " + cValToChar(Tan(5 * PI / 6))  + CRLF  cMensagem += "Tan(180) = " + cValToChar(Tan(PI))          + CRLF  cMensagem += "Tan(210) = " + cValToChar(Tan(7 * PI / 6))  + CRLF  cMensagem += "Tan(225) = " + cValToChar(Tan(5 * PI / 4))  + CRLF  cMensagem += "Tan(240) = " + cValToChar(Tan(4 * PI / 3))  + CRLF  cMensagem += "Tan(270) = " + cValToChar(Tan(3 * PI / 2))  + CRLF  cMensagem += "Tan(300) = " + cValToChar(Tan(5 * PI / 3))  + CRLF  cMensagem += "Tan(315) = " + cValToChar(Tan(7 * PI / 4))  + CRLF  cMensagem += "Tan(330) = " + cValToChar(Tan(11 * PI / 6)) + CRLF  cMensagem += "Tan(360) = " + cValToChar(Tan(2 * PI))      + CRLF//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do Tan")