Mathc initiation/a340

Application

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

	c00f1.c

/* --------------------------------- */
/* save as c00f1.c                   */
/* --------------------------------- */
#include  "x_afile.h"
#include      "ff1.h"
/* --------------------------------- */
int main(void)
{                    
double  M =  simpson_dzdxdy(f,
                            z0, z1, LOOP,
                            x0, x1, LOOP,
                            Y0, Y1, LOOP);
 
 clrscrn();
 printf(" f : x,y,z -> %s\n\n", feq);

 printf(" z1 : y,x  -> %s  \n", z1eq);
 printf(" z0 : y,x  -> %s\n\n", z0eq);
 
 printf(" x1 : y    -> %s  \n", x1eq);
 printf(" x0 : y    -> %s\n\n", x0eq);
  
 printf(" y1 :      -> %s  \n", y1eq);
 printf(" y0 :      -> %s\n\n", y0eq);
 
 printf("        (%s     (%s      (%s    \n", y1eq, x1eq,  z1eq);
 printf(" A = int(   int(    int(      %s  dz dx dy = %.6f\n",feq, M);
 printf("        (%s     (%s      (%s\n\n\n", y0eq, x0eq,  z0eq);

 printf(" Code Mathematica : \n\n"
        " integral (z+y/5)   dz dx dy"
        " from (x/3) to (x/3+1)  from 0 to 5 from 0 to 6 \n\n");
 stop();

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

Exemple de sortie écran :

 f : x,y,z ->  (z+y/5)

 z1 : y,x  -> x/3+1  
 z0 : y,x  -> x/3 

 x1 : y    -> 6  
 x0 : y    -> 0

 y1 :      -> 5  
 y0 :      -> 0

        (5     (6      (x/3+1    
 A = int(   int(    int(       (z+y/5)  dz dx dy = 60.000000
        (0     (0      (x/3 


 Code Mathematica : 

 integral (z+y/5)   dz dx dy from (x/3) to (x/3+1)  from 0 to 5 from 0 to 6 

 Press return to continue.