home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
TANH.(X)
< prev
next >
Wrap
Text File
|
1993-10-16
|
119b
|
5 lines
tanh(0) := 0
tanh(inf) := 1
tanh(-inf) := -1
tanh(x_) := if( isnumber(x) and numeric==on, (e^x-e^-x)/(e^x+e^-x) )