Mathc initiation/a473

Sommaire

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

	c00c1.c

/* --------------------------------- */
/* save as c00c1.c                   */
/* --------------------------------- */
#include  "x_afile.h"
#include      "fc1.h"
/* --------------------------------- */
int main(void)
{
double M =  cylindrical_dzdkdr( f,
                                z0,z1,LOOP,
                                k0,k1,LOOP,
                                r0,r1,LOOP); 
 clrscrn();
 
 printf(" With the cylindrical coordinates. dzdkdr\n\n");
 printf("     f : r,k,z -> %s\n\n", feq);

 printf(" z1   r,k   -> %s  \n", z1eq);
 printf(" z0   r,k   -> %s\n\n", z0eq);

 printf(" k1   r     -> %s  \n", k1eq);
 printf(" k0   r     -> %s\n\n", k0eq);

 printf(" r1         -> %s  \n", r1eq); 
 printf(" r0         -> %s\n\n", r0eq);
                          
 printf("        (%s    (%s   (%s      \n", r1eq, k1eq, z1eq);
 printf(" A = int(  int(    int( f(r,k,z) (r) dzdkdr = %.6f\n", M);
 printf("        (%s    (%s      (%s\n\n",  r0eq,  k0eq, z0eq);

 printf("  Code mathematica  : \n\n" 
        " integral (r*cos(k) *  r*sin(k) * z) * (r) dz dk dr\n"
        " from 0 to r from 0 to 1  from 0 to PI/2 \n\n");
        
 stop();

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

Exemple de sortie écran :

 With the cylindrical coordinates. dzdkdr

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

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

 k1   r     -> PI/2  
 k0   r     -> 0

 r1         -> 1  
 r0         -> 0

        (1    (PI/2   (r      
 A = int(  int(    int( f(r,k,z) (r) dzdkdr = 0.041667
        (0    (0      (0

  Code mathematica  : 

 integral (r*cos(k) *  r*sin(k) * z) * (r) dz dk dr
 from 0 to r from 0 to 1  from 0 to PI/2 

 Press return to continue.