이승중
가입: 2010년 6월 22일 올린 글: 561
|
올려짐: 2011년10월17일 10:48 주제: practice 4 test set |
|
|
| 코드: | (define a (c-rect-make 5 5))
(define b (c-rect-make 1 (sqrt 3)))
(define c (c-polar-make (sqrt 2) (/ pi 4)))
(define d (c-polar-make 2 (/ pi 6)))
(c-real c) ;1
(c-imaginary d) ;1
(c-angle a) ; pi/4
(c-radius b) ;2
(c-add a c) ;(6,6)
(c-mul a c) ;(0,10)
(c-mul b d) ;(0 4)
(define e (c-conjugate (c-mul (c-add a c) c)));(0,-12)
e
(is-c-polar? e) ;#f |
|
|