[gforth] / gforth / float.fs

# gforth: gforth/float.fs

### Diff for /gforth/float.fs between version 1.9 and 1.10

version 1.9, Thu Oct 27 16:32:19 1994 UTC version 1.10, Wed Jan 18 18:41:35 1995 UTC
 Line 89
 Line 89
: f2/  2e0 f/ ;  : f2/  2e0 f/ ;
: 1/f  1e0 fswap f/ ;  : 1/f  1e0 fswap f/ ;

: falog ( f -- 10^f )  [ 10e0 fln ] FLiteral f* fexp ;

: fsinh    fexpm1 fdup fdup 1e0 f+ f/ f+ f2/ ;  \ We now have primitives for these, so we need not define them
: fcosh    fexp fdup 1/f f+ f2/ ;
: ftanh    f2* fexpm1 fdup 2e0 f+ f/ ;  \ : falog ( f -- 10^f )  [ 10e0 fln ] FLiteral f* fexp ;

: fatanh   fdup f0< >r fabs 1e0 fover f- f/  f2* flnp1 f2/  \ : fsinh    fexpm1 fdup fdup 1e0 f+ f/ f+ f2/ ;
r> IF  fnegate  THEN ;  \ : fcosh    fexp fdup 1/f f+ f2/ ;
: facosh   fdup fdup f* 1e0 f- fsqrt f+ fln ;  \ : ftanh    f2* fexpm1 fdup 2e0 f+ f/ ;
: fasinh   fdup fdup f* 1e0 f+ fsqrt f/ fatanh ;
\ : fatanh   fdup f0< >r fabs 1e0 fover f- f/  f2* flnp1 f2/
\            r> IF  fnegate  THEN ;
\ : facosh   fdup fdup f* 1e0 f- fsqrt f+ fln ;
\ : fasinh   fdup fdup f* 1e0 f+ fsqrt f/ fatanh ;

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

Generate output suitable for use with a patch program
Legend:
 Removed from v.1.9 changed lines Added in v.1.10

CVS Admin

Powered by ViewCVS 1.0-dev