Aller au contenu

Mathc initiation/Fichiers c : c53c1a

Un livre de Wikilivres.


Sommaire

Installer ce fichier dans votre répertoire de travail.

Texte de la légende
fb1.h
/* --------------------------------- */
/* save as fb1.h                     */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  feq[] = "(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";
/* ---------------------------------- */
/* ---------------------------------- */
fc1.h
/* --------------------------------- */
/* save as fc1.h                     */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  feq[] = "(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";
/* ---------------------------------- */
/* ---------------------------------- */
fd1.h
/* --------------------------------- */
/* save as fd1.h                     */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  feq[] = "(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";
/* ---------------------------------- */
/* ---------------------------------- */
fe1.h
/* --------------------------------- */
/* save as fe1.h                     */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  feq[] = "(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";
/* ---------------------------------- */
/* ---------------------------------- */
ff1.h
/* --------------------------------- */
/* save as ff1.h                     */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  feq[] = "(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";
/* ---------------------------------- */
/* ---------------------------------- */
fg1.h
/* --------------------------------- */
/* save as fg1.h                     */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double a,
double b,
double r)
{
 return(       (r*cos(b)));
}
char  feq[] = "(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";
/* ---------------------------------- */
/* ---------------------------------- */

}