/*
 * 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)
** (find-angg "MAXIMA/2025-emaxima.mac")
load       ("~/MAXIMA/2025-emaxima.mac");
** (find-angg "MAXIMA/2025-1-s.mac")
load       ("~/MAXIMA/2025-1-s.mac");
texput(fp, "f'")$
texput(gp, "g'")$
linel:110;
linenum:0;
* (eeks 0.25 0.25)

/* 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]);

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