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

diff --git a/maxima/maxima-init.mac b/maxima/maxima-init.mac
index 438989f..df7c66b 100644
--- a/maxima/maxima-init.mac
+++ b/maxima/maxima-init.mac
@@ -17,4 +17,7 @@ load (descriptive);
  * matrices. */
 norm_2(x) := sqrt(maxi(eigenvalues(transpose(x) . x)[1]));
 
+/* Shortcut to perform lu factorization. */
+lu(x) := block(x : lu_factor(x), get_lu_factors(x));
+
 /* vim: ft=maxima */