Seno, Coseno, Tangente em CLIPPER

JorgeLuizGS
(usa Ubuntu)

Enviado em 07/04/2026 - 13:56h

Olá?
Estou tentando inserir Seno, Coseno e Tangente em CLIPPER!
Quando compilo, gera erro. Veja:

FUNCTION mathPI()

RETURN 3.141592653589793



FUNCTION mathE()

RETURN 2.718281828459045



/* TRIGONOMETRIA */



FUNCTION mathConvertToRadians( graus )

RETURN graus * ( mathPI() / 180 )



// =========================

//   TRIGONOMETRIA

//   =========================



FUNCTION mathSin( nAngulo )

RETURN Sin( nAngulo )



FUNCTION mathCos( nAngulo )

RETURN Cos( nAngulo )



FUNCTION mathTan( nAngulo )

RETURN Tan( nAngulo )



FUNCTION mathAsin( nValor )

RETURN ASin( nValor )



FUNCTION mathAcos( nValor )

RETURN ACos( nValor )



FUNCTION mathAtan( nValor )

RETURN ATan( nValor )



FUNCTION mathSinh( nValor )

RETURN Sinh( nValor )



FUNCTION mathCosh( nValor )

RETURN Cosh( nValor )



FUNCTION mathTanh( nValor )

RETURN Tanh( nValor )





FUNCTION mathAsinh( x )

RETURN Log( x + Sqrt( x*x + 1 ) )



FUNCTION mathAcosh( x )

RETURN Log( x + Sqrt( x*x - 1 ) )



FUNCTION mathAtanh( x )

RETURN 0.5 * Log( (1 + x) / (1 - x) )

 

Código de execulção:

        graus := 45.0

        radianos := mathConvertToRadians(graus)



        rPrintln(graus, " graus é equivalente a ", radianos, " radianos.")

 

        // Ângulo em radianos

        anguloEmRadianos := mathPI() / 4.0



        // Calculando o seno do ângulo

        senoDoAngulo := mathSin(anguloEmRadianos)



        // Exibindo o resultado

        rPrintln("O seno de ", anguloEmRadianos, " radianos é: ", senoDoAngulo)



//Math.cos

        // Ângulo em radianos

        anguloEmRadianos := mathPI() / 3.0



        // Calculando o cosseno do ângulo

        cossenoDoAngulo := mathCos(anguloEmRadianos)



        // Exibindo o resultado

        rPrintln("O cosseno de ", anguloEmRadianos, " radianos é: ", cossenoDoAngulo)



//Math.tan

        // Ângulo em radianos

        anguloEmRadianos := mathPI() / 6.0



        // Calculando a tangente do ângulo

        tangenteDoAngulo := mathTan(anguloEmRadianos)



        // Exibindo o resultado

        rPrintln("A tangente de ", anguloEmRadianos, " radianos é: ", tangenteDoAngulo)



//Math.asin

        // Valor para o qual queremos calcular o arco seno

        valor := 0.5



        // Calculando o arco seno do valor

        arcoSeno := mathAsin(valor)



        // Exibindo o resultado em radianos

        rPrintln("O arco seno de ", valor, " é: ", arcoSeno, " radianos.")



//Math.acos

        // Valor para o qual queremos calcular o arco cosseno

        valor := 0.5



        // Calculando o arco cosseno do valor

        arcoCosseno := mathAcos(valor)



        // Exibindo o resultado em radianos

        rPrintln("O arco cosseno de ", valor, " é: ", arcoCosseno, " radianos.")



//Math.atan

        // Valor para o qual queremos calcular o arco tangente

        valor := 0.5



        // Calculando o arco tangente do valor

        arcoTangente := mathAtan(valor)



        // Exibindo o resultado em radianos

        rPrintln("O arco tangente de ", valor, " é: ", arcoTangente, " radianos.")

 

//Math.sinh

        // Valor para o qual queremos calcular o seno hiperbólico

        valor := 2.0



        // Calculando o seno hiperbólico do valor

        senoHiperbolico := mathSinh(valor)



        // Exibindo o resultado

        rPrintln("O seno hiperbólico de ", valor, " é: ", senoHiperbolico)



//Math.cosh

        // Valor para o qual queremos calcular o cosseno hiperbólico

        valor := 2.0



        // Calculando o cosseno hiperbólico do valor

        cossenoHiperbolico := mathCosh(valor)



        // Exibindo o resultado

        rPrintln("O cosseno hiperbólico de ", valor, " é: ", cossenoHiperbolico)



//Math.tanh

        // Valor para o qual queremos calcular a tangente hiperbólica

        valor := 2.0



        // Calculando a tangente hiperbólica do valor

        tangenteHiperbolica := mathTanh(valor)



        // Exibindo o resultado

        rPrintln("A tangente hiperbólica de ", valor, " é: ", tangenteHiperbolica)

 

//Math.asinh

        // Valor para o qual queremos calcular o arco seno hiperbólico

        valor := 2.0



        // Calculando o arco seno hiperbólico do valor

        arcoSenoHiperbolico := mathAsinh(valor)



        // Exibindo o resultado

        rPrintln("O arco seno hiperbólico de ", valor, " é: ", arcoSenoHiperbolico)



        //asinh(x) := ln(x, sqrt(x^2, 1))

//Math.acosh

        // Valor para o qual queremos calcular o arco cosseno hiperbólico

        valor := 2.0



        // Calculando o arco cosseno hiperbólico do valor

        arcoCossenoHiperbolico := mathAcosh(valor)



        // Exibindo o resultado

        rPrintln("O arco cosseno hiperbólico de ", valor, " é: ", arcoCossenoHiperbolico)



        //acosh(x) := ln(x, sqrt(x^2 - 1))

//Math.atanh

        // Valor para o qual queremos calcular o arco tangente hiperbólico

        valor := 0.5



        // Calculando o arco tangente hiperbólico do valor

        arcoTangenteHiperbolico := mathAtanh(valor)



        // Exibindo o resultado

        rPrintln("O arco tangente hiperbólico de ", valor, " é: ", arcoTangenteHiperbolico)



        //atanh(x) := 0.5 * ln((1, x) / (1 - x))