Anonymous user
Conjugate transpose: Difference between revisions
m
→{{header|J}}
(Promoted to task from draft.) |
m (→{{header|J}}) |
||
Line 510:
+--------+-----+--------------------------+
NB. In J, PjQ is P + Q*i and the 0.7071... is sqrt(2)</lang>
'''Verify FORTRAN and provide testing verbs:<lang j> mp=: X
hermitian=: -: ct
normal =: (mp~ -: mp) ct
unitary=: ct -: %.
(hermitian,normal,unitary)&.>HERMITIAN;NORMAL;UNITARY
┌─────┬─────┬─────┐
│1 1 0│0 1 0│0 1 1│
└─────┴─────┴─────┘</lang>
=={{header|Mathematica}}==
| |||