gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.8, 1994/09/12 19:00:29	version 1.9, 1994/10/27 16:32:19
Line 99	Line 99
r> IF fnegate THEN ;	r> IF fnegate THEN ;
: facosh fdup fdup f* 1e0 f- fsqrt f+ fln ;	: facosh fdup fdup f* 1e0 f- fsqrt f+ fln ;
: fasinh fdup fdup f* 1e0 f+ fsqrt f/ fatanh ;	: fasinh fdup fdup f* 1e0 f+ fsqrt f/ fatanh ;

	: f.s ." <" fdepth 0 .r ." > " fdepth 0 max maxdepth-.s @ min dup 0
	?DO dup i - 1- floats fp@ + f@ f. LOOP drop ;