Mathc initiation/c35a6
Installer ce fichier dans votre répertoire de travail.
/* save as x_yzx.h */
double inty_dydzdx(
double (*P_f)(double x, double y, double z),
double x,
double z,
double (*Puy)(double x, double z),
double (*Pvy)(double x, double z),
 int ny
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= ny; i++)
 M += m * (*P_f)( x, (((*Puy)( x,z)) + i*(((*Pvy)( x,z))-((*Puy)( x,z)))/ny), z);
 return( ((((*Pvy)( x,z)) -((*Puy)( x,z)))*M) / (2*ny) );
/* --------------------------------- */
double intz_dydzdx(
double (*P_f)(double x, double y, double z),
double x,
double (*Psz)(double x),
double (*Ptz)(double x),
 int nz,
double (*Puy)(double x, double z),
double (*Pvy)(double x, double z),
 int ny
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= nz; i++)
M += m * inty_dydzdx( (*P_f),
 x,
 (((*Psz)(x))+i*(((*Ptz)(x))-((*Psz)(x)))/nz),
 (*Puy),
 (*Pvy),
 ny);
 return( ((((*Ptz)(x)) -((*Psz)(x)))*M) / (2*nz) );
/* --------------------------------- */
double trapezoid_dydzdx(
double (*P_f)(double x, double y, double z),
double ax,
double bx,
 int nx,
double (*Psz)(double x),
double (*Ptz)(double x),
 int nz,
double (*Puy)(double x, double z),
double (*Pvy)(double x, double z),
 int ny
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= nx; i++)
M += m * intz_dydzdx((*P_f),
 (ax+i*(bx-ax)/nx),
 (*Psz),
 (*Ptz),
 nz,
 (*Puy),
 (*Pvy),
 ny);
 return( ((bx -ax)*M) / (2*nx) );
/* --------------------------------- */
Les fonctions pour calculer les intégrales de la forme dydzdx

Mathc initiation/c35a7
Installer ce fichier dans votre répertoire de travail.
/* save as x_zxy.h */
double intz_dzdxdy(
double (*P_f)(double x, double y, double z),
double y,
double x,
double (*Puz)(double x, double y),
double (*Pvz)(double x, double y),
 int nz
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= nz; i++)
 M += m * (*P_f)( x, y, (((*Puz)( x,y)) + i*(((*Pvz)( x,y))-((*Puz)( x,y)))/nz) );
 return( ((((*Pvz)( x,y)) -((*Puz)( x,y)))*M) / (2*nz) );
/* --------------------------------- */
double intx_dzdxdy(
double (*P_f)(double x, double y, double z),
double y,
double (*Psx)(double y),
double (*Ptx)(double y),
 int nx,
double (*Puz)(double x, double y),
double (*Pvz)(double x, double y),
 int nz
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= nx; i++)
M += m * intz_dzdxdy( (*P_f),
 y,
 (((*Psx)(y))+i*(((*Ptx)(y))-((*Psx)(y)))/nx),
 (*Puz),
 (*Pvz),
 nz);
 return( ((((*Ptx)(y)) -((*Psx)(y)))*M) / (2*nx) );
/* --------------------------------- */
double trapezoid_dzdxdy(
double (*P_f)(double x, double y, double z),
double ay,
double by,
 int ny,
double (*Psx)(double y),
double (*Ptx)(double y),
 int nx,
double (*Puz)(double x, double y),
double (*Pvz)(double x, double y),
 int nz
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= ny; i++)
M += m * intx_dzdxdy( (*P_f),
 (ay+i*(by-ay)/ny),
 (*Psx),
 (*Ptx),
 nx,
 (*Puz),
 (*Pvz),
 nz);
 return( ((by -ay)*M) / (2*ny) );
/* --------------------------------- */
Les fonctions pour calculer les intégrales de la forme dzdxdy

Mathc initiation/c35a8
Installer ce fichier dans votre répertoire de travail.
/* save as x_zyx.h */
double intz_dzdydx(
double (*P_f)(double x, double y, double z),
double x,
double y,
double (*Puz)(double x, double y),
double (*Pvz)(double x, double y),
 int nz
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= nz; i++)
 M += m * (*P_f)( x, y, 
 (((*Puz)( x,y)) + i*(((*Pvz)( x,y))-((*Puz)( x,y)))/nz) );
 return( ((((*Pvz)( x,y)) -((*Puz)( x,y)))*M) / (2*nz) );
/* --------------------------------- */
double inty_dzdydx(
double (*P_f)(double x, double y, double z),
double x,
double (*Psy)(double x),
double (*Pty)(double x),
 int ny,
double (*Puz)(double x, double y),
double (*Pvz)(double x, double y),
 int nz
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= ny; i++)
 M += m * intz_dzdydx((*P_f),
 x,
 (((*Psy)(x))+i*(((*Pty)(x))-((*Psy)(x)))/ny),
 (*Puz),
 (*Pvz),
 nz);
 return( ((((*Pty)(x)) -((*Psy)(x)))*M) / (2*ny) );
