- added two argument version of log
- handled (/ flonum complexnum)
This commit is contained in:
parent
53cc48d23c
commit
b7d9c0cf1f
|
@ -1174,6 +1174,7 @@
|
||||||
[(fixnum? y) ($fl/ x ($fixnum->flonum y))]
|
[(fixnum? y) ($fl/ x ($fixnum->flonum y))]
|
||||||
[(bignum? y) ($fl/ x (bignum->flonum y))]
|
[(bignum? y) ($fl/ x (bignum->flonum y))]
|
||||||
[(ratnum? y) ($fl/ x (ratnum->flonum y))]
|
[(ratnum? y) ($fl/ x (ratnum->flonum y))]
|
||||||
|
[(or (cflonum? y) (compnum? y)) (x/compy x y)]
|
||||||
[else (err '/ y)])]
|
[else (err '/ y)])]
|
||||||
[(fixnum? x)
|
[(fixnum? x)
|
||||||
(cond
|
(cond
|
||||||
|
@ -2756,7 +2757,8 @@
|
||||||
[else x])))
|
[else x])))
|
||||||
|
|
||||||
(define log
|
(define log
|
||||||
(lambda (x)
|
(case-lambda
|
||||||
|
[(x)
|
||||||
(cond
|
(cond
|
||||||
[(fixnum? x)
|
[(fixnum? x)
|
||||||
(cond
|
(cond
|
||||||
|
@ -2791,7 +2793,12 @@
|
||||||
(make-rectangular
|
(make-rectangular
|
||||||
(/ (ln (+ (* xr xr) (* xi xi))) 2)
|
(/ (ln (+ (* xr xr) (* xi xi))) 2)
|
||||||
(atan xi xr))))]
|
(atan xi xr))))]
|
||||||
[else (die 'log "not a number" x)])))
|
[else (die 'log "not a number" x)])]
|
||||||
|
[(x y)
|
||||||
|
(let ([ly (log y)])
|
||||||
|
(if (eqv? ly 0)
|
||||||
|
(die 'log "invalid arguments" x y)
|
||||||
|
(/ (log x) ly)))]))
|
||||||
|
|
||||||
(define (random n)
|
(define (random n)
|
||||||
(if (fixnum? n)
|
(if (fixnum? n)
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1574
|
1575
|
||||||
|
|
Loading…
Reference in New Issue