Mathc initiation/a473
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.