Mathc initiation/a476

Sommaire

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

	c00b0.c

/* --------------------------------- */
/* save as c00b0.c                   */
/* --------------------------------- */
#include  "x_afile.h"
#include      "fb1.h"
/* --------------------------------- */
int main(void)
{
double M =      simpson_dzdxdy( g,
                                z0,z1,LOOP,
                                r0,r1,LOOP,
                                k0,k1,LOOP); 
 clrscrn();
 printf(" With the cylindrical coordinates. dzdrdk\n\n");
 printf("     f : r,k,z -> %s  \n", feq);
 printf("     g : r,k,z -> %s\n\n", geq);
 
 printf(" z1   r,k   -> %s  \n", z1eq);
 printf(" z0   r,k   -> %s\n\n", z0eq);

 printf(" r1     k   -> %s  \n", r1eq);
 printf(" r0     k   -> %s\n\n", r0eq);

 printf(" k1         -> %s  \n", k1eq); 
 printf(" k0         -> %s\n\n", k0eq);
                          
 printf("        (%s (%s   (%s            (dzdxdy) \n",k1eq,r1eq,z1eq);
 printf(" A = int(  int( int( g(r,k,z)     dzdrdk = %.6f\n", M);
 printf("        (%s    (%s   (%s\n\n",                k0eq,r0eq,z0eq);
        
 stop();

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

Exemple de sortie écran :

 With the cylindrical coordinates. dzdrdk

     f : r,k,z -> (r cos(k)) (r sin(k)) (z)  
     g : r,k,z -> (rcos(k))(rsin(k))(z) (r)

 z1   r,k   -> r  
 z0   r,k   -> 0

 r1     k   -> 1  
 r0     k   -> 0

 k1         -> PI/2  
 k0         -> 0

        (PI/2 (1   (r            (dzdxdy) 
 A = int(  int( int( g(r,k,z)     dzdrdk = 0.041667
        (0    (0   (0

 Press return to continue.