From 29daa783d21800160e6b262b932f984e67556e9e Mon Sep 17 00:00:00 2001
From: Simon Ruderich <simon@ruderich.org>
Date: Sat, 28 May 2011 23:07:35 +0200
Subject: [PATCH] maxima/maxima-init.mac: Add. Define norm_2().

---
 maxima/maxima-init.lisp |  2 ++
 maxima/maxima-init.mac  | 20 ++++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 maxima/maxima-init.mac

diff --git a/maxima/maxima-init.lisp b/maxima/maxima-init.lisp
index ec1dcf0..82b90d4 100644
--- a/maxima/maxima-init.lisp
+++ b/maxima/maxima-init.lisp
@@ -1,4 +1,6 @@
 ; Maxima (computer algebra system) configuration file, lisp part.
+;
+; Also have a look at maxima/maxima-init.mac.
 
 
 ; Set directory for temporary files to ~/.maxima (used for plotting for
diff --git a/maxima/maxima-init.mac b/maxima/maxima-init.mac
new file mode 100644
index 0000000..438989f
--- /dev/null
+++ b/maxima/maxima-init.mac
@@ -0,0 +1,20 @@
+/*
+ * Maxima (computer algebra system) configuration file, maxima part.
+ *
+ * Also have a look at maxima/maxima-init.mac.
+ */
+
+
+/* PACKAGES */
+
+/* Provides maxi() and mini() (and more). */
+load (descriptive);
+
+
+/* CUSTOM FUNCTIONS */
+
+/* Maxima's norm() can't calculate the 2-norm. Only works for non-complex
+ * matrices. */
+norm_2(x) := sqrt(maxi(eigenvalues(transpose(x) . x)[1]));
+
+/* vim: ft=maxima */
-- 
2.44.1