Mathc initiation/Fichiers h : c51


Sommaire


Installer ce fichier dans votre répertoire de travail.


Texte de la légende
f_krz.h
/* --------------------------------- */
/* save as f_krz.h                   */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
 return(      (z) );
}
char  feq[] = "z";
/* ---------- k b------------------- */
double v(
double k,
double z)
{
 return(          2*PI);
}
char  veq[] =    "2*PI";
/* ---------- k a------------------- */
double u(
double k,
double z)
{
 return(       0);
}
char  ueq[] = "0";
/* ----------- r b------------------- */
double t(
double z)
{
 return(       2);
}
char  teq[] = "2";
/* ----------- r a------------------- */
double s(
double z)
{
 return(       0);
}
char  seq[] = "0";
/* ------------- z ----------------- */
double b =    1.;  char  beq[] =   "1";
double a =    0.;  char  aeq[] =   "0";
/* --------------------------------- */
/* --------------------------------- */
f_kzr.h
/* --------------------------------- */
/* save as f_kzr.h                   */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
 return(      (z) );
}
char  feq[] = "z";
/* ---------- k b------------------- */
double v(
double k,
double z)
{
 return(          2*PI);
}
char  veq[] =    "2*PI";
/* ---------- k a------------------- */
double u(
double k,
double z)
{
 return(       0);
}
char  ueq[] = "0";
/* ----------- z b------------------- */
double t(
double z)
{
 return(       1);
}
char  teq[] = "1";
/* ----------- z a------------------- */
double s(
double z)
{
 return(       0);
}
char  seq[] = "0";
/* ------------- r ----------------- */
double b =    2.;  char  beq[] =   "2";
double a =    0.;  char  aeq[] =   "0";
/* --------------------------------- */
/* --------------------------------- */
f_rkz.h
/* --------------------------------- */
/* save as f_rkz.h                   */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
 return(      (z) );
}
char  feq[] = "z";
/* ---------- r b------------------- */
double v(
double k,
double z)
{
 return(       sqrt(4-z));
}
char  veq[] = "sqrt(4-z)";
/* ---------- r a------------------- */
double u(
double k,
double z)
{
 return(       0);
}
char  ueq[] = "0";
/* ----------- k b------------------- */
double t(
double z)
{
 return(       2*PI);
}
char  teq[] = "2*PI";
/* ----------- k a------------------- */
double s(
double z)
{
 return(       0);
}
char  seq[] = "0";
/* ------------- z ----------------- */
double b =    2.;  char  beq[] =   "2";
double a =    0.;  char  aeq[] =   "0";
/* --------------------------------- */
/* --------------------------------- */
f_rzk.h
/* --------------------------------- */
/* save as f_rzk.h                   */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
 return(      (z) );
}
char  feq[] = "z";
/* ---------- r b------------------- */
double v(
double k,
double z)
{
 return(sqrt(4-z));
}
char  veq[] = "sqrt(4-z)";
/* ---------- r a------------------- */
double u(
double k,
double z)
{
 return(0);
}
char  ueq[] = "0";
/* ---------- z b------------------- */
double t(
double k)
{
 return(       2);
}
char  teq[] = "2";
/* ---------- z a------------------- */
double s(
double k)
{
 return(       1);
}
char  seq[] = "1";
/* -------------- k ---------------- */
double b = 2.*PI;  char  beq[] = "2*PI";
double a =    0.;  char  aeq[] =    "0";
/* --------------------------------- */
/* --------------------------------- */
f_zkr.h
/* --------------------------------- */
/* save as f_zkr.h                   */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
 return(      (z) );
}
char  feq[] = "z";
/* ---------- z b------------------- */
double v(
double r,
double k)
{
 return(2.);
}
char  veq[] = "2.";
/* ---------- z a------------------- */
double u(
double r,
double k)
{
 return(0);
}
char  ueq[] = "0";
/* ---------- k b------------------- */
double t(
double k)
{
 return(       PI/2.);
}
char  teq[] = "PI/2.";
/* ---------- k a------------------- */
double s(
double k)
{
 return(       0);
}
char  seq[] = "0";
/* ------------ r ------------------ */
double b =    3.;  char  beq[] =   "3";
double a =    0.;  char  aeq[] =   "0";
/* --------------------------------- */
/* --------------------------------- */
f_zrk.h
/* --------------------------------- */
/* save as f_zrk.h                   */
/* --------------------------------- */
#define  LOOP  2*100
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
 return(      (z) );
}
char  feq[] = "z";
/* ---------- z b------------------- */
double v(
double r,
double k)
{
 return(sqrt(4-r*r));
}
char  veq[] = "sqrt(4-r**2)";
/* ---------- z a------------------- */
double u(
double r,
double k)
{
 return(0);
}
char  ueq[] = "0";
/* ---------- r b------------------- */
double t(
double k)
{
 return(       1);
}
char  teq[] = "1";
/* ---------- r a------------------- */
double s(
double k)
{
 return(       0);
}
char  seq[] = "0";
/* ------------ k ------------------ */
double b = PI/2.;  char  beq[] = "PI/2";
double a =    0.;  char  aeq[] =    "0";
/* --------------------------------- */
/* --------------------------------- */