c03b3f.c

c源码

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

double c = 0.4;
double t;
/*-------------------------------- PROGRaM ---------------------------------- */
 P_f =  f;
 PDf = Df;

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

 printf(" With c = %0.3f, the equation of the tangent is :\n\n",c);
 printf("       Df(c) (x-c) + f(c) = ");
 eq_Tan(  c,
       (*P_f),
       (*PDf)
       );

 printf("\n\n the equation of the  normal is :\n\n");
 printf("    -1/Df(c) (x-c) + f(c) =");
 eqNorm(  c,
       (*P_f),
       (*PDf)
       );

 printf("\n\n\n");
 printf(" Find AM, the length of the under normal.\n\n");

 t = ((*P_f)(c));
 printf(" P(%6.3f, %6.3f)           P(             c, f(c))\n", c, t);

 t = c+((*P_f)(c))*((*PDf)(c));
 printf(" A(%6.3f, %6.3f)           A(c + f(c) Df(c),    0)\n",t, 0.);

 printf(" M(%6.3f, %6.3f)           M(             c,    0)\n\n",c, 0.);

 t = ((*P_f)(c))* ((*PDf)(c));
 printf(" AM = %6.3f                 f(c) Df(c)",t);

    gplt_NormxM(-1,      /* xmin  plot [xmin:xmax] [ymin:ymax] */
                 3,      /* xmax  */
                -1,      /* ymin  */
                 2,      /* ymax  */
                 c,
               feq,
         (*P_f),
         (*PDf)
              );

 printf("\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;
}