|
fa.h
|
/* ---------------------------------- */
/* save as fa.h */
/* --------------------------------- */
#define LOOP 2*50
/* ---------------------------------- */
double f(
double x,
double y,
double z)
{
return( (x*y*z) );
}
char feq[] = "(x*y*z)";
/* --------------------------------- */
/* --------------------------------- */
double vz(
double x,
double y)
{
return( (+sqrt(x*x+y*y)));
}
char veq[] = "+sqrt(x**2+y**2)";
/* --------------------------------- */
double uz(
double x,
double y)
{
return( 0.);
}
char ueq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double tx(
double y)
{
return( (+sqrt(1-y*y)));
}
char teq[] = "+sqrt(1-y**2)";
/* --------------------------------- */
double sx(
double y)
{
return( (0.));
}
char seq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
double by = +1.; char beq[] = "+1";
double ay = -0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
|
|
|
|
fb.h
|
/* --------------------------------- */
/* save as f_b.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)";
/* ---------- z b------------------- */
double v(
double r,
double k)
{
return( r);
}
char veq[] = "r";
/* ---------- z a------------------- */
double u(
double r,
double k)
{
return( 0.);
}
char ueq[] = "0";
/* ---------- k b------------------- */
double t(
double k)
{
return( 1.);
}
char teq[] = "1";
/* ---------- k a------------------- */
double s(
double k)
{
return( 0);
}
char seq[] = "0";
/* ------------ r ------------------ */
double b = +PI/2.; char beq[] = "+PI/2";
double a = 0.; char aeq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
|
|
|
fb2.h
|
/* --------------------------------- */
/* save as f_b2.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)";
/* --------------------------------- */
/* ---------- z b------------------- */
double v(
double r,
double k)
{
return( r);
}
char veq[] = "r";
/* ---------- z a------------------- */
double u(
double r,
double k)
{
return( 0.);
}
char ueq[] = "0";
/* ---------- k b------------------- */
double t(
double k)
{
return( 1.);
}
char teq[] = "1";
/* ---------- k a------------------- */
double s(
double k)
{
return( 0);
}
char seq[] = "0";
/* ------------ r ------------------ */
double b = +PI/2.; char beq[] = "+PI/2";
double a = 0.; char aeq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fc.h
|
/* --------------------------------- */
/* save as f_c.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)";
/* ---------- z b------------------- */
double v(
double r,
double k)
{
return( r);
}
char veq[] = "r";
/* ---------- z a------------------- */
double u(
double r,
double k)
{
return( 0.);
}
char ueq[] = "0";
/* ---------- r b------------------- */
double t(
double k)
{
return( +PI/2.);
}
char teq[] = "+PI/2";
/* ---------- r a------------------- */
double s(
double k)
{
return( 0);
}
char seq[] = "0";
/* ------------ k ------------------ */
double b = +1.; char beq[] = "1";
double a = 0.; char aeq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
|
|
|
fc2.h
|
/* --------------------------------- */
/* save as f_c2.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)";
/* --------------------------------- */
/* ---------- z b------------------- */
double v(
double r,
double k)
{
return( r);
}
char veq[] = "r";
/* ---------- z a------------------- */
double u(
double r,
double k)
{
return( 0.);
}
char ueq[] = "0";
/* ---------- r b------------------- */
double t(
double r)
{
return( +PI/2.);
}
char teq[] = "+PI/2";
/* ---------- r a------------------- */
double s(
double r)
{
return( 0);
}
char seq[] = "0";
/* ------------ k ------------------ */
double b = +1.; char beq[] = "1";
double a = 0.; char aeq[] = "0";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fd.h
|
/* --------------------------------- */
/* save as f_d.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
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";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
|
|
|
fd2.h
|
/* --------------------------------- */
/* save as f_d2.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)";
/* --------------------------------- */
/* ---------- 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";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fe.h
|
/* --------------------------------- */
/* save as f_e.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
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";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
|
|
|
fe2.h
|
/* --------------------------------- */
/* save as f_e2.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)";
/* --------------------------------- */
/* ---------- 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";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
ff.h
|
/* --------------------------------- */
/* save as f_f.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
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";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
|
|
|
ff2.h
|
/* --------------------------------- */
/* save as f_f2.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)";
/* --------------------------------- */
/* ---------- 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";
/* --------------------------------- */
/* --------------------------------- */
|
|
|
fg.h
|
/* --------------------------------- */
/* save as f_g.h */
/* --------------------------------- */
#define LOOP 2*50
/* --------------------------------- */
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";
/* --------------------------------- */
/* --------------------------------- */
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
|
|
|
fg2.h
|
/* --------------------------------- */
/* save as f_g2.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)";
/* --------------------------------- */
/* ---------- 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";
/* --------------------------------- */
/* --------------------------------- */
|
