tanh.f

来自「Version 6 Unix 核心源代码 Version 6 Unix 核心源」· F 代码 · 共 8 行

	function tanh(a)

	b = exp(a)
	c = 1.0/b
	tanh = (b-c)/(b+c)
	return
	end