tanh.f

来自「莱昂氏UNIX源代码分析UNIXv6src.tar.gz」· F 代码 · 共 8 行

	function tanh(a)

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