Mathc initiation/Fichiers h : c60fe

Un livre de Wikilivres.


Sommaire


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

c00b.c
/* --------------------------------- */
/* save as c00b.c                    */
/* --------------------------------- */
#include  "x_hfile.h"
#include       "fb.h"
/* --------------------------------- */
int main(void)
{
tvalue t;

  t.value =  PI/4.+.1;	
  t.min   =        0.; 
  t.max   =     2.*PI;  
  t.step  =       .05;  

CTRL_splot p;

  p.xmin = -4;
  p.xmax =  4;             
  p.ymin = -2;
  p.ymax =  2;

 clrscrn();

 printf(" Let C be the curve consisting of all ordered pairs\n");
 printf(" (f(t),g(t)), with\n\n");
 printf(" f : t-> %s  \n", feq);
 printf(" g : t-> %s\n\n", geq);

 printf(" With t = %0.3f, the equation of the normal is :\n\n",t.value);
 printf(" y =  (-1/(Dg/Df)(t))(x-f(t))+g(t) = ");
 eq_Normal(f,g,DgDf,t.value);
 
 printf("\n\n\n");

 printf(" Find PA, the length of the Normal from P to the x axis.\n\n");

 printf(" P(%6.3f, %6.3f)    P(t), g(t)) \n", 
        f(t.value),g(t.value));

 printf(" A(%6.3f,  0.000)    A(g(t)(DgDf)(t)+f(t), 0)\n\n\n",
          g(t.value)*DgDf(t.value)+f(t.value)       ); 

 printf(" PA =  sqrt(g(t)**2*(DgDf(t)**2+1))\n"); 
 printf("    = %6.3f\n\n",
       sqrt(pow(g(t.value),2)*(pow(DgDf(t.value),2)+1)) );
                                                  
 G_Normal_Lx(p,
             f,g,DgDf,
             t
            );

 printf(" To see the graph, open the file \"a_main.plt\" with Gnuplot.\n\n");
 stop();

 return 0;
}
/* --------------------------------- */
/* --------------------------------- */
Find PA, the length of the Normal from P to the x axis in c language and gnuplot

Exemple de sortie écran :

 Let C be the curve consisting of all ordered pairs
 (f(t),g(t)), with

 f : t-> 3*pow(sin(t),5)  
 g : t-> 3*pow(cos(t),5)

 With t = 0.885, the equation of the normal is :

 y =  (-1/(Dg/Df)(t))(x-f(t))+g(t) =  1.829*x -1.221


 Find PA, the length of the Normal from P to the x axis.

 P( 0.834,  0.305)    P(t), g(t)) 
 A( 0.668,  0.000)    A(g(t)(DgDf)(t)+f(t), 0)


 PA =  sqrt(g(t)**2*(DgDf(t)**2+1))
    =  0.347

 To see the graph, open the file "a_main.plt" with Gnuplot.

 Press return to continue.