Aller au contenu

Mathc initiation/c34a3

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 h(
double r,
double k)
{
      return( (4 - r*r) );
}
char  heq[] = "4 - r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double t(
double k)
{
 return(      (2) );
}
char  teq[] = "2";
/* ---------------------------------- */
double s(
double k)
{
 return(      (0) );
}
char  seq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bk = PI/2.;    char bkeq[] = "PI/2";
double ak =    0.;    char akeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
fb.h
/* ---------------------------------- */
/* save as fb.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double h(
double r,
double k)
{
      return( (7. - 7./25. * r*r) );
}
char  heq[] = "7 - 7./25 * r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double t(
double k)
{
 return(      (5) );
}
char  teq[] = "5";
/* ---------------------------------- */
double s(
double k)
{
 return(      (0) );
}
char  seq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double bk = 2*PI;    char bkeq[] = "2*PI";
double ak =   0.;    char akeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
fc.h
/* ---------------------------------- */
/* save as fc.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double h(
double r,
double k)
{
      return( (4 - r*r) );
}
char  heq[] = "4 - r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double t(
double r)
{
 return(      (PI/2) );
}
char  teq[] = "Pi/2";
/* ---------------------------------- */
double s(
double r)
{
 return(      (0) );
}
char  seq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double br = 2.;    char breq[] = "2";
double ar = 0.;    char areq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
fd.h
/* ---------------------------------- */
/* save as fd.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double h(
double r,
double k)
{
      return( (7. - 7./25. * r*r) );
}
char  heq[] = "7 - 7./25 * r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double t(
double r)
{
 return(      (2*PI) );
}
char  teq[] = "2*Pi";
/* ---------------------------------- */
double s(
double r)
{
 return(      (0) );
}
char  seq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double br = 5.;    char breq[] = "5";
double ar = 0.;    char areq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */