Aller au contenu

Mathc initiation/003r

Un livre de Wikilivres.


Sommaire

Installer ce fichier dans votre répertoire de travail.

Texte de la légende
fb2.h
/* --------------------------------- */
/* save as fb2.h                     */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       (z) );
}
char  feq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double a,
double b,
double r)
{
 return(       (r*sin(b)*cos(a)));
}
char  Xeq[] = "(r*sin(b)*cos(a))";
/* --------------------------------- */
double Y(
double a,
double b,
double r)
{
 return(       (r*sin(b)*sin(a)));
}
char  Yeq[] = "(r*sin(b)*sin(a))";
/* --------------------------------- */
double Z(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  Zeq[] = "(r*cos(b))";
/* ---------------------------------- */
/* --------------------------------- */
double r1(
double a,
double b)
{
 return(        1);
}
char  r1eq[] = "1";
/* ---------------------------------- */
double r0(
double a,
double b)
{
 return(        0.);
}
char  r0eq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
double b1(
double a)
{
 return(        PI/2.);
}
char  b1eq[] = "PI/2";
/* ---------------------------------- */
double b0(
double a)
{
 return(         0.);
}
char   b0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double a1 = 2*PI; char a1eq[] = "2*Pi";
double a0 =   0.; char a0eq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fc2.h
/* --------------------------------- */
/* save as fc2.h                     */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       (z) );
}
char  feq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double a,
double b,
double r)
{
 return(       (r*sin(b)*cos(a)));
}
char  Xeq[] = "(r*sin(b)*cos(a))";
/* --------------------------------- */
double Y(
double a,
double b,
double r)
{
 return(       (r*sin(b)*sin(a)));
}
char  Yeq[] = "(r*sin(b)*sin(a))";
/* --------------------------------- */
double Z(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  Zeq[] = "(r*cos(b))";
/* ---------------------------------- */
/* --------------------------------- */
double r1(
double a,
double b)
{
 return(        1);
}
char  r1eq[] = "1";
/* ---------------------------------- */
double r0(
double a,
double b)
{
 return(        0.);
}
char  r0eq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
double a1(
double b)
{
 return(        2*PI);
}
char  a1eq[] = "2 PI";
/* ---------------------------------- */
double a0(
double b)
{
 return(         0.);
}
char   a0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double b1 = PI/2.; char b1eq[] = "PI/2";
double b0 =    0.; char b0eq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fd2.h
/* --------------------------------- */
/* save as fd2.h                     */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       (z) );
}
char  feq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double a,
double b,
double r)
{
 return(       (r*sin(b)*cos(a)));
}
char  Xeq[] = "(r*sin(b)*cos(a))";
/* --------------------------------- */
double Y(
double a,
double b,
double r)
{
 return(       (r*sin(b)*sin(a)));
}
char  Yeq[] = "(r*sin(b)*sin(a))";
/* --------------------------------- */
double Z(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  Zeq[] = "(r*cos(b))";
/* ---------------------------------- */
/* --------------------------------- */
double b1(
double a,
double r)
{
 return(        PI/2.);
}
char  b1eq[] = "PI/2";
/* ---------------------------------- */
double b0(
double a,
double r)
{
 return(        0.);
}
char  b0eq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
double r1(
double a)
{
 return(        1);
}
char  r1eq[] = "1";
/* ---------------------------------- */
double r0(
double a)
{
 return(         0.);
}
char   r0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double a1 = 2*PI; char a1eq[] = "2*Pi";
double a0 =   0.; char a0eq[] =    "0";
/* ---------------------------------- */
/* ---------------------------------- */
fe2.h
/* --------------------------------- */
/* save as fe2.h                     */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       (z) );
}
char  feq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double a,
double b,
double r)
{
 return(       (r*sin(b)*cos(a)));
}
char  Xeq[] = "(r*sin(b)*cos(a))";
/* --------------------------------- */
double Y(
double a,
double b,
double r)
{
 return(       (r*sin(b)*sin(a)));
}
char  Yeq[] = "(r*sin(b)*sin(a))";
/* --------------------------------- */
double Z(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  Zeq[] = "(r*cos(b))";
/* ---------------------------------- */
/* --------------------------------- */
double b1(
double a,
double r)
{
 return(        PI/2.);
}
char  b1eq[] = "PI/2";
/* ---------------------------------- */
double b0(
double a,
double r)
{
 return(        0.);
}
char  b0eq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
double a1(
double r)
{
 return(        2*PI);
}
char  a1eq[] = "2PI";
/* ---------------------------------- */
double a0(
double r)
{
 return(         0.);
}
char   a0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
double r1 = 1; char r1eq[] = "1";
double r0 = 0; char r0eq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
ff2.h
/* --------------------------------- */
/* save as ff2.h                     */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       (z) );
}
char  feq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double a,
double b,
double r)
{
 return(       (r*sin(b)*cos(a)));
}
char  Xeq[] = "(r*sin(b)*cos(a))";
/* --------------------------------- */
double Y(
double a,
double b,
double r)
{
 return(       (r*sin(b)*sin(a)));
}
char  Yeq[] = "(r*sin(b)*sin(a))";
/* --------------------------------- */
double Z(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  Zeq[] = "(r*cos(b))";
/* ---------------------------------- */
/* --------------------------------- */
double a1(
double b,
double r)
{
 return(        2*PI);
}
char  a1eq[] = "2PI";
/* ---------------------------------- */
double a0(
double b,
double r)
{
 return(        0.);
}
char  a0eq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
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";
/* ---------------------------------- */
/* ---------------------------------- */
fg2.h
/* --------------------------------- */
/* save as fg2.h                     */
/* --------------------------------- */
#define  LOOP  2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
 return(       (z) );
}
char  feq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double a,
double b,
double r)
{
 return(       (r*sin(b)*cos(a)));
}
char  Xeq[] = "(r*sin(b)*cos(a))";
/* --------------------------------- */
double Y(
double a,
double b,
double r)
{
 return(       (r*sin(b)*sin(a)));
}
char  Yeq[] = "(r*sin(b)*sin(a))";
/* --------------------------------- */
double Z(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  Zeq[] = "(r*cos(b))";
/* ---------------------------------- */
/* --------------------------------- */
double a1(
double b,
double r)
{
 return(        2*PI);
}
char  a1eq[] = "2PI";
/* ---------------------------------- */
double a0(
double b,
double r)
{
 return(        0.);
}
char  a0eq[] = "0";
/* ---------------------------------- */
/* --------------------------------- */
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";
/* ---------------------------------- */
/* ---------------------------------- */

}