Conjugate transpose: Difference between revisions
Content added Content deleted
(Added the Common Lisp version--~~~~) |
|||
| Line 340: | Line 340: | ||
<pre> |
<pre> |
||
(hermitian-p |
(hermitian-p |
||
'((3 #C(2 1)) |
'((3 #C(2 1)) |
||
(#C(2 -1) 1) )) |
(#C(2 -1) 1) )) |
||
=> T |
=> T |
||
| Line 346: | Line 346: | ||
(normal-p |
(normal-p |
||
'((#C(0 1) 0) |
'((#C(0 1) 0) |
||
(0 #C(3 -5)) )) |
(0 #C(3 -5)) )) |
||
==> T |
==> T |
||
(unitary-p |
(unitary-p |
||
'((0.70710677 0.70710677 0) |
'((0.70710677 0.70710677 0) |
||
(#C(0 -0.70710677) #C(0 0.70710677) 0) |
(#C(0 -0.70710677) #C(0 0.70710677) 0) |
||
(0 0 1) )) |
(0 0 1) )) |
||
==> T |
==> T |
||
</pre> |
</pre> |
||
=={{header|D}}== |
=={{header|D}}== |
||