Aller au contenu

Mathc initiation/a464

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)
{
 double m = J_dvdu(f, X,Y, ar,br,LOOP, at,bt,LOOP);
 
 clrscrn();
 printf(" f : (X,Y)-> %s  \t\t\t \n\n",feq);

 printf(" X : (r,t)-> %s  \t\t\t   \n",Xeq);
 printf(" Y : (r,t)-> %s  \t\t\t \n\n",Yeq);

 printf(" bt : (r)-> %s   \n", bteq);
 printf(" at : (r)-> %s \n\n", ateq);
 
 printf(" br = %s         \n", breq);
 printf(" ar = %s       \n\n", areq);
 
 printf("    (%s     (%s                    \n", bteq, breq);
 printf(" int(   int( f(X(s,t),Y(s,t)) * J(X,Y) dtdr = %.3f \n", m);
 printf("    (%s     (%s              \n\n\n\n", ateq, areq);

 stop();
 return 0;
}
/* --------------------------------- */
/* --------------------------------- */


Exemple de sortie écran :

 f : (X,Y)-> ((X**2 + Y**2)**3) + 1)**(1/2)  			 

 X : (r,t)-> (r*cos(t))  			   
 Y : (r,t)-> (r*sin(t))  			 

 bt : (r)-> 1   
 at : (r)-> 0 

 br = 2*PI         
 ar = 0       

    (1     (2*PI                    
 int(   int( f(X(s,t),Y(s,t)) * J(X,Y) dtdr = 3.492 
    (0     (0              



 Press return to continue.