Clojure中的快速复数运算

(require '[core.matrix :as m]
         '[core.matrix.complex :as c])

(def a (c/complex 1 2))
(def b (c/complex 3 4))

(println "a + b = " (m/add a b))
(println "a - b = " (m/sub a b))
(println "a * b = " (m/mul a b))
(println "a / b = " (m/div a b))
(println "Conjugate of a = " (m/conjugate a))
(println "Magnitude of a = " (m/magnitude a))
(println "Phase of a = " (m/phase a))
(println "a * conj(b) = " (m/cmul a b))
(println "a / conj(b) = " (m/cdiv a b))
(println "a + conj(b) = " (m/cadd a b))
(println "a - conj(b) = " (m/csub a b))