Mathc initiation/a354

Sommaire

Installer et compiler ces fichiers dans votre répertoire de travail.

	c00a6.c

/* ---------------------------------- */
/* save as c00a6.c                    */
/* ---------------------------------- */
#include  "x_hfile.h"
#include       "fa.h"
/* ---------------------------------- */
int main(void)
{
double c = 1;

CTRL_splot w;

w.xmin = -4.0; w.xmax = +4.0,
w.ymin = -9.0; w.ymax = +2.0;

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

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

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

 printf(" P(%6.3f, %6.3f)         P(c, f(c))    \n", 
        c, f(c));

 printf(" A(%6.3f, 0)              A(c-f(c)/Df(c), 0)\n", 
        c-(f(c)/Df(c)));
 printf(" M(%6.3f, 0)              M( c, 0)\n\n\n", c);

 printf(" AM = sqrt((f(c)**2)/(Df(c)**2)) = %6.3f\n\n\n", 
         sqrt(f(c)*f(c)*(1/(Df(c)*Df(c)))));
                        
  G_TanxM   ( w,    
              c,
              f,feq,Df);

 printf(" Open the file ... load \"a_main.plt\" ... with gnuplot.\n\n");
 
 stop();

 return 0;
}
/* --------------------------------- */
/* --------------------------------- */

Exemple de sortie écran :

  f : x-> 3.0*x**2 - 2.0*x - 5.0

  Df: x-> 6.0*x - 2.0


 With c = 1.000, the equation of the tangent is :

       y =  Df(c) (x-c) + f(c) =  4.000*x -8.000


 Find AM, the length of the under tangent.

 P( 1.000, -4.000)         P(c, f(c))    
 A( 2.000, 0)              A(c-f(c)/Df(c), 0)
 M( 1.000, 0)              M( c, 0)


 AM = sqrt((f(c)**2)/(Df(c)**2)) =  1.000


 Open the file ... load "a_main.plt" ... with gnuplot.

 Press return to continue.