X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=maxima%2Fmaxima-init.mac;h=01cf66ead41e1ce7c16e5ca4d642afd3352323ae;hb=bfc6b7009bb8ea8be36faab8e8f558b82fdb4cb4;hp=f270c10f3f5bef5153c78a901547447d4fc16c57;hpb=f4b44743d9546dbe42c109b2a25f25a1a51d8bbb;p=config%2Fdotfiles.git

diff --git a/maxima/maxima-init.mac b/maxima/maxima-init.mac
index f270c10..01cf66e 100644
--- a/maxima/maxima-init.mac
+++ b/maxima/maxima-init.mac
@@ -4,6 +4,23 @@
  * Also have a look at maxima/maxima-init.mac.
  */
 
+/*
+ * Copyright (C) 2011-2012  Simon Ruderich
+ *
+ * This file is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This file is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this file.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
 
 /* CUSTOM FUNCTIONS */
 
@@ -13,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));