|
fb1.h
|
/* --------------------------------- */
/* save as fb1.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
return( (r*cos(k) * r*sin(k) * z) );
}
char feq[] = "(r cos(k)) (r sin(k)) (z)";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double r,
double k)
{
return( r);
}
char z1eq[] = "r";
/* --------------------------------- */
double z0(
double r,
double k)
{
return( 0.);
}
char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double k)
{
return( 1.);
}
char r1eq[] = "1";
/* --------------------------------- */
double r0(
double k)
{
return( 0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double k1 = PI/2.;char k1eq[] = "PI/2";
double k0 = 0.;char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
double g(
double r,
double k,
double z)
{
return( (r*cos(k)*(r*sin(k))*(z)) *(r));
}
char geq[] = "(rcos(k))(rsin(k))(z) (r)";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
|
|
|
fb2.h
|
/* --------------------------------- */
/* save as fb2.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
return( (x*y*z) );
}
char feq[] = "(x*y*z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double r,
double k,
double z)
{
return( (r*cos(k)));
}
char Xeq[] = "(r*cos(k))";
/* --------------------------------- */
double Y(
double r,
double k,
double z)
{
return( (r*sin(k)));
}
char Yeq[] = "(r*sin(k))";
/* --------------------------------- */
double Z(
double r,
double k,
double z)
{
return( (z));
}
char Zeq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double r,
double k)
{
return( r);
}
char z1eq[] = "r";
/* --------------------------------- */
double z0(
double r,
double k)
{
return( 0.);
}
char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double k)
{
return( 1.);
}
char r1eq[] = "1";
/* --------------------------------- */
double r0(
double k)
{
return( 0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double k1 = PI/2.;char k1eq[] = "PI/2";
double k0 = 0.;char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fc1.h
|
/* --------------------------------- */
/* save as fc1.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
return( (r*cos(k) * r*sin(k) * z));
}
char feq[] = "(r cos(k)) (r sin(k)) (z)";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double r,
double k)
{
return( r);
}
char z1eq[] = "r";
/* --------------------------------- */
double z0(
double r,
double k)
{
return( 0.);
}
char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double r)
{
return( PI/2.);
}
char k1eq[] = "PI/2";
/* --------------------------------- */
double k0(
double r)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1 = 1.; char r1eq[] = "1";
double r0 = 0.; char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
double g(
double r,
double k,
double z)
{
return( (r*cos(k)*(r*sin(k))*(z)) *(r));
}
char geq[] = "(rcos(k))(rsin(k))(z) (r)";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
|
|
|
fc2.h
|
/* --------------------------------- */
/* save as fc2.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double x,
double y,
double z)
{
return( (x*y*z) );
}
char feq[] = "(x*y*z)";
/* --------------------------------- */
/* --------------------------------- */
double X(
double r,
double k,
double z)
{
return( (r*cos(k)));
}
char Xeq[] = "(r*cos(k))";
/* --------------------------------- */
double Y(
double r,
double k,
double z)
{
return( (r*sin(k)));
}
char Yeq[] = "(r*sin(k))";
/* --------------------------------- */
double Z(
double r,
double k,
double z)
{
return( (z));
}
char Zeq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double r,
double k)
{
return( r);
}
char z1eq[] = "r";
/* --------------------------------- */
double z0(
double r,
double k)
{
return( 0.);
}
char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double r)
{
return( PI/2.);
}
char k1eq[] = "PI/2";
/* --------------------------------- */
double k0(
double r)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1 = 1.; char r1eq[] = "1";
double r0 = 0.; char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fd1.h
|
/* --------------------------------- */
/* save as fd1.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
return( (z) );
}
char feq[] = "z";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double k,
double z)
{
return( 2*PI);
}
char k1eq[] = "2 PI";
/* --------------------------------- */
double k0(
double k,
double z)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double z)
{
return( 2);
}
char r1eq[] = "2";
/* --------------------------------- */
double r0(
double z)
{
return( 0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1 = 1.; char z1eq[] = "1";
double z0 = 0.; char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
double g(
double r,
double k,
double z)
{
return( (z) *(r));
}
char geq[] = "(z) (r)";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
|
|
|
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 r,
double k,
double z)
{
return( (r*cos(k)));
}
char Xeq[] = "(r*cos(k))";
/* --------------------------------- */
double Y(
double r,
double k,
double z)
{
return( (r*sin(k)));
}
char Yeq[] = "(r*sin(k))";
/* --------------------------------- */
double Z(
double r,
double k,
double z)
{
return( (z));
}
char Zeq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double k,
double z)
{
return( 2*PI);
}
char k1eq[] = "2 PI";
/* --------------------------------- */
double k0(
double k,
double z)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double z)
{
return( 2);
}
char r1eq[] = "2";
/* --------------------------------- */
double r0(
double z)
{
return( 0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1 = 1.; char z1eq[] = "1";
double z0 = 0.; char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fe1.h
|
/* --------------------------------- */
/* save as fe1.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
return( (z) );
}
char feq[] = "z";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double r,
double z)
{
return( 2*PI);
}
char k1eq[] = "2 PI";
/* ---------- k a------------------- */
double k0(
double r,
double z)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double r)
{
return( 1);
}
char z1eq[] = "1";
/* --------------------------------- */
double z0(
double r)
{
return( 0);
}
char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1 = 2.; char r1eq[] = "2";
double r0 = 0.; char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
double g(
double r,
double k,
double z)
{
return( (z) *(r));
}
char geq[] = "(z) (r)";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
|
|
|
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 r,
double k,
double z)
{
return( (r*cos(k)));
}
char Xeq[] = "(r*cos(k))";
/* --------------------------------- */
double Y(
double r,
double k,
double z)
{
return( (r*sin(k)));
}
char Yeq[] = "(r*sin(k))";
/* --------------------------------- */
double Z(
double r,
double k,
double z)
{
return( (z));
}
char Zeq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double r,
double z)
{
return( 2*PI);
}
char k1eq[] = "2 PI";
/* ---------- k a------------------- */
double k0(
double r,
double z)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double r)
{
return( 1);
}
char z1eq[] = "1";
/* --------------------------------- */
double z0(
double r)
{
return( 0);
}
char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double r1 = 2.; char r1eq[] = "2";
double r0 = 0.; char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
ff1.h
|
/* --------------------------------- */
/* save as ff1.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
return( (z) );
}
char feq[] = "z";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double k,
double z)
{
return( sqrt(4-z));
}
char r1eq[] = "sqrt(4-z)";
/* --------------------------------- */
double r0(
double k,
double z)
{
return( 0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double z)
{
return( 2*PI);
}
char k1eq[] = "2*PI";
/* --------------------------------- */
double k0(
double z)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1 = 2.; char z1eq[] = "2";
double z0 = 0.; char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
double g(
double r,
double k,
double z)
{
return( (z) *(r));
}
char geq[] = "(z) (r)";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
|
|
|
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 r,
double k,
double z)
{
return( (r*cos(k)));
}
char Xeq[] = "(r*cos(k))";
/* --------------------------------- */
double Y(
double r,
double k,
double z)
{
return( (r*sin(k)));
}
char Yeq[] = "(r*sin(k))";
/* --------------------------------- */
double Z(
double r,
double k,
double z)
{
return( (z));
}
char Zeq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double k,
double z)
{
return( sqrt(4-z));
}
char r1eq[] = "sqrt(4-z)";
/* --------------------------------- */
double r0(
double k,
double z)
{
return( 0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double k1(
double z)
{
return( 2*PI);
}
char k1eq[] = "2*PI";
/* --------------------------------- */
double k0(
double z)
{
return( 0);
}
char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1 = 2.; char z1eq[] = "2";
double z0 = 0.; char z0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fg1.h
|
/* --------------------------------- */
/* save as fg1.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
double f(
double r,
double k,
double z)
{
return( (z) );
}
char feq[] = "z";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double k,
double z)
{
return(sqrt(4-z));
}
char r1eq[] = "sqrt(4-z)";
/* --------------------------------- */
double r0(
double k,
double z)
{
return(0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double k)
{
return( 2);
}
char z1eq[] = "2";
/* --------------------------------- */
/* --------------------------------- */
double z0(
double k)
{
return( 1);
}
char z0eq[] = "1";
/* --------------------------------- */
double k1 = 2.*PI; char k1eq[] = "2*PI";
double k0 = 0.; char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
/* --------------------------------- */
double g(
double r,
double k,
double z)
{
return( (z) *(r));
}
char geq[] = "(z) (r)";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
|
|
|
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 r,
double k,
double z)
{
return( (r*cos(k)));
}
char Xeq[] = "(r*cos(k))";
/* --------------------------------- */
double Y(
double r,
double k,
double z)
{
return( (r*sin(k)));
}
char Yeq[] = "(r*sin(k))";
/* --------------------------------- */
double Z(
double r,
double k,
double z)
{
return( (z));
}
char Zeq[] = "(z)";
/* --------------------------------- */
/* --------------------------------- */
double r1(
double k,
double z)
{
return(sqrt(4-z));
}
char r1eq[] = "sqrt(4-z)";
/* --------------------------------- */
double r0(
double k,
double z)
{
return(0);
}
char r0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double z1(
double k)
{
return( 2);
}
char z1eq[] = "2";
/* --------------------------------- */
/* --------------------------------- */
double z0(
double k)
{
return( 1);
}
char z0eq[] = "1";
/* --------------------------------- */
double k1 = 2.*PI; char k1eq[] = "2*PI";
double k0 = 0.; char k0eq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
