Mathc initiation/Fichiers h : x 70fa

Sommaire

Installer ce fichier dans votre répertoire de travail.

	fa.h

/* ---------------------------------- */
/* save as fa.h                  */
/* ---------------------------------- */
double U(
double x,
double y,
double z)
{
 return(       pow(x,4)*y+y*y*pow(z,3) );
}
char  Ueq[] = "x**4*y+y**2*z**3";
/* ---------------------------------- */
double X(
double r,
double s,
double t)
{
 return(       r*s*exp(t) );
}
char  Xeq[] = "r*s*exp(t)";
/* ---------------------------------- */
double Y(
double r,
double s,
double t)
{
 return(       r*s*s*exp(-t) );
}
char  Yeq[] = "r*s**2*exp(-t)";
/* ---------------------------------- */
double Z(
double r,
double s,
double t)
{
 return(       r*r*s*sin(t) );
}
char  Zeq[] = "r**2*s*sin(t)";
/* ---------------------------------- */
double f(
double r,
double s,
double t)
{
 return(pow((r*s*exp(t)),4)*(r*s*s*exp(-t))
        +pow(r*s*s*exp(-t),2)*pow(r*r*s*sin(t),3) );
}
char  feq[] = "(r*s*exp(t))**4*r*s**2*exp(-t)+\n"
              "\t\tr*s**2*exp(-t)**2*r**2*s*sin(t)**3";
/* ---------------------------------- */
/* ---------------------------------- */

Déclaration des fichiers h.