Mathc initiation/a397

Sommaire

Installer et compiler ces fichiers dans votre répertoire de travail.

	c00a.c

/* --------------------------------- */
/* save as c00a.c                    */
/* --------------------------------- */
#include  "x_hfile.h"
#include       "fa.h"
/* --------------------------------- */
int main(void)
{
double  M = simpson_dxdydz(f,
                            u,   v, LOOP,
                            s,   t, LOOP,
                            a, b, LOOP);
 
 clrscrn();
 
 printf(" If the variables are separable, you can use the product\n"
        " of three simple integrals, instead of a triple integral"
        " ... See c00a2.c\n\n");

 printf(" f : x,y,z -> %s\n\n", feq);

 printf(" v : y,z   -> %s  \n", veq);
 printf(" u : y,z   -> %s\n\n", ueq);
  
 printf(" t : z     -> %s  \n", teq);
 printf(" s : z     -> %s\n\n", seq);
 
 printf(" b :       -> %s  \n", beq); 
 printf(" a :       -> %s\n\n", aeq); 

 printf("        (%s  (%s    (%s    \n",   beq, teq, veq);
 printf(" A = int(   int(    int(      %s  dx dy dz = %.6f\n",feq, M);
 printf("        (%s     (%s      (%s\n\n", aeq, seq, ueq);

 printf(" Code Mathematica:\n\n"
        " integral x**2*cos(y)*sin(z) dx dy dz "
        "from 0 to pi/3 from 0 to pi/4 from 0 to 1\n\n");
 stop();
 
 return 0;
}
/* --------------------------------- */
/* --------------------------------- */

Exemple de sortie écran :

 If the variables are separable, you can use the product
 of three simple integrals, instead of a triple integral ... See c00a2.c

 f : x,y,z -> x**2 * cos(y) * sin(z)

 v : y,z   -> 1  
 u : y,z   -> 0

 t : z     -> PI/4  
 s : z     -> 0

 b :       -> PI/3  
 a :       -> 0

        (PI/3  (PI/4    (1    
 A = int(   int(    int(      x**2 * cos(y) * sin(z)  dx dy dz = 0.117851
        (0     (0      (0

 Code Mathematica:

 integral x**2*cos(y)*sin(z) dx dy dz from 0 to pi/3 from 0 to pi/4 from 0 to 1

 Press return to continue.