From: Simon Ruderich <simon@ruderich.org>
Date: Sat, 18 Feb 2012 22:30:02 +0000 (+0100)
Subject: maxima/maxima-init.mac: Minor style fix.
X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=e349e63ff67381f4e56aba418ceb876e1dd3b902;p=config%2Fdotfiles.git

maxima/maxima-init.mac: Minor style fix.
---

diff --git a/maxima/maxima-init.mac b/maxima/maxima-init.mac
index 586cb32..01cf66e 100644
--- a/maxima/maxima-init.mac
+++ b/maxima/maxima-init.mac
@@ -30,7 +30,7 @@ norm(x) := sqrt(transpose(x) . x);
 /* Maxima's mat_norm() can't calculate the 2-norm. Thanks to Wolfgang Lindner
  * (http://www.ma.utexas.edu/pipermail/maxima/2007/006300.html) for an
  * improved version. */
-mat_norm2(x) := sqrt(lmax(eigenvalues(transpose(conjugate(x)).x)[1]));
+mat_norm2(x) := sqrt(lmax(eigenvalues(transpose(conjugate(x)) . x)[1]));
 
 /* Shortcut to perform lu factorization. */
 lu(x) := block(x : lu_factor(x), get_lu_factors(x));