Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Conjugate-transpose/Mathematica/conjugate-transpose.math
+++ b/Task/Conjugate-transpose/Mathematica/conjugate-transpose.math
@ -0,0 +1,17 @@
+NormalMatrixQ[a_List?MatrixQ] := Module[{b = Conjugate@Transpose@a},a.b === b.a]
+UnitaryQ[m_List?MatrixQ] := (Conjugate@Transpose@m.m == IdentityMatrix@Length@m)
+
+m = {{1, 2I, 3}, {3+4I, 5, I}};
+m //MatrixForm
+->
+(1	2I	3
+3+4I	5	I)
+
+ConjugateTranspose[m] //MatrixForm
+->
+(1	3-4I
+-2I	5
+3	-I)
+
+{HermitianMatrixQ@#, NormalMatrixQ@#, UnitaryQ@#}&@m
+-> {False, False, False}