Mathc initiation/002g

Application

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

	c00c.c

/* --------------------------------- */
/* save as c00c.c                    */
/* --------------------------------- */
#include  "x_hfile.h"
#include       "fc.h"
/* --------------------------------- */
int main(void)
{
double  M =  simpson_dzdydx(f,
                            uz, vz, LOOP,
                            sy, ty, LOOP,
                            ax, bx, LOOP);
 
 clrscrn();
 printf(" f : x,y,z -> %s\n\n", feq);

 printf(" v : x,y   -> %s  \n", veq); 
 printf(" u : x,y   -> %s\n\n", ueq);

 printf(" t : x     -> %s  \n", teq); 
 printf(" s : x     -> %s\n\n", seq);

 printf("An odd function with respect to y\n\n");
 
 printf("        (%+.1f (%s  (%s               \n", bx, teq, veq);
 printf(" A = int(  int( int( %s  dzdydx = %.2f\n",feq, M);
 printf("        (%+.1f (%s  (%s           \n\n\n", ax, seq, ueq);

 printf(" Code Mathematica:\n\n"
        " integral (y y sin(y) + x y**3 z) dz dy dx"
        " from (-2) to (+5) from (-1) to (+1) from (2) to (5)\n\n");
        
 stop();

 return 0;
}
/* --------------------------------- */
/* --------------------------------- */

Remarque : (y y sin(y)) Cela donne trois fonctions impaires, donc un nombre impaire de fonctions impaires.

Verifier avec mathematica : Free: wolframalpha.com

 integral (y y sin(y) + x y**3 z) dz dy dx from (-2) to (+5) from (-1) to (+1) from (2) to (5)

Exemple de sortie écran :

 f : x,y,z -> y*y*sin(y)*z + x y**3 z

 v : x,y   -> +5  
 u : x,y   -> +2

 t : x     -> +1  
 s : x     -> -1

An odd function with respect to y

        (+5.0 (+1  (+5               
 A = int(  int( int( y*y*sin(y)*z + x y**3 z  dzdydx = -0.00
        (-2.0 (-1  (+2           


 Code Mathematica:

 integral (y y sin(y) + x y**3 z) dz dy dx from (-2) to (+5) from (-1) to (+1) from (2) to (5)

 Press return to continue.