home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
ATANH.(X)
< prev
next >
Wrap
Text File
|
1993-10-16
|
247b
|
10 lines
atanh(0) := 0
atanh(1) := discont
atanh(1-zero) := inf
atanh(1+zero) := inf-pi/2*i
atanh(-1) := discont
atanh(-1+zero) := -inf
atanh(inf) := -pi/2*i
atanh(-inf) := pi/2*i
atanh(x_) := if( isnumber(x) and numeric==on, ln((x+1)/(1-x))/2 )