RosettaCodeData/Task/Conjugate-transpose/Racket/conjugate-transpose-2.rkt
2015-02-20 09:02:09 -05:00

6 lines
145 B
Racket

(define M (matrix [[3.000+0.000i +2.000+1.000i]
[2.000-1.000i +1.000+0.000i]]))
(H M)
(normal? M)
(unitary? M)
(hermitian? M)