Mathc initiation/a463

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 = J_dudv(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(" br : (t)-> %s   \n", breq);
 printf(" ar : (t)-> %s \n\n", areq);
 
 printf(" bt = %s         \n", bteq);
 printf(" at = %s       \n\n", ateq);
 
 printf("    (%s    (%s                    \n", bteq, breq);
 printf(" int(   int( f(X(s,t),Y(s,t)) * J(X,Y) drdt = %.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/2)  			 

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

 br : (t)-> 1   
 ar : (t)-> 0 

 bt = PI         
 at = 0       

    (PI    (1                    
 int(   int( f(X(s,t),Y(s,t)) * J(X,Y) drdt = 0.628 
    (0     (0              



 Press return to continue.