Mathc initiation/Fichiers h : c63fc
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.value))(x-f(t.value))+g(t.value) = ");
eq_Normal(f,g,DgDf,t.value);
printf("\n\n\n");
printf(" Find PB, the length of the Normal from P to the y axis.\n\n");
printf(" P(%6.3f, %6.3f) P(f(t), g(t))\n",
f(t.value),g(t.value));
printf(" B(+0.000, %6.3f) B(0, f(t)/DgDf(t)+g(t))\n\n\n",
f(t.value)/DgDf(t.value)+g(t.value) );
printf(" PB = sqrt(f(t)**2*(1+1/DgDf(t)**2))\n");
printf(" = %6.3f\n\n",
sqrt(pow(f(t.value),2)*(1+pow(1/DgDf(t.value),2))));
G_Normal_Ly(p,
f,g,DgDf,
t
);
printf(" ... load \"a_main.plt\" ... with gnuplot. \n\n");
stop();
return 0;
}
/* --------------------------------- */
/* --------------------------------- */
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.value))(x-f(t.value))+g(t.value) = 1.829*x -1.221
Find PB, the length of the Normal from P to the y axis.
P( 0.834, 0.305) P(f(t), g(t))
B(+0.000, -1.221) B(0, f(t)/DgDf(t)+g(t))
PB = sqrt(f(t)**2*(1+1/DgDf(t)**2))
= 1.739
To see the graph, open the file "a_main.plt" with Gnuplot.
Press return to continue.