Aller au contenu

Mathc initiation/a456

Un livre de Wikilivres.


Sommaire


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


c00a.c
/* ---------------------------------- */
/* save as c00a.c                     */
/* ---------------------------------- */
#include "x_afile.h"
#include      "fa.h"
/* ---------------------------------- */
int main(void)
{
double M = parametricFS_ts( Rx,Ry,Rz, 
                            fi,fj,fk, 
                            u,  v,LOOP, 
                            as,bs,LOOP);
                           	
 clrscrn();
 
 printf(" Find the flux of the vector field F \n"
        " over the surface area defined parametrically by :\n\n");
 
 printf(" R : (s,t)-> %si %sj %sk\n\n", Rxeq,Ryeq,Rzeq);
 
 printf(" F : (x,y,z)-> %sk\n\n", fkeq);
 printf(" v :   (s)-> %s     \n", veq);
 printf(" u :   (s)-> %s   \n\n", ueq);
 printf(" b =    %s\n a =    %s\n\n\n",bseq,aseq);

 printf("    (b     (v(s)\n");
 printf(" int(   int(    F(Rx(s,t), Ry(s,t), Rz(s,t)) ." 
            " |R_s x R_t|  dtds = %.3f\n", M);
 printf("    (a     (u(s)\n\n\n");

 stop();

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


Exemple de sortie écran :

 Find the flux of the vector field F 
 over the surface area defined parametrically by :

 R : (s,t)-> +(sin(s)*cos(t))i +(sin(s)*sin(t))j +(cos(s))k

 F : (x,y,z)-> (z)k

 v :   (s)-> 2*PI     
 u :   (s)-> 0   

 b =    PI
 a =    0


    (b     (v(s)
 int(   int(    F(Rx(s,t), Ry(s,t), Rz(s,t)) . |R_s x R_t|  dtds = 4.189
    (a     (u(s)


 Press return to continue.