Aller au contenu

Mathc initiation/a482

Un livre de Wikilivres.


Sommaire


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


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

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

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

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

 stop();

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


Exemple de sortie écran :

 With the cylindrical coordinates. dkdzdr

     f : r,k,z -> z

 k = v : r,  z -> 2*PI  
 k = u : r,  z -> 0

 z = t : r     -> 1  
 z = s : r     -> 0

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

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


 Press return to continue.