Mathc initiation/a484

Sommaire

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

	c00f1.c

/* --------------------------------- */
/* save as c00f1.c                   */
/* --------------------------------- */
#include  "x_afile.h"
#include      "f_f.h"
/* --------------------------------- */
int main(void)
{
double M =  cylindrical_drdkdz( f,
                                u,v,LOOP,
                                s,t,LOOP,
                                a,b,LOOP);
 clrscrn();
 
 printf(" With the cylindrical coordinates. drdkdz\n\n");
 printf("     f : r,k,z -> %s\n\n", feq);

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

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

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

 printf("  Code mathematica  : \n\n" 
        "  integral z * (r) dr dk dz from 0 to 2"
        "  from 0 to 2*Pi from 0 to sqrt(4-z)\n\n\n");
        
 stop();

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

Exemple de sortie écran :

 With the cylindrical coordinates. drdkdz

     f : r,k,z -> z

 r = v : k,  z -> sqrt(4-z)  
 r = u : k,  z -> 0

 k = t :     z -> 2*PI  
 k = s :     z -> 0

 z = b :       -> 2  
 z = a :       -> 0

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

  Code mathematica  : 

  integral z * (r) dr dk dz from 0 to 2  from 0 to 2*Pi from 0 to sqrt(4-z)


 Press return to continue.