Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.11, 1995/01/19 17:48:01 | version 1.12, 1995/01/24 17:31:20 |
---|---|
Line 86 | Line 86 |
1e0 fasin 2e0 f* fconstant pi | 1e0 fasin 2e0 f* fconstant pi |
: f2* 2e0 f* ; | : f2* 2e0 f* ; |
: f2/ 2e0 f/ ; | : f2/ .5e0 f* ; |
: 1/f 1e0 fswap f/ ; | : 1/f 1e0 fswap f/ ; |