Re: [Amforth-devel] Some useful Float Constants

[pito <pi...@vo...>]

Hi, this is an update for experimenters (till we get input/output of
float numbers):
------------------------------------------
marker _floatconstants_

\ some float constants

355 s>f 113 s>f f/ fconstant 		_pi
355 s>f 226 s>f f/ fconstant 		_pi_half
355 s>f 452 s>f f/ fconstant 		_pi_quarter

8119 s>f 5741 s>f f/ fconstant 		_sqrt2
5741 s>f 8119 s>f f/ fconstant 		_sqrt2half
13755 s>f 7953 s>f f/ fconstant 	_sqrt3
27379 s>f 8658 s>f f/ fconstant 	_sqrt10

25946 s>f 9545 s>f f/ fconstant 	_e
4319 s>f 6231 s>f f/ fconstant 		_ln2
5225 s>f 4756 s>f f/ fconstant 		_ln3
12381 s>f 5377 s>f f/ fconstant 	_ln10
2718 s>f 9029 s>f f/ fconstant 		_log2
1074 s>f 2251 s>f f/ fconstant 		_log3
10691 s>f 462 s>f f/ fconstant 		_e**pi
26120 s>f 1163 s>f f/ fconstant 	_pi**e

1 s>f 2 s>f f/ fconstant 		_half
1 s>f 3 s>f f/ fconstant 		_third
1 s>f 10 s>f f/ fconstant 		_10th
1 s>f 100 s>f f/ fconstant 		_100th
1 s>f 1000 s>f f/ fconstant 		_1000th
5 s>f 127 s>f f/ fconstant 		_mm2inch

10 s>f fconstant			_10
100 s>f fconstant			_100
1000 s>f fconstant			_1000
_1000 fconstant				_1e3
10000 s>f fconstant			_1e4
_1000 1000 s>f f* fconstant 		_1e6
_1e6  1000 s>f f* fconstant 		_1e9
_1e9  1000 s>f f* fconstant 		_1e12

1 s>f 1000 s>f f/ fconstant 		_1e-3
_1e-3 1000 s>f f/ fconstant 		_1e-6
_1e-6 1000 s>f f/ fconstant 		_1e-9
_1e-9 1000 s>f f/ fconstant 		_1e-12
____________________

Ex:
> _pi _1e-6 _1000 _1000 _1e4 f* f* f* f* f>s .
31415  ok
> _pi _1e-6 _1e3 _1e3 _1e4 f* f* f* f* f>s .
31415  ok
>

Pito