Mathc initiation/Fichiers c : c53c1a


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 P(
double r,
double zr,
double xy)
{
 return(       1);
}
char  Peq[] = "1";
/* ---------------------------------- */
/* --------------------------------- */
double br(
double zr,
double xy)
{
 return(        1);
}
char  breq[] = "1";
/* ---------------------------------- */
double ar(
double zr,
double xy)
{
 return(        0.);
}
char  areq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
double bzr(
double xy)
{
 return(         PI);
}
char  bzreq[] = "PI";
/* ---------------------------------- */
double azr(
double xy)
{
 return(         0.);
}
char  azreq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bxy  =  2*PI; char   bxyeq[] = "2*Pi";
double axy  =    0.; char   axyeq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fb.h
/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double P(
double r,
double zr,
double xy)
{
 return(    (r*r));
}
char  Peq[] = "r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double br(
double zr,
double xy)
{
 return(sqrt(8));
}
char  breq[] = "sqrt(8)";
/* ---------------------------------- */
double ar(
double zr,
double xy)
{
 return(0.01);
}
char  areq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bzr(
double xy)
{
 return(        PI/4);
}
char  bzreq[] = "PI/4";
/* ---------------------------------- */
double azr(
double xy)
{
 return(      0.01);
}
char  azreq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bxy =  2*PI; char bxyeq[] = "2*Pi";
double axy =  0.01; char axyeq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fc.h
/* --------------------------------- */
/* save as fc.h                      */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double P(
double r,
double zr,
double xy)
{
 return(      (r*cos(zr)));
}
char  Peq[] = "r*cos(zr)";
/* ---------------------------------- */
/* --------------------------------- */
double br(
double zr,
double xy)
{
 return(        1);
}
char  breq[] = "1";
/* ---------------------------------- */
double ar(
double zr,
double xy)
{
 return(0.01);
}
char  areq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
double bzr(
double xy)
{
 return(         PI/2.);
}
char  bzreq[] = "PI/2.";
/* ---------------------------------- */
double azr(
double xy)
{
 return(         0.);
}
char  azreq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bxy =  2*PI; char bxyeq[] = "2*PI";
double axy =    0.; char axyeq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */