Mathc initiation/a447

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)
{
 clrscrn();
 
 printf(" Find 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)-> %s\n\n", feq);
 printf(" v :   (s)-> %s  \n", veq);
 printf(" u :   (s)-> %s\n\n", ueq);
 printf(" b =    %+.1f\n a =    %+.1f\n\n\n",bs,as);

 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",  
                     parametricS_ts(Rx,Ry,Rz, f, u,v,LOOP, as,bs,LOOP));
 printf("    (a     (u(s)\n\n\n");

 stop();

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


Exemple de sortie écran :

 Find 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)-> x**2

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

 b =    +6.3
 a =    +0.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.