..more compact, faster by 25%.P.
\ fsin fcos ftan library
\ amforth 4.0
\ Pito 23-9-2010
\ based on 4tH library by J.L. Bezemer
\ needs Leon's flib (and Pito's asm flib v1.1 for speed)
-fsincostan
marker -fsincostan
\ the original JLB (taylor) does not work, a bug?
: >taylor fdup f* fover ;
.. a better fsin:
\ calculate fsin
: fsin _pihalf f- fcos ;
FYI:
\ Leon's flib and Pito's flib asm v 1.1 and atm...@25mhz:
> fmeasure ( _half fsin )
9.2494154E-3 secs duration of fsin FUNCTION ok
> fmeasure ( _half fcos )
1.23060155E-2 secs duration of fcos FUNCTION ok
> fmeasure ( _half ftan )
Hi,
here are the words for fsin, fcos, ftan. It uses taylor series for
fcos.
\ fsin fcos ftan library
\ amforth 4.0
\ Pito 23-9-2010
\ based on taylor and fsin fcos from 4tH library by J.L. Bezemer
\ needs Leon's flib (and Pito's asm flib v 1.1 for speed if
required)
\ needs Pito's float constants
