CD Concept 6/CD Concept 06.iso/mac/UTILITAIRE/RLaB/rlib/symm.r

Text File | 1994-02-21 | 232 b | 11 lines | [TEXT/RLAB]

//
// SYMM  SYMM(A) is the symmetric (Hermitian) part of A, (A+A')/2.
//       It is the nearest symmetric (Hermitian) matrix to A in both the
//       2- and the Frobenius norms.
//

symm = function( A )
{
  return (A + A')./2;
};