Mathc initiation/a446

Installer ce fichier dans votre répertoire de travail.

	`fa.h`

/* ---------------------------------- */
/* save as fa.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double Rx(
double s,
double t)
{
      return(    (sin(s)*cos(t)) );
}
char  Rxeq[] = "+(sin(s)*cos(t))";
/* ---------------------------------- */
double Ry(
double s,
double t)
{
      return(    (sin(s)*sin(t)) );
}
char  Ryeq[] = "+(sin(s)*sin(t))";
/* ---------------------------------- */
double Rz(
double s,
double t)
{
      return(   (cos(s)) );
}
char  Rzeq[] = "+cos(s)";
/* ---------------------------------- */
/* ---------------------------------- */
double f(
double x,
double y,
double z)
{
      return(  x*x );
}
char  feq[] = "x**2";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double s)
{
 return(      (PI) );
}
char  veq[] = "PI";
/* ---------------------------------- */
double u(
double s)
{
 return(      (0) );
}
char  ueq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bs = 2.*PI; char bseq[] = "2*PI";
double as = 0.   ; char aseq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */

	`fb.h`

/* ---------------------------------- */
/* save as fb.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double Rx(
double s,
double t)
{
      return(    (sin(s)*cos(t)) );
}
char  Rxeq[] = "+(sin(s)*cos(t))";
/* ---------------------------------- */
double Ry(
double s,
double t)
{
      return(    (sin(s)*sin(t)) );
}
char  Ryeq[] = "+(sin(s)*sin(t))";
/* ---------------------------------- */
double Rz(
double s,
double t)
{
      return(  (cos(s)) );
}
char  Rzeq[] = "+cos(s)";
/* ---------------------------------- */
/* ---------------------------------- */
double f(
double x,
double y,
double z)
{
      return(  x*x );
}
char  feq[] = "x**2";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double t)
{
 return(      (2.*PI) );
}
char  veq[] = "2*PI";
/* ---------------------------------- */
double u(
double t)
{
 return(      (0) );
}
char  ueq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bt = PI; char bteq[] = "PI";
double at = 0.; char ateq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */