Mercurial > matrix-functions

diff toolbox/symmpart.m @ 2:c124219d7bfa draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Re-add the 1995 toolbox after noticing the statement in the ~higham/mctoolbox/ webpage.
author Antonio Pino Robles <data.script93@gmail.com>
date Thu, 07 May 2015 18:36:24 +0200
parents 8f23314345f4
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolbox/symmpart.m	Thu May 07 18:36:24 2015 +0200
@@ -0,0 +1,7 @@
+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;