home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt1 / tanh.f < prev   
Encoding:
Text File  |  1975-07-17  |  75 b   |  8 lines
  1.     function tanh(a)
  2.  
  3.     b = exp(a)
  4.     c = 1.0/b
  5.     tanh = (b-c)/(b+c)
  6.     return
  7.     end
  8.