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      "f_c.h"
/* --------------------------------- */
int main(void)
{
double M =  cylindrical_dzdkdr( f,
                                u,v,LOOP,
                                s,t,LOOP,
                                a,b,LOOP);
 clrscrn();
 
 printf(" With the cylindrical coordinates. dzdkdr\n\n");
 printf("     f : r,k,z -> %s\n\n", feq);

 printf(" z = v : r,k   -> %s  \n", veq);
 printf(" z = u : r,k   -> %s\n\n", ueq);

 printf(" k = t :   r   -> %s  \n", teq);
 printf(" k = s :   r   -> %s\n\n", seq);

 printf(" b :           -> %s  \n", beq);
 printf(" a :           -> %s\n\n", aeq); 
                          
 printf("        (r=b   (k=t(r)   (z=v(r,k)    \n");
 printf(" m = int(   int(      int(      f(r,k,z) *r* dzdkdr = %.6f\n",M);
 printf("        (r=a   (k=s(r)   (z=u(r,k) \n\n");

 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)

 z = v : r,k   -> r  
 z = u : r,k   -> 0

 k = t :   r   -> +PI/2  
 k = s :   r   -> 0

 b :           -> 1  
 a :           -> 0

        (r=b   (k=t(r)   (z=v(r,k)    
 m = int(   int(      int(      f(r,k,z) *r* dzdkdr = 0.041667
        (r=a   (k=s(r)   (z=u(r,k) 

  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.