Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 03:36:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing two arg atan

Browse source
This commit is contained in:
Alex Shinn 2012-05-07 00:21:00 +09:00
parent 99211de2b0
commit be7a80007b
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/init-7.scm
View file

@ -1070,8 +1070,15 @@
(define magnitude abs) (define magnitude abs)
(define (angle z) (if (< z 0) 3.141592653589793 0)))) (define (angle z) (if (< z 0) 3.141592653589793 0))))
(define (atan x . o) (define (atan y . o)
(if (null? o) (atan1 x) (atan1 (/ x (exact->inexact (car o)))))) (if (null? o)
(atan1 y)
(let ((x (exact->inexact (car o))))
(if (negative? x)
(if (negative? y)
(- (atan1 (/ y x)) 3.141592653589793)
(- 3.141592653589793 (atan1 (/ y (- x)))))
(atan1 (/ y x))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; string cursors ;; string cursors