Conjugate transpose: Difference between revisions
Content added Content deleted
(Promoted to task from draft.) |
m (→{{header|J}}) |
||
Line 510: | Line 510: | ||
+--------+-----+--------------------------+ |
+--------+-----+--------------------------+ |
||
NB. In J, PjQ is P + Q*i and the 0.7071... is sqrt(2)</lang> |
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}}== |
=={{header|Mathematica}}== |