Mathc initiation/Fichiers h : c32ca


Sommaire


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


Crystal Clear mimetype source c.png c17a.c
'
/* ---------------------------------- */
/* save as c17a.c                     */
/* ---------------------------------- */
#include  "x_hfile.h"
#include       "fa.h"
/* ---------------------------------- */
int main(void)
{
double a,b,n,
       ay,by,ny,
       Mxy,Myx;

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

 a = 0;         ay =  0; 
 b = 2;         by =  3; 
 n = 2*10;      ny =  2*10;


 Myx = simpson_dydx(f,a,  b,  n,
                        ay, by, ny);

 Mxy = simpson_dxdy(f,a,  b,  n, 
                        ay, by, ny);


 printf(" With the simpsonal's rule.\n\n");
 printf("    (%.3f  (%.3f\n",     b, by);
 printf(" int(   int(       %s  Dy Dx = %.6f\n", feq, Myx);
 printf("    (%.3f  (%.3f\n\n\n", a, ay);
 
 printf("    (%.3f  (%.3f\n",     by, b);
 printf(" int(   int(       %s  Dx Dy = %.6f\n", feq, Mxy);
 printf("    (%.3f  (%.3f\n\n\n", ay, a);

 stop();

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


Vous pouvez vérifier avec Octave version 5.2 :

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

>> I = dblquad (@(x, y) 1./5. * sqrt(225-25*x.*x-9*y.*y), 0, 2, 0, 3)

I =  15.282


Exemple de sortie écran :

 f : (x,y)-> 1./5. * sqrt(225-25*x**2-9*y**2)


 With the simpsonal's rule.

    (2.000  (3.000
 int(   int(       1./5. * sqrt(225-25*x**2-9*y**2)  Dy Dx = 15.282213
    (0.000  (0.000


    (3.000  (2.000
 int(   int(       1./5. * sqrt(225-25*x**2-9*y**2)  Dx Dy = 15.282213
    (0.000  (0.000


 Press return to continue.