Aller au contenu

Mathc initiation/Fichiers h : c59fa

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(   (3*z*y) );
}
char  Meq[] = "+ 3*z*y";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return(   (4*x) );
}
char  Neq[] = "+ 4*x";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return(    (2*y*x) );
}
char  Peq[] = " + 2*y*x";
/* --------------------------------- */
/* --------------------------------- */
double f(
double x,
double y)
{
      return( (9-x*x-y*y) );
}
char  feq[] = "9-x**2-y**2";
/* --------------------------------- */
/* --------------------------------- */
double x1(
double y)
{
 return(       sqrt(9-y*y)  );
}
char  x1eq[] = "+sqrt(9-y**2)";
/* --------------------------------- */
double x0(
double y)
{
 return(       -sqrt(9-y*y) );
}
char  x0eq[] = "-sqrt(9-y**2)";
/* --------------------------------- */
/* ---------------------------------- */
double Y1 = +3.;    char y1eq[] = "+3";
double Y0 = -3.;    char y0eq[] = "-3";
/* ---------------------------------- */
/* --------------------------------- */
double g(
double t)
{
        return( 3*cos(t));
}
char  geq[] =  " 3*cos(t)";
/* --------------------------------- */
double h(
double t)
{
        return( 3*sin(t));
}
char  heq[] =  " 3*sin(t)";
/* --------------------------------- */
double k(
double t)
{
        return( 0);
}
char  keq[] =  "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 2*PI; char beq[] = "2*PI";
double a =   0.; char aeq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fa3.h
/* --------------------------------- */
/* save as fa3.h                     */
/* --------------------------------- */
#define  LOOP  2*300
/* --------------------------------- */
double M(
double x,
double y,
double z)
{
      return(   (3*z*y) );
}
char  Meq[] = "+ 3*z*y";
/* --------------------------------- */
double N(
double x,
double y,
double z)
{
      return(   (4*x) );
}
char  Neq[] = "+ 4*x";
/* --------------------------------- */
double P(
double x,
double y,
double z)
{
      return(    (2*y*x) );
}
char  Peq[] = " + 2*y*x";
/* --------------------------------- */
/* --------------------------------- */
double f(
double x,
double y)
{
      return( (9-x*x-y*y) );
}
char  feq[] = "9-x**2-y**2";
/* --------------------------------- */
/* --------------------------------- */
double y1(
double x)
{
 return(       sqrt(9-x*x)  );
}
char  y1eq[] = "+sqrt(9-x**2)";
/* --------------------------------- */
double y0(
double x)
{
 return(       -sqrt(9-x*x) );
}
char  y0eq[] = "-sqrt(9-x**2)";
/* --------------------------------- */
/* ---------------------------------- */
double x1 = +3.;    char x1eq[] = "+3";
double x0 = -3.;    char x0eq[] = "-3";
/* ---------------------------------- */
/* --------------------------------- */
double g(
double t)
{
        return( 3*cos(t));
}
char  geq[] =  " 3*cos(t)";
/* --------------------------------- */
double h(
double t)
{
        return( 3*sin(t));
}
char  heq[] =  " 3*sin(t)";
/* --------------------------------- */
double k(
double t)
{
        return( 0);
}
char  keq[] =  "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 2*PI; char beq[] = "2*PI";
double a =   0.; char aeq[] =    "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( (4-x*x-y*y) );
}
char  feq[] = "4-x**2-y**2";
/* --------------------------------- */
/* --------------------------------- */
double x1(
double y)
{
 return(       sqrt(4-y*y)  );
}
char  x1eq[] = "+sqrt(4-y**2)";
/* --------------------------------- */
double x0(
double y)
{
 return(       -sqrt(4-y*y) );
}
char  x0eq[] = "-sqrt(4-y**2)";
/* --------------------------------- */
/* ---------------------------------- */
double Y1 = +2.;    char y1eq[] = "+2";
double Y0 = -2.;    char y0eq[] = "-2";
/* ---------------------------------- */
/* --------------------------------- */
double g(
double t)
{
        return( 2*cos(t));
}
char  geq[] =  " 2*cos(t)";
/* --------------------------------- */
double h(
double t)
{
        return( 2*sin(t));
}
char  heq[] =  " 2*sin(t)";
/* --------------------------------- */
double k(
double t)
{
        return( 0);
}
char  keq[] =  "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 2*PI;    char beq[] = "2*PI";
double a =   0.;    char aeq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fb3.h
/* --------------------------------- */
/* save as fb3.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( (4-x*x-y*y) );
}
char  feq[] = "4-x**2-y**2";
/* --------------------------------- */
/* --------------------------------- */
double y1(
double y)
{
 return(       sqrt(4-y*y)  );
}
char  y1eq[] = "+sqrt(4-y**2)";
/* --------------------------------- */
double y0(
double y)
{
 return(       -sqrt(4-y*y) );
}
char  y0eq[] = "-sqrt(4-y**2)";
/* --------------------------------- */
/* ---------------------------------- */
double x1 = +2.;    char x1eq[] = "+2";
double x0 = -2.;    char x0eq[] = "-2";
/* ---------------------------------- */
/* --------------------------------- */
double g(
double t)
{
        return( 2*cos(t));
}
char  geq[] =  " 2*cos(t)";
/* --------------------------------- */
double h(
double t)
{
        return( 2*sin(t));
}
char  heq[] =  " 2*sin(t)";
/* --------------------------------- */
double k(
double t)
{
        return( 0);
}
char  keq[] =  "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 2*PI;    char beq[] = "2*PI";
double a =   0.;    char aeq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */

.