/* 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>
 *
 * This file loads:
 *   (find-angg "MAXIMA/barematrix1.lisp")
 * that removes some TeX-isms from how "matrix"es and "/"s are TeXed,
 * and makes them more LaTeX-friendly.
 *
 * It also defined "bare matrices", that are clunky in the Maxima REPL
 * but nice when LaTeXed.
 *
 * (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")
 * (find-Maxima2-links)
 *
 * «.barematrix1.lisp»	(to "barematrix1.lisp")
 * «.includegraphics»	(to "includegraphics")
 *
*/



/* «barematrix1.lisp»  (to ".barematrix1.lisp")
 *   See: (find-angg "MAXIMA/barematrix1.lisp")
*/
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)
tex1(matrix([2, 3/4]));
load("~/MAXIMA/barematrix1.mac");
tex1(matrix([2, 3/4]));

* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("~/MAXIMA/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));

*/