Conjugate transpose: Difference between revisions
Content added Content deleted
(→{{header|J}}: remove redundant definition ('mp' duplicates 'X')) |
|||
Line 871: | Line 871: | ||
+--------+-----+--------------------------+ |
+--------+-----+--------------------------+ |
||
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> |
'''Verify FORTRAN and provide testing verbs:<lang j> hermitian=: -: ct |
||
normal =: (X~ -: X) ct |
|||
normal =: (mp~ -: mp) ct |
|||
unitary=: ct -: %. |
unitary=: ct -: %. |
||
(hermitian,normal,unitary)&.>HERMITIAN;NORMAL;UNITARY |
(hermitian,normal,unitary)&.>HERMITIAN;NORMAL;UNITARY |