Mathc initiation/a434

Un livre de Wikilivres.


Sommaire


Installer ce fichier dans votre répertoire de travail.


Texte de la légende
fa.h
/* --------------------------------- */
/* save as fa.h                      */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       1.);
}
char  feq[] = "1";
/* --------------------------------- */
/* --------------------------------- */
double R(
double x,
double y,
double z)
{
 return(       (x*y*y*z));
}
char  Req[] = "(x*y**2*z)";
/* --------------------------------- */
/* --------------------------------- */
double xR(
double x,
double y,
double z)
{
 return(       (x)*(x*y*y*z) );
}
char xReq[] = "(x)*(x*y*y*z)";
/* --------------------------------- */
double yR(
double x,
double y,
double z)
{
 return(       (y)*(x*y*y*z) );
}
char yReq[] = "(y)*(x*y*y*z)";
/* --------------------------------- */
double zR(
double x,
double y,
double z)
{
 return(       (z)*(x*y*y*z) );
}
char zReq[] = "(z)*(x*y*y*z)";
/* --------------------------------- */
/* --------------------------------- */
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(       0);
}
char  ueq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double ty(
double x)
{
 return(      (+3.));
}
char  teq[] = "+3";
/* ---------------------------------- */
double sy(
double x)
{
 return(      (-0.));
}
char  seq[] = "-0";
/* --------------------------------- */
/* --------------------------------- */
double bx = +3.;    char bxeq[] = "+3";
double ax = -0.;    char axeq[] = "-0";
/* ---------------------------------- */
/* ---------------------------------- */
fb.h
/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       1.);
}
char  feq[] = "1";
/* --------------------------------- */
/* --------------------------------- */
double R(
double x,
double y,
double z)
{
 return(       (x* y*y *z));
}
char  Req[] = "(x* y**2 *z)";
/* --------------------------------- */
/* --------------------------------- */
double yzR(
double x,
double y,
double z)
{
 return(         (y*y + z*z) * (x* y*y *z));
}
char yzReq[] = "(y**2 + z**2) * (x* y**2 *z)";
/* --------------------------------- */
double xzR(
double x,
double y,
double z)
{
 return(         (x*x + z*z) * (x* y*y *z) );
}
char xzReq[] = "(x**2 + z**2) * (x* y**2 *z)";
/* --------------------------------- */
double xyR(
double x,
double y,
double z)
{
 return(         (x*x + y*y) * (x* y*y *z));
}
char xyReq[] = "(x**2 + y**2) * (x* y**2 *z)";
/* --------------------------------- */
/* --------------------------------- */
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(       0);
}
char  ueq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double ty(
double x)
{
 return(      (+3.));
}
char  teq[] = "+3";
/* ---------------------------------- */
double sy(
double x)
{
 return(      (-0.));
}
char  seq[] = "-0";
/* --------------------------------- */
/* --------------------------------- */
double bx = +3.;    char bxeq[] = "+3";
double ax = -0.;    char axeq[] = "-0";
/* ---------------------------------- */
/* ---------------------------------- */