X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=maxima%2Fmaxima-init.mac;h=01cf66ead41e1ce7c16e5ca4d642afd3352323ae;hb=e349e63ff67381f4e56aba418ceb876e1dd3b902;hp=586cb32db238135fe1f001cd9b1fefd282fb50f4;hpb=1e0940a7ff621972a8de62060d96a2130dbb68f1;p=config%2Fdotfiles.git diff --git a/maxima/maxima-init.mac b/maxima/maxima-init.mac index 586cb32..01cf66e 100644 --- a/maxima/maxima-init.mac +++ b/maxima/maxima-init.mac @@ -30,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));