/* ---------------------------------- */
/* save as c17d.c                    */
/* --------------------------------- */
#include  "x_hfile.h"
#include       "fd.h"
/* --------------------------------- */
int main(void)
{
double ax,bx,nx, 
       ny,nz,M;
 
 clrscrn();
 printf(" f : x,y,z -> %s\n\n", feq);
 
 printf(" v : x,z   -> %s  \n", veq);
 printf(" u : x,z   -> %s\n\n", ueq);

 printf(" t : x     -> %s  \n", teq);
 printf(" s : x     -> %s\n\n", seq);


 ax = -1;
 bx =  1;
 nx = 2*50;ny = 2*50;nz = 2*50;

 M =  sympson_dydzdx(   f,
                            ax,bx,nx,
                            sz,tz,nz,
                            uy,vy,ny);

 printf(" With the sympson's rule.\n\n\n");
 printf("        (%+.1f  (%s     (%s    \n", bx, teq, veq);
 printf(" A = int(   int(    int(      %s  dy dz dx = %.6f\n",feq, M);
 printf("        (%+.1f  (%s     (%s\n\n\n", ax, seq, ueq);

 stop();
 
 return 0;
}
/* --------------------------------- */