/* --------------------------------- */
double trapezoid_dzdydx(
double (*P_f)(double x, double y, double z),
double ax,
double bx,
 int nx,
double (*Psy)(double x),
double (*Pty)(double x),
 int ny,
double (*Puz)(double x, double y),
double (*Pvz)(double x, double y),
 int nz
 int i = 0;
double m = 0.;
double M = 0.;
 for(i = 0; i <= nx; i++)
 M += m * inty_dzdydx((*P_f),
 (ax+i*(bx-ax)/nx),
 (*Psy),
 (*Pty),
 ny,
 (*Puz),
 (*Pvz),
 nz);
 return( ((bx -ax)*M) / (2*nx) );
/* --------------------------------- */
Les fonctions pour calculer les intégrales de la forme dzdydx

Mathc initiation/c35ba
Installer ce fichier dans votre répertoire de travail.
/* save as fa.h */
double f(
double x,
double y,
double z)
 return( (y*z) );
char feq[] = "y*z";
double ux(
double y,
double z)
 return(0);
char ueq[] = "0";
double vx(
double y,
double z)
 return((1-y-z));
char veq[] = "1-y-z";
double sy(
double z)
 return((0));
char seq[] = "0";
double ty(
double z)
 return((1-z));
char teq[] = "1-z";
Dans ce fichier il y a les fonctions pour le fichier c17a.c

Mathc initiation/c35bb
Installer ce fichier dans votre répertoire de travail.
/* save as fb.h */
double f(
double x,
double y,
double z)
 return( (1) );
char feq[] = "1";
double ux(
double y,
double z)
 return(0);
char ueq[] = "0";
double vx(
double y,
double z)
 return((2-y-z));
char veq[] = "2-y-z";
double sz(
double y)
 return((-sqrt(1-y*y)));
char seq[] = "-sqrt(1-y**2)";
double tz(
double y)
 return((sqrt(1-y*y)));
char teq[] = "sqrt(1-y**2)";
Dans ce fichier il y a les fonctions pour le fichier c17b.c

Mathc initiation/c35bc
Installer ce fichier dans votre répertoire de travail.
/* save as fc.h */
double f(
double x,
double y,
double z)
 return( (1) );
char feq[] = "1";
double uy(
double x,
double z)
 return(0);
char ueq[] = "0";
double vy(
double x,
double z)
 return( (z*z+x*x+1) );
/* --------------------------------- */
char veq[] = "z**2+x**2+1";
double sx(
double z)
 return((0));
char seq[] = "0";
double tx(
double z)
 return( (2-2*z) );
/* --------------------------------- */
char teq[] = "2-2*z";

Dans ce fichier il y a les fonctions pour le fichier c17c.c

Mathc initiation/c35bd
Installer ce fichier dans votre répertoire de travail.
/* save as fd.h */
double f(
double x,
double y,
double z)
 return( (1) );
char feq[] = "1";
double uy(
double x,
double z)
 return(0);
char ueq[] = "0";
double vy(
double x,
double z)
 return((6-z));
char veq[] = "6-z";
double sz(
double x)
 return((3*x*x));
char seq[] = "3*x**2";
double tz(
double x)
 return((4-x*x));
char teq[] = "4-x**2";
Dans ce fichier il y a les fonctions pour le fichier c17d.c

Mathc initiation/c35be
Installer ce fichier dans votre répertoire de travail.
/* save as fe.h */
double f(
double x,
double y,
double z)
 return( (1) );
char feq[] = "1";
double uz(
double x,
double y)
 return(0);
char ueq[] = "0";
double vz(
double x,
double y)
 return((4-y));
char veq[] = "4-y";
double sx(
double y)
 return((-sqrt(y)));
char seq[] = "-sqrt(y)";
double tx(
double y)
 return((sqrt(y)));
char teq[] = "sqrt(y)";
Dans ce fichier il y a les fonctions pour le fichier c17e.c

Mathc initiation/c35bf
Installer ce fichier dans votre répertoire de travail.
/* save as ff.h */
double f(
double x,
double y,
double z)
 return(x*y);
char feq[] = "x*y";
/* --------------------------------- */
double uz(
double x,
double y)
 return(x*y);
char ueq[] = "x*y";
double vz(
double x,
double y)
 return((x*x*y*y*y));
char veq[] = "x**2*y**3";
/* --------------------------------- */
double sy(
double x)
 return((x));
char seq[] = "x";
double ty(
double x)
 return((x*x));
char teq[] = "x**2";
/* --------------------------------- */
Dans ce fichier il y a les fonctions pour le fichier c17f.c