Data commit

Task/Conjugate-transpose/Racket/conjugate-transpose-1.rkt

@@ -0,0 +1,16 @@
+#lang racket
+(require math)
+(define H matrix-hermitian)
+
+(define (normal? M)
+  (define MH (H M))
+  (equal? (matrix* MH M)
+          (matrix* M MH)))
+
+(define (unitary? M)
+  (define MH (H M))
+  (and (matrix-identity? (matrix* MH M))
+       (matrix-identity? (matrix* M MH))))
+
+(define (hermitian? M)
+  (equal? (H M) M))

Task/Conjugate-transpose/Racket/conjugate-transpose-2.rkt

@@ -0,0 +1,6 @@
+(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)

Task/Conjugate-transpose/Racket/conjugate-transpose-3.rkt

@@ -0,0 +1,4 @@
+(array #[#[3.0-0.0i 2.0+1.0i] #[2.0-1.0i 1.0-0.0i]])
+#t
+#f
+#f