Conjugate transpose: Difference between revisions

Content added Content deleted
(→‎{{header|J}}: remove redundant definition ('mp' duplicates 'X'))
Line 871:
+--------+-----+--------------------------+
NB. In J, PjQ is P + Q*i and the 0.7071... is sqrt(2)</lang>
'''Verify FORTRAN and provide testing verbs:<lang j> mphermitian=: X-: ct
hermitiannormal =: (X~ -: X) ct
normal =: (mp~ -: mp) ct
unitary=: ct -: %.
(hermitian,normal,unitary)&.>HERMITIAN;NORMAL;UNITARY
Retrieved from "https://rosettacode.org/wiki/Conjugate_transpose"