Aller au contenu

Mathc initiation/Fichiers h : c17cb

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)
{
double  ax =    0,   ay =     0, 
        bx =    2,   by =     3, 
        nx = 2*45,   ny =  2*45,
        
       Mxy =    0,  Myx =     0;

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

 Myx = trapezoid_dydx(f, ay,by,ny, ax,bx,nx);
 Mxy = trapezoid_dxdy(f, ax,bx,nx, ay,by,ny);

 printf(" With the trapezoidal's rule.\n\n");
 printf("    (%.3f  (%.3f\n",     bx,by);
 printf(" int(   int(       %s    Dy Dx = %.6f\n", feq, Myx);
 printf("    (%.3f  (%.3f\n\n\n", ax,ay);
 
 printf("    (%.3f  (%.3f\n",     by,bx);
 printf(" int(   int(       %s    Dx Dy = %.6f\n", feq, Mxy);
 printf("    (%.3f  (%.3f\n\n\n", ay,ax);
 
 stop();

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


Vous pouvez vérifier avec Octave version 5.2 :

I = dblquad (f, xa, xb, ya, yb)

>> I = dblquad (@(x, y) exp(-x.*x.*x-y.*y), 0, 2, 0, 3)

I =  0.79134


Exemple de sortie écran :

 f : (x,y)-> exp(-x**3-y**2)


 With the trapezoidal's rule.

    (2.000  (3.000
 int(   int(       exp(-x**3-y**2)  Dy Dx = 0.791342
    (0.000  (0.000


    (3.000  (2.000
 int(   int(       exp(-x**3-y**2)  Dx Dy = 0.791342
    (0.000  (0.000


 Press return to continue.