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 g(
double r,
double k)
{
      return( (4 - r*r) );
}
char  geq[] = "4 - r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double k)
{
 return(      (2) );
}
char  veq[] = "2";
/* ---------------------------------- */
double u(
double k)
{
 return(      (0) );
}
char  ueq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = PI/2.;    char beq[] = "PI/2";
double a =    0.;    char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
fb.h
/* ---------------------------------- */
/* save as fb.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double g(
double r,
double k)
{
      return( (7. - 7./25. * r*r) );
}
char  geq[] = "7 - 7./25 * r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double k)
{
 return(      (5) );
}
char  veq[] = "5";
/* ---------------------------------- */
double u(
double k)
{
 return(      (0) );
}
char  ueq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 2*PI;    char beq[] = "2*PI";
double a =   0.;    char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
fc.h
/* ---------------------------------- */
/* save as fc.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double g(
double r,
double k)
{
      return( (4 - r*r) );
}
char  geq[] = "4 - r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double r)
{
 return(      (PI/2) );
}
char  veq[] = "Pi/2";
/* ---------------------------------- */
double u(
double r)
{
 return(      (0) );
}
char  ueq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 2.;    char beq[] = "2";
double a = 0.;    char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
fd.h
/* ---------------------------------- */
/* save as fd.h                       */
/* ---------------------------------- */
#define  LOOP  2*100
/* ---------------------------------- */
double g(
double r,
double k)
{
      return( (7. - 7./25. * r*r) );
}
char  geq[] = "7 - 7./25 * r**2";
/* ---------------------------------- */
/* ---------------------------------- */
double v(
double r)
{
 return(      (2*PI) );
}
char  veq[] = "2*Pi";
/* ---------------------------------- */
double u(
double r)
{
 return(      (0) );
}
char  ueq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 5.;    char beq[] = "5";
double a = 0.;    char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */