/*
 * 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]));

/* Shortcut to perform lu factorization. */
lu(x) := block(x : lu_factor(x), get_lu_factors(x));

/* vim: ft=maxima */