< Mathc initiation
Installer et compiler ces fichiers dans votre répertoire de travail.
c17e.c ' |
---|
/* ---------------------------------- */
/* save as c17e.c */
/* --------------------------------- */
#include "x_hfile.h"
#include "fe.h"
/* --------------------------------- */
int main(void)
{
double ay,by,n,ny,M;
clrscrn();
printf(" f : (x,y)-> %s\n\n\n", feq);
printf(" v : (y)-> %s \n", veq);
printf(" u : (y)-> %s \n\n", ueq);
ay = 0; by = 1;
n = 2*5; ny = 2*5;
M = simpson_dxdy(f, u,v,n, ay,by,ny);
printf(" With the simpson's rule.\n\n");
printf(" (%.3f (%s\n", by, veq);
printf(" int( int( %s dx dy = %.6f\n", feq, M);
printf(" (%.3f (%s\n\n\n", ay, ueq);
stop();
return 0;
}
/* --------------------------------- */
Vous pouvez vérifier le résultat avec Octave version 5.2 :
>> I = dblquad (@(x, y) sin(cos(x.*y)), 1, 0, .5, 0)
I = 0.41688
Exemple de sortie écran :
f : (x,y)-> sin(cos(x*y))
v : (y)-> .5
u : (y)-> 0
With the simpson's rule.
(1.000 (.5
int( int( sin(cos(x*y)) dx dy = 0.416884
(0.000 (0
Press return to continue.
Cet article est issu de Wikibooks. Le texte est sous licence Creative Commons - Attribution - Partage dans les Mêmes. Des conditions supplémentaires peuvent s'appliquer aux fichiers multimédias.