X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=maxima%2Fmaxima-init.mac;h=045a2586be08dff3851728548d820e038fd79304;hb=f87a6876f08d7704d17345ea5dbed7cb77887aea;hp=df7c66bd91fde1ccfdfaee832b4e949c4fe38594;hpb=92fe3d7f15820a18aab6ff7d3cc4d87b6b9ae6cb;p=config%2Fdotfiles.git

diff --git a/maxima/maxima-init.mac b/maxima/maxima-init.mac
index df7c66b..045a258 100644
--- a/maxima/maxima-init.mac
+++ b/maxima/maxima-init.mac
@@ -13,6 +13,9 @@ load (descriptive);
 
 /* CUSTOM FUNCTIONS */
 
+/* Didn't find any euclid norm in Maxima, so here it is. */
+norm(x) := sqrt(transpose(x) . x);
+
 /* 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]));