Re: [Amforth-devel] Some useful Float Constants

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

1 bug (_thousand) removed:

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

Ex1:
> _pi _e _ln2 _sqrt2half 10000 s>f _third f* f* f* f* f* f>s .
13951  ok
> .s
ok
Calc: 13951.906691388013
Pito


----- PŮVODNÍ ZPRÁVA -----
Od: "pito" <pi...@vo...>
Komu: pi...@vo..., leo...@gm...,
amf...@li...
Předmět: Some useful Float Constants
Datum: 29.8.2010 - 15:07:46

> Hi, here are some useful constants for Leon's
> float lib. 
> Precision ~10^-8 or better. Pito
> 
> ____________________
> 
> 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 100 s>f f/ fconstant 			_1000th
> 
> 5 s>f 127 s>f f/ fconstant 			_mm2inch
> 
> ______________________________
> 
> Ex:
> > 1000 s>f _mm2inch f* f>s .
> 39  ok
> > 10000 s>f _mm2inch f* f>s .
> 393  ok
> > 100 s>f fdup f* _pi f* f>s .
> 31415  ok
> > 
>