OpenEuphoria

2. Re: Hyperbolic trig functions

• Posted by Larry Miller <larrymiller at sasktel.net> Jan 17, 2006
• 526 views
• Last edited Jan 18, 2006

Jeremy Peterson wrote:
> 
> Anybody know what the formulas are to calculate the hyperbolic arcsin arcos
> and arctan?
> 
> Thanks,
> Jeremy
> 
> Edmund Burke: "All that is necessary for evil to triumph is for good men to
> do nothing."

Here are the definitions of these functions I wrote some time ago:

--Hyperbolic Arcsin
global function arcsinh(atom x)
    return log(x+sqrt(x*x+1.0))
end function

--Hyperbolic Arccos
global function arccosh(atom x)
    return log(x+sqrt(x*x-1.0))
end function

--Hyperbolic Arctan
global function arctanh(atom x)
    return log((1.0+x)/(1.0-x))/2.0
end function

Larry Miller

4. Re: Hyperbolic trig functions

• Posted by D. Newhall <derek_newhall at yahoo.com> Jan 18, 2006
• 563 views

Larry Miller wrote:
> 
(snip)
> 
> Here are the definitions of these functions I wrote some time ago:
> 
> }}}
<eucode>
> --Hyperbolic Arcsin
> global function arcsinh(atom x)
>     return log(x+sqrt(x*x+1.0))
> end function
> 
> --Hyperbolic Arccos
> global function arccosh(atom x)
>     return log(x+sqrt(x*x-1.0))
> end function
> 
> --Hyperbolic Arctan
> global function arctanh(atom x)
>     return log((1.0+x)/(1.0-x))/2.0
> end function
> </eucode>
{{{

> 
> Larry Miller

Would you object to the ESL project using those routines in its math.e file?
You'll get full credit for them of course.


The Euphoria Standard Library project :
    http://esl.sourceforge.net/
The Euphoria Standard Library mailing list :
    https://lists.sourceforge.net/lists/listinfo/esl-discussion