Mathc initiation/0042

Sommaire

Installer ce fichier dans votre répertoire de travail.

	fb4.h

/* --------------------------------- */
/* save as fb4.h                     */
/* --------------------------------- */
double G(
double b,
double r)
{
 return(       (r*cos(b))*(r*r*sin(b)));
}
char  Geq[] = "(r cos(b)) [r**2 sin(b)]";
/* ---------------------------------- */
/* ---------------------------------- */
double Ga(
double a)
{
 return(        (1) );
}
char  Gaeq[] = "(1)";
/* ---------------------------------- */
double Gb(
double b)
{
 return(        (cos(b)*sin(b)) );
}
char  Gbeq[] = "(cos(b)sin(b))";
/* ---------------------------------- */
double Gr(
double r)
{
 return(r*r*r);
}
char  Greq[] = "(r r**2)";
/* ---------------------------------- */
/* ---------------------------------- */
double A1 =  2*PI; char A1eq[] = "2*PI";
double A0 =    0.; char A0eq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
double B1 = PI/2.; char B1eq[] = "PI/2";
double B0 =    0.; char B0eq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
double R1 = 1.; char R1eq[] = "1";
double R0 = 0.; char R0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */