/*
 * This file:
 *   http://anggtwu.net/MAXIMA/2025-1-MV-setembro.mac.html
 *   http://anggtwu.net/MAXIMA/2025-1-MV-setembro.mac
 *          (find-angg "MAXIMA/2025-1-MV-setembro.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun e () (interactive) (find-angg "MAXIMA/2025-1-MV-setembro.mac"))
 * (defun o () (interactive) (find-angg "MAXIMA/2025-1-MV-abril.mac"))
 * (find-angg "MAXIMA/2025-1-s.mac" "MV")
 * (find-angg ".maxima/maxima-init.mac" "align_eqs")
*/

nary("=.");

_Integrate(fx,x,a,b) := _integrate(fx,x,x=a,x=b);
_At2      (fx,x,a,b) := matrix(["", "|", x=a],
                               [fx, "|",  ""],
                               ["", "|", x=b]);

MVD1() := _Integrate(fp(g(x)) *. gp(x), x,a,b)
       =. _Integrate(fp(u),             u,g(a),g(b));
MVI1() := _integrate(fp(g(x)) *. gp(x), x)
       =. _integrate(fp(u),             u);

MVD4() := _Integrate(fp(g(x)) *. gp(x), x,a,b)
       =. _At2      (f (g(x)),          x,a,b)
       =.           (f(g(b)) -. f(g(a)))
       =. _At2      (f (u),             u,g(a),g(b))
       =. _Integrate(fp(u),             u,g(a),g(b));

MVI3() := _Integrate(fp(g(x)) *. gp(x), x)
       =.            f (g(x))
       =.            f (u)
       =. _Integrate(fp(u),             u);

/*
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
** (find-fline "~/MAXIMA/2025-1-s.mac")
load          ("~/MAXIMA/2025-1-s.mac");
load("2025-1-MV-setembro.mac");
linel : 110;

MVD4 : align_eqs_1c(MVD4());

S4 : [f (u)=sin(u),
      fp(u)=cos(u),
      g (x)=x^2,
      gp(x)=2*x]$

MVD4 _sss_ S4;

*/




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