Mathc initiation/a427

Sommaire

Installer ce fichier dans votre répertoire de travail.

	fa.h

/* ---------------------------------- */
/* save as fa.h                      */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       1.);
}
char  feq[] = "1";
/* --------------------------------- */
/* --------------------------------- */
double vz(
double x,
double y)
{
 return(       (+cos(x)*sin(y) + 4));
}
char  veq[] = "(+cos(x)*sin(y) + 4)";
/* --------------------------------- */
double uz(
double x,
double y)
{
 return(       (-cos(x)*sin(y) - 4));
}
char  ueq[] = "(-cos(x)*sin(y) - 4)";
/* --------------------------------- */
/* --------------------------------- */
double ty(
double x)
{
 return(      (+3.));
}
char  teq[] = "+3";
/* ---------------------------------- */
double sy(
double x)
{
 return(      (-3.));
}
char  seq[] = "-3";
/* --------------------------------- */
/* --------------------------------- */
double bx = +3.;    char bxeq[] = "+3";
double ax = -3.;    char axeq[] = "-3";
/* ---------------------------------- */
/* ---------------------------------- */

----