c03b2b.c

c源码

/*         .c                       freeware                   [e-mail]
*/
/* --------------------------------- INCLUDES ------------------------------- */
#include "xa_hfile.h"
#include    "f___2.h"
/* --------------------------------- MAIN ----------------------------------- */
int main(void)
{
double (*P_f)(double x);
double (*PDf)(double x);
/*-------------------------------- PROGRAM ---------------------------------- */
 P_f =  f;
 PDf = Df;

 clrscrn();
 printf("  f : x-> %s\n\n",     feq);
 printf(" Df : x-> %s\n\n\n\n",Dfeq);

 printf(" The equation of the tangent is :    Df(a) (x-a) + f(a)\n\n");
 printf(" The equation of the  normal is : -1/Df(a) (x-a) + f(a)\n\n");

     gplt_NormA(-3,      /* xmin  plot [xmin:xmax] [ymin:ymax] */
                 3,      /* xmax  */
                -3,      /* ymin  */
                 3,      /* ymax  */
              -1.5,      /* amin  */
                 2,      /* amax  */
                .2,      /* astep */
               feq,
         (*P_f),
         (*PDf)
              );

 printf("\n\n\n\n");
 printf(" To see the graph, open the file \"f_Df.plt\" with Gnuplot.\n\n");
 printf(" Press return to continue\n");
 getchar();

 return 0;
}