Aller au contenu

Mathc initiation/003z

Un livre de Wikilivres.


Sommaire

Installer ce fichier dans votre répertoire de travail.

Texte de la légende
fb3.h
/* --------------------------------- */
/* save as fb3.h                     */
/* --------------------------------- */
double F(
double y,
double z)
{
 return(       (z*cos(y)));
}
char  Feq[] = "(z cos(y))";
/* ---------------------------------- */
double G(
double b,
double r)
{
 return(       (r*cos(b))*(r*r*sin(b)));
}
char  Geq[] = "(r cos(b)) [r**2 sin(b)]";
/* ---------------------------------- */
/* --------------------------------- */
double R1(
double b)
{
 return(        1);
}
char  R1eq[] = "1";
/* ---------------------------------- */
double R0(
double b)
{
 return(        0.);
}
char  R0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double B1 = PI/2.; char B1eq[] = "PI/2";
double B0 =    0.; char B0eq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fd3.h
/* --------------------------------- */
/* save as fd3.h                     */
/* --------------------------------- */
double F(
double y,
double z)
{
 return(       (z*cos(y)));
}
char  Feq[] = "(z cos(y))";
/* ---------------------------------- */
double G(
double b,
double r)
{
 return(       (r*cos(b))*(r*r*sin(b)));
}
char  Geq[] = "(r cos(b)) [r**2 sin(b)]";
/* ---------------------------------- */
/* --------------------------------- */
double B1(
double r)
{
 return(        PI/2.);
}
char  B1eq[] = "PI/2";
/* ---------------------------------- */
double B0(
double r)
{
 return(        0.);
}
char  B0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double R1 = 1; char R1eq[] = "1";
double R0 = 0; char R0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */