Files
linguist/samples/Stata/tanh.mata
2014-03-19 17:35:15 -04:00

9 lines
130 B
Plaintext

numeric matrix tanh(numeric matrix u)
{
numeric matrix eu, emu
eu = exp(u)
emu = exp(-u)
return( (eu-emu):/(eu+emu) )
}