1/*******************************************************************************
2 * File    : antid.dem
3 * License : GNU General Public License (GPL)
4 *
5 * A demo for the Maxima function antidiff
6 *
7 * See the Maxima reference manual for a documentation.
8 *
9 * This file is part of Maxima -- GPL CAS based on DOE-MACSYMA
10 ******************************************************************************/
11
12load(antid)$
13derivabbrev : true$
14
15/* The demonstration functions chosen are the Nth derivatives of the
16 * product of the first M derivatives of U(x). This function, G, is then
17 * integrated once using ANTID >.
18 */
19
20 for n : 1 thru 2 do
21  for m : 0 thru 3 do (
22    g : diff(product(diff(u(x), x, i), i, 0, m), x, n),
23      display(antidiff(g, x, u(x)))  )$
24
25/* The function need not be a polynomial, for example:
26 */
27
28g : diff(%e^u(x)*sin(u(x)), x, 2);
29antidiff(g, x, u(x));
30antidiff(%, x, u(x));
31ratsimp(%);
32