Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 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}