Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (define (make-from-real-imag x y)

2 665c255d 2023-08-04 jrmu   (define (dispatch op)

3 665c255d 2023-08-04 jrmu     (cond ((eq? op 'real-part) x)

4 665c255d 2023-08-04 jrmu 	  ((eq? op 'imag-part) y)

5 665c255d 2023-08-04 jrmu 	  ((eq? op 'magnitude)

6 665c255d 2023-08-04 jrmu 	   (sqrt (+ (square x) (square y))))

7 665c255d 2023-08-04 jrmu 	  ((eq? op 'angle) (atan y x))

8 665c255d 2023-08-04 jrmu 	  (else (error "Unknown op -- MAKE-FROM-REAL-IMAG" op))))

9 665c255d 2023-08-04 jrmu   dispatch)