simultaneous permutation and transposition
[Y]=pertrans(X)
:X real or complex matrix : :Y real or complex matrix :
Y=pertrans(X) returns the simultaneous permutation and transposition of X, i.e. the symmetric of X with reference to the second diagonal (utility function).
A = `matrix`_(1:25,5,5)
pertrans(A)