/*
 * This file:
 *   https://anggtwu.net/MAXIMA/2025-matrixes.mac.html
 *   https://anggtwu.net/MAXIMA/2025-matrixes.mac
 *           (find-angg "MAXIMA/2025-matrixes.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun e () (interactive) (find-angg "MAXIMA/2025-matrixes.mac"))
 * Moved to: (find-angg "MAXIMA/2025-ex-subst.mac" "matrixes")
*/

* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
** (find-angg "MAXIMA/2025-emaxima+.mac")
load       ("~/MAXIMA/2025-emaxima+.mac");
linenum:0;
display2d:true$
* (eeks 0.25 0.25)

/* block ignore */
qyes() := (stringdisp:true,  lisptree0_config(q))$
qno()  := (stringdisp:false, lisptree0_config(nq))$

/* block matrixes 1 */
lisptree2(    matrix([10,20],[30,40]));
lisptree2(   bmatrix([10,20],[30,40]));
lisptree2(barematrix([10,20],[30,40]));

qno()$  lisptree2(matrix([a,b],["c",""]));
qno()$  lisptree2(matrix([a,"=",b],["", "=",c]));

/* block substs */
S1 : [a=2,b=3];
V(S1);
lisptree2(S1);
lisptree2(V(S1));
 a+.b=b+.a;
(a+.b=b+.a) _s_   S1;
(a+.b=b+.a) _ss_  S1;

/* block substs 2 */
(a+.b=b+.a) _sss_ S1;
(a+.b=b+.a) _ssu_ S1;

lisptree2q((a+.b=b+.a) _s_   S1);
lisptree2 ((a+.b=b+.a) _s_   S1);
lisptree2 ((a+.b=b+.a) _ss_  S1);

* (ee-write-buffer-contents "*maxima*" "/tmp/o")
* (find-angg "LUA/Maxima3.lua" "log-to-i" 4)


/*
 * Local Variables:
 * coding:  utf-8-unix
 * End:
*/