Anonymous user
Conjugate transpose: Difference between revisions
m
→{{header|Mathematica}}
m (→{{header|REXX}}: added/changed whitespace and comments.) |
|||
Line 1,072:
false</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>NormalMatrixQ[a_List?MatrixQ] := Module[{b = Conjugate@Transpose@a},a.b === b.a]
UnitaryQ[m_List?MatrixQ] := (Conjugate@Transpose@m.m == IdentityMatrix@Length@m)
| |||