Aller au contenu

Mathc initiation/a448

Un livre de Wikilivres.


Sommaire


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


c00b.c
/* ---------------------------------- */
/* save as c00b.c                     */
/* ---------------------------------- */
#include "x_afile.h"
#include      "fb.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 :   (t)-> %s  \n", veq);
 printf(" u :   (t)-> %s\n\n", ueq);
 printf(" b =    %+.1f\n a =    %+.1f\n\n",bt,at);
 
 printf("    (b     (v(t)\n");
 printf(" int(   int(    f(Rx(s,t), Ry(s,t), Rz(s,t)) *" 
            " ||R_s x R_t||  dsdt = %.3f\n", 
                  parametricS_st(Rx,Ry,Rz, f, u,v,LOOP, at,bt,LOOP));
 printf("    (a     (u(t)\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 :   (t)-> 2*PI  
 u :   (t)-> 0

 b =    +3.1
 a =    +0.0

    (b     (v(t)
 int(   int(    f(Rx(s,t), Ry(s,t), Rz(s,t)) * ||R_s x R_t||  dsdt = 4.189
    (a     (u(t)

 Press return to continue.