/*
 * This file:
 *   http://anggtwu.net/MAXIMA/2025-baf-qparts.mac.html
 *   http://anggtwu.net/MAXIMA/2025-baf-qparts.mac
 *          (find-angg "MAXIMA/2025-baf-qparts.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun e () (interactive) (find-angg "MAXIMA/2025-baf-qparts.mac"))
 *
 * See: (find-Maxima3-links)
 *      (find-angg "MAXIMA/2025-1-s.mac" "dparts")
*/



* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("/usr/share/emacs/site-lisp/maxima/emaxima.lisp")$
display2d:'emaxima$
** (find-fline "~/MAXIMA/2025-1-s.mac")
load          ("~/MAXIMA/2025-1-s.mac");
texput(fp, "f'")$
texput(gp, "g'")$
linenum:0;
/* block qparts */
eq1 : RCV   _sss_ [f(u)=sin(u), fp(u)=cos(u), g(x)=x^2, gp(x)=2*x];
eq2 : MVI1V _sss_ [f(u)=sin(u), fp(u)=cos(u), g(x)=x^2, gp(x)=2*x];
eq3 : MVD1V _sss_ [f(u)=sin(u), fp(u)=cos(u), g(x)=x^2, gp(x)=2*x];
qparts(eq1, [1,2,1,1,2],
            [1,2,2,1,2],
            [1,2,3,1,2],
            [1,2,4,1,2],
            [2,2,2]);
qparts(eq1, [1,2,1,1,2],
            [1,2,2,1,2],
            [1,2,3,1,2],
            [1,2,4,1,2],
            [2,1,2,1]);
qparts(eq2, [1,2,1,1,2],
            [1,2,2,1,2],
            [1,2,3,1,2],
            [1,2,4,1,2],
            [2,2,2,1]);
qparts(eq3, [1,2,1,1,2],
            [1,2,2,1,2],
            [1,2,3,1,2],
            [1,2,4,1,2],
            [2,2,2,1]);
*
* (eev (ee-no-properties (ee-buffer-contents0 "*maxima*")) nil "/tmp/o")
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
Path.addLUAtopath()
require "Maxima3"    -- (find-angg "LUA/Maxima3.lua")
bigstr = ee_readfile "/tmp/o"
s = SplitMaximaLog.from(bigstr)
o2 = s:all_in_one_slide()
= o2
ee_writefile("/tmp/o2", o2)
** (find-fline "/tmp/o2")
* (defun i () (interactive) (insert-file "/tmp/o2"))