Aller au contenu

Mathc initiation/a483

Un livre de Wikilivres.


Sommaire


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


c00e2.c
/* --------------------------------- */
/* save as c00e2.c                   */
/* --------------------------------- */
#include  "x_afile.h"
#include     "f_e2.h"
/* --------------------------------- */
int main(void)
{
double M =  J_vwu(              f,
                                X,Y,Z,
                                u,v,LOOP,
                                s,t,LOOP,
                                a,b,LOOP); 
 clrscrn();
 
 printf("     f :  x,y,z -> %s\n\n", feq);

 printf(" The change of variables.\n"); 
 printf(" X     :  r,k,z -> %s  \t\t\t   \n",Xeq);
 printf(" Y     :  r,k,z -> %s  \t\t\t   \n",Yeq);
 printf(" Z     :  r,k,z -> %s  \t\t\t \n\n",Zeq);

 printf(" The cylindrical coordinates.\n");  
 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(r)   (k=v(r,z)    \n");
 printf(" m = int(   int(      int(     f(X,Y,Z) * J(X,Y,Z) dkdzdr = %.6f\n",M);
 printf("        (r=a   (z=s(r)   (k=u(r,z) \n\n");
      
 stop();

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


Exemple de sortie écran :

     f :  x,y,z -> z

 The change of variables.
 X     :  r,k,z -> (r*cos(k))  			   
 Y     :  r,k,z -> (r*sin(k))  			   
 Z     :  r,k,z -> (z)  			 

 The cylindrical coordinates.
 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(r)   (k=v(r,z)    
 m = int(   int(      int(     f(X,Y,Z) * J(X,Y,Z) dkdzdr = 6.283185
        (r=a   (z=s(r)   (k=u(r,z) 

 Press return to continue.