Mathc initiation/Fichiers c : c62cb
Installer et compiler ces fichiers dans votre répertoire de travail.
c00b.c |
---|
/* ---------------------------------- */
/* save as c00b.c */
/* ---------------------------------- */
#include "x_hfile.h"
#include "fb.h"
/* ---------------------------------- */
int main(void)
{
double m = IntFlux_simpson_dydx( M,N,P,
f,
u, v,LOOP,
ax,bx,LOOP);
clrscrn();
printf(" Let S be the part of the graph of z = %s with z >= 0. \n\n", feq);
printf(" If F(x,y,z) = %si %sj %sk, find the flux of F through S\n\n\n",
Meq,Neq,Peq);
printf(" Consider f(x,y) = (%s)\n\n",feq);
printf(" n = grad(f(x,y)) / ||grad(f(x,y))||\n\n\n");
printf(" The flux of F through S is \n\n");
printf(" // \n");
printf(" || \n");
printf(" || F.n dS = %.3f\n",m);
printf(" || \n");
printf(" // \n");
printf(" S \n\n\n");
stop();
clrscrn();
printf(" / b / v(x)\n");
printf(" | | \n");
printf(" | | F.(-f_xi-f_yj+k) [f_x^2+f_y^2+1]^1/2 dy dx = %.3f\n",m);
printf(" | | ----------- \n");
printf(" | | [f_x^2+f_y^2+1]^1/2\n");
printf(" | | \n");
printf(" / a / u(x)\n\n\n");
printf(" / b / v(x)\n");
printf(" | | \n");
printf(" | | F.(-f_xi-f_yj+k) dy dx = %.3f\n",m);
printf(" | | \n");
printf(" / a / u(x)\n\n\n");
stop();
clrscrn();
printf(" / b / v(x)\n");
printf(" | | \n");
printf(" | | F.(-f_xi-f_yj+k) dy dx = %.3f\n",m);
printf(" | | \n");
printf(" / a / u(x)\n\n\n");
printf(" With.\n\n\n");
printf(" F : (x,y,z)-> %si %sj %sk \n\n", Meq,Neq,Peq);
printf(" f : (x,y)-> %s \n\n", feq);
printf(" v : (x)-> %s \n", veq);
printf(" u : (x)-> %s \n\n", ueq);
printf(" b = %+.1f\n a = %+.1f \n\n\n", bx,ax);
stop();
return 0;
}
/* ---------------------------------- */
/* ---------------------------------- */
Dans cette version nous utilisons l'algorithme simplifié qui calcule les intégrales de flux de surface.
/ b / v(x)
| |
| | F.(-f_xi-f_yj+k) dy dx = 4.712
| |
/ a / u(x)
With.
F : (x,y,z)-> xi yj zk
f : (x,y)-> 1-x**2-y**2
u : (x)-> -sqrt(1-x**2)
v : (x)-> +sqrt(1-x**2)
a = -1.0 b = +1.0
Press return to continue.