RosettaCodeData/Task/Conjugate-transpose/Maple/conjugate-transpose.maple

11 lines
172 B
Text
Raw Permalink Normal View History

2015-02-20 09:02:09 -05:00
M:=<<3|2+I>,<2-I|1>>:
with(LinearAlgebra):
IsNormal:=A->EqualEntries(A^%H.A,A.A^%H):
M^%H;
HermitianTranspose(M);
type(M,'Matrix'(hermitian));
IsNormal(M);
IsUnitary(M);