www.gusucode.com > 矩阵计算工具箱 - mctoolbox源码程序 > matrixcomp\symmpart.m

    function S = symmpart(A)
%SYMMPART  Symmetric (Hermitian) part.
%          SYMMPART(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.

S = (A + A')./2;