conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added asin, acos, and tan

This commit is contained in:
Abdulaziz Ghuloum 2007-09-02 20:57:02 -04:00
parent 38a60b4d84
commit 46193467c5
4 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

25
src/ikarus.numerics.ss
View File

@ -142,7 +142,7 @@
abs abs
exact->inexact inexact floor ceiling round log fl=? fl<? fl<=? fl>? exact->inexact inexact floor ceiling round log fl=? fl<? fl<=? fl>?
fl>=? fl+ fl- fl* fl/ flsqrt flmin flzero? flnegative? fl>=? fl+ fl- fl* fl/ flsqrt flmin flzero? flnegative?
sin cos atan sqrt sin cos tan asin acos atan sqrt
flround flmax random) flround flmax random)
(import (import
(ikarus system $fx) (ikarus system $fx)
@ -160,7 +160,7 @@
exact-integer-sqrt min max abs exact-integer-sqrt min max abs
fl=? fl<? fl<=? fl>? fl>=? fl+ fl- fl* fl/ flsqrt flmin fl=? fl<? fl<=? fl>? fl>=? fl+ fl- fl* fl/ flsqrt flmin
flzero? flnegative? flzero? flnegative?
sin cos atan sqrt sin cos tan asin acos atan sqrt
flround flmax random)) flround flmax random))
; (foreign-call "ikrt_fixnum_to_flonum" x)) ; (foreign-call "ikrt_fixnum_to_flonum" x))
@ -1550,6 +1550,27 @@
[(fixnum? x) (foreign-call "ikrt_fx_cos" x)] [(fixnum? x) (foreign-call "ikrt_fx_cos" x)]
[else (error 'cos "unsupported ~s" x)]))) [else (error 'cos "unsupported ~s" x)])))
(define tan
(lambda (x)
(cond
[(flonum? x) (foreign-call "ikrt_fl_tan" x)]
[(fixnum? x) (foreign-call "ikrt_fx_tan" x)]
[else (error 'tan "unsupported ~s" x)])))
(define asin
(lambda (x)
(cond
[(flonum? x) (foreign-call "ikrt_fl_asin" x)]
[(fixnum? x) (foreign-call "ikrt_fx_asin" x)]
[else (error 'asin "unsupported ~s" x)])))
(define acos
(lambda (x)
(cond
[(flonum? x) (foreign-call "ikrt_fl_acos" x)]
[(fixnum? x) (foreign-call "ikrt_fx_acos" x)]
[else (error 'acos "unsupported ~s" x)])))
(define atan (define atan
(lambda (x) (lambda (x)
(cond (cond

5
src/makefile.ss
View File

@ -455,8 +455,11 @@
[expt i r] [expt i r]
[sin i r] [sin i r]
[cos i r] [cos i r]
[sqrt i r] [tan i r]
[asin i r]
[acos i r]
[atan i r] [atan i r]
[sqrt i r]
[number? i r] [number? i r]
[bignum? i] [bignum? i]
[ratnum? i] [ratnum? i]

6
src/todo-r6rs.ss
View File

@ -79,11 +79,11 @@
[* C ba se] [* C ba se]
[/ C ba se] [/ C ba se]
[abs C ba se] [abs C ba se]
[acos S ba se] [acos C ba se]
[angle D ba se] [angle D ba se]
[append C ba se] [append C ba se]
[apply C ba se] [apply C ba se]
[asin S ba se] [asin C ba se]
[assert C ba] [assert C ba]
[assertion-violation S ba] [assertion-violation S ba]
[atan C ba se] [atan C ba se]
@ -219,7 +219,7 @@
[symbol->string C ba se] [symbol->string C ba se]
[symbol=? C ba] [symbol=? C ba]
[symbol? C ba se] [symbol? C ba se]
[tan S ba se] [tan C ba se]
[truncate S ba se] [truncate S ba se]
[values C ba se] [values C ba se]
[vector C ba se] [vector C ba se]