Mathc initiation/a470

Sommaire

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

	c00a.c

/* --------------------------------- */
/* save as c00a.c                    */
/* --------------------------------- */
#include  "x_afile.h"
#include       "fa.h"
/* --------------------------------- */
int main(void)
{
double  M =  simpson_dzdxdy(f,
                            uz, vz,LOOP,
                            sx, tx,LOOP,
                            ay, by,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 : y     -> %s  \n", teq);
 printf(" s : y     -> %s\n\n", seq);
 
 printf(" b :       -> %s  \n", beq); 
 printf(" a :       -> %s\n\n", aeq);

 printf("        (y=b  (x= t(y)   (z= v(x,y)    \n");
 printf(" A = int(  int(       int(  f(x,y,z)  dz dx dy = %.6f\n", M);
 printf("        (y=a  (x= s(y)   (z= u(x,y) \n\n");
  
 printf(" Code Mathematica : \n\n"
        " integral (x*y*z)  dz dx dy \n from 0 to +sqrt(x**2+y**2)"
        " from 0 to 1 from 0 to +sqrt(1-y**2) \n\n");
 stop();

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

Exemple de sortie écran :

 f : x,y,z -> (x*y*z)

 v : x,y   -> +sqrt(x**2+y**2)  
 u : x,y   -> 0

 t : y     -> +sqrt(1-y**2)  
 s : y     -> 0

 b :       -> +1  
 a :       -> 0

        (y=b  (x= t(y)   (z= v(x,y)    
 A = int(  int(       int(  f(x,y,z)  dz dx dy = 0.041667
        (y=a  (x= s(y)   (z= u(x,y) 

 Code Mathematica : 

 integral (x*y*z)  dz dx dy 
 from 0 to +sqrt(x**2+y**2) from 0 to 1 from 0 to +sqrt(1-y**2) 

 Press return to continue.