Mathc initiation/a486
Installer et compiler ces fichiers dans votre répertoire de travail.
c00g1.c |
---|
/* --------------------------------- */
/* save as c00g1.c */
/* --------------------------------- */
#include "x_afile.h"
#include "f_g.h"
/* --------------------------------- */
int main(void)
{
double M = cylindrical_drdzdk( f,
u,v,LOOP,
s,t,LOOP,
a,b,LOOP);
clrscrn();
printf(" With the cylindrical coordinates. drdzdk\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(" z = t : k -> %s \n", teq);
printf(" z = s : k -> %s\n\n", seq);
printf(" k = b : -> %s \n", beq);
printf(" k = a : -> %s\n\n", aeq);
printf(" (k=b (z=t(k) (r=v(k,z) \n");
printf(" m = int( int( int( f(r,k,z) *r* drdzdk = %.6f\n",M);
printf(" (k=a (z=s(k) (r=u(k,z)\n\n");
printf(" Code mathematica : \n\n"
" integral z * (r) dr dz dk from 0 to sqrt(4-z)"
" from 0 to 2*Pi from 1 to 2\n\n\n");
stop();
return 0;
}
/* --------------------------------- */
/* --------------------------------- */
Exemple de sortie écran :
With the cylindrical coordinates. drdzdk
f : r,k,z -> z
r = v : k,z -> sqrt(4-z)
r = u : k,z -> 0
z = t : k -> 2
z = s : k -> 1
k = b : -> 2*PI
k = a : -> 0
(k=b (z=t(k) (r=v(k,z)
m = int( int( int( f(r,k,z) *r* drdzdk = 11.519173
(k=a (z=s(k) (r=u(k,z)
Code mathematica :
integral z * (r) dr dz dk from 0 to sqrt(4-z) from 0 to 2*Pi from 1 to 2
Press return to continue.