home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
ACOTH.(X)
< prev
next >
Wrap
Text File
|
1993-10-16
|
307b
|
12 lines
# acoth(x) is the inverse hyerbolic cotanget function of x, the inverse
# of coth(x).
# See also: coth(x).
acoth(0) := pi/2*i
acoth(1) := discont
acoth(1+zero) := inf
acoth(1-zero) := inf+pi/2*i
acoth(inf) := 0
acoth(-inf) := 0
acoth(x_) := if( isnumber(x) and numeric==on, ln((x+1)/(x-1))/2 )