Aller au contenu

Mathc initiation/Fichiers h : c64fa

Un livre de Wikilivres.


Installer ce fichier dans votre répertoire de travail.

Texte de la légende
fa.h
/* --------------------------------- */
/* save as fa.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return( (y*sin(x)) );
}
char  Meq[] = "y*sin(x)";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return( (y*y*z) );
}
char  Neq[] = "y^2*z";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return(  (x+3*z) );
}
char  Peq[] =  "x+3*z";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double x,
double y)
{
 return(        (1) );
}
char  z1eq[] = "+1";
/* --------------------------------- */
double z0(
double x,
double y)
{
 return(       (-1));
}
char  z0eq[] = "-1";
/* --------------------------------- */
/* --------------------------------- */
double y1(
double y)
{
 return(         1  );
}
char  y1eq[] = "+1";
/* ---------------------------------- */
double y0(
double y)
{
 return(        -1 );
}
char  y0eq[] = "-1";
/* --------------------------------- */
/* ---------------------------------- */
double x1 = +1.; char x1eq[] = "+1";
double x0 = -1.; char x0eq[] = "-1";
/* ---------------------------------- */
/* ---------------------------------- */
fb.h
/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return( (2*x*z) );
}
char  Meq[] = "2*x*z";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return( (x*y*z) );
}
char  Neq[] = "x*y*z";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return( (y*z) );
}
char  Peq[] = "y*z";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double x,
double y)
{
 return(       ((4-x)/2) );
}
char  z1eq[] = "(4-x)/2";
/* --------------------------------- */
double z0(
double x,
double y)
{
 return(       (0));
}
char  z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double x1(
double y)
{
 return(        4  );
}
char  x1eq[] = "4";
/* ---------------------------------- */
double x0(
double y)
{
 return(        0 );
}
char  x0eq[] = "0";
/* --------------------------------- */
/* ---------------------------------- */
double Y1 =  2.; char y1eq[] = "2";
double Y0 =  0.; char y0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
fc.h
/* --------------------------------- */
/* save as fc.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return( (x*x*x+sin(z)) );
}
char  Meq[] = "x^3 + sin(z)";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return( (x*x*y+cos(z)) );
}
char  Neq[] = "x^2*y + cos(z)";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return( exp(x*x+y*y) );
}
char  Peq[] = "exp(x^2 + y^2)";
/* --------------------------------- */
/* --------------------------------- */
double Y1(
double x,
double z)
{
 return(      (5-z) );
}
char  y1eq[] = "5-z";
/* --------------------------------- */
double Y0(
double x,
double z)
{
 return(      (+0));
}
char  y0eq[] = "+0";
/* ---------------------------------- */
/* --------------------------------- */
double z1(
double x)
{
 return(       4-x*x  );
}
char  z1eq[] = "4-x^2";
/* ---------------------------------- */
double z0(
double x)
{
 return(       +0 );
}
char  z0eq[] = "+0";
/* --------------------------------- */
/* ---------------------------------- */
double x1  =  +2.; char   x1eq[] = "+2";
double x0  =  -2.; char   x0eq[] = "-2";
/* ---------------------------------- */
/* ---------------------------------- */
fd.h
/* --------------------------------- */
/* save as fd.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return( (x*x*x+sin(z)) );
}
char  Meq[] = "x^3 + sin(z)";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return( (x*x*y+cos(z)) );
}
char  Neq[] = "x^2*y + cos(z)";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return( exp(x*x+y*y) );
}
char  Peq[] = "exp(x^2 + y^2)";
/* --------------------------------- */
/* --------------------------------- */
double Y1(
double x,
double z)
{
 return(       (5-z) );
}
char  y1eq[] = "5-z";
/* --------------------------------- */
double Y0(
double x,
double z)
{
 return(       (+0));
}
char  y0eq[] = "+0";
/* ---------------------------------- */
/* --------------------------------- */
double x1(
double z)
{
 return(        4-z*z  );
}
char  x1eq[] = "4-z^2";
/* ---------------------------------- */
double x0(
double z)
{
 return(        +0 );
}
char  x0eq[] = "+0";
/* --------------------------------- */
/* ---------------------------------- */
double z1  =  +2.; char   z1eq[] = "+2";
double z0  =  -2.; char   z0eq[] = "-2";
/* ---------------------------------- */
/* ---------------------------------- */
fe.h
/* --------------------------------- */
/* save as fe.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return( (x*x*x+sin(z)) );
}
char  Meq[] = "x^3 + sin(z)";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return( (x*x*y+cos(z)) );
}
char  Neq[] = "x^2*y + cos(z)";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return( exp(x*x+y*y) );
}
char  Peq[] = "exp(x^2 + y^2)";
/* --------------------------------- */
/* --------------------------------- */
double x1(
double y,
double z)
{
 return(       (5-z) );
}
char  x1eq[] = "5-z";
/* --------------------------------- */
double x0(
double y,
double z)
{
 return(       (+0));
}
char  x0eq[] = "+0";
/* ---------------------------------- */
/* --------------------------------- */
double Y1(
double z)
{
 return(        4-z*z  );
}
char  y1eq[] = "4-z^2";
/* ---------------------------------- */
double Y0(
double z)
{
 return(        +0 );
}
char  y0eq[] = "+0";
/* --------------------------------- */
/* ---------------------------------- */
double z1  =  +2.; char   z1eq[] = "+2";
double z0  =  -2.; char   z0eq[] = "-2";
/* ---------------------------------- */
/* ---------------------------------- */
ff.h
/* --------------------------------- */
/* save as ff.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return( (2*x*z) );
}
char  Meq[] = "2*x*z";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return( (x*y*z) );
}
char  Neq[] = "x*y*z";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return( (y*z) );
}
char  Peq[] = "y*z";
/* --------------------------------- */
/* --------------------------------- */
double x1(
double y,
double z)
{
 return(       ((4-y)/2) );
}
char  x1eq[] = "(4-y)/2";
/* --------------------------------- */
double x0(
double y,
double z)
{
 return(       (0));
}
char  x0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double y)
{
 return(        4  );
}
char  z1eq[] = "4";
/* ---------------------------------- */
double z0(
double y)
{
 return(        0 );
}
char  z0eq[] = "0";
/* --------------------------------- */
/* ---------------------------------- */
double Y1 =  2.; char y1eq[] = "2";
double Y0 =  0.; char y0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */

.