Aller au contenu

Mathc initiation/005d

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*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return(   (2*x+3*y));
}
char  Meq[] = "+(2*x+3*y)";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return(   (x*x*x));
}
char  Neq[] = "+(x**3)";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return(     (z*z));
}
char  Peq[] = "  +(z**2)";
/* --------------------------------- */
/* --------------------------------- */
double f(
double x,
double y)
{
      return(  (x+y));
}
char  feq[] = "(x+y)";
/* --------------------------------- */
/* --------------------------------- */
double x1(
double y)
{
 return(        (1));
}
char  x1eq[] = "(1)";
/* --------------------------------- */
double x0(
double y)
{
 return(       (0));
}
char  x0eq[] = "0";
/* --------------------------------- */
/* ---------------------------------- */
double Y1 = 2.;    char y1eq[] = "2";
double Y0 = 0.;    char y0eq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
fb.h
/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return(   (2*y) );
}
char  Meq[] = "+ 2*y";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return(   (cos(z)*x) );
}
char  Neq[] = "+ cos(z)*x";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return(   -(sin(x)*y));
}
char  Peq[] = " -(sin(x)*y)";
/* --------------------------------- */
/* --------------------------------- */
double f(
double x,
double y)
{
      return( (1-x*x-y*y) );
}
char  feq[] = "(1-x**2-y**2)";
/* --------------------------------- */
/* --------------------------------- */
double y1(
double x)
{
 return(         (1));
}
char  y1eq[] = "+(1)";
/* --------------------------------- */
double y0(
double x)
{
 return(        -(0));
}
char  y0eq[] = "-(0)";
/* --------------------------------- */
/* ---------------------------------- */
double x1 = +1.;    char x1eq[] = "+1";
double x0 = -0.;    char x0eq[] = "-0";
/* ---------------------------------- */
/* --------------------------------- */