Mathc initiation/a470
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.