/* This file:
 *   http://anggtwu.net/MAXIMA/barematrix1.mac.html
 *   http://anggtwu.net/MAXIMA/barematrix1.mac
 *          (find-angg "MAXIMA/barematrix1.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun bl () (interactive) (find-angg "MAXIMA/barematrix1.lisp"))
 * (defun bm () (interactive) (find-angg "MAXIMA/barematrix1.mac"))
 * (find-angg "MAXIMA/barematrix1.lisp")
 * (find-angg ".maxima/maxima-init.mac" "align_eqs")
*/

load("~/MAXIMA/barematrix1.lisp")$
bare(M) := apply('barematrix, args(M));
align_eqs_bare(as) := apply('barematrix, align_eqs_0(as))$

/*
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("barematrix1.mac");
A : matrix([10, 20], [30, 40]);
B : bare(A);
tex1(A);
tex1(B);

a : [11, 22, 33, 44, 55, 66];
     align_eqs(a);
     align_eqs_bare(a);
tex1(align_eqs(a));
tex1(align_eqs_bare(a));

*/